Remark store_zeros_load_outside:
  forall m b p n m',
  store_zeros m b p n = Some m' ->
  forall chunk b' p',
  b' <> b \/ p' + size_chunk chunk <= p \/ p + n <= p' ->
  Mem.load chunk m' b' p' = Mem.load chunk m b' p'.

(* Specifications: *)
Lemma load_store_zeros: forall m b z N m', store_zeros m b z N = Some m' -> forall z', z <= z' < z + N -> load Mint8unsigned m' b z' = Some (Vint Int.zero).
Lemma read_as_zero_lem1: forall m b z len, (forall i, z <= i < z+len -> load Mint8unsigned m b i = Some (Vint Int.zero)) -> Genv.read_as_zero m b z len.