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

Lemma nth_getN: forall m b ofs ofs' z, ofs <= ofs' < ofs + z -> z >= 0 -> contents_at m (b, ofs') = nth (nat_of_Z (ofs' - ofs)) (Mem.getN (nat_of_Z z) ofs (PMap.get b (Mem.mem_contents m))) Undef.