Section StepLemmas.
Context {asmSem : Semantics}
{Sch: Scheduler}
{DilMem: DiluteMem}.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance DryHybridMachine.dryResources.
Existing Instance DryHybridMachine.DryHybridMachineSig.
(** ***Lemmas about suspend steps*)

Lemma gsoThreadR_suspend:
forall m tp tp' i j (cnt: containsThread tp i) (cntj: containsThread tp j)
(cntj': containsThread tp' j)
(Hsuspend: suspend_thread m cnt tp'),
getThreadR cntj = getThreadR cntj'.