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 25541

Description: Lemma for voliun 25543. (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 25540	. . 3 ⊢ (𝜑 → ∪ ran 𝐹 ∈ dom vol)
5		mblvol 25519	. . 3 ⊢ (∪ ran 𝐹 ∈ dom vol → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
6	4, 5	syl 17	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = (vol*‘∪ ran 𝐹))
7	1	frnd 6667	. . . . . 6 ⊢ (𝜑 → ran 𝐹 ⊆ dom vol)
8		mblss 25520	. . . . . . . 8 ⊢ (𝑥 ∈ dom vol → 𝑥 ⊆ ℝ)
9		reex 11124	. . . . . . . . 9 ⊢ ℝ ∈ V
10	9	elpw2 5265	. . . . . . . 8 ⊢ (𝑥 ∈ 𝒫 ℝ ↔ 𝑥 ⊆ ℝ)
11	8, 10	sylibr 236	. . . . . . 7 ⊢ (𝑥 ∈ dom vol → 𝑥 ∈ 𝒫 ℝ)
12	11	ssriv 3921	. . . . . 6 ⊢ dom vol ⊆ 𝒫 ℝ
13	7, 12	sstrdi 3929	. . . . 5 ⊢ (𝜑 → ran 𝐹 ⊆ 𝒫 ℝ)
14		sspwuni 5032	. . . . 5 ⊢ (ran 𝐹 ⊆ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
15	13, 14	sylib 220	. . . 4 ⊢ (𝜑 → ∪ ran 𝐹 ⊆ ℝ)
16		ovolcl 25467	. . . 4 ⊢ (∪ ran 𝐹 ⊆ ℝ → (vol‘∪ ran 𝐹) ∈ ℝ^)
17	15, 16	syl 17	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ∈ ℝ^)
18		nnuz 12822	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
19		1zzd 12553	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
20		2fveq3 6836	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (vol‘(𝐹‘𝑛)) = (vol‘(𝐹‘𝑘)))
21		voliunlem3.2	. . . . . . . . . . 11 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
22		fvex 6844	. . . . . . . . . . 11 ⊢ (vol‘(𝐹‘𝑘)) ∈ V
23	20, 21, 22	fvmpt 6939	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
24	23	adantl 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) = (vol‘(𝐹‘𝑘)))
25		voliunlem3.4	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ)
26		2fveq3 6836	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑘 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑘)))
27	26	eleq1d 2826	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑘 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑘)) ∈ ℝ))
28	27	rspccva 3561	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
29	25, 28	sylan 587	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (vol‘(𝐹‘𝑘)) ∈ ℝ)
30	24, 29	eqeltrd 2841	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
31	18, 19, 30	serfre 13988	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺):ℕ⟶ℝ)
32		voliunlem3.1	. . . . . . . 8 ⊢ 𝑆 = seq1( + , 𝐺)
33	32	feq1i 6650	. . . . . . 7 ⊢ (𝑆:ℕ⟶ℝ ↔ seq1( + , 𝐺):ℕ⟶ℝ)
34	31, 33	sylibr 236	. . . . . 6 ⊢ (𝜑 → 𝑆:ℕ⟶ℝ)
35	34	frnd 6667	. . . . 5 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ)
36		ressxr 11184	. . . . 5 ⊢ ℝ ⊆ ℝ^*
37	35, 36	sstrdi 3929	. . . 4 ⊢ (𝜑 → ran 𝑆 ⊆ ℝ^*)
38		supxrcl 13262	. . . 4 ⊢ (ran 𝑆 ⊆ ℝ^* → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
39	37, 38	syl 17	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ∈ ℝ^)
40		eqid 2741	. . . . 5 ⊢ seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
41		eqid 2741	. . . . 5 ⊢ (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))
42	1	ffvelcdmda 7029	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ dom vol)
43		mblss 25520	. . . . . 6 ⊢ ((𝐹‘𝑛) ∈ dom vol → (𝐹‘𝑛) ⊆ ℝ)
44	42, 43	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ℝ)
45		mblvol 25519	. . . . . . 7 ⊢ ((𝐹‘𝑛) ∈ dom vol → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
46	42, 45	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
47		2fveq3 6836	. . . . . . . . 9 ⊢ (𝑖 = 𝑛 → (vol‘(𝐹‘𝑖)) = (vol‘(𝐹‘𝑛)))
48	47	eleq1d 2826	. . . . . . . 8 ⊢ (𝑖 = 𝑛 → ((vol‘(𝐹‘𝑖)) ∈ ℝ ↔ (vol‘(𝐹‘𝑛)) ∈ ℝ))
49	48	rspccva 3561	. . . . . . 7 ⊢ ((∀𝑖 ∈ ℕ (vol‘(𝐹‘𝑖)) ∈ ℝ ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
50	25, 49	sylan 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) ∈ ℝ)
51	46, 50	eqeltrrd 2842	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘(𝐹‘𝑛)) ∈ ℝ)
52	40, 41, 44, 51	ovoliun 25494	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) ≤ sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^*, < ))
53	1	ffnd 6660	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℕ)
54		fniunfv 7195	. . . . . 6 ⊢ (𝐹 Fn ℕ → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
55	53, 54	syl 17	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ ℕ (𝐹‘𝑛) = ∪ ran 𝐹)
56	55	fveq2d 6835	. . . 4 ⊢ (𝜑 → (vol‘∪ 𝑛 ∈ ℕ (𝐹‘𝑛)) = (vol‘∪ ran 𝐹))
57	46	mpteq2dva 5168	. . . . . . . . 9 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
58	21, 57	eqtrid 2788	. . . . . . . 8 ⊢ (𝜑 → 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛))))
59	58	seqeq3d 13966	. . . . . . 7 ⊢ (𝜑 → seq1( + , 𝐺) = seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))))
60	32, 59	eqtr2id 2789	. . . . . 6 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = 𝑆)
61	60	rneqd 5887	. . . . 5 ⊢ (𝜑 → ran seq1( + , (𝑛 ∈ ℕ ↦ (vol*‘(𝐹‘𝑛)))) = ran 𝑆)
62	61	supeq1d 9353	. . . 4 ⊢ (𝜑 → sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛)))), ℝ^, < ) = sup(ran 𝑆, ℝ^*, < ))
63	52, 56, 62	3brtr3d 5106	. . 3 ⊢ (𝜑 → (vol‘∪ ran 𝐹) ≤ sup(ran 𝑆, ℝ^, < ))
64		ovolge0 25470	. . . . . . . . . 10 ⊢ (∪ ran 𝐹 ⊆ ℝ → 0 ≤ (vol*‘∪ ran 𝐹))
65	15, 64	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (vol*‘∪ ran 𝐹))
66		mnflt0 13071	. . . . . . . . . 10 ⊢ -∞ < 0
67		mnfxr 11197	. . . . . . . . . . 11 ⊢ -∞ ∈ ℝ^*
68		0xr 11187	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ^*
69		xrltletr 13103	. . . . . . . . . . 11 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
70	67, 68, 69	mp3an12 1460	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((-∞ < 0 ∧ 0 ≤ (vol‘∪ ran 𝐹)) → -∞ < (vol‘∪ ran 𝐹)))
71	66, 70	mpani 703	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → (0 ≤ (vol‘∪ ran 𝐹) → -∞ < (vol‘∪ ran 𝐹)))
72	17, 65, 71	sylc 65	. . . . . . . 8 ⊢ (𝜑 → -∞ < (vol*‘∪ ran 𝐹))
73		xrrebnd 13115	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
74	17, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) ∈ ℝ ↔ (-∞ < (vol‘∪ ran 𝐹) ∧ (vol*‘∪ ran 𝐹) < +∞)))
75	9	elpw2 5265	. . . . . . . . . . . 12 ⊢ (∪ ran 𝐹 ∈ 𝒫 ℝ ↔ ∪ ran 𝐹 ⊆ ℝ)
76	15, 75	sylibr 236	. . . . . . . . . . 11 ⊢ (𝜑 → ∪ ran 𝐹 ∈ 𝒫 ℝ)
77		simpl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → 𝑥 = ∪ ran 𝐹)
78	77	sseq1d 3948	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑥 ⊆ ℝ ↔ ∪ ran 𝐹 ⊆ ℝ))
79	77	fveq2d 6835	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
80	79	eleq1d 2826	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((vol‘𝑥) ∈ ℝ ↔ (vol‘∪ ran 𝐹) ∈ ℝ))
81		simpll 773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → 𝑥 = ∪ ran 𝐹)
82	81	ineq1d 4151	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (∪ ran 𝐹 ∩ (𝐹‘𝑛)))
83		fnfvelrn 7025	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝐹 Fn ℕ ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
84	53, 83	sylan 587	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ran 𝐹)
85		elssuni 4872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝐹‘𝑛) ∈ ran 𝐹 → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
86	84, 85	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
87	86	adantll 721	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ⊆ ∪ ran 𝐹)
88		sseqin2 4155	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐹‘𝑛) ⊆ ∪ ran 𝐹 ↔ (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
89	87, 88	sylib 220	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (∪ ran 𝐹 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
90	82, 89	eqtrd 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (𝑥 ∩ (𝐹‘𝑛)) = (𝐹‘𝑛))
91	90	fveq2d 6835	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
92	46	adantll 721	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol‘(𝐹‘𝑛)) = (vol*‘(𝐹‘𝑛)))
93	91, 92	eqtr4d 2779	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑥 = ∪ ran 𝐹 ∧ 𝜑) ∧ 𝑛 ∈ ℕ) → (vol*‘(𝑥 ∩ (𝐹‘𝑛))) = (vol‘(𝐹‘𝑛)))
94	93	mpteq2dva 5168	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
95	94	adantrr 724	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑛 ∈ ℕ ↦ (vol*‘(𝑥 ∩ (𝐹‘𝑛)))) = (𝑛 ∈ ℕ ↦ (vol‘(𝐹‘𝑛))))
96	95, 3, 21	3eqtr4g 2801	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → 𝐻 = 𝐺)
97	96	seqeq3d 13966	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = seq1( + , 𝐺))
98	97, 32	eqtr4di 2794	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → seq1( + , 𝐻) = 𝑆)
99	98	fveq1d 6833	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (seq1( + , 𝐻)‘𝑘) = (𝑆‘𝑘))
100		difeq1 4053	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = (∪ ran 𝐹 ∖ ∪ ran 𝐹))
101		difid 4307	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (∪ ran 𝐹 ∖ ∪ ran 𝐹) = ∅
102	100, 101	eqtrdi 2792	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = ∪ ran 𝐹 → (𝑥 ∖ ∪ ran 𝐹) = ∅)
103	102	fveq2d 6835	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘(𝑥 ∖ ∪ ran 𝐹)) = (vol‘∅))
104		ovol0 25482	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (vol*‘∅) = 0
105	103, 104	eqtrdi 2792	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = ∪ ran 𝐹 → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
106	105	adantr 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol*‘(𝑥 ∖ ∪ ran 𝐹)) = 0)
107	99, 106	oveq12d 7378	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = ((𝑆‘𝑘) + 0))
108	34	ffvelcdmda 7029	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ∈ ℝ)
109	108	adantl 483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℝ)
110	109	recnd 11168	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (𝑆‘𝑘) ∈ ℂ)
111	110	addridd 11341	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((𝑆‘𝑘) + 0) = (𝑆‘𝑘))
112	107, 111	eqtrd 2776	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → ((seq1( + , 𝐻)‘𝑘) + (vol*‘(𝑥 ∖ ∪ ran 𝐹))) = (𝑆‘𝑘))
113		fveq2 6831	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ∪ ran 𝐹 → (vol‘𝑥) = (vol‘∪ ran 𝐹))
114	113	adantr 482	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (vol‘𝑥) = (vol‘∪ ran 𝐹))
115	112, 114	breq12d 5088	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ (𝜑 ∧ 𝑘 ∈ ℕ)) → (((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥) ↔ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))
116	115	expr 458	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (𝑘 ∈ ℕ → (((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥) ↔ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
117	116	pm5.74d 275	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥)) ↔ (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
118	80, 117	imbi12d 346	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → (((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥))) ↔ ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))))
119	78, 118	imbi12d 346	. . . . . . . . . . . . 13 ⊢ ((𝑥 = ∪ ran 𝐹 ∧ 𝜑) → ((𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥)))) ↔ (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))))
120	119	pm5.74da 810	. . . . . . . . . . . 12 ⊢ (𝑥 = ∪ ran 𝐹 → ((𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol‘𝑥))))) ↔ (𝜑 → (∪ ran 𝐹 ⊆ ℝ → ((vol‘∪ ran 𝐹) ∈ ℝ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))))))
121	1	3ad2ant1 1140	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝐹:ℕ⟶dom vol)
122	2	3ad2ant1 1140	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → Disj 𝑖 ∈ ℕ (𝐹‘𝑖))
123		simp2 1144	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → 𝑥 ⊆ ℝ)
124		simp3 1145	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) → (vol‘𝑥) ∈ ℝ)
125	121, 122, 3, 123, 124	voliunlem1 25539	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ⊆ ℝ ∧ (vol‘𝑥) ∈ ℝ) ∧ 𝑘 ∈ ℕ) → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥))
126	125	3exp1 1360	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ⊆ ℝ → ((vol‘𝑥) ∈ ℝ → (𝑘 ∈ ℕ → ((seq1( + , 𝐻)‘𝑘) + (vol‘(𝑥 ∖ ∪ ran 𝐹))) ≤ (vol*‘𝑥)))))
127	120, 126	vtoclg 3502	. . . . . . . . . . 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 262	. . . . . . . 8 ⊢ (𝜑 → ((-∞ < (vol‘∪ ran 𝐹) ∧ (vol‘∪ ran 𝐹) < +∞) → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))))
131	72, 130	mpand 702	. . . . . . 7 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) < +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
132		nltpnft 13111	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) ∈ ℝ^ → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
133	17, 132	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ ↔ ¬ (vol‘∪ ran 𝐹) < +∞))
134		rexr 11186	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ → (𝑆‘𝑘) ∈ ℝ^*)
135		pnfge 13076	. . . . . . . . . . 11 ⊢ ((𝑆‘𝑘) ∈ ℝ^* → (𝑆‘𝑘) ≤ +∞)
136	108, 134, 135	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑆‘𝑘) ≤ +∞)
137	136	ex 414	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞))
138		breq2 5079	. . . . . . . . . 10 ⊢ ((vol‘∪ ran 𝐹) = +∞ → ((𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹) ↔ (𝑆‘𝑘) ≤ +∞))
139	138	imbi2d 342	. . . . . . . . 9 ⊢ ((vol‘∪ ran 𝐹) = +∞ → ((𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹)) ↔ (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ +∞)))
140	137, 139	syl5ibrcom 249	. . . . . . . 8 ⊢ (𝜑 → ((vol‘∪ ran 𝐹) = +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
141	133, 140	sylbird 262	. . . . . . 7 ⊢ (𝜑 → (¬ (vol‘∪ ran 𝐹) < +∞ → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol‘∪ ran 𝐹))))
142	131, 141	pm2.61d 180	. . . . . 6 ⊢ (𝜑 → (𝑘 ∈ ℕ → (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹)))
143	142	ralrimiv 3132	. . . . 5 ⊢ (𝜑 → ∀𝑘 ∈ ℕ (𝑆‘𝑘) ≤ (vol*‘∪ ran 𝐹))
144	34	ffnd 6660	. . . . . 6 ⊢ (𝜑 → 𝑆 Fn ℕ)
145		breq1 5078	. . . . . . 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 259	. . . 4 ⊢ (𝜑 → ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹))
149		supxrleub 13273	. . . . 5 ⊢ ((ran 𝑆 ⊆ ℝ^* ∧ (vol‘∪ ran 𝐹) ∈ ℝ^) → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
150	37, 17, 149	syl2anc 591	. . . 4 ⊢ (𝜑 → (sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹) ↔ ∀𝑧 ∈ ran 𝑆 𝑧 ≤ (vol*‘∪ ran 𝐹)))
151	148, 150	mpbird 259	. . 3 ⊢ (𝜑 → sup(ran 𝑆, ℝ^, < ) ≤ (vol‘∪ ran 𝐹))
152	17, 39, 63, 151	xrletrid 13101	. 2 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^, < ))
153	6, 152	eqtrd 2776	1 ⊢ (𝜑 → (vol‘∪ ran 𝐹) = sup(ran 𝑆, ℝ^*, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 397 ∧ w3a 1093 = wceq 1548 ∈ wcel 2121 ∀wral 3055 ∖ cdif 3882 ∩ cin 3884 ⊆ wss 3885 ∅c0 4264 𝒫 cpw 4532 ∪ cuni 4841 ∪ ciun 4924 Disj wdisj 5042 class class class wbr 5075 ↦ cmpt 5156 dom cdm 5621 ran crn 5622 Fn wfn 6484 ⟶wf 6485 ‘cfv 6489 (class class class)co 7360 supcsup 9347 ℝcr 11032 0cc0 11033 1c1 11034 + caddc 11036 +∞cpnf 11171 -∞cmnf 11172 ℝ^*cxr 11173 < clt 11174 ≤ cle 11175 ℕcn 12169 seqcseq 13958 vol*covol 25451 volcvol 25452

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1803 ax-4 1817 ax-5 1918 ax-6 1975 ax-7 2016 ax-8 2123 ax-9 2131 ax-10 2154 ax-11 2170 ax-12 2191 ax-ext 2713 ax-rep 5202 ax-sep 5221 ax-nul 5231 ax-pow 5297 ax-pr 5365 ax-un 7682 ax-inf2 9557 ax-cc 10352 ax-cnex 11089 ax-resscn 11090 ax-1cn 11091 ax-icn 11092 ax-addcl 11093 ax-addrcl 11094 ax-mulcl 11095 ax-mulrcl 11096 ax-mulcom 11097 ax-addass 11098 ax-mulass 11099 ax-distr 11100 ax-i2m1 11101 ax-1ne0 11102 ax-1rid 11103 ax-rnegex 11104 ax-rrecex 11105 ax-cnre 11106 ax-pre-lttri 11107 ax-pre-lttrn 11108 ax-pre-ltadd 11109 ax-pre-mulgt0 11110 ax-pre-sup 11111

This theorem depends on definitions: df-bi 209 df-an 398 df-or 855 df-3or 1094 df-3an 1095 df-tru 1551 df-fal 1561 df-ex 1788 df-nf 1792 df-sb 2075 df-mo 2545 df-eu 2575 df-clab 2720 df-cleq 2733 df-clel 2816 df-nfc 2890 df-ne 2937 df-nel 3041 df-ral 3056 df-rex 3066 df-rmo 3346 df-reu 3347 df-rab 3394 df-v 3435 df-sbc 3726 df-csb 3834 df-dif 3888 df-un 3890 df-in 3892 df-ss 3902 df-pss 3905 df-nul 4265 df-if 4458 df-pw 4534 df-sn 4559 df-pr 4561 df-op 4565 df-uni 4842 df-int 4881 df-iun 4926 df-disj 5043 df-br 5076 df-opab 5138 df-mpt 5157 df-tr 5183 df-id 5516 df-eprel 5521 df-po 5529 df-so 5530 df-fr 5574 df-se 5575 df-we 5576 df-xp 5627 df-rel 5628 df-cnv 5629 df-co 5630 df-dm 5631 df-rn 5632 df-res 5633 df-ima 5634 df-pred 6256 df-ord 6317 df-on 6318 df-lim 6319 df-suc 6320 df-iota 6445 df-fun 6491 df-fn 6492 df-f 6493 df-f1 6494 df-fo 6495 df-f1o 6496 df-fv 6497 df-isom 6498 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 9820 df-card 9858 df-pnf 11176 df-mnf 11177 df-xr 11178 df-ltxr 11179 df-le 11180 df-sub 11374 df-neg 11375 df-div 11803 df-nn 12170 df-2 12239 df-3 12240 df-n0 12433 df-z 12520 df-uz 12784 df-q 12894 df-rp 12938 df-xadd 13059 df-ioo 13297 df-ico 13299 df-icc 13300 df-fz 13457 df-fzo 13604 df-fl 13746 df-seq 13959 df-exp 14019 df-hash 14288 df-cj 15056 df-re 15057 df-im 15058 df-sqrt 15192 df-abs 15193 df-clim 15445 df-rlim 15446 df-sum 15644 df-xmet 21344 df-met 21345 df-ovol 25453 df-vol 25454

This theorem is referenced by: voliun 25543

W3C validator