(* AxB = (S_PROD A B) *)
(* Sprod_l et Sprod_r sont en fait des Map *)

(* Specifications: *)
Lemma Proj1_SPROD_map_law : Map_law (Sprod_l:SPROD -> A).
Canonical Structure Proj1_SPROD : Map SPROD A := Proj1_SPROD_map_law.
Lemma Proj2_SPROD_map_law : Map_law (Sprod_r:SPROD -> B).
Canonical Structure Proj2_SPROD : Map SPROD B := Proj2_SPROD_map_law.