X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FRepresentableStructure_ch7_2.v;h=38d715d843cf6f3a28543e108b81c21b1fa29f28;hp=10f9bdd1663576c359394fe0c57d2502bff9b4fd;hb=ff268c0e8d10a75c5f82b0ae69feda0ec36faa4b;hpb=107e8eb4dc6e893c3dd93535c5343eba204659a8

diff --git a/src/RepresentableStructure_ch7_2.v b/src/RepresentableStructure_ch7_2.v
index 10f9bdd..38d715d 100644
--- a/src/RepresentableStructure_ch7_2.v
+++ b/src/RepresentableStructure_ch7_2.v
@@ -179,8 +179,8 @@ Coercion smme_me : SurjectiveMonicMonoidalEnrichment >-> MonicMonoidalEnrichment
 Structure SMME :=
 { smme_e   : Enrichment
 ; smme_mon : MonoidalEnrichment smme_e
-; smme_me  : MonicMonoidalEnrichment smme_mon
+; smme_mee : MonicMonoidalEnrichment _ smme_mon
 }.
 Coercion smme_e   : SMME >-> Enrichment.
-Coercion smme_mon : SMME >-> MonoidalEnrichment smme_e.
-Coercion smme_me  : SMME >-> MonicMonoidalEnrichment smme_mon.
+Coercion smme_mon : SMME >-> MonoidalEnrichment.
+Coercion smme_mee : SMME >-> MonicMonoidalEnrichment.