Definition makeFunctor {C D:category} (obj : C -> D) (mor : ∏ c c' : C, c --> c' -> obj c --> obj c') (identity : ∏ c, mor c c (identity c) = identity (obj c)) (compax : ∏ (a b c : C) (f : a --> b) (g : b --> c), mor a c (g ∘ f) = mor b c g ∘ mor a b f) : C ⟶ D := (obj,, mor),, identity,, compax.
Require Import UniMath.MoreFoundations.Tactics.