fact: Fixpoint sort_aux (a:T1)(n:nat) (l:T1) {struct l} : T1 := match l with | zero => (cons a n zero) | cons b p l' => ( match trichotomy_inf a b with | inleft (left _ ) => (cons b p (sort_aux a n l')) | inleft (right _) => (cons b (S n +p)%nat l') | inright _ => (cons a n (cons b p l')) end) end.
imports: Arith Omega ArithRing More_nat EPSILON0