fact: Definition em_to_has_construction_of_algs_nat_mnd_cell {m : mnd B} {x : B} (f : x --> pr1 (HB m)) : em_hom_functor m (pr1 (HB m)) x f ==> right_universal_arrow_functor (mnd_incl B) x m (λ m0 : mnd B, pr21 (HB m0)) f.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Adjunctions.Core UniMath.CategoryTheory.Equivalences.Core UniMath.CategoryTheory.Equivalences.FullyFaithful UniMath.CategoryTheory.Equivalences.CompositesAndInverses UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.AdjointUnique UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax UniMath.Bicategories.Limits.EilenbergMooreObjects UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.UniversalArrow UniMath.Bicategories.PseudoFunctors.Examples.MonadInclusion