diff options
-rw-r--r-- | src/PropToBool.v | 2 | ||||
-rw-r--r-- | unit-tests/Tests_verit_tactics.v | 6 |
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. |