diff options
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. |