fact: Definition make_is_precategory {C : precategory_data} (H1 : ∏ (a b : C) (f : a --> b), identity a · f = f) (H2 : ∏ (a b : C) (f : a --> b), f · identity b = f) (H3 : ∏ (a b c d : C) (f : a --> b) (g : b --> c) (h : c --> d), f · (g · h) = (f · g) · h) (H4 : ∏ (a b c d : C) (f : a --> b) (g : b --> c) (h : c --> d), (f · g) · h = f · (g · h)) : is_precategory C := (H1,,H2),,(H3,,H4).
imports: UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Notations