X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FReificationFromGeneralizedArrow.v;h=a53b2e2fe25f5e7288de1bd7c4a317aeab0ad901;hp=e6f8ad67ab5697d8f4f9f7a559b67a9ee077d957;hb=ec8ee5cde986e5b38bcae38cda9e63eba94f1d9f;hpb=b096aab78240e38ff69c120367e65be60cbc54f5

diff --git a/src/ReificationFromGeneralizedArrow.v b/src/ReificationFromGeneralizedArrow.v
index e6f8ad6..a53b2e2 100644
--- a/src/ReificationFromGeneralizedArrow.v
+++ b/src/ReificationFromGeneralizedArrow.v
@@ -27,7 +27,7 @@ Require Import GeneralizedArrow.
 Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K C)
  : Reification K C (mon_i C).
   refine
-  {| reification_r         := fun k:K => RepresentableFunctor K k >>>> garrow
+  {| reification_r         := fun k:K => HomFunctor K k >>>> garrow
    ; reification_rstar_f   :=                                garrow >>>> me_mf C
    ; reification_rstar     := MonoidalFunctorsCompose _ _ _ _ _ garrow (me_mf C)
    |}.