fact: Definition order_coeff α {R : ring α} {K : field R} ps := match series_order (ps_terms ps) 0 with | fin v => (ps_terms ps) .[v] | ∞ => (0)%K 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