From e89a4297bb1acf6f72c2fb68f3b9cd126f5ce28b Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 27 Sep 2018 16:39:34 -0400 Subject: Add some lemmas about Bool.reflect --- src/Util/Bool/Reflect.v | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 src/Util/Bool/Reflect.v (limited to 'src/Util/Bool/Reflect.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