(** ** 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_alloc_globals:
forall ge init_list m0 m
(GA: Genv.alloc_globals ge m0 init_list = Some m),
MemoryWD.valid_mem m0 -> X86WD.ge_wd (id_ren m0) ge -> MemoryWD.valid_mem m.