fact: Definition next_lap α {R : ring α} {K : field R} f β₁ γ₁ (c₁ : α) := let _ := ps_ring K in ([ps_monom 1%K (- β₁)] * lap_compose f [ps_monom c₁ γ₁; ps_monom 1%K γ₁ … []])%lap.
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