Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K C)
: Reification K C (mon_i C).
refine
- {| reification_r := fun k:K => RepresentableFunctor K k >>>> garrow
+ {| reification_r := fun k:K => HomFunctor K k >>>> garrow
; reification_rstar_f := garrow >>>> me_mf C
+ ; reification_rstar := MonoidalFunctorsCompose _ _ _ _ _ garrow (me_mf C)
|}.
- apply MonoidalFunctorsCompose.
abstract (intros; set (@ni_associativity) as q; apply q).
Defined.
+