(** ***Lemmas about suspend steps*)

Lemma gsoThreadR_step:
forall tp tp' m m' i j U tr tr'
(Hneq: i <> j)
(pfj: containsThread tp j)
(pfj': containsThread tp' j)
(Hstep: MachStep (i :: U,tr, tp) m (U,tr', tp') m'),
getThreadR pfj = getThreadR pfj'.