(* core load and coherence properties *)

Lemma core_load_load: forall ch b ofs v m,
(forall z, ofs <= z < ofs + size_chunk ch ->
perm_order'' (perm_of_res (m_phi m @ (b,z))) (Some Readable)) ->
(core_load ch (b, ofs) v (m_phi m) <-> Mem.load ch (m_dry m) b ofs = Some v).