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_r : Map2_congr_law Mor_prod.