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 juicy_free_lemma': forall {j b lo hi m' m1 m2 F} (H: Mem.free (m_dry j) b lo hi = Some m') (VR: app_pred (VALspec_range (hi-lo) Share.top (b,lo) * F) (m_phi j)), VALspec_range (hi-lo) Share.top (b,lo) m1 -> join m1 m2 (m_phi j) -> m_phi (free_juicy_mem _ _ _ _ _ H) = m2.