diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
commit | 0a0dc47da1916c2a850610cfb80ba04c17e64549 (patch) | |
tree | 022eaa0105a039341d09ec8b8ec530cc64c935f4 /src/bva/BVList.v | |
parent | fd20ab4585d6e445cd9998ca33e70eb046613be1 (diff) | |
parent | fa531ff0ef33557d38584f03126caea9507a5a67 (diff) | |
download | smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.tar.gz smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.zip |
Merge remote-tracking branch 'remotes/origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/bva/BVList.v')
-rw-r--r-- | src/bva/BVList.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bva/BVList.v b/src/bva/BVList.v index 91a110d..f0ba8ef 100644 --- a/src/bva/BVList.v +++ b/src/bva/BVList.v @@ -435,7 +435,7 @@ Fixpoint beq_listP (l m : list bool) {struct l} := Lemma bv_mk_eq l1 l2 : bv_eq l1 l2 = beq_list l1 l2. Proof. unfold bv_eq, size, bits. - case_eq (Nat_eqb (length l1) (length l2)); intro Heq. + case_eq (Nat.eqb (length l1) (length l2)); intro Heq. - now rewrite (EqNat.beq_nat_true _ _ Heq), N.eqb_refl. - replace (N.of_nat (length l1) =? N.of_nat (length l2)) with false. * revert l2 Heq. induction l1 as [ |b1 l1 IHl1]; intros [ |b2 l2]; simpl in *; auto. |