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

Lemma MapPut_ext :
forall m m':Map A,
eqmap m m' ->
forall (a:ad) (y:A), eqmap (MapPut A m a y) (MapPut A m' a y).