From f9b2da9dd012e0ee0548aa82e8a132abc6429d7d Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Mon, 4 Mar 2019 17:26:45 -0500 Subject: Add some minor reflect things --- src/Util/Bool/Reflect.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Util/Bool') diff --git a/src/Util/Bool/Reflect.v b/src/Util/Bool/Reflect.v index d9e93fe93..8a5333f0a 100644 --- a/src/Util/Bool/Reflect.v +++ b/src/Util/Bool/Reflect.v @@ -69,6 +69,7 @@ Ltac beq_to_eq beq bl lb := Existing Class reflect. Definition decb (P : Prop) {b : bool} {H : reflect P b} := b. Notation reflect_rel P b := (forall x y, reflect (P x y) (b x y)). +Definition decb_rel {A B} (P : A -> B -> Prop) {b : A -> B -> bool} {H : reflect_rel P b} := b. Lemma decb_true_iff P {b} {H : reflect P b} : @decb P b H = true <-> P. Proof. symmetry; apply reflect_iff, H. Qed. -- cgit v1.2.3