X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FEnrichment_ch2_8.v;h=52a3d2ab9502d135ad59f8f4a3dfa74e24aceaf3;hp=275de7bba2375c8933052a9b715443cc710f7672;hb=e928451c4c45cdbdd975bbfb229e8cc2616b8194;hpb=27ffdd2265eb1c15acc62970f49d25a07bcadb05

diff --git a/src/Enrichment_ch2_8.v b/src/Enrichment_ch2_8.v
index 275de7b..52a3d2a 100644
--- a/src/Enrichment_ch2_8.v
+++ b/src/Enrichment_ch2_8.v
@@ -362,9 +362,10 @@ Instance UnderlyingFunctor `(EF:@EFunctor Ob Hom V bin_obj' bc EI mn Eob1 EHom1
   Coercion UnderlyingFunctor : EFunctor >-> Functor.
 
 Class EBinoidalCat `(ec:ECategory) :=
-{ ebc_bobj   : ec -> ec -> ec
-; ebc_first  : forall a:ec, EFunctor ec ec (fun x => ebc_bobj x a)
-; ebc_second : forall a:ec, EFunctor ec ec (fun x => ebc_bobj a x)
+{ ebc_bobj   :  ec -> ec -> ec
+; ebc_first  :  forall a:ec, EFunctor ec ec (fun x => ebc_bobj x a)
+; ebc_second :  forall a:ec, EFunctor ec ec (fun x => ebc_bobj a x)
+; ebc_ec     := ec  (* this isn't a coercion - avoids duplicate paths *)
 }.
 
 Instance EBinoidalCat_is_binoidal `(ebc:EBinoidalCat(ec:=ec)) : BinoidalCat (Underlying ec) ebc_bobj.