(* core load and coherence properties *)

Lemma load_core_load: forall ch b ofs v m,
Mem.load ch (m_dry m) b ofs = Some v ->
(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).