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

(** [lockRes] is not changed by [suspend_thread]*)
Lemma suspend_lockRes:
forall m tp tp' i
(pff: containsThread tp i)
(Hsuspend: suspend_thread m pff tp'),
lockRes tp = lockRes tp'.