Require Import Reification.
Require Import GeneralizedArrow.
-Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K C)
+Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K ce)
: Reification K ce (enr_c_i ce).
refine
{| reification_r := fun k:K => HomFunctor K k >>>> ga_functor garrow
; reification_rstar := PreMonoidalFunctorsCompose garrow C
|}.
abstract (intros; set (@ni_associativity) as q; apply q).
+ intros; apply ga_host_lang_pure.
Defined.