fact: Definition CRsum_list_raw (l:list CR) (e:QposInf) : Q := fold_left Qplus match l with | nil => nil | cons h t => let e' := QposInf_mult (Qpos2QposInf (1#(P_of_succ_nat (length t))))%Qpos e in (map (fun x => approximate x e') l) end 0.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.reals.fast.CRArith CoRN.stdlib_omissions.List CoRN.model.metric2.Qmetric