From c5db7f8dcf98fc354737ad15dc783c2e9241efb5 Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Fri, 17 Sep 2021 18:13:27 +0200 Subject: Solve bug in prop2bool --- src/PropToBool.v | 2 +- unit-tests/Tests_verit_tactics.v | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/PropToBool.v b/src/PropToBool.v index ec3b64c..cad6dae 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. -- cgit