Section InvMachineLemmas.

Lemma compat_lockLT': forall js m,
mem_compatible js m ->
forall l R r,
ThreadPool.lockRes js l = Some (R, Some r) ->
forall b ofs,
Mem.perm_order'' ((getMaxPerm m) !! b ofs) (perm_of_res' (r @ (b, ofs))).