fact: Definition ps_lap_com_polydo α (psl : list (puiseux_series α)) := List.fold_right (λ ps a, (a * ps_polydo ps)%positive) 1%positive psl.
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