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

Lemma juicyLocks_in_lockSet_age n (tp : jstate ge) phi :
juicyLocks_in_lockSet (lset tp) phi ->
juicyLocks_in_lockSet (lset (age_tp_to n tp)) (age_to n phi).