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 step_containsThread :
forall tp tp' m m' i j U tr tr'
(cntj: containsThread tp j)
(Hstep: MachStep (i :: U, tr, tp) m (U, tr', tp') m'),
containsThread tp' j.