fact: Definition to_Q (q: t) := match q with | Qz x => ZZ.to_Z x # 1 | Qq x y => if NN.eqb y NN.zero then 0 else ZZ.to_Z x # Z.to_pos (NN.to_Z y) end.
imports: BigNumPrelude Lia QArith Qcanon Qpower Qminmax NSig ZSig QSig