Definition eqmap (m m':Map A) := eqm A (MapGet A m) (MapGet A m').

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