#[global]
 Instance MapsTo_compat {elt} :
   Proper (D.eq==>Logic.eq==>equivlistA eqke==>iff) (@MapsTo elt).#[global]
 Instance In_compat {elt} : Proper (D.eq==>equivlistA eqk==>iff) (@In elt).

Lemma MapsTo_eq {elt} (l:list (key*elt)) x y e : D.eq x y -> MapsTo x e l -> MapsTo y e l.