From dbb2aa3df305ef0061ff2efeeb12c51cc1a2ca91 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 10 Nov 2017 04:22:14 -0500 Subject: Add dec_if_bool --- src/Util/Decidable.v | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Util/Decidable.v') diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index 974510f61..482f2c50a 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -126,6 +126,12 @@ Global Instance dec_match_pair {A B} {P : A -> B -> Prop} {x : A * B} : Decidable (let '(a, b) := x in P a b) | 1. Proof. edestruct (_ : _ * _); assumption. Defined. +Global Instance dec_if_bool {b : bool} {A B} {HA : Decidable A} {HB : Decidable B} + : Decidable (if b then A else B) | 10 + := if b return Decidable (if b then A else B) + then HA + else HB. + Lemma not_not P {d:Decidable P} : not (not P) <-> P. Proof. destruct (dec P); intuition. Qed. -- cgit v1.2.3