proposition: Lemma ordinal_finite : forall n, nf (F n).
proof: Proof. unfold finite; intro n;case n; auto with T1 arith. Qed.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List