Section MapAxioms.
Variables A B C : Type.
Definition eqmap (m m':Map A) := eqm A (MapGet A m) (MapGet A m').
End MapAxioms.

Lemma MapDomRestrTo_ext_r :
forall (A B:Type) (m1:Map A) (m2 m'2:Map B),
eqmap B m2 m'2 ->
eqmap A (MapDomRestrTo A B m1 m2) (MapDomRestrTo A B m1 m'2).