Coercion Ap2 : Map2 >-> Funclass.
Identity Coercion Map2_Map : Map2 >-> Map.
(*** rewrite rules ***)
Section rew_prop_map2.
Variables (A B C : Setoid) (f : Map2 A B C).

(* 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.