Section SimulationTransitivity.
End SimulationTransitivity.

Lemma ConcurrentCompilerCorrectness:
forall (tp:Asm.program),
CC_correct.CompCert_compiler C_program = Some tp ->
forall asm_genv_safety,
ConcurrentCompilerCorrectness_specification Clight_g tp asm_genv_safety
(Genv.init_mem (Ctypes.program_of_program C_program)) (Genv.init_mem tp)
.