Metamath Proof Explorer


Theorem ovoliun2

Description: The Lebesgue outer measure function is countably sub-additive. (This version is a little easier to read, but does not allow infinite values like ovoliun .) (Contributed by Mario Carneiro, 12-Jun-2014)

Ref Expression
Hypotheses ovoliun.t ⊢ T = seq 1 + G
ovoliun.g ⊢ G = n ∈ ℕ ⟼ vol * ⁡ A
ovoliun.a ⊢ φ ∧ n ∈ ℕ → A ⊆ ℝ
ovoliun.v ⊢ φ ∧ n ∈ ℕ → vol * ⁡ A ∈ ℝ
ovoliun2.t ⊢ φ → T ∈ dom ⁡ ⇝
Assertion ovoliun2 ⊢ φ → vol * ⁡ ⋃ n ∈ ℕ A ≤ ∑ n ∈ ℕ vol * ⁡ A

Proof

Step Hyp Ref Expression
1 ovoliun.t ⊢ T = seq 1 + G
2 ovoliun.g ⊢ G = n ∈ ℕ ⟼ vol * ⁡ A
3 ovoliun.a ⊢ φ ∧ n ∈ ℕ → A ⊆ ℝ
4 ovoliun.v ⊢ φ ∧ n ∈ ℕ → vol * ⁡ A ∈ ℝ
5 ovoliun2.t ⊢ φ → T ∈ dom ⁡ ⇝
6 1 2 3 4 ovoliun ⊢ φ → vol * ⁡ ⋃ n ∈ ℕ A ≤ sup ran ⁡ T ℝ * <
7 nnuz ⊢ ℕ = ℤ ≥ 1
8 1zzd ⊢ φ → 1 ∈ ℤ
9 fvex ⊢ vol * ⁡ ⦋ m / n⦌ A ∈ V
10 nfcv ⊢ Ⅎ _ m vol * ⁡ A
11 nfcv ⊢ Ⅎ _ n vol *
12 nfcsb1v ⊢ Ⅎ _ n ⦋ m / n⦌ A
13 11 12 nffv ⊢ Ⅎ _ n vol * ⁡ ⦋ m / n⦌ A
14 csbeq1a ⊢ n = m → A = ⦋ m / n⦌ A
15 14 fveq2d ⊢ n = m → vol * ⁡ A = vol * ⁡ ⦋ m / n⦌ A
16 10 13 15 cbvmpt ⊢ n ∈ ℕ ⟼ vol * ⁡ A = m ∈ ℕ ⟼ vol * ⁡ ⦋ m / n⦌ A
17 2 16 eqtri ⊢ G = m ∈ ℕ ⟼ vol * ⁡ ⦋ m / n⦌ A
18 17 fvmpt2 ⊢ m ∈ ℕ ∧ vol * ⁡ ⦋ m / n⦌ A ∈ V → G ⁡ m = vol * ⁡ ⦋ m / n⦌ A
19 9 18 mpan2 ⊢ m ∈ ℕ → G ⁡ m = vol * ⁡ ⦋ m / n⦌ A
20 19 adantl ⊢ φ ∧ m ∈ ℕ → G ⁡ m = vol * ⁡ ⦋ m / n⦌ A
21 4 ralrimiva ⊢ φ → ∀ n ∈ ℕ vol * ⁡ A ∈ ℝ
22 10 nfel1 ⊢ Ⅎ m vol * ⁡ A ∈ ℝ
23 13 nfel1 ⊢ Ⅎ n vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
24 15 eleq1d ⊢ n = m → vol * ⁡ A ∈ ℝ ↔ vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
25 22 23 24 cbvralw ⊢ ∀ n ∈ ℕ vol * ⁡ A ∈ ℝ ↔ ∀ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
26 21 25 sylib ⊢ φ → ∀ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
27 26 r19.21bi ⊢ φ ∧ m ∈ ℕ → vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
28 20 27 eqeltrd ⊢ φ ∧ m ∈ ℕ → G ⁡ m ∈ ℝ
29 7 8 28 serfre ⊢ φ → seq 1 + G : ℕ ⟶ ℝ
30 1 feq1i ⊢ T : ℕ ⟶ ℝ ↔ seq 1 + G : ℕ ⟶ ℝ
31 29 30 sylibr ⊢ φ → T : ℕ ⟶ ℝ
32 31 frnd ⊢ φ → ran ⁡ T ⊆ ℝ
33 1nn ⊢ 1 ∈ ℕ
34 31 fdmd ⊢ φ → dom ⁡ T = ℕ
35 33 34 eleqtrrid ⊢ φ → 1 ∈ dom ⁡ T
36 35 ne0d ⊢ φ → dom ⁡ T ≠ ∅
37 dm0rn0 ⊢ dom ⁡ T = ∅ ↔ ran ⁡ T = ∅
38 37 necon3bii ⊢ dom ⁡ T ≠ ∅ ↔ ran ⁡ T ≠ ∅
39 36 38 sylib ⊢ φ → ran ⁡ T ≠ ∅
40 1 5 eqeltrrid ⊢ φ → seq 1 + G ∈ dom ⁡ ⇝
41 7 8 20 27 40 isumrecl ⊢ φ → ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
42 elfznn ⊢ m ∈ 1 … k → m ∈ ℕ
43 42 adantl ⊢ φ ∧ k ∈ ℕ ∧ m ∈ 1 … k → m ∈ ℕ
44 43 19 syl ⊢ φ ∧ k ∈ ℕ ∧ m ∈ 1 … k → G ⁡ m = vol * ⁡ ⦋ m / n⦌ A
45 simpr ⊢ φ ∧ k ∈ ℕ → k ∈ ℕ
46 45 7 eleqtrdi ⊢ φ ∧ k ∈ ℕ → k ∈ ℤ ≥ 1
47 simpl ⊢ φ ∧ k ∈ ℕ → φ
48 47 42 27 syl2an ⊢ φ ∧ k ∈ ℕ ∧ m ∈ 1 … k → vol * ⁡ ⦋ m / n⦌ A ∈ ℝ
49 48 recnd ⊢ φ ∧ k ∈ ℕ ∧ m ∈ 1 … k → vol * ⁡ ⦋ m / n⦌ A ∈ ℂ
50 44 46 49 fsumser ⊢ φ ∧ k ∈ ℕ → ∑ m = 1 k vol * ⁡ ⦋ m / n⦌ A = seq 1 + G ⁡ k
51 1 fveq1i ⊢ T ⁡ k = seq 1 + G ⁡ k
52 50 51 eqtr4di ⊢ φ ∧ k ∈ ℕ → ∑ m = 1 k vol * ⁡ ⦋ m / n⦌ A = T ⁡ k
53 fzfid ⊢ φ → 1 … k ∈ Fin
54 fz1ssnn ⊢ 1 … k ⊆ ℕ
55 54 a1i ⊢ φ → 1 … k ⊆ ℕ
56 3 ralrimiva ⊢ φ → ∀ n ∈ ℕ A ⊆ ℝ
57 nfv ⊢ Ⅎ m A ⊆ ℝ
58 nfcv ⊢ Ⅎ _ n ℝ
59 12 58 nfss ⊢ Ⅎ n ⦋ m / n⦌ A ⊆ ℝ
60 14 sseq1d ⊢ n = m → A ⊆ ℝ ↔ ⦋ m / n⦌ A ⊆ ℝ
61 57 59 60 cbvralw ⊢ ∀ n ∈ ℕ A ⊆ ℝ ↔ ∀ m ∈ ℕ ⦋ m / n⦌ A ⊆ ℝ
62 56 61 sylib ⊢ φ → ∀ m ∈ ℕ ⦋ m / n⦌ A ⊆ ℝ
63 62 r19.21bi ⊢ φ ∧ m ∈ ℕ → ⦋ m / n⦌ A ⊆ ℝ
64 ovolge0 ⊢ ⦋ m / n⦌ A ⊆ ℝ → 0 ≤ vol * ⁡ ⦋ m / n⦌ A
65 63 64 syl ⊢ φ ∧ m ∈ ℕ → 0 ≤ vol * ⁡ ⦋ m / n⦌ A
66 7 8 53 55 20 27 65 40 isumless ⊢ φ → ∑ m = 1 k vol * ⁡ ⦋ m / n⦌ A ≤ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
67 66 adantr ⊢ φ ∧ k ∈ ℕ → ∑ m = 1 k vol * ⁡ ⦋ m / n⦌ A ≤ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
68 52 67 eqbrtrrd ⊢ φ ∧ k ∈ ℕ → T ⁡ k ≤ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
69 68 ralrimiva ⊢ φ → ∀ k ∈ ℕ T ⁡ k ≤ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
70 brralrspcev ⊢ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A ∈ ℝ ∧ ∀ k ∈ ℕ T ⁡ k ≤ ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A → ∃ x ∈ ℝ ∀ k ∈ ℕ T ⁡ k ≤ x
71 41 69 70 syl2anc ⊢ φ → ∃ x ∈ ℝ ∀ k ∈ ℕ T ⁡ k ≤ x
72 31 ffnd ⊢ φ → T Fn ℕ
73 breq1 ⊢ z = T ⁡ k → z ≤ x ↔ T ⁡ k ≤ x
74 73 ralrn ⊢ T Fn ℕ → ∀ z ∈ ran ⁡ T z ≤ x ↔ ∀ k ∈ ℕ T ⁡ k ≤ x
75 72 74 syl ⊢ φ → ∀ z ∈ ran ⁡ T z ≤ x ↔ ∀ k ∈ ℕ T ⁡ k ≤ x
76 75 rexbidv ⊢ φ → ∃ x ∈ ℝ ∀ z ∈ ran ⁡ T z ≤ x ↔ ∃ x ∈ ℝ ∀ k ∈ ℕ T ⁡ k ≤ x
77 71 76 mpbird ⊢ φ → ∃ x ∈ ℝ ∀ z ∈ ran ⁡ T z ≤ x
78 supxrre ⊢ ran ⁡ T ⊆ ℝ ∧ ran ⁡ T ≠ ∅ ∧ ∃ x ∈ ℝ ∀ z ∈ ran ⁡ T z ≤ x → sup ran ⁡ T ℝ * < = sup ran ⁡ T ℝ <
79 32 39 77 78 syl3anc ⊢ φ → sup ran ⁡ T ℝ * < = sup ran ⁡ T ℝ <
80 7 1 8 20 27 65 71 isumsup ⊢ φ → ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A = sup ran ⁡ T ℝ <
81 79 80 eqtr4d ⊢ φ → sup ran ⁡ T ℝ * < = ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
82 15 10 13 cbvsum ⊢ ∑ n ∈ ℕ vol * ⁡ A = ∑ m ∈ ℕ vol * ⁡ ⦋ m / n⦌ A
83 81 82 eqtr4di ⊢ φ → sup ran ⁡ T ℝ * < = ∑ n ∈ ℕ vol * ⁡ A
84 6 83 breqtrd ⊢ φ → vol * ⁡ ⋃ n ∈ ℕ A ≤ ∑ n ∈ ℕ vol * ⁡ A