fact: Definition is_Algebra_mor {X Y : Algebra} (f : X --> Y) : UU := Alg_map X · f = #T f · Alg_map Y.
imports: UniMath.Foundations.PartD UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.Adjunctions.Core UniMath.CategoryTheory.Monads.Monads UniMath.CategoryTheory.Monads.Derivative