X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FReificationFromGeneralizedArrow.v;fp=src%2FReificationFromGeneralizedArrow.v;h=678de5c7d3d63f676ebe850d727bedc52ea4fe9e;hp=ed92c57e701541fc537fe94d052616a48e52a3d6;hb=bb960df7c29c851ca9d13f2d0c8f351ac24045ca;hpb=2e2cdd77d4c1ed9ecb1793f9499079cfd6d999f2

diff --git a/src/ReificationFromGeneralizedArrow.v b/src/ReificationFromGeneralizedArrow.v
index ed92c57..678de5c 100644
--- a/src/ReificationFromGeneralizedArrow.v
+++ b/src/ReificationFromGeneralizedArrow.v
@@ -29,8 +29,8 @@ Definition reification_from_garrow (K:Enrichment) (C:MonoidalEnrichment) (garrow
   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.