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

Lemma lockSet_in_juicyLocks_age n (tp : jstate ge) phi :
lockSet_in_juicyLocks (lset tp) phi ->
lockSet_in_juicyLocks (lset (age_tp_to n tp)) (age_to n phi).