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 25600

Description: Lemma for voliun 25602. (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 25599	. . 3 ⊢ (𝜑 → ∪ ran 𝐹 ∈ dom vol)
5		mblvol 25578	. . 3 ⊢ (∪ ran 𝐹 ∈ dom vol → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
6	4, 5	syl 17	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
7	1	frnd 6744	. . . . . 6 ⊢ (𝜑 → ran 𝐹 ⊆ dom vol)
8		mblss 25579	. . . . . . . 8 ⊢ (𝑥 ∈ dom vol → 𝑥 ⊆ ℝ)
9		reex 11243	. . . . . . . . 9 ⊢ ℝ ∈ V
10	9	elpw2 5339	. . . . . . . 8 ⊢ (𝑥 ∈ 𝒫 ℝ ↔ 𝑥 ⊆ ℝ)
11	8, 10	sylibr 234	. . . . . . 7 ⊢ (𝑥 ∈ dom vol → 𝑥 ∈ 𝒫 ℝ)
12	11	ssriv 3998	. . . . . 6 ⊢ dom vol ⊆ 𝒫 ℝ
13	7, 12	sstrdi 4007	. . . . 5 ⊢ (𝜑 → ran 𝐹 ⊆ 𝒫 ℝ)
14		sspwuni 5104	. . . . 5 ⊢ (ran 𝐹 ⊆ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
15	13, 14	sylib 218	. . . 4 ⊢ (𝜑 → ∪ ran 𝐹 ⊆ ℝ)
16		ovolcl 25526	. . . 4 ⊢ (∪ ran 𝐹 ⊆ ℝ → (vol‘∪ ran 𝐹) ∈ ℝ^)
17	15, 16	syl 17	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ∈ ℝ^)
18		nnuz 12918	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
19		1zzd 12645	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
20		2fveq3 6911	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (vol‘(𝐹‘𝑛)) = (vol‘(𝐹‘𝑘)))
21		voliunlem3.2	. . . . . . . . . . 11 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
22		fvex 6919	. . . . . . . . . . 11 ⊢ (vol‘(𝐹‘𝑘)) ∈ V
23	20, 21, 22	fvmpt 7015	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
24	23	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
25		voliunlem3.4	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ)
26		2fveq3 6911	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑘 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑘)))
27	26	eleq1d 2823	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑘 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑘)) ∈ ℝ))
28	27	rspccva 3620	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
29	25, 28	sylan 580	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
30	24, 29	eqeltrd 2838	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
31	18, 19, 30	serfre 14068	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺):ℕ⟶ℝ)
32		voliunlem3.1	. . . . . . . 8 ⊢ 𝑆 = seq1( + , 𝐺)
33	32	feq1i 6727	. . . . . . 7 ⊢ (𝑆:ℕ⟶ℝ ↔ seq1( + , 𝐺):ℕ⟶ℝ)
34	31, 33	sylibr 234	. . . . . 6 ⊢ (𝜑 → 𝑆:ℕ⟶ℝ)
35	34	frnd 6744	. . . . 5 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ)
36		ressxr 11302	. . . . 5 ⊢ ℝ ⊆ ℝ^*
37	35, 36	sstrdi 4007	. . . 4 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ^*)
38		supxrcl 13353	. . . 4 ⊢ (ran 𝑆 ⊆ ℝ^* → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
39	37, 38	syl 17	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
40		eqid 2734	. . . . 5 ⊢ seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
41		eqid 2734	. . . . 5 ⊢ (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
42	1	ffvelcdmda 7103	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ dom vol)
43		mblss 25579	. . . . . 6 ⊢ ((𝐹‘𝑛) ∈ dom vol → (𝐹‘𝑛) ⊆ ℝ)
44	42, 43	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ℝ)
45		mblvol 25578	. . . . . . 7 ⊢ ((𝐹‘𝑛) ∈ dom vol → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
46	42, 45	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
47		2fveq3 6911	. . . . . . . . 9 ⊢ (𝑖 = 𝑛 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑛)))
48	47	eleq1d 2823	. . . . . . . 8 ⊢ (𝑖 = 𝑛 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑛)) ∈ ℝ))
49	48	rspccva 3620	. . . . . . 7 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
50	25, 49	sylan 580	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
51	46, 50	eqeltrrd 2839	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘(𝐹‘𝑛)) ∈ ℝ)
52	40, 41, 44, 51	ovoliun 25553	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) ≤ sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^*, < ))
53	1	ffnd 6737	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℕ)
54		fniunfv 7266	. . . . . 6 ⊢ (𝐹 Fn ℕ → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
55	53, 54	syl 17	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
56	55	fveq2d 6910	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) = (vol‘∪ ran 𝐹))
57	46	mpteq2dva 5247	. . . . . . . . 9 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
58	21, 57	eqtrid 2786	. . . . . . . 8 ⊢ (𝜑 → 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
59	58	seqeq3d 14046	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺) = seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))))
60	32, 59	eqtr2id 2787	. . . . . 6 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = 𝑆)
61	60	rneqd 5951	. . . . 5 ⊢ (𝜑 → ran seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = ran 𝑆)
62	61	supeq1d 9483	. . . 4 ⊢ (𝜑 → sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^, < ) = sup(ran 𝑆, ℝ^*, < ))
63	52, 56, 62	3brtr3d 5178	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ≤ sup(ran 𝑆, ℝ^, < ))
64		ovolge0 25529	. . . . . . . . . 10 ⊢ (∪ ran 𝐹 ⊆ ℝ → 0 ≤ (vol*‘∪ ran 𝐹))
65	15, 64	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (vol*‘∪ ran 𝐹))
66		mnflt0 13164	. . . . . . . . . 10 ⊢ -∞ < 0
67		mnfxr 11315	. . . . . . . . . . 11 ⊢ -∞ ∈ ℝ^*
68		0xr 11305	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ^*
69		xrltletr 13195	. . . . . . . . . . 11 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
70	67, 68, 69	mp3an12 1450	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
71	66, 70	mpani 696	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → (0 ≤ (vol‘∪ ran 𝐹) → -∞ < (vol‘∪ ran 𝐹)))
72	17, 65, 71	sylc 65	. . . . . . . 8 ⊢ (𝜑 → -∞ < (vol*‘∪ ran 𝐹))
73		xrrebnd 13206	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
74	17, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
75	9	elpw2 5339	. . . . . . . . . . . 12 ⊢ (∪ ran 𝐹 ∈ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
76	15, 75	sylibr 234	. . . . . . . . . . 11 ⊢ (𝜑 → ∪ ran 𝐹 ∈ 𝒫 ℝ)
77		simpl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → 𝑥 = ∪ ran 𝐹)
78	77	sseq1d 4026	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑥 ⊆ ℝ ↔ ∪ ran 𝐹 ⊆ ℝ))
79	77	fveq2d 6910	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
80	79	eleq1d 2823	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((vol‘𝑥) ∈ ℝ ↔ (vol‘∪ ran 𝐹) ∈ ℝ))
81		simpll 767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → 𝑥 = ∪ ran 𝐹)
82	81	ineq1d 4226	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (∪ ran 𝐹 ∩ (𝐹‘𝑛)))
83		fnfvelrn 7099	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝐹 Fn ℕ ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
84	53, 83	sylan 580	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
85		elssuni 4941	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝐹‘𝑛) ∈ ran 𝐹 → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
86	84, 85	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
87	86	adantll 714	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
88		sseqin2 4230	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐹‘𝑛) ⊆ ∪ ran 𝐹 ↔ (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
89	87, 88	sylib 218	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
90	82, 89	eqtrd 2774	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
91	90	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
92	46	adantll 714	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
93	91, 92	eqtr4d 2777	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol*‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
94	93	mpteq2dva 5247	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
95	94	adantrr 717	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
96	95, 3, 21	3eqtr4g 2799	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → 𝐻 = 𝐺)
97	96	seqeq3d 14046	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = seq1( + , 𝐺))
98	97, 32	eqtr4di 2792	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = 𝑆)
99	98	fveq1d 6908	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (seq1( + , 𝐻)‘𝑘) = (𝑆‘𝑘))
100		difeq1 4128	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = (∪ ran 𝐹 ∖ ∪ ran 𝐹))
101		difid 4381	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (∪ ran 𝐹 ∖ ∪ ran 𝐹) = ∅
102	100, 101	eqtrdi 2790	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = ∅)
103	102	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘(𝑥 ∖ ∪ ran 𝐹)) = (vol‘∅))
104		ovol0 25541	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (vol*‘∅) = 0
105	103, 104	eqtrdi 2790	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = ∪ ran 𝐹 → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
106	105	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
107	99, 106	oveq12d 7448	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = ((𝑆‘𝑘) + 0))
108	34	ffvelcdmda 7103	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ∈ ℝ)
109	108	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℝ)
110	109	recnd 11286	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℂ)
111	110	addridd 11458	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((𝑆‘𝑘) + 0) = (𝑆‘𝑘))
112	107, 111	eqtrd 2774	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = (𝑆‘𝑘))
113		fveq2 6906	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘𝑥) = (vol‘∪ ran 𝐹))
114	113	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
115	112, 114	breq12d 5160	. . . . . . . . . . . . . . . . 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 1132	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝐹:ℕ⟶dom vol)
122	2	3ad2ant1 1132	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → Disj 𝑖 ∈ ℕ (𝐹‘𝑖))
123		simp2 1136	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝑥 ⊆ ℝ)
124		simp3 1137	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) → (vol‘𝑥) ∈ ℝ)
125	121, 122, 3, 123, 124	voliunlem1 25598	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) ∧ 𝑘 ∈ ℕ) → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥))
126	125	3exp1 1351	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥)))))
127	120, 126	vtoclg 3553	. . . . . . . . . . 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 695	. . . . . . 7 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) < +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
132		nltpnft 13202	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
133	17, 132	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
134		rexr 11304	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ → (𝑆‘𝑘) ∈ ℝ^*)
135		pnfge 13169	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ^* → (𝑆‘𝑘) ≤ +∞)
136	108, 134, 135	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ≤ +∞)
137	136	ex 412	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞))
138		breq2 5151	. . . . . . . . . 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 3142	. . . . 5 ⊢ (𝜑 → ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))
144	34	ffnd 6737	. . . . . 6 ⊢ (𝜑 → 𝑆 Fn ℕ)
145		breq1 5150	. . . . . . 7 ⊢ (𝑧 = (𝑆‘𝑘) → (𝑧 ≤ (vol‘∪ ran 𝐹) ↔ (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)))
146	145	ralrn 7107	. . . . . 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 13364	. . . . 5 ⊢ ((ran 𝑆 ⊆ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
150	37, 17, 149	syl2anc 584	. . . 4 ⊢ (𝜑 → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
151	148, 150	mpbird 257	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹))
152	17, 39, 63, 151	xrletrid 13193	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^, < ))
153	6, 152	eqtrd 2774	1 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^*, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1536 ∈ wcel 2105 ∀wral 3058 ∖ cdif 3959 ∩ cin 3961 ⊆ wss 3962 ∅c0 4338 𝒫 cpw 4604 ∪ cuni 4911 ∪ ciun 4995 Disj wdisj 5114 class class class wbr 5147 ↦ cmpt 5230 dom cdm 5688 ran crn 5689 Fn wfn 6557 ⟶wf 6558 ‘cfv 6562 (class class class)co 7430 supcsup 9477 ℝcr 11151 0cc0 11152 1c1 11153 + caddc 11155 +∞cpnf 11289 -∞cmnf 11290 ℝ^*cxr 11291 < clt 11292 ≤ cle 11293 ℕcn 12263 seqcseq 14038 vol*covol 25510 volcvol 25511

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1791 ax-4 1805 ax-5 1907 ax-6 1964 ax-7 2004 ax-8 2107 ax-9 2115 ax-10 2138 ax-11 2154 ax-12 2174 ax-ext 2705 ax-rep 5284 ax-sep 5301 ax-nul 5311 ax-pow 5370 ax-pr 5437 ax-un 7753 ax-inf2 9678 ax-cc 10472 ax-cnex 11208 ax-resscn 11209 ax-1cn 11210 ax-icn 11211 ax-addcl 11212 ax-addrcl 11213 ax-mulcl 11214 ax-mulrcl 11215 ax-mulcom 11216 ax-addass 11217 ax-mulass 11218 ax-distr 11219 ax-i2m1 11220 ax-1ne0 11221 ax-1rid 11222 ax-rnegex 11223 ax-rrecex 11224 ax-cnre 11225 ax-pre-lttri 11226 ax-pre-lttrn 11227 ax-pre-ltadd 11228 ax-pre-mulgt0 11229 ax-pre-sup 11230

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1539 df-fal 1549 df-ex 1776 df-nf 1780 df-sb 2062 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2726 df-clel 2813 df-nfc 2889 df-ne 2938 df-nel 3044 df-ral 3059 df-rex 3068 df-rmo 3377 df-reu 3378 df-rab 3433 df-v 3479 df-sbc 3791 df-csb 3908 df-dif 3965 df-un 3967 df-in 3969 df-ss 3979 df-pss 3982 df-nul 4339 df-if 4531 df-pw 4606 df-sn 4631 df-pr 4633 df-op 4637 df-uni 4912 df-int 4951 df-iun 4997 df-disj 5115 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5582 df-eprel 5588 df-po 5596 df-so 5597 df-fr 5640 df-se 5641 df-we 5642 df-xp 5694 df-rel 5695 df-cnv 5696 df-co 5697 df-dm 5698 df-rn 5699 df-res 5700 df-ima 5701 df-pred 6322 df-ord 6388 df-on 6389 df-lim 6390 df-suc 6391 df-iota 6515 df-fun 6564 df-fn 6565 df-f 6566 df-f1 6567 df-fo 6568 df-f1o 6569 df-fv 6570 df-isom 6571 df-riota 7387 df-ov 7433 df-oprab 7434 df-mpo 7435 df-of 7696 df-om 7887 df-1st 8012 df-2nd 8013 df-frecs 8304 df-wrecs 8335 df-recs 8409 df-rdg 8448 df-1o 8504 df-2o 8505 df-er 8743 df-map 8866 df-pm 8867 df-en 8984 df-dom 8985 df-sdom 8986 df-fin 8987 df-sup 9479 df-inf 9480 df-oi 9547 df-dju 9938 df-card 9976 df-pnf 11294 df-mnf 11295 df-xr 11296 df-ltxr 11297 df-le 11298 df-sub 11491 df-neg 11492 df-div 11918 df-nn 12264 df-2 12326 df-3 12327 df-n0 12524 df-z 12611 df-uz 12876 df-q 12988 df-rp 13032 df-xadd 13152 df-ioo 13387 df-ico 13389 df-icc 13390 df-fz 13544 df-fzo 13691 df-fl 13828 df-seq 14039 df-exp 14099 df-hash 14366 df-cj 15134 df-re 15135 df-im 15136 df-sqrt 15270 df-abs 15271 df-clim 15520 df-rlim 15521 df-sum 15719 df-xmet 21374 df-met 21375 df-ovol 25512 df-vol 25513

This theorem is referenced by: voliun 25602

W3C validator