fact: Fixpoint power_list α pow (psl : list α) := match psl with | [] => [] | [ps₁ … psl₁] => [(pow, ps₁) … power_list (S pow) psl₁] 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