X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FReificationFromGeneralizedArrow.v;h=e6f8ad67ab5697d8f4f9f7a559b67a9ee077d957;hp=8d94dca914bd74c508fbdce4451c473d518de2f2;hb=f9297f3fba59884fe98eb4f9257a1fb7552bfd0a;hpb=7300187652058f4c24fd4527d9a5833583959fb4

diff --git a/src/ReificationFromGeneralizedArrow.v b/src/ReificationFromGeneralizedArrow.v
index 8d94dca..e6f8ad6 100644
--- a/src/ReificationFromGeneralizedArrow.v
+++ b/src/ReificationFromGeneralizedArrow.v
@@ -29,9 +29,10 @@ Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment 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)
    |}.
-   apply MonoidalFunctorsCompose.
    abstract (intros; set (@ni_associativity) as q; apply q).
    Defined.
 
 
+