- {| reification_r := fun k:K => RepresentableFunctor K k >>>> garrow
- ; reification_rstar_f := garrow >>>> me_mf C
+ {| reification_r := fun k:K => HomFunctor K k >>>> ga_functor garrow
+ ; reification_rstar_f := ga_functor garrow >>>> C
+ ; reification_rstar := PreMonoidalFunctorsCompose garrow C