Local Open Scope nat_scope.
(** * Results related to machine predicates *)
(* Instantiation of modules *)
Section Machine.
Context (ge : genv).

Lemma join_all_age_updThread_level (tp : jstate ge) i (cnti : ThreadPool.containsThread tp i) c phi Phi :
join_all (age_tp_to (level phi) (ThreadPool.updThread cnti c phi)) Phi ->
level Phi = level phi.