From e89a4297bb1acf6f72c2fb68f3b9cd126f5ce28b Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Thu, 27 Sep 2018 16:39:34 -0400
Subject: Add some lemmas about Bool.reflect

---
 _CoqProject             |  1 +
 src/Util/Bool/Reflect.v | 10 ++++++++++
 2 files changed, 11 insertions(+)
 create mode 100644 src/Util/Bool/Reflect.v

diff --git a/_CoqProject b/_CoqProject
index d5f092a17..d0ba0ea41 100644
--- a/_CoqProject
+++ b/_CoqProject
@@ -6537,6 +6537,7 @@ src/Util/ZRange.v
 src/Util/ZUtil.v
 src/Util/Bool/Equality.v
 src/Util/Bool/IsTrue.v
+src/Util/Bool/Reflect.v
 src/Util/Decidable/Bool2Prop.v
 src/Util/Decidable/Decidable2Bool.v
 src/Util/ListUtil/FoldBool.v
diff --git a/src/Util/Bool/Reflect.v b/src/Util/Bool/Reflect.v
new file mode 100644
index 000000000..0baefa0e4
--- /dev/null
+++ b/src/Util/Bool/Reflect.v
@@ -0,0 +1,10 @@
+(** * Some lemmas about [Bool.reflect] *)
+Require Import Coq.Bool.Bool.
+
+Lemma reflect_to_dec_iff {P b1 b2} : reflect P b1 -> (b1 = b2) <-> (if b2 then P else ~P).
+Proof.
+  intro H; destruct H, b2; split; intuition congruence.
+Qed.
+
+Lemma reflect_to_dec {P b1 b2} : reflect P b1 -> (b1 = b2) -> (if b2 then P else ~P).
+Proof. intro; apply reflect_to_dec_iff; assumption. Qed.
-- 
cgit v1.2.3