fact: Definition lap_mod_deg_1 α {R : ring α} la c := match lap_mod_div_deg_1 R la c with | [] => 0%K | [m … ml] => m end.
imports: Utf8 QArith NPeano ArithRing Misc Field2 ConvexHull Newton Fsummation Fpolynomial Puiseux_base Puiseux_series CharactPolyn