End CompileNThreads.
Section CompileInftyThread.
Parameter lift_state: forall on, ThreadPool on -> forall on', ThreadPool on' -> Prop.
Inductive infty_match:
nth_index -> meminj ->
ThreadPool (Some 0) -> mem ->
ThreadPool None -> mem -> Prop:=
| Build_infty_match:
forall n cd j st0 m0 stn mn st,
match_state n cd j st0 m0 stn mn ->
lift_state (Some n) stn None st ->
infty_match cd j st0 m0 st mn.

Lemma compile_all_threads:
forall m,
HybridMachine_simulation.HybridMachine_simulation_properties
(HybConcSem (Some 0) m)
(HybConcSem None m)
infty_match.