fact: Fixpoint nth_c α {R : ring α} {K : field R} {acf : algeb_closed_field K} n f L := match n with | 0%nat => ac_root (Φq f L) | S n₁ => let c₁ := ac_root (Φq f L) in let f₁ := next_pol f (β L) (γ L) c₁ in let L₁ := option_get phony_ns (newton_segments f₁) in nth_c n₁ f₁ L₁ end.
imports: Utf8 QArith NPeano Sorting Misc Field2 Fpolynomial Fsummation Newton ConvexHull Power_series Puiseux_series Ps_add Ps_mul Ps_div PSpolynomial Puiseux_base AlgCloCharPol CharactPolyn F1Eq F1Prop Q_field PosOrder QbarM