make mf_compose_coherence transparent

diff --git a/src/MonoidalCategories_ch7_8.v b/src/MonoidalCategories_ch7_8.v
index e07d035..b7d80a0 100644 (file)
--- a/src/MonoidalCategories_ch7_8.v
+++ b/src/MonoidalCategories_ch7_8.v
@@ -430,7 +430,7 @@ Section MonoidalFunctorsCompose.
         apply ni_inv.
         apply mc1.
         apply ni_id.
         apply ni_inv.
         apply mc1.
         apply ni_id.

-    Qed.
+  Defined.

 
   Instance MonoidalFunctorsCompose : MonoidalFunctor m1 m3 (f1 >>>> f2) :=
   { mf_id        := id_comp         (mf_id mf2) (functors_preserve_isos f2 (mf_id mf1))
 
   Instance MonoidalFunctorsCompose : MonoidalFunctor m1 m3 (f1 >>>> f2) :=
   { mf_id        := id_comp         (mf_id mf2) (functors_preserve_isos f2 (mf_id mf1))