diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:05:57 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:05:57 +0100 |
commit | 2524d8daa33d2807847d988a2e96303e9e4e0998 (patch) | |
tree | 2d5847cf55b6ae34b010ba6d0ede66dba7b02490 | |
parent | 96cd98b3e04aba915cb36cba39e15a39422ab628 (diff) | |
parent | 1860a878ad5af74f5e2d2142c35b1e2d7c43aad3 (diff) | |
download | smtcoq-2524d8daa33d2807847d988a2e96303e9e4e0998.tar.gz smtcoq-2524d8daa33d2807847d988a2e96303e9e4e0998.zip |
Merge remote-tracking branch 'origin/coq-8.10' into coq-8.11
-rw-r--r-- | src/QInst.v | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/src/QInst.v b/src/QInst.v index 1dc66a8..89ccd88 100644 --- a/src/QInst.v +++ b/src/QInst.v @@ -36,6 +36,34 @@ Proof. installed when we compile SMTCoq. *) Qed. +Lemma impl_split211 a b1 b2 c1 c2 : + implb a ((b1 && b2) || (c1 && c2)) = true -> (negb a) || b1 || c1 = true. +Proof. + intro H. + destruct a; destruct b1; destruct b2; destruct c1; destruct c2; trivial. +Qed. + +Lemma impl_split212 a b1 b2 c1 c2 : + implb a ((b1 && b2) || (c1 && c2)) = true -> (negb a) || b1 || c2 = true. +Proof. + intro H. + destruct a; destruct b1; destruct b2; destruct c1; destruct c2; trivial. +Qed. + +Lemma impl_split221 a b1 b2 c1 c2 : + implb a ((b1 && b2) || (c1 && c2)) = true -> (negb a) || b2 || c1 = true. +Proof. + intro H. + destruct a; destruct b1; destruct b2; destruct c1; destruct c2; trivial. +Qed. + +Lemma impl_split222 a b1 b2 c1 c2 : + implb a ((b1 && b2) || (c1 && c2)) = true -> (negb a) || b2 || c2 = true. +Proof. + intro H. + destruct a; destruct b1; destruct b2; destruct c1; destruct c2; trivial. +Qed. + (** verit silently transforms an <implb (a || b) c> into a <or (not a) c> or into a <or (not b) c> when instantiating such a quantified theorem *) @@ -154,6 +182,10 @@ Ltac vauto := | [ |- (negb ?A || ?B || ?C) = true ] => first [ eapply eqb_or_split; apply_sym H | eapply impl_split2; apply_sym H + | eapply impl_split211; apply_sym H + | eapply impl_split212; apply_sym H + | eapply impl_split221; apply_sym H + | eapply impl_split222; apply_sym H ] end ] |