diff options
-rw-r--r-- | _CoqProject | 1 | ||||
-rw-r--r-- | src/Util/Bool/Reflect.v | 10 |
2 files changed, 11 insertions, 0 deletions
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. |