End CompileInftyThread.
Section TrivialSimulations.

Lemma trivial_clight_simulation:
(HybridMachine_simulation
(ClightMachine.DMS.ClightConcurSem(ge:=Clight_g)
(Genv.init_mem (Ctypes.program_of_program C_program)))
(HybConcSem (Some 0) (Genv.init_mem (Ctypes.program_of_program C_program)))).