Section ThreadPoolWF.
Context {Sem : Semantics}.
Existing Instance DryHybridMachine.dryResources.
Existing Instance OrdinalPool.OrdinalThreadPool.
(** Take an instance of the Dry Machine *)
Existing Instance DryHybridMachine.DryHybridMachineSig.

(** [invariant] is preserved by [updThreadC]*)
Lemma updThreadC_invariant:
forall (tp : t) i c
(ctn : containsThread tp i)
(Hinv : invariant tp),
invariant (updThreadC ctn c).