diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-11-07 14:49:38 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-11-07 14:49:38 -0500 |
| commit | 619ab2496a3872cdda1b8f480dc79aa71fa4ae1d (patch) | |
| tree | 4fd018278bf6cddfa0bb44c0615950d91a6c9c2a /src/Util/IffT.v | |
| parent | 42b13adb8a512774f2edb8aa0869ac9920c42e43 (diff) | |
Add IffT, some Proper prod lemmas
Diffstat (limited to 'src/Util/IffT.v')
| -rw-r--r-- | src/Util/IffT.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/IffT.v b/src/Util/IffT.v new file mode 100644 index 000000000..fd132fbfa --- /dev/null +++ b/src/Util/IffT.v @@ -0,0 +1,9 @@ +Require Import Coq.Classes.RelationClasses. +Notation iffT := (fun A B => inhabited ((A -> B) * (B -> A)))%type. + +Global Instance iffT_Reflexive : Reflexive iffT | 1. +Proof. repeat constructor; intro; assumption. Defined. +Global Instance iffT_Symmetric : Symmetric iffT | 1. +Proof. repeat (intros [?] || intro); constructor; tauto. Defined. +Global Instance iffT_Transitive : Transitive iffT | 1. +Proof. repeat (intros [?] || intro); constructor; tauto. Defined. |