Definition Clight_init_state (p: Clight.program):=
    Clight.start_stack (Clight.globalenv p).Definition Asm_init_state (p: Asm.program):=
    Asm.start_stack (@the_ge p).Notation valid Sem:=
    (valid dryResources Sem OrdinalPool.OrdinalThreadPool).Definition opt_init_mem_source (p : Clight.program):=
      (Genv.init_mem (Ctypes.program_of_program p)).Definition opt_init_mem_target {F V} (tp:AST.program F V ):=
    (Genv.init_mem tp).

Lemma ConcurrentCompilerSafety: forall (p : Clight.program) (tp : Asm.program), CC_correct.CompCert_compiler p = Some tp -> forall asm_genv_safety : Asm_core.safe_genv (@the_ge tp), let SemSource:= (ClightSemanticsForMachines.ClightSem (Clight.globalenv p)) in let SemTarget:= @X86Sem tp asm_genv_safety in concurrent_simulation_safety_preservation (Genv.init_mem (Ctypes.program_of_program p)) (Genv.init_mem tp) (SemSource:= SemSource) (SourceThreadPool:= threadPool.OrdinalPool.OrdinalThreadPool(Sem:=SemSource)) (SourceMachineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig) (SemTarget := SemTarget) (TargetThreadPool:= threadPool.OrdinalPool.OrdinalThreadPool(Sem:=SemTarget)) (TargetMachineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig) .