fact: Fixpoint make_char_pol α (R : ring α) pow tl := match tl with | [] => [] | [t₁ … tl₁] => list_pad (power t₁ - pow) 0%K [coeff t₁ … make_char_pol R (S (power t₁)) tl₁] end.
imports: Utf8 QArith Sorted NPeano ConvexHull ConvexHullMisc Misc NbarM QbarM Newton PolyConvexHull Field2 Fpolynomial PSpolynomial Puiseux_base Power_series Puiseux_series Ps_div Slope_base