fact: Definition Monad_to_Kleisli {C : category} : Monad C → KleisliMonad C := λ T, (functor_on_objects T ,, (pr1 (η T) ,, @bind C T)) ,, @Monad_law2 C T ,, (@η_bind C T ,, @bind_bind C T).
imports: UniMath.Foundations.PartD UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Monads.KTriples UniMath.CategoryTheory.Monads.Monads UniMath.CategoryTheory.Monads.RelativeMonads