Definition mem_wd' m m' := forall b ofs, memval_inject (Mem.flat_inj (Mem.nextblock m))
    (ZMap.get ofs (PMap.get b (Mem.mem_contents m'))) (ZMap.get ofs (PMap.get b (Mem.mem_contents m'))).

Lemma mem_wd'_store_zeros: forall m0 m b p n m1 (STORE_ZERO: store_zeros m b p n = Some m1) (WD: mem_wd' m0 m), mem_wd' m0 m1.