fact: Fixpoint coeff_of_term i tl := match tl with | [] => 0%K | [t₁ … tl₁] => if eq_nat_dec i (power t₁) then coeff t₁ else coeff_of_term i tl₁ end.
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