Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  voliune Structured version   Visualization version   GIF version

Theorem voliune 31488
Description: The Lebesgue measure function is countably additive. This formulation on the extended reals, allows for +∞ for the measure of any set in the sum. Cf. ovoliun 24105 and voliun 24154. (Contributed by Thierry Arnoux, 16-Oct-2017.)
Assertion
Ref Expression
voliune ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))

Proof of Theorem voliune
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 r19.26 3170 . . . . 5 (∀𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ) ↔ (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ))
2 eqid 2821 . . . . . 6 seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴)))
3 eqid 2821 . . . . . 6 (𝑛 ∈ ℕ ↦ (vol‘𝐴)) = (𝑛 ∈ ℕ ↦ (vol‘𝐴))
42, 3voliun 24154 . . . . 5 ((∀𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ) ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
51, 4sylanbr 584 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
65an32s 650 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
7 nfra1 3219 . . . . . . 7 𝑛𝑛 ∈ ℕ 𝐴 ∈ dom vol
8 nfra1 3219 . . . . . . 7 𝑛𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ
97, 8nfan 1896 . . . . . 6 𝑛(∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
10 simpr 487 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ)
11 rspa 3206 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ dom vol)
12 volf 24129 . . . . . . . . . . . 12 vol:dom vol⟶(0[,]+∞)
1312ffvelrni 6849 . . . . . . . . . . 11 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ (0[,]+∞))
1411, 13syl 17 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
153fvmpt2 6778 . . . . . . . . . 10 ((𝑛 ∈ ℕ ∧ (vol‘𝐴) ∈ (0[,]+∞)) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1610, 14, 15syl2anc 586 . . . . . . . . 9 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1716adantlr 713 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1817ex 415 . . . . . . 7 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴)))
199, 18ralrimi 3216 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → ∀𝑛 ∈ ℕ ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
209, 19esumeq2d 31296 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
21 simpr 487 . . . . . . . . 9 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
2221r19.21bi 3208 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ ℝ)
2314adantlr 713 . . . . . . . . 9 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
24 0xr 10687 . . . . . . . . . . 11 0 ∈ ℝ*
25 pnfxr 10694 . . . . . . . . . . 11 +∞ ∈ ℝ*
26 elicc1 12781 . . . . . . . . . . 11 ((0 ∈ ℝ* ∧ +∞ ∈ ℝ*) → ((vol‘𝐴) ∈ (0[,]+∞) ↔ ((vol‘𝐴) ∈ ℝ* ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) ≤ +∞)))
2724, 25, 26mp2an 690 . . . . . . . . . 10 ((vol‘𝐴) ∈ (0[,]+∞) ↔ ((vol‘𝐴) ∈ ℝ* ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) ≤ +∞))
2827simp2bi 1142 . . . . . . . . 9 ((vol‘𝐴) ∈ (0[,]+∞) → 0 ≤ (vol‘𝐴))
2923, 28syl 17 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → 0 ≤ (vol‘𝐴))
30 ltpnf 12514 . . . . . . . . 9 ((vol‘𝐴) ∈ ℝ → (vol‘𝐴) < +∞)
3122, 30syl 17 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) < +∞)
32 0re 10642 . . . . . . . . 9 0 ∈ ℝ
33 elico2 12799 . . . . . . . . 9 ((0 ∈ ℝ ∧ +∞ ∈ ℝ*) → ((vol‘𝐴) ∈ (0[,)+∞) ↔ ((vol‘𝐴) ∈ ℝ ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) < +∞)))
3432, 25, 33mp2an 690 . . . . . . . 8 ((vol‘𝐴) ∈ (0[,)+∞) ↔ ((vol‘𝐴) ∈ ℝ ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) < +∞))
3522, 29, 31, 34syl3anbrc 1339 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,)+∞))
369, 35, 3fmptdf 6880 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (𝑛 ∈ ℕ ↦ (vol‘𝐴)):ℕ⟶(0[,)+∞))
37 nfmpt1 5163 . . . . . . 7 𝑛(𝑛 ∈ ℕ ↦ (vol‘𝐴))
3837esumfsupre 31330 . . . . . 6 ((𝑛 ∈ ℕ ↦ (vol‘𝐴)):ℕ⟶(0[,)+∞) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
3936, 38syl 17 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
4020, 39eqtr3d 2858 . . . 4 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
4140adantlr 713 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
426, 41eqtr4d 2859 . 2 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
43 simpr 487 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
44 nfv 1911 . . . . . . . . 9 𝑘(vol‘𝐴) = +∞
45 nfcv 2977 . . . . . . . . . . 11 𝑛vol
46 nfcsb1v 3906 . . . . . . . . . . 11 𝑛𝑘 / 𝑛𝐴
4745, 46nffv 6679 . . . . . . . . . 10 𝑛(vol‘𝑘 / 𝑛𝐴)
4847nfeq1 2993 . . . . . . . . 9 𝑛(vol‘𝑘 / 𝑛𝐴) = +∞
49 csbeq1a 3896 . . . . . . . . . 10 (𝑛 = 𝑘𝐴 = 𝑘 / 𝑛𝐴)
5049fveqeq2d 6677 . . . . . . . . 9 (𝑛 = 𝑘 → ((vol‘𝐴) = +∞ ↔ (vol‘𝑘 / 𝑛𝐴) = +∞))
5144, 48, 50cbvrexw 3442 . . . . . . . 8 (∃𝑛 ∈ ℕ (vol‘𝐴) = +∞ ↔ ∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞)
5243, 51sylib 220 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞)
5346nfel1 2994 . . . . . . . . . . . . 13 𝑛𝑘 / 𝑛𝐴 ∈ dom vol
5449eleq1d 2897 . . . . . . . . . . . . 13 (𝑛 = 𝑘 → (𝐴 ∈ dom vol ↔ 𝑘 / 𝑛𝐴 ∈ dom vol))
5553, 54rspc 3610 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → 𝑘 / 𝑛𝐴 ∈ dom vol))
5655impcom 410 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑘 / 𝑛𝐴 ∈ dom vol)
57 iunmbl 24153 . . . . . . . . . . . 12 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → 𝑛 ∈ ℕ 𝐴 ∈ dom vol)
5857adantr 483 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑛 ∈ ℕ 𝐴 ∈ dom vol)
59 nfcv 2977 . . . . . . . . . . . . 13 𝑛
60 nfcv 2977 . . . . . . . . . . . . 13 𝑛𝑘
6159, 60, 46, 49ssiun2sf 30310 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴)
6261adantl 484 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴)
63 volss 24133 . . . . . . . . . . 11 ((𝑘 / 𝑛𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6456, 58, 62, 63syl3anc 1367 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6564adantlr 713 . . . . . . . . 9 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6665adantlr 713 . . . . . . . 8 ((((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6766ralrimiva 3182 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∀𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
68 r19.29r 3255 . . . . . . 7 ((∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞ ∧ ∀𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → ∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
6952, 67, 68syl2anc 586 . . . . . 6 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
70 breq1 5068 . . . . . . . 8 ((vol‘𝑘 / 𝑛𝐴) = +∞ → ((vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
7170biimpa 479 . . . . . . 7 (((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7271reximi 3243 . . . . . 6 (∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7369, 72syl 17 . . . . 5 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
74 1nn 11648 . . . . . 6 1 ∈ ℕ
75 ne0i 4299 . . . . . 6 (1 ∈ ℕ → ℕ ≠ ∅)
76 r19.9rzv 4444 . . . . . 6 (ℕ ≠ ∅ → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
7774, 75, 76mp2b 10 . . . . 5 (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7873, 77sylibr 236 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
79 iccssxr 12818 . . . . . . . 8 (0[,]+∞) ⊆ ℝ*
8012ffvelrni 6849 . . . . . . . 8 ( 𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ (0[,]+∞))
8179, 80sseldi 3964 . . . . . . 7 ( 𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
8257, 81syl 17 . . . . . 6 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
8382ad2antrr 724 . . . . 5 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
84 xgepnf 12557 . . . . 5 ((vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ* → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞))
8583, 84syl 17 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞))
8678, 85mpbid 234 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞)
87 nfdisj1 5044 . . . . . 6 𝑛Disj 𝑛 ∈ ℕ 𝐴
887, 87nfan 1896 . . . . 5 𝑛(∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴)
89 nfre1 3306 . . . . 5 𝑛𝑛 ∈ ℕ (vol‘𝐴) = +∞
9088, 89nfan 1896 . . . 4 𝑛((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
91 nnex 11643 . . . . 5 ℕ ∈ V
9291a1i 11 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ℕ ∈ V)
93143ad2antr3 1186 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ (Disj 𝑛 ∈ ℕ 𝐴 ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞ ∧ 𝑛 ∈ ℕ)) → (vol‘𝐴) ∈ (0[,]+∞))
94933anassrs 1356 . . . 4 ((((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
9590, 92, 94, 43esumpinfval 31332 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = +∞)
9686, 95eqtr4d 2859 . 2 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
97 exmid 891 . . . . 5 (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
98 rexnal 3238 . . . . . 6 (∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ ↔ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
9998orbi2i 909 . . . . 5 ((∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) ↔ (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ))
10097, 99mpbir 233 . . . 4 (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ)
101 r19.29 3254 . . . . . . 7 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ))
102 xrge0nre 12840 . . . . . . . . 9 (((vol‘𝐴) ∈ (0[,]+∞) ∧ ¬ (vol‘𝐴) ∈ ℝ) → (vol‘𝐴) = +∞)
10313, 102sylan 582 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ) → (vol‘𝐴) = +∞)
104103reximi 3243 . . . . . . 7 (∃𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
105101, 104syl 17 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
106105ex 415 . . . . 5 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
107106orim2d 963 . . . 4 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → ((∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)))
108100, 107mpi 20 . . 3 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
109108adantr 483 . 2 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
11042, 96, 109mpjaodan 955 1 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  wo 843  w3a 1083   = wceq 1533  wcel 2110  wne 3016  wral 3138  wrex 3139  Vcvv 3494  csb 3882  wss 3935  c0 4290   ciun 4918  Disj wdisj 5030   class class class wbr 5065  cmpt 5145  dom cdm 5554  ran crn 5555  wf 6350  cfv 6354  (class class class)co 7155  supcsup 8903  cr 10535  0cc0 10536  1c1 10537   + caddc 10539  +∞cpnf 10671  *cxr 10673   < clt 10674  cle 10675  cn 11637  [,)cico 12739  [,]cicc 12740  seqcseq 13368  volcvol 24063  Σ*cesum 31286
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-rep 5189  ax-sep 5202  ax-nul 5209  ax-pow 5265  ax-pr 5329  ax-un 7460  ax-inf2 9103  ax-cc 9856  ax-cnex 10592  ax-resscn 10593  ax-1cn 10594  ax-icn 10595  ax-addcl 10596  ax-addrcl 10597  ax-mulcl 10598  ax-mulrcl 10599  ax-mulcom 10600  ax-addass 10601  ax-mulass 10602  ax-distr 10603  ax-i2m1 10604  ax-1ne0 10605  ax-1rid 10606  ax-rnegex 10607  ax-rrecex 10608  ax-cnre 10609  ax-pre-lttri 10610  ax-pre-lttrn 10611  ax-pre-ltadd 10612  ax-pre-mulgt0 10613  ax-pre-sup 10614  ax-addf 10615  ax-mulf 10616
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-fal 1546  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4567  df-pr 4569  df-tp 4571  df-op 4573  df-uni 4838  df-int 4876  df-iun 4920  df-iin 4921  df-disj 5031  df-br 5066  df-opab 5128  df-mpt 5146  df-tr 5172  df-id 5459  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-se 5514  df-we 5515  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-pred 6147  df-ord 6193  df-on 6194  df-lim 6195  df-suc 6196  df-iota 6313  df-fun 6356  df-fn 6357  df-f 6358  df-f1 6359  df-fo 6360  df-f1o 6361  df-fv 6362  df-isom 6363  df-riota 7113  df-ov 7158  df-oprab 7159  df-mpo 7160  df-of 7408  df-om 7580  df-1st 7688  df-2nd 7689  df-supp 7830  df-wrecs 7946  df-recs 8007  df-rdg 8045  df-1o 8101  df-2o 8102  df-oadd 8105  df-er 8288  df-map 8407  df-pm 8408  df-ixp 8461  df-en 8509  df-dom 8510  df-sdom 8511  df-fin 8512  df-fsupp 8833  df-fi 8874  df-sup 8905  df-inf 8906  df-oi 8973  df-dju 9329  df-card 9367  df-pnf 10676  df-mnf 10677  df-xr 10678  df-ltxr 10679  df-le 10680  df-sub 10871  df-neg 10872  df-div 11297  df-nn 11638  df-2 11699  df-3 11700  df-4 11701  df-5 11702  df-6 11703  df-7 11704  df-8 11705  df-9 11706  df-n0 11897  df-xnn0 11967  df-z 11981  df-dec 12098  df-uz 12243  df-q 12348  df-rp 12389  df-xneg 12506  df-xadd 12507  df-xmul 12508  df-ioo 12741  df-ioc 12742  df-ico 12743  df-icc 12744  df-fz 12892  df-fzo 13033  df-fl 13161  df-mod 13237  df-seq 13369  df-exp 13429  df-fac 13633  df-bc 13662  df-hash 13690  df-shft 14425  df-cj 14457  df-re 14458  df-im 14459  df-sqrt 14593  df-abs 14594  df-limsup 14827  df-clim 14844  df-rlim 14845  df-sum 15042  df-ef 15420  df-sin 15422  df-cos 15423  df-pi 15425  df-struct 16484  df-ndx 16485  df-slot 16486  df-base 16488  df-sets 16489  df-ress 16490  df-plusg 16577  df-mulr 16578  df-starv 16579  df-sca 16580  df-vsca 16581  df-ip 16582  df-tset 16583  df-ple 16584  df-ds 16586  df-unif 16587  df-hom 16588  df-cco 16589  df-rest 16695  df-topn 16696  df-0g 16714  df-gsum 16715  df-topgen 16716  df-pt 16717  df-prds 16720  df-ordt 16773  df-xrs 16774  df-qtop 16779  df-imas 16780  df-xps 16782  df-mre 16856  df-mrc 16857  df-acs 16859  df-ps 17809  df-tsr 17810  df-plusf 17850  df-mgm 17851  df-sgrp 17900  df-mnd 17911  df-mhm 17955  df-submnd 17956  df-grp 18105  df-minusg 18106  df-sbg 18107  df-mulg 18224  df-subg 18275  df-cntz 18446  df-cmn 18907  df-abl 18908  df-mgp 19239  df-ur 19251  df-ring 19298  df-cring 19299  df-subrg 19532  df-abv 19587  df-lmod 19635  df-scaf 19636  df-sra 19943  df-rgmod 19944  df-psmet 20536  df-xmet 20537  df-met 20538  df-bl 20539  df-mopn 20540  df-fbas 20541  df-fg 20542  df-cnfld 20545  df-top 21501  df-topon 21518  df-topsp 21540  df-bases 21553  df-cld 21626  df-ntr 21627  df-cls 21628  df-nei 21705  df-lp 21743  df-perf 21744  df-cn 21834  df-cnp 21835  df-haus 21922  df-tx 22169  df-hmeo 22362  df-fil 22453  df-fm 22545  df-flim 22546  df-flf 22547  df-tmd 22679  df-tgp 22680  df-tsms 22734  df-trg 22767  df-xms 22929  df-ms 22930  df-tms 22931  df-nm 23191  df-ngp 23192  df-nrg 23194  df-nlm 23195  df-ii 23484  df-cncf 23485  df-ovol 24064  df-vol 24065  df-limc 24463  df-dv 24464  df-log 25139  df-esum 31287
This theorem is referenced by:  volmeas  31490
  Copyright terms: Public domain W3C validator