fact: Definition QposSum (l:list Qpos) : Q := fold_right (fun (x:Qpos) (y:Q) => x+y) ([0]:Q) l.
imports: Coq.QArith.QArith Coq.QArith.Qpower CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields2 Coq.Logic.Eqdep_dec CoRN.tactics.CornTac Coq.QArith.Qround Coq.QArith.Qabs CoRN.stdlib_omissions.Q