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

Lemma core_load_getN: forall ch v b ofs bl phi m, contents_cohere m phi -> (core_load' ch (b, ofs) v bl)%pred phi -> bl = Mem.getN (size_chunk_nat ch) ofs (PMap.get b (Mem.mem_contents m)).