From e8fab6b839e19da231333ca8173bbb2a3d8a4033 Mon Sep 17 00:00:00 2001 From: Andres Erbsen Date: Sat, 11 Feb 2017 21:59:58 -0500 Subject: split the algebra library; use fsatz more --- src/Util/Relations.v | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Util/Relations.v') diff --git a/src/Util/Relations.v b/src/Util/Relations.v index 8ab045cfe..7dc654ec3 100644 --- a/src/Util/Relations.v +++ b/src/Util/Relations.v @@ -51,3 +51,9 @@ Qed. Global Instance eq_eta_Reflexive {T} : Reflexive (fun x y : T => x = y) | 1 := eq_Reflexive. + +Global Instance Symmetric_not {T:Type} (R:T->T->Prop) + {SymmetricR:Symmetric R} : Symmetric (fun a b => not (R a b)). +Proof. cbv [Symmetric] in *; repeat intro; eauto. Qed. + +Lemma not_exfalso (P:Prop) (H:P->False) : not P. auto with nocore. Qed. \ No newline at end of file -- cgit v1.2.3