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 [remLockSet]*)
Lemma remLock_inv: forall ds a,
invariant ds ->
invariant (remLockSet ds a).