Section StepLemmas.
Context {asmSem : Semantics}
{Sch: Scheduler}
{DilMem: DiluteMem}.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance DryHybridMachine.dryResources.
Existing Instance DryHybridMachine.DryHybridMachineSig.

(** [mem_compatible] is preserved by [updThreadC] *)
Lemma updThreadC_compatible:
forall (tp : t) m i c
(ctn : containsThread tp i)
(Hcomp: mem_compatible tp m),
mem_compatible (updThreadC ctn c) m.