(* The "induction" rule for later *)

(* Specifications: *)
Lemma goedel_loeb {A} `{ageable A} : forall (P Q:pred A),
Q && |>P |-- P ->
Q |-- P.
Lemma loeb {A} `{ageable A} : forall (P:pred A),
|>P |-- P    ->     TT |-- P.