(* Age [x] to the level [k] (meaningul when [k <= level x] *)
Definition age_to k {A} `{agA : ageable A} (x : A) : A := age_by (level x - k) x.

Lemma age_to_ind_refined n {A} `{agA : ageable A} (P : A -> Prop) : (forall x y, age x y -> n <= level y -> P x -> P y) -> forall x, P x -> P (age_to n x).