fact: Definition make_ob_co_eilenberg_moore (x : C) (f : x --> m x) (p : f · ε m x = identity x) (q : f · δ m x = f · # m f) : co_eilenberg_moore_cat := (x ,, _) ,, (p ,, q).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Categories.Dialgebras UniMath.CategoryTheory.Subcategory.Core UniMath.CategoryTheory.Subcategory.Full UniMath.CategoryTheory.Monads.Comonads