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

(*This should probably go soewhere else? *)
Lemma flat_inj_lt:
forall b b', (b <= b')%positive ->
inject_incr (Mem.flat_inj b) (Mem.flat_inj b').