aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChantal Keller <Chantal.Keller@lri.fr>2021-09-17 18:14:17 +0200
committerChantal Keller <Chantal.Keller@lri.fr>2021-09-17 18:14:17 +0200
commitdf070a02f2e11dcb142debf46fe3027941d0b4e0 (patch)
tree579c67fbf17523b1455ab76f95a6decaf0df1a0d
parentf3ffc920c7205192d9b357e99f075daee834430e (diff)
parentc5db7f8dcf98fc354737ad15dc783c2e9241efb5 (diff)
downloadsmtcoq-df070a02f2e11dcb142debf46fe3027941d0b4e0.tar.gz
smtcoq-df070a02f2e11dcb142debf46fe3027941d0b4e0.zip
Merge remote-tracking branch 'origin/master' into coq-8.10
-rw-r--r--src/PropToBool.v2
-rw-r--r--unit-tests/Tests_verit_tactics.v6
2 files changed, 7 insertions, 1 deletions
diff --git a/src/PropToBool.v b/src/PropToBool.v
index 7286216..98ce55c 100644
--- a/src/PropToBool.v
+++ b/src/PropToBool.v
@@ -50,7 +50,7 @@ Ltac prop2bool :=
| bool =>
lazymatch y with
| true => fail
- | _ => rewrite <- eqb_true_iff
+ | _ => rewrite <- (eqb_true_iff x y)
end
| _ =>
lazymatch goal with
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v
index 16790f6..34b5dfd 100644
--- a/unit-tests/Tests_verit_tactics.v
+++ b/unit-tests/Tests_verit_tactics.v
@@ -1363,3 +1363,9 @@ Section Vauto.
Goal eqb_of_compdec HA a b \/ search b l.
Proof. verit_no_check. Qed.
End Vauto.
+
+
+Section PropToBool.
+ Goal (forall (x x0 : bool) (x1 x2 : list bool), x :: x1 = x0 :: x2 -> x = x0) -> true.
+ Proof. verit. Qed.
+End PropToBool.