From cdadc5d338e3c00c4cd22a3a3d7197f71d4d7a44 Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Mon, 26 Apr 2021 18:27:37 +0200 Subject: Equality between Booleans should be changed for hypotheses --- unit-tests/Tests_verit_tactics.v | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'unit-tests/Tests_verit_tactics.v') 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. -- cgit