MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  volsup2 Structured version   Visualization version   GIF version

Theorem volsup2 23889
Description: The volume of 𝐴 is the supremum of the sequence vol*‘(𝐴 ∩ (-𝑛[,]𝑛)) of volumes of bounded sets. (Contributed by Mario Carneiro, 30-Aug-2014.)
Assertion
Ref Expression
volsup2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ∃𝑛 ∈ ℕ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
Distinct variable groups:   𝐴,𝑛   𝐵,𝑛

Proof of Theorem volsup2
Dummy variables 𝑚 𝑥 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp3 1131 . . . . 5 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → 𝐵 < (vol‘𝐴))
2 rexr 10533 . . . . . . 7 (𝐵 ∈ ℝ → 𝐵 ∈ ℝ*)
323ad2ant2 1127 . . . . . 6 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → 𝐵 ∈ ℝ*)
4 iccssxr 12669 . . . . . . . 8 (0[,]+∞) ⊆ ℝ*
5 volf 23813 . . . . . . . . 9 vol:dom vol⟶(0[,]+∞)
65ffvelrni 6715 . . . . . . . 8 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ (0[,]+∞))
74, 6sseldi 3887 . . . . . . 7 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ ℝ*)
873ad2ant1 1126 . . . . . 6 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (vol‘𝐴) ∈ ℝ*)
9 xrltnle 10555 . . . . . 6 ((𝐵 ∈ ℝ* ∧ (vol‘𝐴) ∈ ℝ*) → (𝐵 < (vol‘𝐴) ↔ ¬ (vol‘𝐴) ≤ 𝐵))
103, 8, 9syl2anc 584 . . . . 5 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝐵 < (vol‘𝐴) ↔ ¬ (vol‘𝐴) ≤ 𝐵))
111, 10mpbid 233 . . . 4 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ¬ (vol‘𝐴) ≤ 𝐵)
12 negeq 10725 . . . . . . . . . . . . . 14 (𝑚 = 𝑛 → -𝑚 = -𝑛)
13 id 22 . . . . . . . . . . . . . 14 (𝑚 = 𝑛𝑚 = 𝑛)
1412, 13oveq12d 7034 . . . . . . . . . . . . 13 (𝑚 = 𝑛 → (-𝑚[,]𝑚) = (-𝑛[,]𝑛))
1514ineq2d 4109 . . . . . . . . . . . 12 (𝑚 = 𝑛 → (𝐴 ∩ (-𝑚[,]𝑚)) = (𝐴 ∩ (-𝑛[,]𝑛)))
16 eqid 2795 . . . . . . . . . . . 12 (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) = (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))
17 ovex 7048 . . . . . . . . . . . . 13 (-𝑛[,]𝑛) ∈ V
1817inex2 5113 . . . . . . . . . . . 12 (𝐴 ∩ (-𝑛[,]𝑛)) ∈ V
1915, 16, 18fvmpt 6635 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = (𝐴 ∩ (-𝑛[,]𝑛)))
2019iuneq2i 4845 . . . . . . . . . 10 𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = 𝑛 ∈ ℕ (𝐴 ∩ (-𝑛[,]𝑛))
21 iunin2 4892 . . . . . . . . . 10 𝑛 ∈ ℕ (𝐴 ∩ (-𝑛[,]𝑛)) = (𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛))
2220, 21eqtri 2819 . . . . . . . . 9 𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = (𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛))
23 simpl1 1184 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ dom vol)
24 nnre 11493 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
2524adantl 482 . . . . . . . . . . . . . . 15 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℝ)
2625renegcld 10915 . . . . . . . . . . . . . 14 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → -𝑛 ∈ ℝ)
27 iccmbl 23850 . . . . . . . . . . . . . 14 ((-𝑛 ∈ ℝ ∧ 𝑛 ∈ ℝ) → (-𝑛[,]𝑛) ∈ dom vol)
2826, 25, 27syl2anc 584 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (-𝑛[,]𝑛) ∈ dom vol)
29 inmbl 23826 . . . . . . . . . . . . 13 ((𝐴 ∈ dom vol ∧ (-𝑛[,]𝑛) ∈ dom vol) → (𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol)
3023, 28, 29syl2anc 584 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol)
3115cbvmptv 5061 . . . . . . . . . . . 12 (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) = (𝑛 ∈ ℕ ↦ (𝐴 ∩ (-𝑛[,]𝑛)))
3230, 31fmptd 6741 . . . . . . . . . . 11 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))):ℕ⟶dom vol)
3332ffnd 6383 . . . . . . . . . 10 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) Fn ℕ)
34 fniunfv 6871 . . . . . . . . . 10 ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) Fn ℕ → 𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))
3533, 34syl 17 . . . . . . . . 9 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → 𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))
36 mblss 23815 . . . . . . . . . . . . . . . 16 (𝐴 ∈ dom vol → 𝐴 ⊆ ℝ)
37363ad2ant1 1126 . . . . . . . . . . . . . . 15 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → 𝐴 ⊆ ℝ)
3837sselda 3889 . . . . . . . . . . . . . 14 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑥𝐴) → 𝑥 ∈ ℝ)
39 recn 10473 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
4039abscld 14630 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ℝ → (abs‘𝑥) ∈ ℝ)
41 arch 11742 . . . . . . . . . . . . . . . 16 ((abs‘𝑥) ∈ ℝ → ∃𝑛 ∈ ℕ (abs‘𝑥) < 𝑛)
4240, 41syl 17 . . . . . . . . . . . . . . 15 (𝑥 ∈ ℝ → ∃𝑛 ∈ ℕ (abs‘𝑥) < 𝑛)
43 ltle 10576 . . . . . . . . . . . . . . . . . 18 (((abs‘𝑥) ∈ ℝ ∧ 𝑛 ∈ ℝ) → ((abs‘𝑥) < 𝑛 → (abs‘𝑥) ≤ 𝑛))
4440, 24, 43syl2an 595 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → ((abs‘𝑥) < 𝑛 → (abs‘𝑥) ≤ 𝑛))
45 id 22 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛) → (𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛))
46453expib 1115 . . . . . . . . . . . . . . . . . . 19 (𝑥 ∈ ℝ → ((-𝑛𝑥𝑥𝑛) → (𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛)))
4746adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → ((-𝑛𝑥𝑥𝑛) → (𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛)))
48 absle 14509 . . . . . . . . . . . . . . . . . . 19 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℝ) → ((abs‘𝑥) ≤ 𝑛 ↔ (-𝑛𝑥𝑥𝑛)))
4924, 48sylan2 592 . . . . . . . . . . . . . . . . . 18 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → ((abs‘𝑥) ≤ 𝑛 ↔ (-𝑛𝑥𝑥𝑛)))
5024adantl 482 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℝ)
5150renegcld 10915 . . . . . . . . . . . . . . . . . . 19 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → -𝑛 ∈ ℝ)
52 elicc2 12651 . . . . . . . . . . . . . . . . . . 19 ((-𝑛 ∈ ℝ ∧ 𝑛 ∈ ℝ) → (𝑥 ∈ (-𝑛[,]𝑛) ↔ (𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛)))
5351, 50, 52syl2anc 584 . . . . . . . . . . . . . . . . . 18 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → (𝑥 ∈ (-𝑛[,]𝑛) ↔ (𝑥 ∈ ℝ ∧ -𝑛𝑥𝑥𝑛)))
5447, 49, 533imtr4d 295 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → ((abs‘𝑥) ≤ 𝑛𝑥 ∈ (-𝑛[,]𝑛)))
5544, 54syld 47 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → ((abs‘𝑥) < 𝑛𝑥 ∈ (-𝑛[,]𝑛)))
5655reximdva 3237 . . . . . . . . . . . . . . 15 (𝑥 ∈ ℝ → (∃𝑛 ∈ ℕ (abs‘𝑥) < 𝑛 → ∃𝑛 ∈ ℕ 𝑥 ∈ (-𝑛[,]𝑛)))
5742, 56mpd 15 . . . . . . . . . . . . . 14 (𝑥 ∈ ℝ → ∃𝑛 ∈ ℕ 𝑥 ∈ (-𝑛[,]𝑛))
5838, 57syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑥𝐴) → ∃𝑛 ∈ ℕ 𝑥 ∈ (-𝑛[,]𝑛))
5958ex 413 . . . . . . . . . . . 12 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝑥𝐴 → ∃𝑛 ∈ ℕ 𝑥 ∈ (-𝑛[,]𝑛)))
60 eliun 4829 . . . . . . . . . . . 12 (𝑥 𝑛 ∈ ℕ (-𝑛[,]𝑛) ↔ ∃𝑛 ∈ ℕ 𝑥 ∈ (-𝑛[,]𝑛))
6159, 60syl6ibr 253 . . . . . . . . . . 11 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝑥𝐴𝑥 𝑛 ∈ ℕ (-𝑛[,]𝑛)))
6261ssrdv 3895 . . . . . . . . . 10 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → 𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛))
63 df-ss 3874 . . . . . . . . . 10 (𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛) ↔ (𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛)) = 𝐴)
6462, 63sylib 219 . . . . . . . . 9 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (𝐴 𝑛 ∈ ℕ (-𝑛[,]𝑛)) = 𝐴)
6522, 35, 643eqtr3a 2855 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) = 𝐴)
6665fveq2d 6542 . . . . . . 7 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (vol‘ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) = (vol‘𝐴))
67 peano2re 10660 . . . . . . . . . . . . . 14 (𝑛 ∈ ℝ → (𝑛 + 1) ∈ ℝ)
6825, 67syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝑛 + 1) ∈ ℝ)
6968renegcld 10915 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → -(𝑛 + 1) ∈ ℝ)
7025lep1d 11419 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → 𝑛 ≤ (𝑛 + 1))
7125, 68lenegd 11067 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝑛 ≤ (𝑛 + 1) ↔ -(𝑛 + 1) ≤ -𝑛))
7270, 71mpbid 233 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → -(𝑛 + 1) ≤ -𝑛)
73 iccss 12654 . . . . . . . . . . . 12 (((-(𝑛 + 1) ∈ ℝ ∧ (𝑛 + 1) ∈ ℝ) ∧ (-(𝑛 + 1) ≤ -𝑛𝑛 ≤ (𝑛 + 1))) → (-𝑛[,]𝑛) ⊆ (-(𝑛 + 1)[,](𝑛 + 1)))
7469, 68, 72, 70, 73syl22anc 835 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (-𝑛[,]𝑛) ⊆ (-(𝑛 + 1)[,](𝑛 + 1)))
75 sslin 4131 . . . . . . . . . . 11 ((-𝑛[,]𝑛) ⊆ (-(𝑛 + 1)[,](𝑛 + 1)) → (𝐴 ∩ (-𝑛[,]𝑛)) ⊆ (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))))
7674, 75syl 17 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝐴 ∩ (-𝑛[,]𝑛)) ⊆ (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))))
7719adantl 482 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) = (𝐴 ∩ (-𝑛[,]𝑛)))
78 peano2nn 11498 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝑛 + 1) ∈ ℕ)
7978adantl 482 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝑛 + 1) ∈ ℕ)
80 negeq 10725 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 + 1) → -𝑚 = -(𝑛 + 1))
81 id 22 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 + 1) → 𝑚 = (𝑛 + 1))
8280, 81oveq12d 7034 . . . . . . . . . . . . 13 (𝑚 = (𝑛 + 1) → (-𝑚[,]𝑚) = (-(𝑛 + 1)[,](𝑛 + 1)))
8382ineq2d 4109 . . . . . . . . . . . 12 (𝑚 = (𝑛 + 1) → (𝐴 ∩ (-𝑚[,]𝑚)) = (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))))
84 ovex 7048 . . . . . . . . . . . . 13 (-(𝑛 + 1)[,](𝑛 + 1)) ∈ V
8584inex2 5113 . . . . . . . . . . . 12 (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))) ∈ V
8683, 16, 85fvmpt 6635 . . . . . . . . . . 11 ((𝑛 + 1) ∈ ℕ → ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘(𝑛 + 1)) = (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))))
8779, 86syl 17 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘(𝑛 + 1)) = (𝐴 ∩ (-(𝑛 + 1)[,](𝑛 + 1))))
8876, 77, 873sstr4d 3935 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) ⊆ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘(𝑛 + 1)))
8988ralrimiva 3149 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ∀𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) ⊆ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘(𝑛 + 1)))
90 volsup 23840 . . . . . . . 8 (((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))):ℕ⟶dom vol ∧ ∀𝑛 ∈ ℕ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) ⊆ ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘(𝑛 + 1))) → (vol‘ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) = sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ))
9132, 89, 90syl2anc 584 . . . . . . 7 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (vol‘ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) = sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ))
9266, 91eqtr3d 2833 . . . . . 6 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (vol‘𝐴) = sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ))
9392breq1d 4972 . . . . 5 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ((vol‘𝐴) ≤ 𝐵 ↔ sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ) ≤ 𝐵))
94 imassrn 5817 . . . . . . 7 (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) ⊆ ran vol
95 frn 6388 . . . . . . . . 9 (vol:dom vol⟶(0[,]+∞) → ran vol ⊆ (0[,]+∞))
965, 95ax-mp 5 . . . . . . . 8 ran vol ⊆ (0[,]+∞)
9796, 4sstri 3898 . . . . . . 7 ran vol ⊆ ℝ*
9894, 97sstri 3898 . . . . . 6 (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) ⊆ ℝ*
99 supxrleub 12569 . . . . . 6 (((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))) ⊆ ℝ*𝐵 ∈ ℝ*) → (sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ) ≤ 𝐵 ↔ ∀𝑛 ∈ (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))𝑛𝐵))
10098, 3, 99sylancr 587 . . . . 5 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (sup((vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))), ℝ*, < ) ≤ 𝐵 ↔ ∀𝑛 ∈ (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))𝑛𝐵))
101 ffn 6382 . . . . . . . 8 (vol:dom vol⟶(0[,]+∞) → vol Fn dom vol)
1025, 101ax-mp 5 . . . . . . 7 vol Fn dom vol
10332frnd 6389 . . . . . . 7 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) ⊆ dom vol)
104 breq1 4965 . . . . . . . 8 (𝑛 = (vol‘𝑧) → (𝑛𝐵 ↔ (vol‘𝑧) ≤ 𝐵))
105104ralima 6865 . . . . . . 7 ((vol Fn dom vol ∧ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) ⊆ dom vol) → (∀𝑛 ∈ (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))𝑛𝐵 ↔ ∀𝑧 ∈ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))(vol‘𝑧) ≤ 𝐵))
106102, 103, 105sylancr 587 . . . . . 6 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (∀𝑛 ∈ (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))𝑛𝐵 ↔ ∀𝑧 ∈ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))(vol‘𝑧) ≤ 𝐵))
107 fveq2 6538 . . . . . . . . . 10 (𝑧 = ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) → (vol‘𝑧) = (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)))
108107breq1d 4972 . . . . . . . . 9 (𝑧 = ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛) → ((vol‘𝑧) ≤ 𝐵 ↔ (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) ≤ 𝐵))
109108ralrn 6719 . . . . . . . 8 ((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))) Fn ℕ → (∀𝑧 ∈ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))(vol‘𝑧) ≤ 𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) ≤ 𝐵))
11033, 109syl 17 . . . . . . 7 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (∀𝑧 ∈ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))(vol‘𝑧) ≤ 𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) ≤ 𝐵))
11119fveq2d 6542 . . . . . . . . 9 (𝑛 ∈ ℕ → (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) = (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
112111breq1d 4972 . . . . . . . 8 (𝑛 ∈ ℕ → ((vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) ≤ 𝐵 ↔ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
113112ralbiia 3131 . . . . . . 7 (∀𝑛 ∈ ℕ (vol‘((𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))‘𝑛)) ≤ 𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵)
114110, 113syl6bb 288 . . . . . 6 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (∀𝑧 ∈ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚)))(vol‘𝑧) ≤ 𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
115106, 114bitrd 280 . . . . 5 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (∀𝑛 ∈ (vol “ ran (𝑚 ∈ ℕ ↦ (𝐴 ∩ (-𝑚[,]𝑚))))𝑛𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
11693, 100, 1153bitrd 306 . . . 4 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ((vol‘𝐴) ≤ 𝐵 ↔ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
11711, 116mtbid 325 . . 3 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ¬ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵)
118 rexnal 3202 . . 3 (∃𝑛 ∈ ℕ ¬ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵 ↔ ¬ ∀𝑛 ∈ ℕ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵)
119117, 118sylibr 235 . 2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ∃𝑛 ∈ ℕ ¬ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵)
1203adantr 481 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ℝ*)
1215ffvelrni 6715 . . . . . 6 ((𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ (0[,]+∞))
1224, 121sseldi 3887 . . . . 5 ((𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ ℝ*)
12330, 122syl 17 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ ℝ*)
124 xrltnle 10555 . . . 4 ((𝐵 ∈ ℝ* ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ ℝ*) → (𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ↔ ¬ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
125120, 123, 124syl2anc 584 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) ∧ 𝑛 ∈ ℕ) → (𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ↔ ¬ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
126125rexbidva 3259 . 2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → (∃𝑛 ∈ ℕ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ↔ ∃𝑛 ∈ ℕ ¬ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ≤ 𝐵))
127119, 126mpbird 258 1 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ∃𝑛 ∈ ℕ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1080   = wceq 1522  wcel 2081  wral 3105  wrex 3106  cin 3858  wss 3859   cuni 4745   ciun 4825   class class class wbr 4962  cmpt 5041  dom cdm 5443  ran crn 5444  cima 5446   Fn wfn 6220  wf 6221  cfv 6225  (class class class)co 7016  supcsup 8750  cr 10382  0cc0 10383  1c1 10384   + caddc 10386  +∞cpnf 10518  *cxr 10520   < clt 10521  cle 10522  -cneg 10718  cn 11486  [,]cicc 12591  abscabs 14427  volcvol 23747
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-inf2 8950  ax-cc 9703  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460  ax-pre-sup 10461
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-uni 4746  df-int 4783  df-iun 4827  df-disj 4931  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-se 5403  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-isom 6234  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-of 7267  df-om 7437  df-1st 7545  df-2nd 7546  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-2o 7954  df-oadd 7957  df-er 8139  df-map 8258  df-pm 8259  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-sup 8752  df-inf 8753  df-oi 8820  df-dju 9176  df-card 9214  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-div 11146  df-nn 11487  df-2 11548  df-3 11549  df-n0 11746  df-z 11830  df-uz 12094  df-q 12198  df-rp 12240  df-xadd 12358  df-ioo 12592  df-ico 12594  df-icc 12595  df-fz 12743  df-fzo 12884  df-fl 13012  df-seq 13220  df-exp 13280  df-hash 13541  df-cj 14292  df-re 14293  df-im 14294  df-sqrt 14428  df-abs 14429  df-clim 14679  df-rlim 14680  df-sum 14877  df-xmet 20220  df-met 20221  df-ovol 23748  df-vol 23749
This theorem is referenced by:  volivth  23891
  Copyright terms: Public domain W3C validator