fact: Fixpoint compare (c c':T1){struct c'}:comparison := match c,c' with zero, zero => Eq | zero, cons a' n' b' => Lt | _ , zero => Gt | (cons a n b),(cons a' n' b') => (match compare a a' with | Lt => Lt | Gt => Gt | Eq => (match lt_eq_lt_dec n n' with inleft (left _) => Lt | inright _ => Gt | _ => compare b b' end) end) end.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List