Corollary gsoThreadC_suspend:
    forall m tp tp' i j (cnt: containsThread tp i) (cntj: containsThread tp j)
      (cntj': containsThread tp' j) (Hneq: i <> j)
      (Hsuspend: suspend_thread m cnt tp'),
      getThreadC cntj = getThreadC cntj'.

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'.