fact: Fixpoint rng_mul_nat α (r : ring α) n x := match n with | O => 0%K | S n₁ => (rng_mul_nat r n₁ x + x)%K end.
imports: Utf8 QArith NPeano ArithRing Misc Field2 ConvexHull Newton Fsummation Fpolynomial Puiseux_base Puiseux_series CharactPolyn