diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-06 18:44:25 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-06 18:44:25 +0200 |
commit | 0991c82f51cdbeb4887b32d5baddfb9217b5c19f (patch) | |
tree | 49335760a40e0f6544bd8d7508cde73cd511d217 /src | |
parent | 443d9a1e1dc4459adb91e47dccc712b7ff733c8f (diff) | |
parent | cfadb667ba2c9904ff0d94bf186cf9f89e370515 (diff) | |
download | smtcoq-0991c82f51cdbeb4887b32d5baddfb9217b5c19f.tar.gz smtcoq-0991c82f51cdbeb4887b32d5baddfb9217b5c19f.zip |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'src')
-rw-r--r-- | src/QInst.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/QInst.v b/src/QInst.v index 14ff0f7..8971380 100644 --- a/src/QInst.v +++ b/src/QInst.v @@ -74,6 +74,13 @@ Proof. destruct a; destruct c; intuition. Qed. +Lemma eqb_or_split a b c: + Bool.eqb c (a || b) = true -> negb c || a || b = true. +Proof. + intro H. + destruct a; destruct b; destruct c; intuition. +Qed. + (** verit considers equality modulo its symmetry, so we have to recover the right direction in the instances of the theorems *) (* TODO: currently incomplete *) @@ -201,6 +208,10 @@ Ltac vauto := first [ strategy1 H | strategy2 H ] ] + | [ |- (negb ?A || ?B || ?C) = true ] => + eapply eqb_or_split; + first [ strategy1 H + | strategy2 H ] end ] ); |