voliunlem3 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > voliunlem3		Structured version Visualization version GIF version

Theorem voliunlem3 25513

Description: Lemma for voliun 25515. (Contributed by Mario Carneiro, 20-Mar-2014.)

**Hypotheses**
Ref	Expression
voliunlem.3	⊢ (𝜑 → 𝐹:ℕ⟶dom vol)
voliunlem.5	⊢ (𝜑 → Disj 𝑖 ∈ ℕ (𝐹‘𝑖))
voliunlem.6	⊢ 𝐻 = (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛))))
voliunlem3.1	⊢ 𝑆 = seq1( + , 𝐺)
voliunlem3.2	⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
voliunlem3.4	⊢ (𝜑 → ∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ)

**Assertion**
Ref	Expression
voliunlem3	⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^*, < ))

Distinct variable groups: 𝑖,𝑛,𝑥,𝐹 𝑥,𝑆 𝜑,𝑛,𝑥 Allowed substitution hints: 𝜑(𝑖) 𝑆(𝑖,𝑛) 𝐺(𝑥,𝑖,𝑛) 𝐻(𝑥,𝑖,𝑛)

Proof of Theorem voliunlem3 Dummy variables 𝑘 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		voliunlem.3	. . . 4 ⊢ (𝜑 → 𝐹:ℕ⟶dom vol)
2		voliunlem.5	. . . 4 ⊢ (𝜑 → Disj 𝑖 ∈ ℕ (𝐹‘𝑖))
3		voliunlem.6	. . . 4 ⊢ 𝐻 = (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛))))
4	1, 2, 3	voliunlem2 25512	. . 3 ⊢ (𝜑 → ∪ ran 𝐹 ∈ dom vol)
5		mblvol 25491	. . 3 ⊢ (∪ ran 𝐹 ∈ dom vol → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
6	4, 5	syl 17	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
7	1	frnd 6671	. . . . . 6 ⊢ (𝜑 → ran 𝐹 ⊆ dom vol)
8		mblss 25492	. . . . . . . 8 ⊢ (𝑥 ∈ dom vol → 𝑥 ⊆ ℝ)
9		reex 11121	. . . . . . . . 9 ⊢ ℝ ∈ V
10	9	elpw2 5280	. . . . . . . 8 ⊢ (𝑥 ∈ 𝒫 ℝ ↔ 𝑥 ⊆ ℝ)
11	8, 10	sylibr 234	. . . . . . 7 ⊢ (𝑥 ∈ dom vol → 𝑥 ∈ 𝒫 ℝ)
12	11	ssriv 3938	. . . . . 6 ⊢ dom vol ⊆ 𝒫 ℝ
13	7, 12	sstrdi 3947	. . . . 5 ⊢ (𝜑 → ran 𝐹 ⊆ 𝒫 ℝ)
14		sspwuni 5056	. . . . 5 ⊢ (ran 𝐹 ⊆ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
15	13, 14	sylib 218	. . . 4 ⊢ (𝜑 → ∪ ran 𝐹 ⊆ ℝ)
16		ovolcl 25439	. . . 4 ⊢ (∪ ran 𝐹 ⊆ ℝ → (vol‘∪ ran 𝐹) ∈ ℝ^)
17	15, 16	syl 17	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ∈ ℝ^)
18		nnuz 12794	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
19		1zzd 12526	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
20		2fveq3 6840	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (vol‘(𝐹‘𝑛)) = (vol‘(𝐹‘𝑘)))
21		voliunlem3.2	. . . . . . . . . . 11 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
22		fvex 6848	. . . . . . . . . . 11 ⊢ (vol‘(𝐹‘𝑘)) ∈ V
23	20, 21, 22	fvmpt 6942	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
24	23	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
25		voliunlem3.4	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ)
26		2fveq3 6840	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑘 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑘)))
27	26	eleq1d 2822	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑘 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑘)) ∈ ℝ))
28	27	rspccva 3576	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
29	25, 28	sylan 581	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
30	24, 29	eqeltrd 2837	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
31	18, 19, 30	serfre 13958	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺):ℕ⟶ℝ)
32		voliunlem3.1	. . . . . . . 8 ⊢ 𝑆 = seq1( + , 𝐺)
33	32	feq1i 6654	. . . . . . 7 ⊢ (𝑆:ℕ⟶ℝ ↔ seq1( + , 𝐺):ℕ⟶ℝ)
34	31, 33	sylibr 234	. . . . . 6 ⊢ (𝜑 → 𝑆:ℕ⟶ℝ)
35	34	frnd 6671	. . . . 5 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ)
36		ressxr 11180	. . . . 5 ⊢ ℝ ⊆ ℝ^*
37	35, 36	sstrdi 3947	. . . 4 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ^*)
38		supxrcl 13234	. . . 4 ⊢ (ran 𝑆 ⊆ ℝ^* → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
39	37, 38	syl 17	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
40		eqid 2737	. . . . 5 ⊢ seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
41		eqid 2737	. . . . 5 ⊢ (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
42	1	ffvelcdmda 7031	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ dom vol)
43		mblss 25492	. . . . . 6 ⊢ ((𝐹‘𝑛) ∈ dom vol → (𝐹‘𝑛) ⊆ ℝ)
44	42, 43	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ℝ)
45		mblvol 25491	. . . . . . 7 ⊢ ((𝐹‘𝑛) ∈ dom vol → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
46	42, 45	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
47		2fveq3 6840	. . . . . . . . 9 ⊢ (𝑖 = 𝑛 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑛)))
48	47	eleq1d 2822	. . . . . . . 8 ⊢ (𝑖 = 𝑛 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑛)) ∈ ℝ))
49	48	rspccva 3576	. . . . . . 7 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
50	25, 49	sylan 581	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
51	46, 50	eqeltrrd 2838	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘(𝐹‘𝑛)) ∈ ℝ)
52	40, 41, 44, 51	ovoliun 25466	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) ≤ sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^*, < ))
53	1	ffnd 6664	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℕ)
54		fniunfv 7195	. . . . . 6 ⊢ (𝐹 Fn ℕ → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
55	53, 54	syl 17	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
56	55	fveq2d 6839	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) = (vol‘∪ ran 𝐹))
57	46	mpteq2dva 5192	. . . . . . . . 9 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
58	21, 57	eqtrid 2784	. . . . . . . 8 ⊢ (𝜑 → 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
59	58	seqeq3d 13936	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺) = seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))))
60	32, 59	eqtr2id 2785	. . . . . 6 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = 𝑆)
61	60	rneqd 5888	. . . . 5 ⊢ (𝜑 → ran seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = ran 𝑆)
62	61	supeq1d 9353	. . . 4 ⊢ (𝜑 → sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^, < ) = sup(ran 𝑆, ℝ^*, < ))
63	52, 56, 62	3brtr3d 5130	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ≤ sup(ran 𝑆, ℝ^, < ))
64		ovolge0 25442	. . . . . . . . . 10 ⊢ (∪ ran 𝐹 ⊆ ℝ → 0 ≤ (vol*‘∪ ran 𝐹))
65	15, 64	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (vol*‘∪ ran 𝐹))
66		mnflt0 13043	. . . . . . . . . 10 ⊢ -∞ < 0
67		mnfxr 11193	. . . . . . . . . . 11 ⊢ -∞ ∈ ℝ^*
68		0xr 11183	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ^*
69		xrltletr 13075	. . . . . . . . . . 11 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
70	67, 68, 69	mp3an12 1454	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
71	66, 70	mpani 697	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → (0 ≤ (vol‘∪ ran 𝐹) → -∞ < (vol‘∪ ran 𝐹)))
72	17, 65, 71	sylc 65	. . . . . . . 8 ⊢ (𝜑 → -∞ < (vol*‘∪ ran 𝐹))
73		xrrebnd 13087	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
74	17, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
75	9	elpw2 5280	. . . . . . . . . . . 12 ⊢ (∪ ran 𝐹 ∈ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
76	15, 75	sylibr 234	. . . . . . . . . . 11 ⊢ (𝜑 → ∪ ran 𝐹 ∈ 𝒫 ℝ)
77		simpl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → 𝑥 = ∪ ran 𝐹)
78	77	sseq1d 3966	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑥 ⊆ ℝ ↔ ∪ ran 𝐹 ⊆ ℝ))
79	77	fveq2d 6839	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
80	79	eleq1d 2822	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((vol‘𝑥) ∈ ℝ ↔ (vol‘∪ ran 𝐹) ∈ ℝ))
81		simpll 767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → 𝑥 = ∪ ran 𝐹)
82	81	ineq1d 4172	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (∪ ran 𝐹 ∩ (𝐹‘𝑛)))
83		fnfvelrn 7027	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝐹 Fn ℕ ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
84	53, 83	sylan 581	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
85		elssuni 4895	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝐹‘𝑛) ∈ ran 𝐹 → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
86	84, 85	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
87	86	adantll 715	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
88		sseqin2 4176	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐹‘𝑛) ⊆ ∪ ran 𝐹 ↔ (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
89	87, 88	sylib 218	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
90	82, 89	eqtrd 2772	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
91	90	fveq2d 6839	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
92	46	adantll 715	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
93	91, 92	eqtr4d 2775	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol*‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
94	93	mpteq2dva 5192	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
95	94	adantrr 718	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
96	95, 3, 21	3eqtr4g 2797	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → 𝐻 = 𝐺)
97	96	seqeq3d 13936	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = seq1( + , 𝐺))
98	97, 32	eqtr4di 2790	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = 𝑆)
99	98	fveq1d 6837	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (seq1( + , 𝐻)‘𝑘) = (𝑆‘𝑘))
100		difeq1 4072	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = (∪ ran 𝐹 ∖ ∪ ran 𝐹))
101		difid 4329	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (∪ ran 𝐹 ∖ ∪ ran 𝐹) = ∅
102	100, 101	eqtrdi 2788	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = ∅)
103	102	fveq2d 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘(𝑥 ∖ ∪ ran 𝐹)) = (vol‘∅))
104		ovol0 25454	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (vol*‘∅) = 0
105	103, 104	eqtrdi 2788	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = ∪ ran 𝐹 → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
106	105	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
107	99, 106	oveq12d 7378	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = ((𝑆‘𝑘) + 0))
108	34	ffvelcdmda 7031	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ∈ ℝ)
109	108	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℝ)
110	109	recnd 11164	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℂ)
111	110	addridd 11337	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((𝑆‘𝑘) + 0) = (𝑆‘𝑘))
112	107, 111	eqtrd 2772	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = (𝑆‘𝑘))
113		fveq2 6835	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘𝑥) = (vol‘∪ ran 𝐹))
114	113	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
115	112, 114	breq12d 5112	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥) ↔ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))
116	115	expr 456	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑘 ∈ ℕ → (((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥) ↔ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
117	116	pm5.74d 273	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥)) ↔ (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
118	80, 117	imbi12d 344	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥))) ↔ ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))))
119	78, 118	imbi12d 344	. . . . . . . . . . . . 13 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥)))) ↔ (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))))
120	119	pm5.74da 804	. . . . . . . . . . . 12 ⊢ (𝑥 = ∪ ran 𝐹 → ((𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥))))) ↔ (𝜑 → (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))))))
121	1	3ad2ant1 1134	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝐹:ℕ⟶dom vol)
122	2	3ad2ant1 1134	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → Disj 𝑖 ∈ ℕ (𝐹‘𝑖))
123		simp2 1138	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝑥 ⊆ ℝ)
124		simp3 1139	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) → (vol‘𝑥) ∈ ℝ)
125	121, 122, 3, 123, 124	voliunlem1 25511	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) ∧ 𝑘 ∈ ℕ) → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥))
126	125	3exp1 1354	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥)))))
127	120, 126	vtoclg 3512	. . . . . . . . . . 11 ⊢ (∪ ran 𝐹 ∈ 𝒫 ℝ → (𝜑 → (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))))
128	76, 127	mpcom 38	. . . . . . . . . 10 ⊢ (𝜑 → (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))))
129	15, 128	mpd 15	. . . . . . . . 9 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
130	74, 129	sylbird 260	. . . . . . . 8 ⊢ (𝜑 → ((-∞ < (vol‘∪ ran 𝐹) ∧ (vol‘∪ ran 𝐹) < +∞) → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
131	72, 130	mpand 696	. . . . . . 7 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) < +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
132		nltpnft 13083	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
133	17, 132	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
134		rexr 11182	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ → (𝑆‘𝑘) ∈ ℝ^*)
135		pnfge 13048	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ^* → (𝑆‘𝑘) ≤ +∞)
136	108, 134, 135	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ≤ +∞)
137	136	ex 412	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞))
138		breq2 5103	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) = +∞ → ((𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹) ↔ (𝑆‘𝑘) ≤ +∞))
139	138	imbi2d 340	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) = +∞ → ((𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)) ↔ (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞)))
140	137, 139	syl5ibrcom 247	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
141	133, 140	sylbird 260	. . . . . . 7 ⊢ (𝜑 → (¬ (vol‘∪ ran 𝐹) < +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
142	131, 141	pm2.61d 179	. . . . . 6 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))
143	142	ralrimiv 3128	. . . . 5 ⊢ (𝜑 → ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))
144	34	ffnd 6664	. . . . . 6 ⊢ (𝜑 → 𝑆 Fn ℕ)
145		breq1 5102	. . . . . . 7 ⊢ (𝑧 = (𝑆‘𝑘) → (𝑧 ≤ (vol‘∪ ran 𝐹) ↔ (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))
146	145	ralrn 7035	. . . . . 6 ⊢ (𝑆 Fn ℕ → (∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))
147	144, 146	syl 17	. . . . 5 ⊢ (𝜑 → (∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))
148	143, 147	mpbird 257	. . . 4 ⊢ (𝜑 → ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹))
149		supxrleub 13245	. . . . 5 ⊢ ((ran 𝑆 ⊆ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
150	37, 17, 149	syl2anc 585	. . . 4 ⊢ (𝜑 → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
151	148, 150	mpbird 257	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹))
152	17, 39, 63, 151	xrletrid 13073	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^, < ))
153	6, 152	eqtrd 2772	1 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^*, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ∀wral 3052 ∖ cdif 3899 ∩ cin 3901 ⊆ wss 3902 ∅c0 4286 𝒫 cpw 4555 ∪ cuni 4864 ∪ ciun 4947 Disj wdisj 5066 class class class wbr 5099 ↦ cmpt 5180 dom cdm 5625 ran crn 5626 Fn wfn 6488 ⟶wf 6489 ‘cfv 6493 (class class class)co 7360 supcsup 9347 ℝcr 11029 0cc0 11030 1c1 11031 + caddc 11033 +∞cpnf 11167 -∞cmnf 11168 ℝ^*cxr 11169 < clt 11170 ≤ cle 11171 ℕcn 12149 seqcseq 13928 vol*covol 25423 volcvol 25424

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5225 ax-sep 5242 ax-nul 5252 ax-pow 5311 ax-pr 5378 ax-un 7682 ax-inf2 9554 ax-cc 10349 ax-cnex 11086 ax-resscn 11087 ax-1cn 11088 ax-icn 11089 ax-addcl 11090 ax-addrcl 11091 ax-mulcl 11092 ax-mulrcl 11093 ax-mulcom 11094 ax-addass 11095 ax-mulass 11096 ax-distr 11097 ax-i2m1 11098 ax-1ne0 11099 ax-1rid 11100 ax-rnegex 11101 ax-rrecex 11102 ax-cnre 11103 ax-pre-lttri 11104 ax-pre-lttrn 11105 ax-pre-ltadd 11106 ax-pre-mulgt0 11107 ax-pre-sup 11108

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3062 df-rmo 3351 df-reu 3352 df-rab 3401 df-v 3443 df-sbc 3742 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4287 df-if 4481 df-pw 4557 df-sn 4582 df-pr 4584 df-op 4588 df-uni 4865 df-int 4904 df-iun 4949 df-disj 5067 df-br 5100 df-opab 5162 df-mpt 5181 df-tr 5207 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6260 df-ord 6321 df-on 6322 df-lim 6323 df-suc 6324 df-iota 6449 df-fun 6495 df-fn 6496 df-f 6497 df-f1 6498 df-fo 6499 df-f1o 6500 df-fv 6501 df-isom 6502 df-riota 7317 df-ov 7363 df-oprab 7364 df-mpo 7365 df-of 7624 df-om 7811 df-1st 7935 df-2nd 7936 df-frecs 8225 df-wrecs 8256 df-recs 8305 df-rdg 8343 df-1o 8399 df-2o 8400 df-er 8637 df-map 8769 df-pm 8770 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-sup 9349 df-inf 9350 df-oi 9419 df-dju 9817 df-card 9855 df-pnf 11172 df-mnf 11173 df-xr 11174 df-ltxr 11175 df-le 11176 df-sub 11370 df-neg 11371 df-div 11799 df-nn 12150 df-2 12212 df-3 12213 df-n0 12406 df-z 12493 df-uz 12756 df-q 12866 df-rp 12910 df-xadd 13031 df-ioo 13269 df-ico 13271 df-icc 13272 df-fz 13428 df-fzo 13575 df-fl 13716 df-seq 13929 df-exp 13989 df-hash 14258 df-cj 15026 df-re 15027 df-im 15028 df-sqrt 15162 df-abs 15163 df-clim 15415 df-rlim 15416 df-sum 15614 df-xmet 21306 df-met 21307 df-ovol 25425 df-vol 25426

This theorem is referenced by: voliun 25515

W3C validator