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 safeC_invariant:
forall tpc trc mc n
(Hn: n > 0)
(Hsafe: forall U,
HybridCoarseMachine.csafe (U,trc,tpc) mc n),
invariant tpc.