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 25511

Description: Lemma for voliun 25513. (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 25510	. . 3 ⊢ (𝜑 → ∪ ran 𝐹 ∈ dom vol)
5		mblvol 25489	. . 3 ⊢ (∪ ran 𝐹 ∈ dom vol → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
6	4, 5	syl 17	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
7	1	frnd 6669	. . . . . 6 ⊢ (𝜑 → ran 𝐹 ⊆ dom vol)
8		mblss 25490	. . . . . . . 8 ⊢ (𝑥 ∈ dom vol → 𝑥 ⊆ ℝ)
9		reex 11119	. . . . . . . . 9 ⊢ ℝ ∈ V
10	9	elpw2 5278	. . . . . . . 8 ⊢ (𝑥 ∈ 𝒫 ℝ ↔ 𝑥 ⊆ ℝ)
11	8, 10	sylibr 234	. . . . . . 7 ⊢ (𝑥 ∈ dom vol → 𝑥 ∈ 𝒫 ℝ)
12	11	ssriv 3936	. . . . . 6 ⊢ dom vol ⊆ 𝒫 ℝ
13	7, 12	sstrdi 3945	. . . . 5 ⊢ (𝜑 → ran 𝐹 ⊆ 𝒫 ℝ)
14		sspwuni 5054	. . . . 5 ⊢ (ran 𝐹 ⊆ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
15	13, 14	sylib 218	. . . 4 ⊢ (𝜑 → ∪ ran 𝐹 ⊆ ℝ)
16		ovolcl 25437	. . . 4 ⊢ (∪ ran 𝐹 ⊆ ℝ → (vol‘∪ ran 𝐹) ∈ ℝ^)
17	15, 16	syl 17	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ∈ ℝ^)
18		nnuz 12792	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
19		1zzd 12524	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
20		2fveq3 6838	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (vol‘(𝐹‘𝑛)) = (vol‘(𝐹‘𝑘)))
21		voliunlem3.2	. . . . . . . . . . 11 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
22		fvex 6846	. . . . . . . . . . 11 ⊢ (vol‘(𝐹‘𝑘)) ∈ V
23	20, 21, 22	fvmpt 6940	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
24	23	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
25		voliunlem3.4	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ)
26		2fveq3 6838	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑘 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑘)))
27	26	eleq1d 2820	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑘 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑘)) ∈ ℝ))
28	27	rspccva 3574	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
29	25, 28	sylan 581	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
30	24, 29	eqeltrd 2835	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
31	18, 19, 30	serfre 13956	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺):ℕ⟶ℝ)
32		voliunlem3.1	. . . . . . . 8 ⊢ 𝑆 = seq1( + , 𝐺)
33	32	feq1i 6652	. . . . . . 7 ⊢ (𝑆:ℕ⟶ℝ ↔ seq1( + , 𝐺):ℕ⟶ℝ)
34	31, 33	sylibr 234	. . . . . 6 ⊢ (𝜑 → 𝑆:ℕ⟶ℝ)
35	34	frnd 6669	. . . . 5 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ)
36		ressxr 11178	. . . . 5 ⊢ ℝ ⊆ ℝ^*
37	35, 36	sstrdi 3945	. . . 4 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ^*)
38		supxrcl 13232	. . . 4 ⊢ (ran 𝑆 ⊆ ℝ^* → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
39	37, 38	syl 17	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
40		eqid 2735	. . . . 5 ⊢ seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
41		eqid 2735	. . . . 5 ⊢ (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
42	1	ffvelcdmda 7029	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ dom vol)
43		mblss 25490	. . . . . 6 ⊢ ((𝐹‘𝑛) ∈ dom vol → (𝐹‘𝑛) ⊆ ℝ)
44	42, 43	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ℝ)
45		mblvol 25489	. . . . . . 7 ⊢ ((𝐹‘𝑛) ∈ dom vol → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
46	42, 45	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
47		2fveq3 6838	. . . . . . . . 9 ⊢ (𝑖 = 𝑛 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑛)))
48	47	eleq1d 2820	. . . . . . . 8 ⊢ (𝑖 = 𝑛 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑛)) ∈ ℝ))
49	48	rspccva 3574	. . . . . . 7 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
50	25, 49	sylan 581	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
51	46, 50	eqeltrrd 2836	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘(𝐹‘𝑛)) ∈ ℝ)
52	40, 41, 44, 51	ovoliun 25464	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) ≤ sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^*, < ))
53	1	ffnd 6662	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℕ)
54		fniunfv 7193	. . . . . 6 ⊢ (𝐹 Fn ℕ → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
55	53, 54	syl 17	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
56	55	fveq2d 6837	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) = (vol‘∪ ran 𝐹))
57	46	mpteq2dva 5190	. . . . . . . . 9 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
58	21, 57	eqtrid 2782	. . . . . . . 8 ⊢ (𝜑 → 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
59	58	seqeq3d 13934	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺) = seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))))
60	32, 59	eqtr2id 2783	. . . . . 6 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = 𝑆)
61	60	rneqd 5886	. . . . 5 ⊢ (𝜑 → ran seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = ran 𝑆)
62	61	supeq1d 9351	. . . 4 ⊢ (𝜑 → sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^, < ) = sup(ran 𝑆, ℝ^*, < ))
63	52, 56, 62	3brtr3d 5128	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ≤ sup(ran 𝑆, ℝ^, < ))
64		ovolge0 25440	. . . . . . . . . 10 ⊢ (∪ ran 𝐹 ⊆ ℝ → 0 ≤ (vol*‘∪ ran 𝐹))
65	15, 64	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (vol*‘∪ ran 𝐹))
66		mnflt0 13041	. . . . . . . . . 10 ⊢ -∞ < 0
67		mnfxr 11191	. . . . . . . . . . 11 ⊢ -∞ ∈ ℝ^*
68		0xr 11181	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ^*
69		xrltletr 13073	. . . . . . . . . . 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 13085	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
74	17, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
75	9	elpw2 5278	. . . . . . . . . . . 12 ⊢ (∪ ran 𝐹 ∈ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
76	15, 75	sylibr 234	. . . . . . . . . . 11 ⊢ (𝜑 → ∪ ran 𝐹 ∈ 𝒫 ℝ)
77		simpl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → 𝑥 = ∪ ran 𝐹)
78	77	sseq1d 3964	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑥 ⊆ ℝ ↔ ∪ ran 𝐹 ⊆ ℝ))
79	77	fveq2d 6837	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
80	79	eleq1d 2820	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((vol‘𝑥) ∈ ℝ ↔ (vol‘∪ ran 𝐹) ∈ ℝ))
81		simpll 767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → 𝑥 = ∪ ran 𝐹)
82	81	ineq1d 4170	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (∪ ran 𝐹 ∩ (𝐹‘𝑛)))
83		fnfvelrn 7025	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝐹 Fn ℕ ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
84	53, 83	sylan 581	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
85		elssuni 4893	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝐹‘𝑛) ∈ ran 𝐹 → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
86	84, 85	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
87	86	adantll 715	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
88		sseqin2 4174	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐹‘𝑛) ⊆ ∪ ran 𝐹 ↔ (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
89	87, 88	sylib 218	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
90	82, 89	eqtrd 2770	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
91	90	fveq2d 6837	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
92	46	adantll 715	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
93	91, 92	eqtr4d 2773	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol*‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
94	93	mpteq2dva 5190	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
95	94	adantrr 718	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
96	95, 3, 21	3eqtr4g 2795	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → 𝐻 = 𝐺)
97	96	seqeq3d 13934	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = seq1( + , 𝐺))
98	97, 32	eqtr4di 2788	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = 𝑆)
99	98	fveq1d 6835	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (seq1( + , 𝐻)‘𝑘) = (𝑆‘𝑘))
100		difeq1 4070	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = (∪ ran 𝐹 ∖ ∪ ran 𝐹))
101		difid 4327	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (∪ ran 𝐹 ∖ ∪ ran 𝐹) = ∅
102	100, 101	eqtrdi 2786	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = ∅)
103	102	fveq2d 6837	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘(𝑥 ∖ ∪ ran 𝐹)) = (vol‘∅))
104		ovol0 25452	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (vol*‘∅) = 0
105	103, 104	eqtrdi 2786	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = ∪ ran 𝐹 → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
106	105	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
107	99, 106	oveq12d 7376	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = ((𝑆‘𝑘) + 0))
108	34	ffvelcdmda 7029	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ∈ ℝ)
109	108	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℝ)
110	109	recnd 11162	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℂ)
111	110	addridd 11335	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((𝑆‘𝑘) + 0) = (𝑆‘𝑘))
112	107, 111	eqtrd 2770	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = (𝑆‘𝑘))
113		fveq2 6833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘𝑥) = (vol‘∪ ran 𝐹))
114	113	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
115	112, 114	breq12d 5110	. . . . . . . . . . . . . . . . 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 25509	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) ∧ 𝑘 ∈ ℕ) → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥))
126	125	3exp1 1354	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥)))))
127	120, 126	vtoclg 3510	. . . . . . . . . . 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 13081	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
133	17, 132	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
134		rexr 11180	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ → (𝑆‘𝑘) ∈ ℝ^*)
135		pnfge 13046	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ^* → (𝑆‘𝑘) ≤ +∞)
136	108, 134, 135	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ≤ +∞)
137	136	ex 412	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞))
138		breq2 5101	. . . . . . . . . 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 3126	. . . . 5 ⊢ (𝜑 → ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))
144	34	ffnd 6662	. . . . . 6 ⊢ (𝜑 → 𝑆 Fn ℕ)
145		breq1 5100	. . . . . . 7 ⊢ (𝑧 = (𝑆‘𝑘) → (𝑧 ≤ (vol‘∪ ran 𝐹) ↔ (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))
146	145	ralrn 7033	. . . . . 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 13243	. . . . 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 13071	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^, < ))
153	6, 152	eqtrd 2770	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 3050 ∖ cdif 3897 ∩ cin 3899 ⊆ wss 3900 ∅c0 4284 𝒫 cpw 4553 ∪ cuni 4862 ∪ ciun 4945 Disj wdisj 5064 class class class wbr 5097 ↦ cmpt 5178 dom cdm 5623 ran crn 5624 Fn wfn 6486 ⟶wf 6487 ‘cfv 6491 (class class class)co 7358 supcsup 9345 ℝcr 11027 0cc0 11028 1c1 11029 + caddc 11031 +∞cpnf 11165 -∞cmnf 11166 ℝ^*cxr 11167 < clt 11168 ≤ cle 11169 ℕcn 12147 seqcseq 13926 vol*covol 25421 volcvol 25422

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 2183 ax-ext 2707 ax-rep 5223 ax-sep 5240 ax-nul 5250 ax-pow 5309 ax-pr 5376 ax-un 7680 ax-inf2 9552 ax-cc 10347 ax-cnex 11084 ax-resscn 11085 ax-1cn 11086 ax-icn 11087 ax-addcl 11088 ax-addrcl 11089 ax-mulcl 11090 ax-mulrcl 11091 ax-mulcom 11092 ax-addass 11093 ax-mulass 11094 ax-distr 11095 ax-i2m1 11096 ax-1ne0 11097 ax-1rid 11098 ax-rnegex 11099 ax-rrecex 11100 ax-cnre 11101 ax-pre-lttri 11102 ax-pre-lttrn 11103 ax-pre-ltadd 11104 ax-pre-mulgt0 11105 ax-pre-sup 11106

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 2538 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2810 df-nfc 2884 df-ne 2932 df-nel 3036 df-ral 3051 df-rex 3060 df-rmo 3349 df-reu 3350 df-rab 3399 df-v 3441 df-sbc 3740 df-csb 3849 df-dif 3903 df-un 3905 df-in 3907 df-ss 3917 df-pss 3920 df-nul 4285 df-if 4479 df-pw 4555 df-sn 4580 df-pr 4582 df-op 4586 df-uni 4863 df-int 4902 df-iun 4947 df-disj 5065 df-br 5098 df-opab 5160 df-mpt 5179 df-tr 5205 df-id 5518 df-eprel 5523 df-po 5531 df-so 5532 df-fr 5576 df-se 5577 df-we 5578 df-xp 5629 df-rel 5630 df-cnv 5631 df-co 5632 df-dm 5633 df-rn 5634 df-res 5635 df-ima 5636 df-pred 6258 df-ord 6319 df-on 6320 df-lim 6321 df-suc 6322 df-iota 6447 df-fun 6493 df-fn 6494 df-f 6495 df-f1 6496 df-fo 6497 df-f1o 6498 df-fv 6499 df-isom 6500 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-of 7622 df-om 7809 df-1st 7933 df-2nd 7934 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-1o 8397 df-2o 8398 df-er 8635 df-map 8767 df-pm 8768 df-en 8886 df-dom 8887 df-sdom 8888 df-fin 8889 df-sup 9347 df-inf 9348 df-oi 9417 df-dju 9815 df-card 9853 df-pnf 11170 df-mnf 11171 df-xr 11172 df-ltxr 11173 df-le 11174 df-sub 11368 df-neg 11369 df-div 11797 df-nn 12148 df-2 12210 df-3 12211 df-n0 12404 df-z 12491 df-uz 12754 df-q 12864 df-rp 12908 df-xadd 13029 df-ioo 13267 df-ico 13269 df-icc 13270 df-fz 13426 df-fzo 13573 df-fl 13714 df-seq 13927 df-exp 13987 df-hash 14256 df-cj 15024 df-re 15025 df-im 15026 df-sqrt 15160 df-abs 15161 df-clim 15413 df-rlim 15414 df-sum 15612 df-xmet 21304 df-met 21305 df-ovol 25423 df-vol 25424

This theorem is referenced by: voliun 25513

W3C validator