diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-06 18:44:25 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-06 18:44:25 +0200 |
commit | 0991c82f51cdbeb4887b32d5baddfb9217b5c19f (patch) | |
tree | 49335760a40e0f6544bd8d7508cde73cd511d217 /unit-tests | |
parent | 443d9a1e1dc4459adb91e47dccc712b7ff733c8f (diff) | |
parent | cfadb667ba2c9904ff0d94bf186cf9f89e370515 (diff) | |
download | smtcoq-0991c82f51cdbeb4887b32d5baddfb9217b5c19f.tar.gz smtcoq-0991c82f51cdbeb4887b32d5baddfb9217b5c19f.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 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index 0e2509a..9c5e7f4 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -1341,3 +1341,25 @@ Section Issue92. Goal 0 = 2. Proof. verit_no_check. Abort. End Issue92. + + +Section Vauto. + Variable A : Type. + Variable HA : CompDec A. + Variable H0 : forall (x y : A) (x0 y0 : list A), x :: x0 = y :: y0 -> y = x /\ y0 = x0. + Variable H1 : forall (H : A) (H0 : list A), nil = H :: H0 -> False. + Variable search : forall {A : Type} {H: CompDec A}, A -> list A -> bool. + Arguments search {_ _} _ _. + Variable H4_A : forall (H : CompDec A) (H0 H1 : A) (H2 : list A), + search H0 (H1 :: H2) = eqb_of_compdec H H0 H1 || search H0 H2. + Variable H2 : forall (H : CompDec (list A)) (H0 H1 : list A) (H2 : list (list A)), + search H0 (H1 :: H2) = eqb_of_compdec H H0 H1 || search H0 H2. + Variable H3_A : forall (H : CompDec A) (H0 : A), search H0 nil = false. + Variable H4 : forall (H : CompDec (list A)) (H0 : list A), search H0 nil = false. + Variables a b : A. + Variable l : list A. + Variable H : search b (a :: l). + + Goal eqb_of_compdec HA a b \/ search b l. + Proof. verit_no_check. Qed. +End Vauto. |