diff options
author | Jason Gross <jgross@mit.edu> | 2018-09-27 16:39:34 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2018-09-27 16:40:07 -0400 |
commit | e89a4297bb1acf6f72c2fb68f3b9cd126f5ce28b (patch) | |
tree | 7e17a262cb205e950c95a76250834fbec6663797 | |
parent | d6c9be90fbcb0b41f02f1de8d872ef4b04446d6f (diff) |
Add some lemmas about Bool.reflect
-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. |