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 suspend_lockPool :
forall m (tp tp' : t) i (pfc : containsThread tp i)
(Hsuspend: suspend_thread m pfc tp') addr,
lockRes tp addr = lockRes tp' addr.