Section mor_prod_def.
Variables (C : Category) (C1 : HasBinProd C).
Section mor_prod_map2.
Variable a b c d : C.
Definition Mor_prod (f : a --> c) (g : b --> d) :=
H_together C1 (H_proj1_prod C1 a b o f) (H_proj2_prod C1 a b o g).

Lemma Mor_prod_l : Map2_congl_law Mor_prod.
Definition Mor_prod_map2 := Build_Map2 Mor_prod_l Mor_prod_r.