(** ** 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_zeros: forall m b p n m1
(STORE_ZERO: store_zeros m b p n = Some m1)
(WD: MemoryWD.valid_mem m),
MemoryWD.valid_mem m1.