projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use WeakFunctorCategory to prove GArrow/Reification isomorphism
[coq-hetmet.git]
/
src
/
ReificationFromGeneralizedArrow.v
diff --git
a/src/ReificationFromGeneralizedArrow.v
b/src/ReificationFromGeneralizedArrow.v
index
8d94dca
..
e6f8ad6
100644
(file)
--- 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
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.
+