fact: Definition normalise_ps α {R : ring α} {K : field R} ps := match series_order (ps_terms ps) 0 with | fin n => let k := greatest_series_x_power K (ps_terms ps) n in let g := gcd_ps n k ps in {| ps_terms := normalise_series n (Z.to_pos g) (ps_terms ps); ps_ordnum := (ps_ordnum ps + Z.of_nat n) / g; ps_polydo := Z.to_pos (Zpos (ps_polydo ps) / g) |} | ∞ => ps_zero end.
imports: Utf8 QArith NPeano Misc NbarM Field2 Power_series