Opaque lockRes.

Lemma gsoLockRes_fstepI :
forall tp tp' (m m' : mem) i tr tr'
U (pfi : containsThread tp i)
(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'),
lockRes tp' = lockRes tp.