fact: Definition norm n d : t := let gcd := NN.gcd (Zabs_N n) d in match NN.compare NN.one gcd with | Lt => check_int (ZZ.div n (Z_of_N gcd)) (NN.div d gcd) | Eq => check_int n d | Gt => zero end.
imports: BigNumPrelude Lia QArith Qcanon Qpower Qminmax NSig ZSig QSig