fact: Definition precategory_total_id (C : precategory_data) : ob C -> total_morphisms C := λ c, tpair _ (make_dirprod c c) (identity c).
imports: UniMath.Foundations.PartA UniMath.Foundations.Sets UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Setcategories