diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-09-17 18:13:27 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-09-17 18:13:27 +0200 |
| commit | c5db7f8dcf98fc354737ad15dc783c2e9241efb5 (patch) | |
| tree | 5614d0ef501b41b82e87e8617684813749d7ab11 | |
| parent | d7338689e43a124ac31c17437ef9b98ccc4848ac (diff) | |
| download | smtcoq-c5db7f8dcf98fc354737ad15dc783c2e9241efb5.tar.gz smtcoq-c5db7f8dcf98fc354737ad15dc783c2e9241efb5.zip | |
Solve bug in prop2bool
| -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 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. |