X-Git-Url: http://git.megacz.com/?p=coq-categories.git;a=blobdiff_plain;f=src%2FRepresentableStructure_ch7_2.v;fp=src%2FRepresentableStructure_ch7_2.v;h=05da4ee518a335732d77f62000f85c12ce05f307;hp=38d715d843cf6f3a28543e108b81c21b1fa29f28;hb=758bf2a48a733870dca601e5b03390d4271ad1c7;hpb=cc0b4696c2cfc23bdff6ded347478510ccf014c9

diff --git a/src/RepresentableStructure_ch7_2.v b/src/RepresentableStructure_ch7_2.v
index 38d715d..05da4ee 100644
--- a/src/RepresentableStructure_ch7_2.v
+++ b/src/RepresentableStructure_ch7_2.v
@@ -178,9 +178,11 @@ Coercion smme_me : SurjectiveMonicMonoidalEnrichment >-> MonicMonoidalEnrichment
 (* like SurjectiveMonicMonoidalEnrichment, but the Enrichment is a field, not a parameter *)
 Structure SMME :=
 { smme_e   : Enrichment
+; smme_see : SurjectiveEnrichment smme_e
 ; smme_mon : MonoidalEnrichment smme_e
 ; smme_mee : MonicMonoidalEnrichment _ smme_mon
 }.
 Coercion smme_e   : SMME >-> Enrichment.
+Coercion smme_see : SMME >-> SurjectiveEnrichment.
 Coercion smme_mon : SMME >-> MonoidalEnrichment.
 Coercion smme_mee : SMME >-> MonicMonoidalEnrichment.