ovolval5lem1 - Mathbox for Glauco Siliprandi

	Mathbox for Glauco Siliprandi		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > ovolval5lem1		Structured version Visualization version GIF version

Theorem ovolval5lem1 47481

Description: (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘((𝐴 − (𝑊 / (2↑𝑛) ))(,)𝐵)))) ≤ ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵) ))) +_𝑒 𝑊)). (Contributed by Glauco Siliprandi, 3-Mar-2021.)

**Hypotheses**
Ref	Expression
ovolval5lem1.a	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ ℝ)
ovolval5lem1.b	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ℝ)
ovolval5lem1.w	⊢ (𝜑 → 𝑊 ∈ ℝ⁺)
ovolval5lem1.c	⊢ 𝐶 = {𝑛 ∈ ℕ ∣ 𝐴 < 𝐵}

**Assertion**
Ref	Expression
ovolval5lem1	⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)))) ≤ ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊))

Distinct variable groups: 𝐶,𝑛 𝑛,𝑊 𝜑,𝑛 Allowed substitution hints: 𝐴(𝑛) 𝐵(𝑛)

**Proof of Theorem ovolval5lem1**
Step	Hyp	Ref	Expression
1		nfv 1947	. . 3 ⊢ Ⅎ𝑛𝜑
2		nnex 12264	. . . 4 ⊢ ℕ ∈ V
3	2	a1i 11	. . 3 ⊢ (𝜑 → ℕ ∈ V)
4		volf 25758	. . . . 5 ⊢ vol:dom vol⟶(0[,]+∞)
5	4	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → vol:dom vol⟶(0[,]+∞))
6		ioombl 25794	. . . . 5 ⊢ ((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵) ∈ dom vol
7	6	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵) ∈ dom vol)
8	5, 7	ffvelcdmd 7079	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) ∈ (0[,]+∞))
9	1, 3, 8	sge0xrclmpt 47257	. 2 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)))) ∈ ℝ^*)
10		0xr 11281	. . . . 5 ⊢ 0 ∈ ℝ^*
11	10	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ∈ ℝ^*)
12		pnfxr 11288	. . . . 5 ⊢ +∞ ∈ ℝ^*
13	12	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → +∞ ∈ ℝ^*)
14		ovolval5lem1.a	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ ℝ)
15		ovolval5lem1.b	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ℝ)
16		volicore 47410	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (vol‘(𝐴[,)𝐵)) ∈ ℝ)
17	14, 15, 16	syl2anc 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐴[,)𝐵)) ∈ ℝ)
18		ovolval5lem1.w	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ ℝ⁺)
19	18	rpred 13087	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ ℝ)
20	19	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑊 ∈ ℝ)
21		2nn 12339	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ
22	21	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ)
23		nnnn0 12536	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
24		nnexpcl 14139	. . . . . . . . . 10 ⊢ ((2 ∈ ℕ ∧ 𝑛 ∈ ℕ₀) → (2↑𝑛) ∈ ℕ)
25	22, 23, 24	syl2anc 596	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (2↑𝑛) ∈ ℕ)
26	25	nnred 12273	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2↑𝑛) ∈ ℝ)
27	26	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2↑𝑛) ∈ ℝ)
28	25	nnne0d 12311	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2↑𝑛) ≠ 0)
29	28	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2↑𝑛) ≠ 0)
30	20, 27, 29	redivcld 12068	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ∈ ℝ)
31	17, 30	readdcld 11263	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ)
32	31	rexrd 11284	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ^*)
33	15	rexrd 11284	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ℝ^*)
34		icombl 25793	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴[,)𝐵) ∈ dom vol)
35	14, 33, 34	syl2anc 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴[,)𝐵) ∈ dom vol)
36		volge0 46790	. . . . . 6 ⊢ ((𝐴[,)𝐵) ∈ dom vol → 0 ≤ (vol‘(𝐴[,)𝐵)))
37	35, 36	syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ (vol‘(𝐴[,)𝐵)))
38	18	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑊 ∈ ℝ⁺)
39	25	nnrpd 13085	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2↑𝑛) ∈ ℝ⁺)
40	39	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2↑𝑛) ∈ ℝ⁺)
41	38, 40	rpdivcld 13104	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ∈ ℝ⁺)
42	41	rpge0d 13091	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ (𝑊 / (2↑𝑛)))
43	17, 30, 37, 42	addge0d 11815	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
44		rexr 11280	. . . . . 6 ⊢ (((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ^*)
45	12	a1i 11	. . . . . 6 ⊢ (((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ → +∞ ∈ ℝ^*)
46		ltpnf 13172	. . . . . 6 ⊢ (((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) < +∞)
47	44, 45, 46	xrltled 13202	. . . . 5 ⊢ (((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ ℝ → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ≤ +∞)
48	31, 47	syl 18	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ≤ +∞)
49	11, 13, 32, 43, 48	eliccxrd 46358	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) ∈ (0[,]+∞))
50	1, 3, 49	sge0xrclmpt 47257	. 2 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))) ∈ ℝ^*)
51	5, 35	ffvelcdmd 7079	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐴[,)𝐵)) ∈ (0[,]+∞))
52	1, 3, 51	sge0xrclmpt 47257	. . 3 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) ∈ ℝ^*)
53	19	rexrd 11284	. . 3 ⊢ (𝜑 → 𝑊 ∈ ℝ^*)
54	52, 53	xaddcld 13354	. 2 ⊢ (𝜑 → ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊) ∈ ℝ^*)
55	14, 30	resubcld 11667	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴 − (𝑊 / (2↑𝑛))) ∈ ℝ)
56		volioore 46819	. . . . . . . 8 ⊢ (((𝐴 − (𝑊 / (2↑𝑛))) ∈ ℝ ∧ 𝐵 ∈ ℝ) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0))
57	55, 15, 56	syl2anc 596	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0))
58	57	adantr 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0))
59		iftrue 4488	. . . . . . 7 ⊢ ((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵 → if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0) = (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))))
60	59	adantl 487	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0) = (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))))
61	15	recnd 11262	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ℂ)
62	14	recnd 11262	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ ℂ)
63	30	recnd 11262	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ∈ ℂ)
64	61, 62, 63	subsubd 11622	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))) = ((𝐵 − 𝐴) + (𝑊 / (2↑𝑛))))
65	64	adantr 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))) = ((𝐵 − 𝐴) + (𝑊 / (2↑𝑛))))
66	58, 60, 65	3eqtrd 2799	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = ((𝐵 − 𝐴) + (𝑊 / (2↑𝑛))))
67	15, 14	resubcld 11667	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵 − 𝐴) ∈ ℝ)
68	14, 15	sublevolico 46813	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵 − 𝐴) ≤ (vol‘(𝐴[,)𝐵)))
69	67, 17, 30, 68	leadd1dd 11853	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐵 − 𝐴) + (𝑊 / (2↑𝑛))) ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
70	69	adantr 486	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → ((𝐵 − 𝐴) + (𝑊 / (2↑𝑛))) ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
71	66, 70	eqbrtrd 5127	. . . 4 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
72	57	adantr 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ ¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0))
73		iffalse 4491	. . . . . . 7 ⊢ (¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵 → if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0) = 0)
74	73	adantl 487	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ ¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → if((𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵, (𝐵 − (𝐴 − (𝑊 / (2↑𝑛)))), 0) = 0)
75	72, 74	eqtrd 2795	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ ¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) = 0)
76	43	adantr 486	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ ¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → 0 ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
77	75, 76	eqbrtrd 5127	. . . 4 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ ¬ (𝐴 − (𝑊 / (2↑𝑛))) ≤ 𝐵) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
78	71, 77	pm2.61dan 825	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)) ≤ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
79	1, 3, 8, 49, 78	sge0lempt 47239	. 2 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)))) ≤ (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))))
80	17, 30	rexaddd 13287	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) +_𝑒 (𝑊 / (2↑𝑛))) = ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))
81	80	eqcomd 2766	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))) = ((vol‘(𝐴[,)𝐵)) +_𝑒 (𝑊 / (2↑𝑛))))
82	81	mpteq2dva 5198	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛)))) = (𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) +_𝑒 (𝑊 / (2↑𝑛)))))
83	82	fveq2d 6883	. . . 4 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))) = (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) +_𝑒 (𝑊 / (2↑𝑛))))))
84	30	rexrd 11284	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ∈ ℝ^*)
85		rexr 11280	. . . . . . . 8 ⊢ ((𝑊 / (2↑𝑛)) ∈ ℝ → (𝑊 / (2↑𝑛)) ∈ ℝ^*)
86	12	a1i 11	. . . . . . . 8 ⊢ ((𝑊 / (2↑𝑛)) ∈ ℝ → +∞ ∈ ℝ^*)
87		ltpnf 13172	. . . . . . . 8 ⊢ ((𝑊 / (2↑𝑛)) ∈ ℝ → (𝑊 / (2↑𝑛)) < +∞)
88	85, 86, 87	xrltled 13202	. . . . . . 7 ⊢ ((𝑊 / (2↑𝑛)) ∈ ℝ → (𝑊 / (2↑𝑛)) ≤ +∞)
89	30, 88	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ≤ +∞)
90	11, 13, 84, 42, 89	eliccxrd 46358	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑊 / (2↑𝑛)) ∈ (0[,]+∞))
91	1, 3, 51, 90	sge0xadd 47264	. . . 4 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) +_𝑒 (𝑊 / (2↑𝑛))))) = ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 (Σ^{^}‘(𝑛 ∈ ℕ ↦ (𝑊 / (2↑𝑛))))))
92	10	a1i 11	. . . . . . 7 ⊢ (𝜑 → 0 ∈ ℝ^*)
93	12	a1i 11	. . . . . . 7 ⊢ (𝜑 → +∞ ∈ ℝ^*)
94	18	rpge0d 13091	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝑊)
95	19	ltpnfd 13173	. . . . . . 7 ⊢ (𝜑 → 𝑊 < +∞)
96	92, 93, 53, 94, 95	elicod 13449	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ (0[,)+∞))
97	96	sge0ad2en 47260	. . . . 5 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (𝑊 / (2↑𝑛)))) = 𝑊)
98	97	oveq2d 7430	. . . 4 ⊢ (𝜑 → ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 (Σ^{^}‘(𝑛 ∈ ℕ ↦ (𝑊 / (2↑𝑛))))) = ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊))
99	83, 91, 98	3eqtrd 2799	. . 3 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))) = ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊))
100	50, 99	xreqled 46161	. 2 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ ((vol‘(𝐴[,)𝐵)) + (𝑊 / (2↑𝑛))))) ≤ ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊))
101	9, 50, 54, 79, 100	xrletrd 13214	1 ⊢ (𝜑 → (Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘((𝐴 − (𝑊 / (2↑𝑛)))(,)𝐵)))) ≤ ((Σ^{^}‘(𝑛 ∈ ℕ ↦ (vol‘(𝐴[,)𝐵)))) +_𝑒 𝑊))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ≠ wne 2955 {crab 3412 Vcvv 3450 ifcif 4482 class class class wbr 5103 ↦ cmpt 5186 dom cdm 5655 ⟶wf 6529 ‘cfv 6533 (class class class)co 7414 ℝcr 11124 0cc0 11125 + caddc 11128 +∞cpnf 11265 ℝ^*cxr 11267 < clt 11268 ≤ cle 11269 − cmin 11466 / cdiv 11896 ℕcn 12258 2c2 12320 ℕ₀cn0 12529 ℝ⁺crp 13043 +_𝑒 cxad 13162 (,)cioo 13399 [,)cico 13401 [,]cicc 13402 ↑cexp 14126 volcvol 25692 Σ^{^}csumge0 47191

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7737 ax-inf2 9621 ax-cnex 11181 ax-resscn 11182 ax-1cn 11183 ax-icn 11184 ax-addcl 11185 ax-addrcl 11186 ax-mulcl 11187 ax-mulrcl 11188 ax-mulcom 11189 ax-addass 11190 ax-mulass 11191 ax-distr 11192 ax-i2m1 11193 ax-1ne0 11194 ax-1rid 11195 ax-rnegex 11196 ax-rrecex 11197 ax-cnre 11198 ax-pre-lttri 11199 ax-pre-lttrn 11200 ax-pre-ltadd 11201 ax-pre-mulgt0 11202 ax-pre-sup 11203

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7371 df-ov 7417 df-oprab 7418 df-mpo 7419 df-of 7679 df-om 7864 df-1st 7987 df-2nd 7988 df-frecs 8281 df-wrecs 8312 df-recs 8361 df-rdg 8400 df-1o 8456 df-2o 8457 df-er 8697 df-map 8829 df-pm 8830 df-en 8954 df-dom 8955 df-sdom 8956 df-fin 8957 df-fi 9382 df-sup 9413 df-inf 9414 df-oi 9483 df-dju 9907 df-card 9945 df-pnf 11270 df-mnf 11271 df-xr 11272 df-ltxr 11273 df-le 11274 df-sub 11468 df-neg 11469 df-div 11897 df-nn 12259 df-2 12328 df-3 12329 df-n0 12530 df-z 12617 df-uz 12889 df-q 12999 df-rp 13044 df-xneg 13164 df-xadd 13165 df-xmul 13166 df-ioo 13403 df-ico 13405 df-icc 13406 df-fz 13563 df-fzo 13711 df-fl 13854 df-seq 14067 df-exp 14127 df-hash 14396 df-cj 15187 df-re 15188 df-im 15189 df-sqrt 15323 df-abs 15324 df-clim 15576 df-rlim 15577 df-sum 15775 df-rest 17508 df-topgen 17529 df-psmet 21578 df-xmet 21579 df-met 21580 df-bl 21581 df-mopn 21582 df-top 23120 df-topon 23137 df-bases 23172 df-cmp 23613 df-ovol 25693 df-vol 25694 df-sumge0 47192

This theorem is used by: ovolval5lem2 47482

W3C validator