Module ConcurCC_correct:= (Concurrent_correctness CC_correct Args).
(*USed to be start_stack*)
Definition Clight_init_state (p: Clight.program):=
Clight.initial_state p.
Definition Asm_init_state (p: Asm.program):=
Asm.initial_state  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 Clight_finite_branching:
let ClightSem:= ClightSemanticsForMachines.ClightSem in
forall (p : Clight.program)
(x : kstate dryResources (ClightSem (Clight.globalenv p)) OrdinalPool.OrdinalThreadPool),
safety.finite_on_x
(safety.possible_image
(fun
(x0 : kstate dryResources (ClightSem (Clight.globalenv p))
OrdinalPool.OrdinalThreadPool) (y : schedule)
(x' : kstate dryResources (ClightSem (Clight.globalenv p))
OrdinalPool.OrdinalThreadPool) =>
exists y' : schedule,
kstep dryResources (ClightSem (Clight.globalenv p)) OrdinalPool.OrdinalThreadPool
DryHybridMachineSig x0 y x' y') (valid (ClightSem (Clight.globalenv p))) x).