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

(** [mem_compatible] is preserved by [setMaxPerm] *)
Lemma mem_compatible_setMaxPerm :
forall tp m
(Hcomp: mem_compatible tp m),
mem_compatible tp (setMaxPerm m).