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

(** Permission [decay] preserves disjointness*)
Lemma decay_disjoint:
forall m m' p
(Hdecay: decay m m')
(Hlt: permMapLt p (getMaxPerm m))
(Hdisjoint: permMapsDisjoint (getCurPerm m) p),
permMapsDisjoint (getCurPerm m') p.