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

(** [mem_compatible] is preserved by [remLockSet] *)
Lemma mem_compatible_remlock:
forall tp m addr
(Hinv: lr_valid (lockRes tp))
(Hcomp: mem_compatible tp m),
mem_compatible (remLockSet tp addr) m.