Theorem ovoliun 25554

Description: The Lebesgue outer measure function is countably sub-additive. (Many books allow +∞ as a value for one of the sets in the sum, but in our setup we can't do arithmetic on infinity, and in any case the volume of a union containing an infinitely large set is already infinitely large by monotonicity ovolss 25534, so we need not consider this case here, although we do allow the sum itself to be infinite.) (Contributed by Mario Carneiro, 12-Jun-2014.)

Hypotheses

Ref	Expression
ovoliun.t	⊢ 𝑇 = seq1( + , 𝐺)
ovoliun.g	⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘𝐴))
ovoliun.a	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ⊆ ℝ)
ovoliun.v	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘𝐴) ∈ ℝ)

Assertion

Ref	Expression
ovoliun	⊢ (𝜑 → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ))

Distinct variable group:   𝜑,𝑛

Allowed substitution hints:   𝐴(𝑛)   𝑇(𝑛)   𝐺(𝑛)

Proof of Theorem ovoliun

Dummy variables 𝑘 𝑚 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mnfxr 11232	. . . . . 6 ⊢ -∞ ∈ ℝ*
2	1	a1i 11	. . . . 5 ⊢ (𝜑 → -∞ ∈ ℝ*)
3		nnuz 12871	. . . . . . . . 9 ⊢ ℕ = (ℤ≥‘1)
4		1zzd 12595	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℤ)
5		ovoliun.v	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (vol*‘𝐴) ∈ ℝ)
6		ovoliun.g	. . . . . . . . . . 11 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (vol*‘𝐴))
7	5, 6	fmptd 7089	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺:ℕ⟶ℝ)
8	7	ffvelcdmda 7059	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
9	3, 4, 8	serfre 14037	. . . . . . . 8 ⊢ (𝜑 → seq1( + , 𝐺):ℕ⟶ℝ)
10		ovoliun.t	. . . . . . . . 9 ⊢ 𝑇 = seq1( + , 𝐺)
11	10	feq1i 6676	. . . . . . . 8 ⊢ (𝑇:ℕ⟶ℝ ↔ seq1( + , 𝐺):ℕ⟶ℝ)
12	9, 11	sylibr 236	. . . . . . 7 ⊢ (𝜑 → 𝑇:ℕ⟶ℝ)
13		1nn 12214	. . . . . . 7 ⊢ 1 ∈ ℕ
14		ffvelcdm 7056	. . . . . . 7 ⊢ ((𝑇:ℕ⟶ℝ ∧ 1 ∈ ℕ) → (𝑇‘1) ∈ ℝ)
15	12, 13, 14	sylancl 595	. . . . . 6 ⊢ (𝜑 → (𝑇‘1) ∈ ℝ)
16	15	rexrd 11225	. . . . 5 ⊢ (𝜑 → (𝑇‘1) ∈ ℝ*)
17	12	frnd 6694	. . . . . . 7 ⊢ (𝜑 → ran 𝑇 ⊆ ℝ)
18		ressxr 11219	. . . . . . 7 ⊢ ℝ ⊆ ℝ*
19	17, 18	sstrdi 3946	. . . . . 6 ⊢ (𝜑 → ran 𝑇 ⊆ ℝ*)
20		supxrcl 13311	. . . . . 6 ⊢ (ran 𝑇 ⊆ ℝ* → sup(ran 𝑇, ℝ*, < ) ∈ ℝ*)
21	19, 20	syl 17	. . . . 5 ⊢ (𝜑 → sup(ran 𝑇, ℝ*, < ) ∈ ℝ*)
22	15	mnfltd 13119	. . . . 5 ⊢ (𝜑 → -∞ < (𝑇‘1))
23	12	ffnd 6686	. . . . . . 7 ⊢ (𝜑 → 𝑇 Fn ℕ)
24		fnfvelrn 7055	. . . . . . 7 ⊢ ((𝑇 Fn ℕ ∧ 1 ∈ ℕ) → (𝑇‘1) ∈ ran 𝑇)
25	23, 13, 24	sylancl 595	. . . . . 6 ⊢ (𝜑 → (𝑇‘1) ∈ ran 𝑇)
26		supxrub 13320	. . . . . 6 ⊢ ((ran 𝑇 ⊆ ℝ* ∧ (𝑇‘1) ∈ ran 𝑇) → (𝑇‘1) ≤ sup(ran 𝑇, ℝ*, < ))
27	19, 25, 26	syl2anc 593	. . . . 5 ⊢ (𝜑 → (𝑇‘1) ≤ sup(ran 𝑇, ℝ*, < ))
28	2, 16, 21, 22, 27	xrltletrd 13156	. . . 4 ⊢ (𝜑 → -∞ < sup(ran 𝑇, ℝ*, < ))
29		xrrebnd 13164	. . . . 5 ⊢ (sup(ran 𝑇, ℝ*, < ) ∈ ℝ* → (sup(ran 𝑇, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(ran 𝑇, ℝ*, < ) ∧ sup(ran 𝑇, ℝ*, < ) < +∞)))
30	21, 29	syl 17	. . . 4 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(ran 𝑇, ℝ*, < ) ∧ sup(ran 𝑇, ℝ*, < ) < +∞)))
31	28, 30	mpbirand 717	. . 3 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) ∈ ℝ ↔ sup(ran 𝑇, ℝ*, < ) < +∞))
32		nfcv 2923	. . . . . . . . 9 ⊢ Ⅎ𝑚𝐴
33		nfcsb1v 3874	. . . . . . . . 9 ⊢ Ⅎ𝑛⦋𝑚 / 𝑛⦌𝐴
34		csbeq1a 3864	. . . . . . . . 9 ⊢ (𝑛 = 𝑚 → 𝐴 = ⦋𝑚 / 𝑛⦌𝐴)
35	32, 33, 34	cbviun 4989	. . . . . . . 8 ⊢ ∪ 𝑛 ∈ ℕ 𝐴 = ∪ 𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴
36	35	fveq2i 6864	. . . . . . 7 ⊢ (vol*‘∪ 𝑛 ∈ ℕ 𝐴) = (vol*‘∪ 𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴)
37		nfcv 2923	. . . . . . . . . 10 ⊢ Ⅎ𝑚(vol*‘𝐴)
38		nfcv 2923	. . . . . . . . . . 11 ⊢ Ⅎ𝑛vol*
39	38, 33	nffv 6871	. . . . . . . . . 10 ⊢ Ⅎ𝑛(vol*‘⦋𝑚 / 𝑛⦌𝐴)
40	34	fveq2d 6865	. . . . . . . . . 10 ⊢ (𝑛 = 𝑚 → (vol*‘𝐴) = (vol*‘⦋𝑚 / 𝑛⦌𝐴))
41	37, 39, 40	cbvmpt 5199	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ (vol*‘𝐴)) = (𝑚 ∈ ℕ ↦ (vol*‘⦋𝑚 / 𝑛⦌𝐴))
42	6, 41	eqtri 2784	. . . . . . . 8 ⊢ 𝐺 = (𝑚 ∈ ℕ ↦ (vol*‘⦋𝑚 / 𝑛⦌𝐴))
43		ovoliun.a	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ⊆ ℝ)
44	43	ralrimiva 3153	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑛 ∈ ℕ 𝐴 ⊆ ℝ)
45		nfv 1933	. . . . . . . . . . . 12 ⊢ Ⅎ𝑚 𝐴 ⊆ ℝ
46		nfcv 2923	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛ℝ
47	33, 46	nfss 3927	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ
48	34	sseq1d 3965	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑚 → (𝐴 ⊆ ℝ ↔ ⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ))
49	45, 47, 48	cbvralw 3303	. . . . . . . . . . 11 ⊢ (∀𝑛 ∈ ℕ 𝐴 ⊆ ℝ ↔ ∀𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ)
50	44, 49	sylib 220	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ)
51	50	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → ∀𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ)
52	51	r19.21bi 3253	. . . . . . . 8 ⊢ ((((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ 𝑚 ∈ ℕ) → ⦋𝑚 / 𝑛⦌𝐴 ⊆ ℝ)
53	5	ralrimiva 3153	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (vol*‘𝐴) ∈ ℝ)
54	37	nfel1 2939	. . . . . . . . . . . 12 ⊢ Ⅎ𝑚(vol*‘𝐴) ∈ ℝ
55	39	nfel1 2939	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛(vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ
56	40	eleq1d 2846	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑚 → ((vol*‘𝐴) ∈ ℝ ↔ (vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ))
57	54, 55, 56	cbvralw 3303	. . . . . . . . . . 11 ⊢ (∀𝑛 ∈ ℕ (vol*‘𝐴) ∈ ℝ ↔ ∀𝑚 ∈ ℕ (vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ)
58	53, 57	sylib 220	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑚 ∈ ℕ (vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ)
59	58	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → ∀𝑚 ∈ ℕ (vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ)
60	59	r19.21bi 3253	. . . . . . . 8 ⊢ ((((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ 𝑚 ∈ ℕ) → (vol*‘⦋𝑚 / 𝑛⦌𝐴) ∈ ℝ)
61		simplr 778	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → sup(ran 𝑇, ℝ*, < ) ∈ ℝ)
62		simpr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → 𝑥 ∈ ℝ+)
63	10, 42, 52, 60, 61, 62	ovoliunlem3 25553	. . . . . . 7 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → (vol*‘∪ 𝑚 ∈ ℕ ⦋𝑚 / 𝑛⦌𝐴) ≤ (sup(ran 𝑇, ℝ*, < ) + 𝑥))
64	36, 63	eqbrtrid 5132	. . . . . 6 ⊢ (((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ (sup(ran 𝑇, ℝ*, < ) + 𝑥))
65	64	ralrimiva 3153	. . . . 5 ⊢ ((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) → ∀𝑥 ∈ ℝ+ (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ (sup(ran 𝑇, ℝ*, < ) + 𝑥))
66		iunss 4999	. . . . . . . 8 ⊢ (∪ 𝑛 ∈ ℕ 𝐴 ⊆ ℝ ↔ ∀𝑛 ∈ ℕ 𝐴 ⊆ ℝ)
67	44, 66	sylibr 236	. . . . . . 7 ⊢ (𝜑 → ∪ 𝑛 ∈ ℕ 𝐴 ⊆ ℝ)
68		ovolcl 25527	. . . . . . 7 ⊢ (∪ 𝑛 ∈ ℕ 𝐴 ⊆ ℝ → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
69	67, 68	syl 17	. . . . . 6 ⊢ (𝜑 → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
70		xralrple 13201	. . . . . 6 ⊢ (((vol*‘∪ 𝑛 ∈ ℕ 𝐴) ∈ ℝ* ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) → ((vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ) ↔ ∀𝑥 ∈ ℝ+ (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ (sup(ran 𝑇, ℝ*, < ) + 𝑥)))
71	69, 70	sylan 589	. . . . 5 ⊢ ((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) → ((vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ) ↔ ∀𝑥 ∈ ℝ+ (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ (sup(ran 𝑇, ℝ*, < ) + 𝑥)))
72	65, 71	mpbird 259	. . . 4 ⊢ ((𝜑 ∧ sup(ran 𝑇, ℝ*, < ) ∈ ℝ) → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ))
73	72	ex 416	. . 3 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) ∈ ℝ → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < )))
74	31, 73	sylbird 262	. 2 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) < +∞ → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < )))
75		nltpnft 13160	. . . 4 ⊢ (sup(ran 𝑇, ℝ*, < ) ∈ ℝ* → (sup(ran 𝑇, ℝ*, < ) = +∞ ↔ ¬ sup(ran 𝑇, ℝ*, < ) < +∞))
76	21, 75	syl 17	. . 3 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) = +∞ ↔ ¬ sup(ran 𝑇, ℝ*, < ) < +∞))
77		pnfge 13125	. . . . 5 ⊢ ((vol*‘∪ 𝑛 ∈ ℕ 𝐴) ∈ ℝ* → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ +∞)
78	69, 77	syl 17	. . . 4 ⊢ (𝜑 → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ +∞)
79		breq2 5101	. . . 4 ⊢ (sup(ran 𝑇, ℝ*, < ) = +∞ → ((vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ) ↔ (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ +∞))
80	78, 79	syl5ibrcom 249	. . 3 ⊢ (𝜑 → (sup(ran 𝑇, ℝ*, < ) = +∞ → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < )))
81	76, 80	sylbird 262	. 2 ⊢ (𝜑 → (¬ sup(ran 𝑇, ℝ*, < ) < +∞ → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < )))
82	74, 81	pm2.61d 180	1 ⊢ (𝜑 → (vol*‘∪ 𝑛 ∈ ℕ 𝐴) ≤ sup(ran 𝑇, ℝ*, < ))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1559   ∈ wcel 2141  ∀wral 3075  ⦋csb 3850   ⊆ wss 3902  ∪ ciun 4946   class class class wbr 5097   ↦ cmpt 5178  ran crn 5644   Fn wfn 6510  ⟶wf 6511  ‘cfv 6515  (class class class)co 7390  supcsup 9379  ℝcr 11065  1c1 11067   + caddc 11069  +∞cpnf 11206  -∞cmnf 11207  ℝ^*cxr 11208   < clt 11209   ≤ cle 11210  ℕcn 12203  ℝ⁺crp 12986  seqcseq 14007  vol*covol 25511

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7712  ax-inf2 9589  ax-cc 10385  ax-cnex 11122  ax-resscn 11123  ax-1cn 11124  ax-icn 11125  ax-addcl 11126  ax-addrcl 11127  ax-mulcl 11128  ax-mulrcl 11129  ax-mulcom 11130  ax-addass 11131  ax-mulass 11132  ax-distr 11133  ax-i2m1 11134  ax-1ne0 11135  ax-1rid 11136  ax-rnegex 11137  ax-rrecex 11138  ax-cnre 11139  ax-pre-lttri 11140  ax-pre-lttrn 11141  ax-pre-ltadd 11142  ax-pre-mulgt0 11143  ax-pre-sup 11144

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-int 4903  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-se 5597  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6282  df-ord 6343  df-on 6344  df-lim 6345  df-suc 6346  df-iota 6471  df-fun 6517  df-fn 6518  df-f 6519  df-f1 6520  df-fo 6521  df-f1o 6522  df-fv 6523  df-isom 6524  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7841  df-1st 7964  df-2nd 7965  df-frecs 8255  df-wrecs 8286  df-recs 8335  df-rdg 8374  df-1o 8430  df-er 8671  df-map 8803  df-pm 8804  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-sup 9381  df-inf 9382  df-oi 9451  df-card 9890  df-pnf 11211  df-mnf 11212  df-xr 11213  df-ltxr 11214  df-le 11215  df-sub 11409  df-neg 11410  df-div 11838  df-nn 12204  df-2 12273  df-3 12274  df-n0 12475  df-z 12562  df-uz 12833  df-q 12943  df-rp 12987  df-ioo 13346  df-ico 13348  df-fz 13506  df-fzo 13653  df-fl 13795  df-seq 14008  df-exp 14068  df-hash 14337  df-cj 15116  df-re 15117  df-im 15118  df-sqrt 15252  df-abs 15253  df-clim 15505  df-rlim 15506  df-sum 15704  df-ovol 25513

This theorem is referenced by:  ovoliun2  25555  voliunlem2  25600  voliunlem3  25601  ex-ovoliunnfl  38122