fact: Definition Φq α {R : ring α} {K : field R} f L := let pl := [ini_pt L … oth_pts L ++ [fin_pt L]] in let tl := List.map (term_of_point f) pl in let j := nat_num (fst (ini_pt L)) in {| al := make_char_pol R j tl |}.
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