X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FIsomorphisms_ch1_5.v;h=18eb3db3b8f3a0b7ddb0cfb40e75f696cfd3cfdd;hp=40a5f878309ceaf06b103e1029d6ecaa8caea0ab;hb=469c709f122da80a207769aab3cd038fd1c3d509;hpb=84949606d80f30b1a7ada10f46ae13bdf17cacc2

diff --git a/src/Isomorphisms_ch1_5.v b/src/Isomorphisms_ch1_5.v
index 40a5f87..18eb3db 100644
--- a/src/Isomorphisms_ch1_5.v
+++ b/src/Isomorphisms_ch1_5.v
@@ -1,6 +1,5 @@
 Generalizable All Variables.
-Require Import Preamble.
-Require Import General.
+Require Import Notations.
 Require Import Categories_ch1_3.
 Require Import Functors_ch1_4.
 
@@ -45,7 +44,7 @@ Definition iso_id `{C:Category}(A:C) : Isomorphic A A.
   Defined.
 
 (* the composition of two isomorphisms is an isomorphism *)
-Definition id_comp `{C:Category}{a b c:C}(i1:Isomorphic a b)(i2:Isomorphic b c) : Isomorphic a c.
+Definition iso_comp `{C:Category}{a b c:C}(i1:Isomorphic a b)(i2:Isomorphic b c) : Isomorphic a c.
   intros; apply (@Build_Isomorphic _ _ C a c (#i1 >>> #i2) (#i2⁻¹ >>> #i1⁻¹));
     setoid_rewrite juggle3;
     [ setoid_rewrite (iso_comp1 i2) | setoid_rewrite (iso_comp2 i1) ];
@@ -53,6 +52,7 @@ Definition id_comp `{C:Category}{a b c:C}(i1:Isomorphic a b)(i2:Isomorphic b c)
     [ setoid_rewrite (iso_comp1 i1) | setoid_rewrite (iso_comp2 i2) ];
     reflexivity.
   Defined.
+Notation "a >>≅>> b" := (iso_comp a b).
 
 Definition functors_preserve_isos `{C1:Category}`{C2:Category}{Fo}(F:Functor C1 C2 Fo){a b:C1}(i:Isomorphic a b)
   : Isomorphic (F a) (F b).