(** ** 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 valid_genv_alloc: forall ge (m m1:mem) lo hi b
(ALLOC: Mem.alloc m lo hi = (m1,b))
(G: X86WD.ge_wd (id_ren m) ge),
X86WD.ge_wd (id_ren m1) ge.