fact: Structure BinProd : Type := {Obj_prod : C; Proj1_prod : Obj_prod --> a; Proj2_prod : Obj_prod --> b; Op_together : forall c : C, Map2 (c --> a) (c --> b) (c --> Obj_prod); Prf_eq1_prod : Eq1_prod_law Proj1_prod Op_together; Prf_eq2_prod : Eq2_prod_law Proj2_prod Op_together; Prf_unique_together : Unique_together_law Proj1_prod Proj2_prod Op_together}.
imports: Category Map2