fact: Definition kleisli_triple (C : category) : UU := ∑ (M : ob C → ob C) (η : ∏ (A : C), A --> M A) (bind : ∏ (A B : C), A --> M B → M A --> M B), (∏ (A : C), bind A A (η A) = id₁ (M A)) × (∏ (A B : C) (f : A --> M B), η A · bind A B f = f) × ∏ (A B C : C) (f : A --> M B) (g : B --> M C), bind A B f · bind B C g = bind A C (f · bind B C g).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.AdjointUnique UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.DispAdjunctions UniMath.Bicategories.DisplayedBicats.DispInvertibles UniMath.Bicategories.DisplayedBicats.DispUnivalence