X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FReificationFromGeneralizedArrow.v;h=730d91de1b9158a58a5d25bcac1b1c4985b47745;hp=e6f8ad67ab5697d8f4f9f7a559b67a9ee077d957;hb=794719aadd55d760c0514f45c23b9cb450d92d9f;hpb=f9297f3fba59884fe98eb4f9257a1fb7552bfd0a

diff --git a/src/ReificationFromGeneralizedArrow.v b/src/ReificationFromGeneralizedArrow.v
index e6f8ad6..730d91d 100644
--- a/src/ReificationFromGeneralizedArrow.v
+++ b/src/ReificationFromGeneralizedArrow.v
@@ -17,21 +17,24 @@ Require Import Enrichment_ch2_8.
 Require Import Subcategories_ch7_1.
 Require Import NaturalTransformations_ch7_4.
 Require Import NaturalIsomorphisms_ch7_5.
+Require Import PreMonoidalCategories.
 Require Import MonoidalCategories_ch7_8.
 Require Import Coherence_ch7_8.
 Require Import Enrichment_ch2_8.
+Require Import Enrichments.
 Require Import RepresentableStructure_ch7_2.
 Require Import Reification.
 Require Import GeneralizedArrow.
 
-Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K C)
- : Reification K C (mon_i 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 => RepresentableFunctor K k >>>> garrow
-   ; reification_rstar_f   :=                                garrow >>>> me_mf C
-   ; reification_rstar     := MonoidalFunctorsCompose _ _ _ _ _ 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
    |}.
    abstract (intros; set (@ni_associativity) as q; apply q).
+   intros; apply ga_host_lang_pure.
    Defined.