Section fun2_to_map2'.
Variable A B C : Setoid'.
Definition Map2' := Map' A (Map_setoid' B C).
Variable f : A -> B -> C.
Definition Map2_congl_law' :=
forall (b1 b2 : B) (a : A), b1 =_S' b2 -> f a b1 =_S' f a b2.
Definition Map2_congr_law' :=
forall (a1 a2 : A) (b : B), a1 =_S' a2 -> f a1 b =_S' f a2 b.
Definition Map2_cong_law' :=
forall (a1 a2 : A) (b1 b2 : B),
a1 =_S' a2 -> b1 =_S' b2 -> f a1 b1 =_S' f a2 b2.
Hypothesis pgcl : Map2_congl_law'.
Hypothesis pgcr : Map2_congr_law'.
Canonical Structure Map2_map1' (a : A) := Build_Map' (Map2_map_law1' a).

Lemma Map2_map_law2' : Map_law' Map2_map1'.