diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-01-13 16:55:07 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-01-13 16:55:07 +0100 |
commit | ca534dcf8fda56b507e45405e5fb38cbd8c3977a (patch) | |
tree | d3ae44be8f7b53c57184b730d680062e37397011 /unit-tests | |
parent | baae61d8330a5c97fce0d15d698b95314218b8e2 (diff) | |
parent | a3e412edf10a3a6ef9b352a25c8e62c5fed82538 (diff) | |
download | smtcoq-ca534dcf8fda56b507e45405e5fb38cbd8c3977a.tar.gz smtcoq-ca534dcf8fda56b507e45405e5fb38cbd8c3977a.zip |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11
Diffstat (limited to 'unit-tests')
-rw-r--r-- | unit-tests/Tests_verit_tactics.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index 896c1bf..da7cb5a 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -994,3 +994,13 @@ Proof using. intros. verit. Qed. + + +Section Polymorphism. + 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. + + Goal forall (f : option Z -> Z) (a b : Z), a = b -> f (Some a) = f (Some b). + Proof. verit. auto with typeclass_instances. Qed. +End Polymorphism. |