(* The definitions and other results of age_by and age_to should be moved here from msl/ageable.v.  Alternatively, this can be moved to msl/ageable.v (or this file to msl/) eventually, but we keep it here for now to reduce compilation time. *)
(* Apply [age1] n times (meaningful when [n <= level x] *)
Definition age1' {A} `{agA : ageable A} : A -> A :=
fun x => match age1 x with Some y => y | None => x end.
Definition age_by n {A} `{agA : ageable A} : A -> A := Nat.iter n age1'.
(* 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_by_age_by_pred {A} `{agA : ageable A} (P : pred A) x n1 n2 :
le n1 n2 ->
app_pred P (age_by n1 x) ->
app_pred P (age_by n2 x).