fact: Definition Qpos_red (a:Qpos) : Qpos := exist _ (Qred (proj1_sig a)) (Qpos_red_ispos a).
imports: Coq.Logic.Eqdep_dec Coq.QArith.QArith Coq.QArith.Qabs Coq.QArith.Qpower Coq.QArith.Qround CoRN.model.totalorder.QMinMax CoRN.order.TotalOrder