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

Lemma mem_store_cur:
forall chunk b ofs v m m',
Mem.store chunk m b ofs v = Some m' ->
forall b' ofs',
(getCurPerm m) # b' ofs' = (getCurPerm m') # b' ofs'.