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 writable_writable_after_alloc' : forall m1 m2 lo hi b lev loc IOK1 IOK2, alloc m1 lo hi = (m2, b) -> writable loc (m_phi (initial_mem m1 lev IOK1)) -> writable loc (m_phi (initial_mem m2 lev IOK2)).