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

Lemma age_to_updThread i (tp : jstate ge) n c phi cnti cnti' :
age_tp_to n (@updThread _ _ _ i tp cnti c phi) =
@updThread _ _ _ i (age_tp_to n tp) cnti' c (age_to n phi).