fact: Definition approx1 : CR := CRsum_list (map (fun i: nat => simpson1 (fr + i * iw1)) (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