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'.

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.