diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 18:33:59 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-26 18:33:59 +0200 |
commit | 4edc3f9f40d131bb64311a533d483ae32257bbf2 (patch) | |
tree | 163edb6c5af8ce0ed0b6eb688cc3bcbd50301d15 /unit-tests | |
parent | 5cb4fb6fbda54976254255ffa5a428f63dee6115 (diff) | |
parent | f46800b1c69e687f5605cce88b037cb89d63b79a (diff) | |
download | smtcoq-4edc3f9f40d131bb64311a533d483ae32257bbf2.tar.gz smtcoq-4edc3f9f40d131bb64311a533d483ae32257bbf2.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 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index 73b59f4..d1c57f4 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -1238,3 +1238,14 @@ Section Issue78. Proof. verit. Qed. End Issue78. + + +Section SearchApp. + Variable search : Z -> list Z -> bool. + Hypothesis search_app : forall (x: Z) (l1 l2: list Z), + search x (l1 ++ l2) = orb (search x l1) (search x l2). + + Lemma search_lemma : forall (x: Z) (l1 l2 l3: list Z), + search x (l1 ++ l2 ++ l3) = search x (l3 ++ l2 ++ l1). + Proof. verit. Qed. +End SearchApp. |