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.