Section CompileNThreads.
Definition nth_index:= (list (option compiler_index)).
Definition list_lt: nth_index -> nth_index -> Prop:=
list_ord (opt_rel' (InjorderX compiler_sim)).

Lemma list_lt_wf: well_founded list_lt.
Lemma machine_step_mem_fwd:
forall hb m sge U tr1 st1 m1 U' tr1' st1' m1',
machine_semantics.machine_step (HybConcSem hb m)
sge U tr1 st1 m1 U' tr1' st1' m1'->
((Mem.nextblock m1) <= (Mem.nextblock m1'))%positive.