Program Definition mapsto_can_store_definition ch v sh (wsh: writable0_share sh) b ofs jm (v':val)
  (MAPSTO: (address_mapsto ch v sh (b, ofs) * TT)%pred (m_phi jm)):
  Memory.mem.

Lemma store_outside': forall ch m b z v m', Mem.store ch m b z v = Some m' -> (forall b' ofs, (b=b' /\ z <= ofs < z + size_chunk ch) \/ contents_at m (b', ofs) = contents_at m' (b', ofs)) /\ access_at m = access_at m' /\ Mem.nextblock m = Mem.nextblock m'.