fact: Definition transfinite_induction : forall (P:T2 -> Type), (forall x:T2, nf x -> (forall y:T2, nf y -> y < x -> P y) -> P x) -> forall a, nf a -> P a.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo