fact: Definition arity : symb -> arity_type := fun f => match f with | nat_0 => Free 0 | ord_zero => Free 0 | nat_S => Free 1 | ord_psi => Free 2 | ord_cons => Free 3 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