fact: Definition lap_term_of_point α {R : ring α} {K : field R} la (pt : (Q * Q)) := let h := nat_num (fst pt) in let ps := List.nth h la 0%ps in let c := order_coeff ps in {| coeff := c; power := h |}.
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