Definition Right_Kleisli_is_right_adjoint {C : category} (T : Monad C) : is_right_adjoint (Right_Kleisli_functor T) := are_adjoints_to_is_right_adjoint (Left_Kleisli_functor T) (Right_Kleisli_functor T) (Kleisli_functors_are_adjoints T).
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.Monads.Monads. Require Import UniMath.CategoryTheory.whiskering.