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

Lemma mem_compatible_invalid_block:
forall tp m b ofs
(Hcomp: mem_compatible tp m)
(Hinvalid: ~ Mem.valid_block m b),
(forall i (cnti: containsThread tp i),
(getThreadR cnti).1 !! b ofs = None /\
(getThreadR cnti).2 !! b ofs = None) /\
(forall laddr rmap,
lockRes tp laddr = Some rmap ->
rmap.1 !! b ofs = None /\
rmap.2 !! b ofs = None).