diff options
Diffstat (limited to 'src/State.v')
-rw-r--r-- | src/State.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/State.v b/src/State.v index 16868b7..ae69f37 100644 --- a/src/State.v +++ b/src/State.v @@ -239,7 +239,7 @@ Proof. rewrite <- eqb_spec;trivial. rewrite <- not_true_iff_false in H, H0. unfold is_true in *;rewrite ltb_spec in H |- *;rewrite eqb_spec in H0. - assert ([|x|] <> [|y|]) by (intros Heq;apply H0, to_Z_inj;trivial);omega. + assert ([|x|] <> [|y|]) by (intros Heq;apply H0, to_Z_inj;trivial);lia. Qed. @@ -358,7 +358,7 @@ Module C. intros rho resolve_correct Hc1;simpl in Hc1. induction c2;simpl;try discriminate. generalize (compare_spec' l1 a);destruct (l1 ?= a);intros;subst;simpl. - simpl in Hc1;destruct (Lit.interp rho a);simpl in *;auto. + simpl in Hc1;destruct (Lit.interp rho l1);simpl in *;auto. generalize (Lit.lxor_neg l1 a);destruct (l1 lxor a == 1);intros. rewrite or_correct. rewrite H1, Lit.interp_neg in Hc1;trivial;destruct (Lit.interp rho a). |