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