Context {SW : spawn_wrapper CPROOF}.
Notation ClightSem:= ClightSemanticsForMachines.ClightSem.

Theorem Clight_initial_safe (sch : HybridMachineSig.schedule) (n : nat) :
HybridMachineSig.HybridCoarseMachine.csafe
(Sem := ClightSem ge)
(ThreadPool:= threadPool.OrdinalPool.OrdinalThreadPool(Sem:=ClightSem ge))
(machineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig)
(sch, nil,
DryHybridMachine.initial_machine(Sem := ClightSem ge)
(permissions.getCurPerm init_mem)
(initial_Clight_state CPROOF)) init_mem n.