diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-11-15 17:38:28 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-11-15 17:38:28 +0100 |
commit | 349815b8f98c548d9054efad176e3894a37a3957 (patch) | |
tree | 991b188452fdcdc2323725e510e2bd184c074fa5 /unit-tests/Tests_verit_tactics.v | |
parent | 1b8d455a7515d1dbee9e24e5af768dab65bb6ab8 (diff) | |
parent | f6e575e0736a80b4c253be48b3c4c58cc5101137 (diff) | |
download | smtcoq-349815b8f98c548d9054efad176e3894a37a3957.tar.gz smtcoq-349815b8f98c548d9054efad176e3894a37a3957.zip |
Merge remote-tracking branch 'origin/coq-8.10' into coq-8.11
Diffstat (limited to 'unit-tests/Tests_verit_tactics.v')
-rw-r--r-- | unit-tests/Tests_verit_tactics.v | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index 2f080a8..ce530bd 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -1449,3 +1449,29 @@ Section NonPrenexDependentTypes. End NonPrenexDependentTypes. *) + + +Section QInstAnd. + + Variable A : Type. + Hypothesis HA : CompDec A. + + Hypothesis H : forall (a1 a2:A) l1 l2, + eqb_of_compdec _ (a1::l1) (a2::l2) ---> + (eqb_of_compdec HA a1 a2) && (eqb_of_compdec _ l1 l2). + + Variables a1 a2 : A. + Variables l1 l2 : list A. + Hypothesis H1 : eqb_of_compdec _ (a1::l1) (a2::l2). + + Goal eqb_of_compdec _ a1 a2. + Proof. verit. Qed. + + Variable inb : A -> list A -> bool. + + Hypothesis H2 : forall (a:A) l1 l2, inb a (l1++l2) ---> (inb a l1 || inb a l2). + + Goal negb (inb a1 (l1++l2)) || inb a1 l1 || inb a1 l2. + Proof. verit. Qed. + +End QInstAnd. |