projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GArrowSkeleton: add some more optimization cases
[coq-hetmet.git]
/
src
/
ReificationsAndGeneralizedArrows.v
diff --git
a/src/ReificationsAndGeneralizedArrows.v
b/src/ReificationsAndGeneralizedArrows.v
index
4056c77
..
7924a43
100644
(file)
--- a/
src/ReificationsAndGeneralizedArrows.v
+++ b/
src/ReificationsAndGeneralizedArrows.v
@@
-71,9
+71,8
@@
Section ReificationsEquivalentToGeneralizedArrows.
Qed.
Lemma roundtrip_garrow_to_garrow
Qed.
Lemma roundtrip_garrow_to_garrow
- `(K:SurjectiveEnrichment) `(C:MonicEnrichment ce) (CM:MonoidalEnrichment ce) (garrow : GeneralizedArrow K CM)
+ `(K:SurjectiveEnrichment) `(C:MonicEnrichment ce) (CM:MonoidalEnrichment ce) (garrow : GeneralizedArrow K ce)
: garrow ≃ garrow_from_reification K C CM (reification_from_garrow K CM garrow).
: garrow ≃ garrow_from_reification K C CM (reification_from_garrow K CM garrow).
-
apply if_inv.
eapply if_comp.
eapply if_inv.
apply if_inv.
eapply if_comp.
eapply if_inv.