Section CompileInftyThread.
Definition lift_state': forall {on on'},
ThreadPool on -> ThreadPool on'.

Lemma infinite_halted:
forall (m : option mem) (cd : nth_index) (mu : meminj)
(U : list nat) (c1 : ThreadPool (Some 0)%nat)
(m1 : mem) (c2 : ThreadPool None) (m2 : mem)
(v1 : val),
infty_match cd mu c1 m1 c2 m2 ->
machine_semantics.conc_halted (HybConcSem (Some 0)%nat m) U c1 =
Some v1 ->
exists v2 : val,
machine_semantics.conc_halted (HybConcSem None m) U c2 =
Some v2.