theorem CReal.fineBlockSum_close : ((x0 : ((x0 : CReal) -> CReal)) -> ((x1 : CReal) -> ((x2 : CReal) -> ((x3 : AxNat) -> ((x4 : AxNat) -> ((x5 : AxNat) -> ((x6 : AxNat) -> ((x7 : CReal.le x1 x2) -> ((x8 : CReal.UniformlyContinuousOn x0 x1 x2) -> ((x9 : AxNat.le x6 x4) -> ((x10 : AxNat.le (AxNat.add (AxNat.mul (AxNat.succ (CReal.bound (CReal.add x2 (CReal.neg x1)))) (CReal.UniformlyContinuousOn.modulus x0 x1 x2 x8 x3)) (CReal.bound (CReal.add x2 (CReal.neg x1)))) x4) -> And (CReal.le (CReal.sumRange (fun (x11 : AxNat) => CReal.mul (x0 (CReal.add (CReal.add x1 (CReal.mul (CReal.ofNat x6) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))))) (CReal.mul (CReal.ofNat x11) (CReal.mul (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x5)))))) (CReal.mul (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x5)))) (AxNat.succ x5)) (CReal.add (CReal.mul (x0 (CReal.add x1 (CReal.mul (CReal.ofNat x6) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))))) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))) (CReal.mul (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x3)) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))))) (CReal.le (CReal.mul (x0 (CReal.add x1 (CReal.mul (CReal.ofNat x6) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))))) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))) (CReal.add (CReal.sumRange (fun (x11 : AxNat) => CReal.mul (x0 (CReal.add (CReal.add x1 (CReal.mul (CReal.ofNat x6) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))))) (CReal.mul (CReal.ofNat x11) (CReal.mul (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x5)))))) (CReal.mul (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4))) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x5)))) (AxNat.succ x5)) (CReal.mul (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x3)) (CReal.mul (CReal.add x2 (CReal.neg x1)) (CReal.ofRat (Rat.natDivSucc (AxNat.succ AxNat.zero) x4)))))))))))))))))