projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
HaskFlattener: represent first-order abstraction using GArrows
[coq-hetmet.git]
/
src
/
ReificationFromGeneralizedArrow.v
diff --git
a/src/ReificationFromGeneralizedArrow.v
b/src/ReificationFromGeneralizedArrow.v
index
1a5fea7
..
730d91d
100644
(file)
--- a/
src/ReificationFromGeneralizedArrow.v
+++ b/
src/ReificationFromGeneralizedArrow.v
@@
-26,7
+26,7
@@
Require Import RepresentableStructure_ch7_2.
Require Import Reification.
Require Import GeneralizedArrow.
Require Import Reification.
Require Import GeneralizedArrow.
-Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K C)
+Definition reification_from_garrow (K:Enrichment) {ce} (C:MonoidalEnrichment ce) (garrow : GeneralizedArrow K ce)
: Reification K ce (enr_c_i ce).
refine
{| reification_r := fun k:K => HomFunctor K k >>>> ga_functor garrow
: Reification K ce (enr_c_i ce).
refine
{| reification_r := fun k:K => HomFunctor K k >>>> ga_functor garrow