Opaque lockRes.

Lemma fstep_valid_block:
forall tpf tpf' mf mf' i U b tr tr'
(Hvalid: Mem.valid_block mf b)
(Hstep: fmachine_step (i :: U, tr, tpf) mf (U, tr',tpf') mf'),
Mem.valid_block mf' b.