proposition: Proposition kleisli_monad_nat_trans_enrichment : nat_trans_enrichment (kleisli_monad_nat_trans M) (functor_comp_enrichment EM Left_Kleisli_functor_enrichment) Left_Kleisli_functor_enrichment.
proof: Proof. use nat_trans_enrichment_via_comp. intros x y ; cbn. rewrite Kleisli_cat_enrichment_precomp_arr, Kleisli_cat_enrichment_postcomp_arr. rewrite precomp_arr_id. rewrite id_right. rewrite functor_id. rewrite id_left. rewrite !assoc. rewrite <- functor_enrichment_postcomp_arr. rewrite !assoc'. rewrite <- !postcomp_arr_comp. do 2 apply maponpaths. refine (Monad_law2 _ @ !_). apply Monad_law1. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.EnrichedCats.Enrichment UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor UniMath.CategoryTheory.EnrichedCats.EnrichmentTransformation UniMath.CategoryTheory.EnrichedCats.EnrichmentMonad UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monads.Monads UniMath.CategoryTheory.Monads.KleisliCategory