fact: Definition approx: CR := CRsum_list (map (fun i: nat => simpson (fr + i * iw)) (N.enum (nat_of_P N))).
imports: List NPeano QArith Qabs Qpossec Qsums Qround Qmetric ZArith CRArith CRsum util.Qgcd Program uneven_CRplus stdlib_omissions.P stdlib_omissions.Z stdlib_omissions.Q Coq.ZArith.Zsqrt_compat