Identity Coercion Map2_Map : Map2 >-> Map.

(* Specifications: *)
Lemma Map2_l : forall (b1 b2 : B) (a : A), b1 =_S b2 -> f a b1 =_S f a b2.
Lemma Map2_r : forall (a1 a2 : A) (b : B), a1 =_S a2 -> f a1 b =_S f a2 b.
Lemma Map2_lr : forall (a1 a2 : A) (b1 b2 : B), a1 =_S a2 -> b1 =_S b2 -> f a1 b1 =_S f a2 b2.