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_wd2_alloc_globals: forall F V (ge: Genv.t F V) init_list m0 m (GA: Genv.alloc_globals ge m0 init_list = Some m), mem_wd' m m0 -> valid_genv ge m -> mem_wd2 m.