fact: Definition alg_forgetful_functor_right_action_adjoint_monad_mul_preserves_right_tensor {T : pointed} {X : Mon_alg T} (Adj : alg_forgetful_functor_right_action_is_adjoint X) := let m := Monad_from_adjunction Adj in ∏ (Y : C), μ m Y = αinv_{V} _ _ _ · (_ ⊗^{V}_{l} ruinv_{V} _) ⊗^{V}_{r} _ · μ m I_{V} ⊗^{V}_{r} Y · ru_{V} _ ⊗^{V}_{r} _.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Monads.Monads UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Total UniMath.CategoryTheory.DisplayedCats.Functors UniMath.CategoryTheory.DisplayedCats.NaturalTransformations UniMath.CategoryTheory.DisplayedCats.Constructions UniMath.CategoryTheory.Adjunctions.Core UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.CategoriesOfMonoids