Opaque lockRes.

Lemma fmachine_step_disjoint_val :
forall tp tp' m m' i j U tr tr'
(Hneq: i <> j)
(pfi: containsThread tp i)
(pfj: containsThread tp j)
(pfj': containsThread tp' j)
(Hcomp: mem_compatible tp m)
(Hcomp': mem_compatible tp' m'),
let mrestr := restrPermMap (((compat_th _ _ Hcomp) pfi).1) in
forall (Hinternal: pfi$mrestr @ I)
(Hstep: fmachine_step (i :: U, tr, tp) m (U,tr', tp') m') b ofs
(Hreadable:
Mem.perm (restrPermMap (Hcomp _ pfj).1) b ofs Cur Readable \/
Mem.perm (restrPermMap (Hcomp _ pfj).2) b ofs Cur Readable),
Maps.ZMap.get ofs (Mem.mem_contents m) # b =
Maps.ZMap.get ofs (Mem.mem_contents m') # b.