fact: Definition Qbound_lt_ZExp2 (q : Q) : Z := match Qnum q with | Z0 => -1000 | Zneg p => 0 | Zpos p => Z.pos_sub (Pos.succ (Pos_log2floor_plus1 p)) (Pos_log2floor_plus1 (Qden q)) end.
imports: QArith Qpower Qabs Qround Lia Lqa PosExtra