X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FIsomorphisms_ch1_5.v;h=372ad43933d34a55d3a419106b121cbaf69ce881;hp=40a5f878309ceaf06b103e1029d6ecaa8caea0ab;hb=2403342ad32f12dd56a82ce575dd2d35d91f545a;hpb=84949606d80f30b1a7ada10f46ae13bdf17cacc2 diff --git a/src/Isomorphisms_ch1_5.v b/src/Isomorphisms_ch1_5.v index 40a5f87..372ad43 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 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) ];