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

(** Any state that steps, requires its threadpool and memory to be [mem_compatible]*)
Lemma step_mem_compatible:
forall U tr tp m U' tr' tp' m'
(Hstep: MachStep (U, tr, tp) m (U', tr', tp') m'),
mem_compatible tp m.