fact: Definition Qpos_sum (l:list Qpos) : Q := List.fold_right (fun (x:Qpos) (y:Q) => proj1_sig x + y) 0%Q l.
imports: Coq.Logic.Eqdep_dec Coq.QArith.QArith Coq.QArith.Qabs Coq.QArith.Qpower Coq.QArith.Qround CoRN.model.totalorder.QMinMax CoRN.order.TotalOrder