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 34379
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 25450 and voliun 25499. (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 3098 . . . . 5 (∀𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ) ↔ (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ))
2 eqid 2737 . . . . . 6 seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))) = seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴)))
3 eqid 2737 . . . . . 6 (𝑛 ∈ ℕ ↦ (vol‘𝐴)) = (𝑛 ∈ ℕ ↦ (vol‘𝐴))
42, 3voliun 25499 . . . . 5 ((∀𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ) ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
51, 4sylanbr 583 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
65an32s 653 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (vol‘ 𝑛 ∈ ℕ 𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
7 nfra1 3262 . . . . . . 7 𝑛𝑛 ∈ ℕ 𝐴 ∈ dom vol
8 nfra1 3262 . . . . . . 7 𝑛𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ
97, 8nfan 1901 . . . . . 6 𝑛(∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
10 simpr 484 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ)
11 rspa 3227 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ dom vol)
12 volf 25474 . . . . . . . . . . . 12 vol:dom vol⟶(0[,]+∞)
1312ffvelcdmi 7027 . . . . . . . . . . 11 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ (0[,]+∞))
1411, 13syl 17 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
153fvmpt2 6951 . . . . . . . . . 10 ((𝑛 ∈ ℕ ∧ (vol‘𝐴) ∈ (0[,]+∞)) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1610, 14, 15syl2anc 585 . . . . . . . . 9 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1716adantlr 716 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
1817ex 412 . . . . . . 7 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴)))
199, 18ralrimi 3236 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → ∀𝑛 ∈ ℕ ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = (vol‘𝐴))
209, 19esumeq2d 34187 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
21 simpr 484 . . . . . . . . 9 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
2221r19.21bi 3230 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ ℝ)
2314adantlr 716 . . . . . . . . 9 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
24 0xr 11180 . . . . . . . . . . 11 0 ∈ ℝ*
25 pnfxr 11187 . . . . . . . . . . 11 +∞ ∈ ℝ*
26 elicc1 13306 . . . . . . . . . . 11 ((0 ∈ ℝ* ∧ +∞ ∈ ℝ*) → ((vol‘𝐴) ∈ (0[,]+∞) ↔ ((vol‘𝐴) ∈ ℝ* ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) ≤ +∞)))
2724, 25, 26mp2an 693 . . . . . . . . . 10 ((vol‘𝐴) ∈ (0[,]+∞) ↔ ((vol‘𝐴) ∈ ℝ* ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) ≤ +∞))
2827simp2bi 1147 . . . . . . . . 9 ((vol‘𝐴) ∈ (0[,]+∞) → 0 ≤ (vol‘𝐴))
2923, 28syl 17 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → 0 ≤ (vol‘𝐴))
30 ltpnf 13035 . . . . . . . . 9 ((vol‘𝐴) ∈ ℝ → (vol‘𝐴) < +∞)
3122, 30syl 17 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) < +∞)
32 0re 11135 . . . . . . . . 9 0 ∈ ℝ
33 elico2 13327 . . . . . . . . 9 ((0 ∈ ℝ ∧ +∞ ∈ ℝ*) → ((vol‘𝐴) ∈ (0[,)+∞) ↔ ((vol‘𝐴) ∈ ℝ ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) < +∞)))
3432, 25, 33mp2an 693 . . . . . . . 8 ((vol‘𝐴) ∈ (0[,)+∞) ↔ ((vol‘𝐴) ∈ ℝ ∧ 0 ≤ (vol‘𝐴) ∧ (vol‘𝐴) < +∞))
3522, 29, 31, 34syl3anbrc 1345 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,)+∞))
369, 35, 3fmptdf 7061 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (𝑛 ∈ ℕ ↦ (vol‘𝐴)):ℕ⟶(0[,)+∞))
37 nfmpt1 5185 . . . . . . 7 𝑛(𝑛 ∈ ℕ ↦ (vol‘𝐴))
3837esumfsupre 34221 . . . . . 6 ((𝑛 ∈ ℕ ↦ (vol‘𝐴)):ℕ⟶(0[,)+∞) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
3936, 38syl 17 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ((𝑛 ∈ ℕ ↦ (vol‘𝐴))‘𝑛) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
4020, 39eqtr3d 2774 . . . 4 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
4140adantlr 716 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = sup(ran seq1( + , (𝑛 ∈ ℕ ↦ (vol‘𝐴))), ℝ*, < ))
426, 41eqtr4d 2775 . 2 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
43 simpr 484 . . . . . . . 8 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
44 nfv 1916 . . . . . . . . 9 𝑘(vol‘𝐴) = +∞
45 nfcv 2899 . . . . . . . . . . 11 𝑛vol
46 nfcsb1v 3862 . . . . . . . . . . 11 𝑛𝑘 / 𝑛𝐴
4745, 46nffv 6842 . . . . . . . . . 10 𝑛(vol‘𝑘 / 𝑛𝐴)
4847nfeq1 2915 . . . . . . . . 9 𝑛(vol‘𝑘 / 𝑛𝐴) = +∞
49 csbeq1a 3852 . . . . . . . . . 10 (𝑛 = 𝑘𝐴 = 𝑘 / 𝑛𝐴)
5049fveqeq2d 6840 . . . . . . . . 9 (𝑛 = 𝑘 → ((vol‘𝐴) = +∞ ↔ (vol‘𝑘 / 𝑛𝐴) = +∞))
5144, 48, 50cbvrexw 3281 . . . . . . . 8 (∃𝑛 ∈ ℕ (vol‘𝐴) = +∞ ↔ ∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞)
5243, 51sylib 218 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞)
5346nfel1 2916 . . . . . . . . . . . . 13 𝑛𝑘 / 𝑛𝐴 ∈ dom vol
5449eleq1d 2822 . . . . . . . . . . . . 13 (𝑛 = 𝑘 → (𝐴 ∈ dom vol ↔ 𝑘 / 𝑛𝐴 ∈ dom vol))
5553, 54rspc 3553 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → 𝑘 / 𝑛𝐴 ∈ dom vol))
5655impcom 407 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑘 / 𝑛𝐴 ∈ dom vol)
57 iunmbl 25498 . . . . . . . . . . . 12 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → 𝑛 ∈ ℕ 𝐴 ∈ dom vol)
5857adantr 480 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑛 ∈ ℕ 𝐴 ∈ dom vol)
59 nfcv 2899 . . . . . . . . . . . . 13 𝑛
60 nfcv 2899 . . . . . . . . . . . . 13 𝑛𝑘
6159, 60, 46, 49ssiun2sf 32618 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴)
6261adantl 481 . . . . . . . . . . 11 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴)
63 volss 25478 . . . . . . . . . . 11 ((𝑘 / 𝑛𝐴 ∈ dom vol ∧ 𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 / 𝑛𝐴 𝑛 ∈ ℕ 𝐴) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6456, 58, 62, 63syl3anc 1374 . . . . . . . . . 10 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6564adantlr 716 . . . . . . . . 9 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6665adantlr 716 . . . . . . . 8 ((((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) ∧ 𝑘 ∈ ℕ) → (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
6766ralrimiva 3130 . . . . . . 7 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∀𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
68 r19.29r 3102 . . . . . . 7 ((∃𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) = +∞ ∧ ∀𝑘 ∈ ℕ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → ∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
6952, 67, 68syl2anc 585 . . . . . 6 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
70 breq1 5089 . . . . . . . 8 ((vol‘𝑘 / 𝑛𝐴) = +∞ → ((vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
7170biimpa 476 . . . . . . 7 (((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7271reximi 3076 . . . . . 6 (∃𝑘 ∈ ℕ ((vol‘𝑘 / 𝑛𝐴) = +∞ ∧ (vol‘𝑘 / 𝑛𝐴) ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)) → ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7369, 72syl 17 . . . . 5 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
74 1nn 12157 . . . . . 6 1 ∈ ℕ
75 ne0i 4282 . . . . . 6 (1 ∈ ℕ → ℕ ≠ ∅)
76 r19.9rzv 4446 . . . . . 6 (ℕ ≠ ∅ → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴)))
7774, 75, 76mp2b 10 . . . . 5 (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ ∃𝑘 ∈ ℕ +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
7873, 77sylibr 234 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → +∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴))
79 iccssxr 13347 . . . . . . . 8 (0[,]+∞) ⊆ ℝ*
8012ffvelcdmi 7027 . . . . . . . 8 ( 𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ (0[,]+∞))
8179, 80sselid 3920 . . . . . . 7 ( 𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
8257, 81syl 17 . . . . . 6 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
8382ad2antrr 727 . . . . 5 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ*)
84 xgepnf 13081 . . . . 5 ((vol‘ 𝑛 ∈ ℕ 𝐴) ∈ ℝ* → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞))
8583, 84syl 17 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (+∞ ≤ (vol‘ 𝑛 ∈ ℕ 𝐴) ↔ (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞))
8678, 85mpbid 232 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) = +∞)
87 nfdisj1 5067 . . . . . 6 𝑛Disj 𝑛 ∈ ℕ 𝐴
887, 87nfan 1901 . . . . 5 𝑛(∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴)
89 nfre1 3263 . . . . 5 𝑛𝑛 ∈ ℕ (vol‘𝐴) = +∞
9088, 89nfan 1901 . . . 4 𝑛((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
91 nnex 12152 . . . . 5 ℕ ∈ V
9291a1i 11 . . . 4 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → ℕ ∈ V)
93143ad2antr3 1192 . . . . 5 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ (Disj 𝑛 ∈ ℕ 𝐴 ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞ ∧ 𝑛 ∈ ℕ)) → (vol‘𝐴) ∈ (0[,]+∞))
94933anassrs 1362 . . . 4 ((((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) ∧ 𝑛 ∈ ℕ) → (vol‘𝐴) ∈ (0[,]+∞))
9590, 92, 94, 43esumpinfval 34223 . . 3 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → Σ*𝑛 ∈ ℕ(vol‘𝐴) = +∞)
9686, 95eqtr4d 2775 . 2 (((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) ∧ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
97 exmid 895 . . . . 5 (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
98 rexnal 3090 . . . . . 6 (∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ ↔ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ)
9998orbi2i 913 . . . . 5 ((∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) ↔ (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ¬ ∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ))
10097, 99mpbir 231 . . . 4 (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ)
101 r19.29 3101 . . . . . . 7 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ))
102 xrge0nre 13370 . . . . . . . . 9 (((vol‘𝐴) ∈ (0[,]+∞) ∧ ¬ (vol‘𝐴) ∈ ℝ) → (vol‘𝐴) = +∞)
10313, 102sylan 581 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ) → (vol‘𝐴) = +∞)
104103reximi 3076 . . . . . . 7 (∃𝑛 ∈ ℕ (𝐴 ∈ dom vol ∧ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
105101, 104syl 17 . . . . . 6 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)
106105ex 412 . . . . 5 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ → ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
107106orim2d 969 . . . 4 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → ((∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ ¬ (vol‘𝐴) ∈ ℝ) → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞)))
108100, 107mpi 20 . . 3 (∀𝑛 ∈ ℕ 𝐴 ∈ dom vol → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
109108adantr 480 . 2 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) → (∀𝑛 ∈ ℕ (vol‘𝐴) ∈ ℝ ∨ ∃𝑛 ∈ ℕ (vol‘𝐴) = +∞))
11042, 96, 109mpjaodan 961 1 ((∀𝑛 ∈ ℕ 𝐴 ∈ dom vol ∧ Disj 𝑛 ∈ ℕ 𝐴) → (vol‘ 𝑛 ∈ ℕ 𝐴) = Σ*𝑛 ∈ ℕ(vol‘𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wral 3052  wrex 3062  Vcvv 3430  csb 3838  wss 3890  c0 4274   ciun 4934  Disj wdisj 5053   class class class wbr 5086  cmpt 5167  dom cdm 5622  ran crn 5623  wf 6486  cfv 6490  (class class class)co 7358  supcsup 9344  cr 11026  0cc0 11027  1c1 11028   + caddc 11030  +∞cpnf 11164  *cxr 11166   < clt 11167  cle 11168  cn 12146  [,)cico 13264  [,]cicc 13265  seqcseq 13925  volcvol 25408  Σ*cesum 34177
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-inf2 9551  ax-cc 10346  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-pre-sup 11105  ax-addf 11106  ax-mulf 11107
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-disj 5054  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8102  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-2o 8397  df-oadd 8400  df-er 8634  df-map 8766  df-pm 8767  df-ixp 8837  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-fsupp 9266  df-fi 9315  df-sup 9346  df-inf 9347  df-oi 9416  df-dju 9814  df-card 9852  df-pnf 11169  df-mnf 11170  df-xr 11171  df-ltxr 11172  df-le 11173  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-xnn0 12476  df-z 12490  df-dec 12609  df-uz 12753  df-q 12863  df-rp 12907  df-xneg 13027  df-xadd 13028  df-xmul 13029  df-ioo 13266  df-ioc 13267  df-ico 13268  df-icc 13269  df-fz 13425  df-fzo 13572  df-fl 13713  df-mod 13791  df-seq 13926  df-exp 13986  df-fac 14198  df-bc 14227  df-hash 14255  df-shft 14991  df-cj 15023  df-re 15024  df-im 15025  df-sqrt 15159  df-abs 15160  df-limsup 15395  df-clim 15412  df-rlim 15413  df-sum 15611  df-ef 15991  df-sin 15993  df-cos 15994  df-pi 15996  df-struct 17075  df-sets 17092  df-slot 17110  df-ndx 17122  df-base 17138  df-ress 17159  df-plusg 17191  df-mulr 17192  df-starv 17193  df-sca 17194  df-vsca 17195  df-ip 17196  df-tset 17197  df-ple 17198  df-ds 17200  df-unif 17201  df-hom 17202  df-cco 17203  df-rest 17343  df-topn 17344  df-0g 17362  df-gsum 17363  df-topgen 17364  df-pt 17365  df-prds 17368  df-ordt 17423  df-xrs 17424  df-qtop 17429  df-imas 17430  df-xps 17432  df-mre 17506  df-mrc 17507  df-acs 17509  df-ps 18490  df-tsr 18491  df-plusf 18565  df-mgm 18566  df-sgrp 18645  df-mnd 18661  df-mhm 18709  df-submnd 18710  df-grp 18870  df-minusg 18871  df-sbg 18872  df-mulg 19002  df-subg 19057  df-cntz 19250  df-cmn 19715  df-abl 19716  df-mgp 20080  df-rng 20092  df-ur 20121  df-ring 20174  df-cring 20175  df-subrng 20481  df-subrg 20505  df-abv 20744  df-lmod 20815  df-scaf 20816  df-sra 21127  df-rgmod 21128  df-psmet 21303  df-xmet 21304  df-met 21305  df-bl 21306  df-mopn 21307  df-fbas 21308  df-fg 21309  df-cnfld 21312  df-top 22837  df-topon 22854  df-topsp 22876  df-bases 22889  df-cld 22962  df-ntr 22963  df-cls 22964  df-nei 23041  df-lp 23079  df-perf 23080  df-cn 23170  df-cnp 23171  df-haus 23258  df-tx 23505  df-hmeo 23698  df-fil 23789  df-fm 23881  df-flim 23882  df-flf 23883  df-tmd 24015  df-tgp 24016  df-tsms 24070  df-trg 24103  df-xms 24263  df-ms 24264  df-tms 24265  df-nm 24525  df-ngp 24526  df-nrg 24528  df-nlm 24529  df-ii 24822  df-cncf 24823  df-ovol 25409  df-vol 25410  df-limc 25811  df-dv 25812  df-log 26505  df-esum 34178
This theorem is referenced by:  volmeas  34381
  Copyright terms: Public domain W3C validator