Opaque lockRes.

(** Stepping on thread i with internal steps and then a suspend step retains a strong simulation with the id injection on all other threads*)
Lemma strong_tsim_id :
forall tp tp' tp'' m m' i j xs f fg
(Hij: i <> j)
(pfj: containsThread tp j)
(pfj': containsThread tp' j)
(pfj'': containsThread tp'' j)
(pfi': containsThread tp' i)
(Hmem_wd: valid_mem m)
(Hdomain: domain_memren f m)
(Htp_wd: tp_wd f tp)
(Hfg: forall b1 b2, fg b1 = Some b2 -> b1 = b2)
(Hge_wd: ge_wd fg the_ge)
(Hcomp: mem_compatible tp m)
(Hcomp'': mem_compatible tp'' m')
(Hsuspend: suspend_thread m' pfi' tp'')
(Hexec: internal_execution [seq x <- xs | x == i] tp m tp' m'),
strong_tsim (id_ren m) pfj pfj'' Hcomp Hcomp''.