From: Adam Megacz 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).