X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FEnrichment_ch2_8.v;h=3d3aac9ada1dd2f0b4fa42dc7c357a3b3757710b;hp=a3f4c3e0cf11429450cdb85c7aa33eada1251db1;hb=f494aec0e2a8f5ccb7a5f560dd4f8a0b302feb40;hpb=1104780d775bf36ff9f44ab287c22604ab47f0b5

diff --git a/src/Enrichment_ch2_8.v b/src/Enrichment_ch2_8.v
index a3f4c3e..3d3aac9 100644
--- a/src/Enrichment_ch2_8.v
+++ b/src/Enrichment_ch2_8.v
@@ -363,11 +363,11 @@ Instance UnderlyingFunctor `(EF:@EFunctor Ob Hom V bin_obj' bc EI mn Eob1 EHom1
   Defined.
   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)
+Class EBinoidalCat `(ec:ECategory)(bobj   :  ec -> ec -> ec) :=
+{ ebc_first  :  forall a:ec, EFunctor ec ec (fun x => bobj x a)
+; ebc_second :  forall a:ec, EFunctor ec ec (fun x => bobj a x)
 ; ebc_ec     := ec  (* this isn't a coercion - avoids duplicate paths *)
+; ebc_bobj   := bobj
 }.
 
 Instance EBinoidalCat_is_binoidal `(ebc:EBinoidalCat(ec:=ec)) : BinoidalCat (Underlying ec) ebc_bobj.