fact: Definition ps_mul {α} {r : ring α} ps₁ ps₂ := {| ps_terms := series_mul (series_stretch (cm_factor ps₁ ps₂) (ps_terms ps₁)) (series_stretch (cm_factor ps₂ ps₁) (ps_terms ps₂)); ps_ordnum := (ps_ordnum ps₁ * Zpos (ps_polydo ps₂) + ps_ordnum ps₂ * Zpos (ps_polydo ps₁))%Z; ps_polydo := cm ps₁ ps₂ |}.
imports: Utf8 QArith NPeano Misc NbarM Field2 Fsummation Power_series Puiseux_series Ps_add Ps_add_compat