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*)

(** The initial thread is thread 0*)
Lemma init_thread:
forall m m' pmap f arg tp i
(Hinit: init_mach pmap m tp m' f arg),
containsThread tp i ->
i = 0.