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

(** There are no locks in the initial machine *)
Lemma init_lockRes_empty:
forall m m' pmap f arg tp laddr
(Hinit: init_mach pmap m tp m' f arg),
lockRes tp laddr = None.