proposition: Lemma mult_fin_omega : forall n, (F (S n)) * omega = omega.
proof: Proof. simpl. unfold omega;auto. Qed.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List