fact: Fixpoint term_inv {α} {r : ring α} {f : field r} c s n := match n with | O => ¹/ (s.[0])%K | S n₁ => match c with | O => 0%K | S c₁ => (- ¹/ (s.[0]) * Σ (i = 0, n₁), s.[S i] * term_inv c₁ s (n₁ - i)%nat)%K end end.
imports: Utf8 QArith NPeano Misc NbarM Field2 Fsummation