Section CoreLanguageDry.
Context {Sem : Semantics}
{SemAx : SemAxioms}.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance DryHybridMachine.dryResources.
(** Take an instance of the Dry Machine *)
Existing Instance DryHybridMachine.DryHybridMachineSig.
(** Lemmas about containsThread and coresteps *)
(** *** Lemmas about invariants preserved by coresteps*)

Lemma permMapLt_decay:
forall pmap m m'
(Hdecay: strong_decay m m')
(Hlt: permMapLt pmap (getMaxPerm m)),
permMapLt pmap (getMaxPerm m').