fact: Fixpoint succ (a:T2) : T2 := match a with zero => finite 1 | cons zero zero n c => finite (S (S n)) | cons a b n c => cons a b n (succ c) end.
imports: Arith Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat