Function level' (x:A) { wf (fun x y => @age A ag y x)  x } : nat :=
(*  Function level' (x:A) { wf (transp _ (@age A ag)) x } : nat := *)
    match age1 x with
    | None => 0
    | Some x' => S (level' x')
    end.

Lemma age1None_levelS_absurd {A} `{ageable A} : forall (x:A) n, age1 x = None -> level x = S n -> False.