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 unlift_m_inv :
forall tp tid (Htid : tid < (OrdinalPool.num_threads tp).+1) ord
(Hunlift: unlift (ordinal_pos_incr (OrdinalPool.num_threads tp))
(Ordinal (n:=(OrdinalPool.num_threads tp).+1)
(m:=tid) Htid)=Some ord),
nat_of_ord ord = tid.