End FineGrainedExecutions.
Section SCExecutions.
Context
{Sem : Semantics}
{initU : seq.seq nat}
{SemAx : CoreLanguage.SemAxioms}
{SemD : CoreLanguage.SemDet}.
Existing Instance BareMachine.resources.
Existing Instance HybridFineMachine.scheduler.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance BareMachine.BareMachineSig.
Existing Instance BareDilMem.
Existing Instance bareMach.
Opaque containsThread mem_compatible.

Lemma suspend_thread_det:
forall tp m tid (cnt: containsThread tp tid) tp' tp''
(Hsuspend: suspend_thread m cnt tp')
(Hsuspend': suspend_thread m cnt tp''),
tp' = tp''.