diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 16:55:45 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 16:55:45 +0200 |
| commit | 3c16cd6919f2f44cf2732e0bcda88b91ddbbbcff (patch) | |
| tree | c3a6a32d80626ee232cba2f0d76e8e0d668ae646 /unit-tests | |
| parent | 5084ed22cf500f531375df75fb4f00505d593f55 (diff) | |
| parent | 39b4d1d31c6446c937164039cac585dbe91b8b29 (diff) | |
| download | smtcoq-3c16cd6919f2f44cf2732e0bcda88b91ddbbbcff.tar.gz smtcoq-3c16cd6919f2f44cf2732e0bcda88b91ddbbbcff.zip | |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
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. |