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

Lemma MapDomRestrTo_assoc : forall (m:Map A) (m':Map B) (m'':Map C), eqmap (MapDomRestrTo A C (MapDomRestrTo A B m m') m'') (MapDomRestrTo A B m (MapDomRestrTo B C m' m'')).