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

Lemma islock_valid_access ge (tp : jstate ge) m b ofs p
(compat : mem_compatible tp m) :
(align_chunk Mptr | ofs) ->
lockRes tp (b, ofs) <> None ->
p <> Freeable ->
Mem.valid_access
(restrPermMap
(mem_compatible_locks_ltwritable compat))
Mptr b ofs p.