projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2e2cdd7
)
use apply tactic in ReificationFromGeneralizedArrow; not sure why this is required
author
Adam Megacz
<megacz@cs.berkeley.edu>
Fri, 25 Mar 2011 18:16:55 +0000
(11:16 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Fri, 25 Mar 2011 18:16:55 +0000
(11:16 -0700)
src/ReificationFromGeneralizedArrow.v
patch
|
blob
|
history
diff --git
a/src/ReificationFromGeneralizedArrow.v
b/src/ReificationFromGeneralizedArrow.v
index
ed92c57
..
678de5c
100644
(file)
--- 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
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.
abstract (intros; set (@ni_associativity) as q; apply q).
Defined.