proposition: Lemma cons_ambiguity : forall a n b, nf(cons a n b) -> cons a n b = (omega^a)*(F (S n))+b.
proof: Proof. intros. rewrite <- plus_to_cons. rewrite omega_term_ambiguity; auto. nf_inv. auto. Qed.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List