fact: Definition order {α} {r : ring α} {K : field r} ps := match series_order (ps_terms ps) 0 with | fin v => qfin (ps_ordnum ps + Z.of_nat v # ps_polydo ps) | ∞ => qinf end.
imports: Utf8 QArith Sorting ConvexHull ConvexHullMisc Misc NbarM QbarM Newton Field2 Fpolynomial Power_series Puiseux_series Ps_add Ps_add_compat Ps_mul Ps_div