(** Lemmas common to both parts of the progress/preservation simulation results *)

Lemma lset_valid_access ge m m_any (tp : jstate ge) Phi b ofs
(compat : mem_compatible_with tp m Phi) :
lock_coherence (lset tp) Phi m_any ->
AMap.find (elt:=option rmap) (b, ofs) (lset tp) <> None ->
Mem.valid_access (restrPermMap (mem_compatible_locks_ltwritable (mem_compatible_forget compat))) Mptr b ofs Writable.