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 gsoThreadC_blocked:
forall (tp : t) i j (cntj : containsThread tp j)
c (Hneq: i <> j) (cnti : containsThread tp i)
(cntj' : containsThread (updThreadC cnti (Kblocked c)) j),
getThreadC cntj = getThreadC cntj'.