fact: Definition q_of_m m a := let p := (Qnum a * Zpos m)%Z in let q := Qden a in Z.to_pos (Zpos q / Z.gcd p (Zpos q)).
imports: Utf8 QArith Sorted NPeano ConvexHull ConvexHullMisc Misc NbarM QbarM Newton PolyConvexHull Field2 Fpolynomial PSpolynomial Puiseux_base Power_series Puiseux_series Ps_div Slope_base