Notation sc_execution := (@Executions.fine_execution _ BareDilMem BareMachine.resources
BareMachine.BareMachineSig).

Theorem CSL2FineBareAsm_safety:
forall U,
exists init_mem_target init_mem_target' init_thread_target,
let init_tp_target :=
threadPool.ThreadPool.mkPool
(Sem:=SemTarget)
(resources:=BareMachine.resources)
(Krun init_thread_target) tt in
machine_semantics.initial_machine (EHM (Genv.init_mem Asm_prog)) (Some tt) init_mem_target
init_tp_target init_mem_target' Main_ptr nil /\
(forall n,
HybridMachineSig.HybridMachineSig.HybridFineMachine.fsafe
(dilMem:= BareDilMem)
(ThreadPool:=threadPool.OrdinalPool.OrdinalThreadPool
(resources:=BareMachine.resources)
(Sem:=SemTarget))
(machineSig:= BareMachine.BareMachineSig)
init_tp_target (@HybridMachineSig.diluteMem BareDilMem init_mem_target') U n) /\
(forall final_state final_mem tr,
sc_execution (U, [::], init_tp_target)
(@HybridMachineSig.diluteMem BareDilMem init_mem_target')
([::], tr, final_state) final_mem ->
SpinLocks.spinlock_synchronized tr).