fact: Definition make_monad_cell {C : bicat} {x y : C} {mx : monad C x} {my : monad C y} {f g : x --> y} {α : f ==> g} {mf : mx -->[f] my} {mg : mx -->[g] my} (α_nat : (monad_endo mx ◃ α) • monad_mor_natural mg = monad_mor_natural mf • (α ▹ monad_endo my)) : mf ==>[ α ] mg := ((α_nat ,, (tt,,tt)),, tt).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.PrecategoryBinProduct UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.Examples.Identity UniMath.Bicategories.PseudoFunctors.Examples.Composition UniMath.Bicategories.PseudoFunctors.Examples.Projection UniMath.Bicategories.Transformations.PseudoTransformation UniMath.Bicategories.Transformations.Examples.AlgebraMap UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.Univalence UniMath.Bicategories.DisplayedBicats.DispAdjunctions UniMath.Bicategories.DisplayedBicats.DispUnivalence UniMath.Bicategories.DisplayedBicats.Examples.Algebras UniMath.Bicategories.DisplayedBicats.Examples.Add2Cell UniMath.Bicategories.DisplayedBicats.Examples.Prod UniMath.Bicategories.DisplayedBicats.Examples.FullSub UniMath.Bicategories.DisplayedBicats.Examples.Sigma UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.CategoryTheory.Equivalences.CompositesAndInverses