Definition juicy_mem_core (j: juicy_mem) : rmap := core (m_phi j).

Lemma mapsto_valid_access_wr: forall ch v sh (wsh: writable0_share sh) b ofs jm, (address_mapsto ch v sh (b, ofs) * TT)%pred (m_phi jm) -> Mem.valid_access (m_dry jm) ch b ofs Writable.