diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:04:41 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-07 19:04:41 +0100 |
commit | 1860a878ad5af74f5e2d2142c35b1e2d7c43aad3 (patch) | |
tree | 4589723559eed673b0d0d8069ce05ac503634980 | |
parent | 01900662373ca1b72d9c78171bcc21133cec3bf4 (diff) | |
parent | 0617eb48bafaa87059e34a278d6e9351df905c46 (diff) | |
download | smtcoq-1860a878ad5af74f5e2d2142c35b1e2d7c43aad3.tar.gz smtcoq-1860a878ad5af74f5e2d2142c35b1e2d7c43aad3.zip |
Merge remote-tracking branch 'origin/master' into coq-8.10
-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 ] |