diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:07:15 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:07:15 +0100 |
commit | 81b13b26f6dabca0152a9244fc474cd8ecb29905 (patch) | |
tree | 97bc01428708cb7ae5e173cd2db9b119d7111aaf | |
parent | 50e3798575aa7ff0a13a483af23a384dee3d8bb7 (diff) | |
parent | 2524d8daa33d2807847d988a2e96303e9e4e0998 (diff) | |
download | smtcoq-81b13b26f6dabca0152a9244fc474cd8ecb29905.tar.gz smtcoq-81b13b26f6dabca0152a9244fc474cd8ecb29905.zip |
Merge remote-tracking branch 'origin/coq-8.11' into coq-8.12
-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 ] |