fact: Fixpoint make_char_lap_of_hl la pow hl := match hl with | [] => [] | [h … hl₁] => let ps := List.nth h la 0%ps in let c := order_coeff ps in list_pad (h - pow) 0%K [c … make_char_lap_of_hl la (S h) hl₁] end.
imports: Utf8 QArith NPeano Sorted ConvexHullMisc ConvexHull PolyConvexHull Field2 Misc Newton NbarM QbarM SplitList Fsummation Fpolynomial Power_series Puiseux_series Ps_add Ps_mul Ps_div Ps_add_compat PSpolynomial Puiseux_base CharactPolyn AlgCloCharPol