Definition HasBinProd (C : Category) := forall a b : C, BinProd a b.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).

Lemma Mor_prod_r : Map2_congr_law Mor_prod.