Section hasbinprod_proj.
Variables (C : Category) (C1 : HasBinProd C) (a b : C).
Definition H_obj_prod := Obj_prod (C1 a b).
Definition H_proj1_prod := Proj1_prod (C1 a b).
Definition H_proj2_prod := Proj2_prod (C1 a b).
Definition H_together (c : C) (f : c --> a) (g : c --> b) :=
Together (C1 a b) f g.
End hasbinprod_proj.
(* qques defs et res utils *)

Lemma Eq3_prod :
forall (C : Category) (a b : C) (C1 : BinProd a b)
(c : C) (f : c --> a) (g : c --> b) (c' : C) (k : c' --> c),
k o Together C1 f g =_S Together C1 (k o f) (k o g).