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_init_datalist: forall {F V} (ge: Genv.t F V) l (b:block) (z:Z) m m1 m2 (SID: Genv.store_init_data_list ge m1 b z l = Some m2), valid_genv ge m -> mem_wd' m m1 -> mem_wd' m m2.