fact: Definition phi (alpha beta : T2) : T2 := match beta with zero => [alpha, beta] | [b1, b2] => (match compare alpha b1 with Datatypes.Lt => [b1, b2 ] | _ => [alpha,[b1, b2]] end) | cons b1 b2 0 (cons zero zero n zero) => (match compare alpha b1 with Datatypes.Lt => [alpha, (cons b1 b2 0 (finite n))] | _ => [alpha, (cons b1 b2 0 (finite (S n)))] end) | any_beta => [alpha, any_beta] end.
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