Opaque OrdinalPool.getThreadR.

Lemma remLock_internal_execution:
forall tp tp' m m' j xs b ofs
(Hcomp': mem_compatible (remLockSet tp (b,ofs)) m)
(Hexec: internal_execution [seq x <- xs | x == j] tp m tp' m'),
internal_execution [seq x <- xs | x == j] (remLockSet tp (b, ofs)) m
(remLockSet tp' (b,ofs)) m'.