diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2017-02-11 21:59:58 -0500 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2017-03-02 13:37:14 -0500 |
| commit | e8fab6b839e19da231333ca8173bbb2a3d8a4033 (patch) | |
| tree | b8128c428ed4b4e58211071b207859ec37999db1 /src/Util/Relations.v | |
| parent | c56ca7b46711128f9287b5105a5b457ca09d4723 (diff) | |
split the algebra library; use fsatz more
Diffstat (limited to 'src/Util/Relations.v')
| -rw-r--r-- | src/Util/Relations.v | 6 |
1 files changed, 6 insertions, 0 deletions
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 |