diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 16:54:56 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 16:54:56 +0200 |
commit | 39b4d1d31c6446c937164039cac585dbe91b8b29 (patch) | |
tree | 9de2490006271f4e0bc348b469d788d971c1ebc3 /unit-tests | |
parent | 1cd1e8d4e3399a582c2f5b8de203ba59cd3f8010 (diff) | |
download | smtcoq-39b4d1d31c6446c937164039cac585dbe91b8b29.tar.gz smtcoq-39b4d1d31c6446c937164039cac585dbe91b8b29.zip |
CompDec are automatically discharged when generated by the OCaml tactic, when possible
Diffstat (limited to 'unit-tests')
-rw-r--r-- | unit-tests/Tests_verit_tactics.v | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index a270fdd..73b59f4 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -500,12 +500,21 @@ Qed. Goal forall (i j:int), (i == j) && (negb (i == j)) = false. Proof using. - verit. auto with typeclass_instances. + verit. Qed. +Goal forall (i j:int), + ~ ((i = j) /\ (~ (i = j))). +Proof using. verit. Qed. + Goal forall i j, (i == j) || (negb (i == j)). Proof using. - verit. auto with typeclass_instances. + verit. +Qed. + +Goal forall (i j:int), (i = j) \/ (~ (i = j)). +Proof using. + verit. Qed. @@ -1153,10 +1162,10 @@ Qed. Section AppliedPolymorphicTypes1. Goal forall (f : option Z -> Z) (a b : Z), implb (Z.eqb a b) (Z.eqb (f (Some a)) (f (Some b))). - Proof. verit. auto with typeclass_instances. Qed. + Proof. verit. Qed. Goal forall (f : option Z -> Z) (a b : Z), a = b -> f (Some a) = f (Some b). - Proof. verit. auto with typeclass_instances. Qed. + Proof. verit. Qed. End AppliedPolymorphicTypes1. |