fact: Definition is_monoid_ob (X : Mon) (μ : X ⊗ X --> X) (η : I --> X) : UU := (μ #⊗ id X · μ = pr1 α' ((X, X), X) · id X #⊗ μ · μ) × (pr1 λ' X = η #⊗ id X · μ) × (pr1 ρ' X = id X #⊗ η · μ).
imports: UniMath.Foundations.PartD UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Monoidal.AlternativeDefinitions.MonoidalCategoriesTensored