X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FFreydCategories.v;fp=src%2FFreydCategories.v;h=9ea39e0b45e46d0fce390a1a2b75bf132a8d6bef;hp=c269e5064cf970e22bc0970ddf1e995dd5676c5a;hb=45449bae8b3348278301e268aabb2a1c3dd8d0cb;hpb=bce224f0a9ddd24cfe16a710b4f7d5be64b32929

diff --git a/src/FreydCategories.v b/src/FreydCategories.v
index c269e50..9ea39e0 100644
--- a/src/FreydCategories.v
+++ b/src/FreydCategories.v
@@ -26,7 +26,7 @@ Class FreydCategory
   `(C:CartesianCat(Ob:=Ob)(C:=C1)(bin_obj':=bobj))
 
    (* a premonoidal category K with the same objects (its unit object is 1 because the functor is both IIO and strict) *)
-  `(K:PreMonoidalCat(Ob:=Ob)(bin_obj':=bobj)(I:=@one _ _ _ C))
+  `(K:PreMonoidalCat(Ob:=Ob)(bin_obj':=bobj)(I:=pmon_I(PreMonoidalCat:=C)))
 
    (* an identity-on-objects functor J:C->Z(K) *)
 := { fc_J       : Functor C (Center_is_Monoidal K) (fun x => x)