From: Adam Megacz <megacz@cs.berkeley.edu>
Date: Sat, 9 Apr 2011 03:18:59 +0000 (+0000)
Subject: add a notation for composition of isomorphisms
X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=commitdiff_plain;h=469c709f122da80a207769aab3cd038fd1c3d509;ds=sidebyside

add a notation for composition of isomorphisms
---

diff --git a/src/Isomorphisms_ch1_5.v b/src/Isomorphisms_ch1_5.v
index 8241ead..18eb3db 100644
--- a/src/Isomorphisms_ch1_5.v
+++ b/src/Isomorphisms_ch1_5.v
@@ -52,6 +52,7 @@ Definition iso_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).
diff --git a/src/Notations.v b/src/Notations.v
index 4bca2f6..26c3ac1 100644
--- a/src/Notations.v
+++ b/src/Notations.v
@@ -28,6 +28,7 @@ Reserved Notation "a ≅ b"                       (at level 70, right associativ
 Reserved Notation "C 'ᵒᴾ'"                      (at level 1).
 Reserved Notation "F \ a"                       (at level 20).
 Reserved Notation "f >>> g"                     (at level 45).
+Reserved Notation "a >>≅>> b"                   (at level 45).
 Reserved Notation "a ~~ b"                      (at level 54).
 Reserved Notation "a ~> b"                      (at level 70, right associativity).
 Reserved Notation "a ≃ b"                       (at level 70, right associativity).