aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorChantal Keller <Chantal.Keller@lri.fr>2021-05-06 18:46:39 +0200
committerChantal Keller <Chantal.Keller@lri.fr>2021-05-06 18:46:39 +0200
commitcd195624db96b90b582257f29a26f20ea3879760 (patch)
tree7a1bafa37305f38225d712ffc05c11870e28865c /src
parentd5d96bced453c37cdabf603a73c53c574b8c6cb2 (diff)
parent0991c82f51cdbeb4887b32d5baddfb9217b5c19f (diff)
downloadsmtcoq-pxtp21.tar.gz
smtcoq-pxtp21.zip
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11pxtp21
Diffstat (limited to 'src')
-rw-r--r--src/QInst.v11
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
]
);