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*)

(** [suspend_thread] is deterministic*)
Lemma suspend_step_det:
forall m tp tp' tp'' i (cnt: containsThread tp i)
(Hstep: suspend_thread m cnt tp')
(Hstep': suspend_thread m cnt tp''),
tp' = tp''.