From ccbbf7e5593e0d3a646528c6629668c64a1d86e4 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 5 Apr 2019 15:11:54 -0400 Subject: Hint reflect on negb This way we can pick it up based on the bool, and not just on the Prop. This allows us to `apply Reflect.reflect_bool in H` for `H : negb (_ =? _) = true` and have it work. --- src/Util/Bool/Reflect.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/Util/Bool/Reflect.v b/src/Util/Bool/Reflect.v index 8a5333f0a..0d31853fe 100644 --- a/src/Util/Bool/Reflect.v +++ b/src/Util/Bool/Reflect.v @@ -161,6 +161,7 @@ Proof. exact _. Qed. (** Disallow infinite loops of reflect_not *) Hint Extern 0 (reflect (~?A) _) => eapply (@reflect_not A) : typeclass_instances. +Hint Extern 0 (reflect _ (negb ?b)) => eapply (@reflect_not _ b) : typeclass_instances. Global Instance reflect_eq_unit : reflect_rel (@eq unit) (fun _ _ => true) | 10. exact _. Qed. Global Instance reflect_eq_bool : reflect_rel (@eq bool) Bool.eqb | 10. exact _. Qed. -- cgit v1.2.3