From bb960df7c29c851ca9d13f2d0c8f351ac24045ca Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Fri, 25 Mar 2011 11:16:55 -0700 Subject: [PATCH] use apply tactic in ReificationFromGeneralizedArrow; not sure why this is required --- src/ReificationFromGeneralizedArrow.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- 1.7.10.4