(*memories that do not contain "dangling pointers"*)
Definition mem_wd m := Mem.inject_neutral (Mem.nextblock m) m.

Lemma mem_wd_store: forall m b ofs v m' chunk (WDm: mem_wd m)
(ST: Mem.store chunk m b ofs v = Some m')
(V: val_valid v m), mem_wd m'.