fact: Definition lap_summation α {R : ring α} {K : field R} (li : list nat) g := List.fold_right (λ i accu, lap_add accu (g i)) [] li.
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