fact: Definition enriched_id_ax : UU := ∏ a b : enriched_cat_ob e, dirprod (enriched_cat_identity b #⊗ (identity _) · enriched_cat_comp a b b = mon_lunitor _) ((identity _ #⊗ enriched_cat_identity a) · enriched_cat_comp a a b = mon_runitor _).
imports: UniMath.Foundations.PartA UniMath.Foundations.Propositions UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Core.Isos