Module MemoryLemmas.
Global Notation "a # b" := (Maps.PMap.get b a) (at level 1).
Transparent Mem.store.
Transparent Mem.alloc.

Lemma mem_storev_store:
forall chunk ptr v m m',
Mem.storev chunk m ptr v = Some m' ->
exists b ofs, ptr = Vptr b ofs /\
Mem.store chunk m b (Integers.Ptrofs.intval ofs) v = Some m'.