fact: Definition Qpos_ceiling (q: Qpos): positive := match Qceiling (proj1_sig q) with | Zpos p => p | _ => 1%positive end.
imports: Coq.Logic.Eqdep_dec Coq.QArith.QArith Coq.QArith.Qabs Coq.QArith.Qpower Coq.QArith.Qround CoRN.model.totalorder.QMinMax CoRN.order.TotalOrder