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 /src/Util/Bool/Reflect.v | |
| parent | d6c9be90fbcb0b41f02f1de8d872ef4b04446d6f (diff) | |
Add some lemmas about Bool.reflect
Diffstat (limited to 'src/Util/Bool/Reflect.v')
| -rw-r--r-- | src/Util/Bool/Reflect.v | 10 |
1 files changed, 10 insertions, 0 deletions
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. |