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 mapsto_can_store_property: forall (ch:memory_chunk) v sh (wsh: writable0_share sh) b ofs jm v' (MAPSTO: (address_mapsto ch v sh (b, ofs) * TT)%pred (m_phi jm)), Mem.store ch (m_dry jm) b ofs v' = Some(mapsto_can_store_definition _ _ _ wsh _ _ jm v' MAPSTO).