(** ** Erased X86 machine is safe*)
From mathcomp.ssreflect Require Import ssreflect ssrbool ssrnat ssrfun eqtype seq fintype finfun.
Set Implicit Arguments.
(*NOTE: because of redefinition of [val], these imports must appear after Ssreflect eqtype.*)
Module InitialMemWD.

Lemma mem_wd_store_init_datalist: forall ge l (b:block)
(z:Z) m1 m2 (SID: Genv.store_init_data_list ge m1 b z l = Some m2),
X86WD.ge_wd (id_ren m1) ge -> MemoryWD.valid_mem m1 -> MemoryWD.valid_mem m2.