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

Theorem vitalilem4 24204
Description: Lemma for vitali 24206. (Contributed by Mario Carneiro, 16-Jun-2014.)
Hypotheses
Ref Expression
vitali.1 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (0[,]1) ∧ 𝑦 ∈ (0[,]1)) ∧ (𝑥𝑦) ∈ ℚ)}
vitali.2 𝑆 = ((0[,]1) / )
vitali.3 (𝜑𝐹 Fn 𝑆)
vitali.4 (𝜑 → ∀𝑧𝑆 (𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧))
vitali.5 (𝜑𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)))
vitali.6 𝑇 = (𝑛 ∈ ℕ ↦ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹})
vitali.7 (𝜑 → ¬ ran 𝐹 ∈ (𝒫 ℝ ∖ dom vol))
Assertion
Ref Expression
vitalilem4 ((𝜑𝑚 ∈ ℕ) → (vol*‘(𝑇𝑚)) = 0)
Distinct variable groups:   𝑚,𝑛,𝑠,𝑥,𝑦,𝑧,𝐺   𝜑,𝑚,𝑛,𝑥,𝑧   𝑧,𝑆   𝑇,𝑚,𝑥   𝑚,𝐹,𝑛,𝑠,𝑥,𝑦,𝑧   ,𝑚,𝑛,𝑠,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑦,𝑠)   𝑆(𝑥,𝑦,𝑚,𝑛,𝑠)   𝑇(𝑦,𝑧,𝑛,𝑠)

Proof of Theorem vitalilem4
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6663 . . . . . . . . 9 (𝑛 = 𝑚 → (𝐺𝑛) = (𝐺𝑚))
21oveq2d 7164 . . . . . . . 8 (𝑛 = 𝑚 → (𝑠 − (𝐺𝑛)) = (𝑠 − (𝐺𝑚)))
32eleq1d 2895 . . . . . . 7 (𝑛 = 𝑚 → ((𝑠 − (𝐺𝑛)) ∈ ran 𝐹 ↔ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹))
43rabbidv 3479 . . . . . 6 (𝑛 = 𝑚 → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹} = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
5 vitali.6 . . . . . 6 𝑇 = (𝑛 ∈ ℕ ↦ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹})
6 reex 10620 . . . . . . 7 ℝ ∈ V
76rabex 5226 . . . . . 6 {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹} ∈ V
84, 5, 7fvmpt 6761 . . . . 5 (𝑚 ∈ ℕ → (𝑇𝑚) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
98adantl 484 . . . 4 ((𝜑𝑚 ∈ ℕ) → (𝑇𝑚) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
109fveq2d 6667 . . 3 ((𝜑𝑚 ∈ ℕ) → (vol*‘(𝑇𝑚)) = (vol*‘{𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹}))
11 vitali.1 . . . . . . . 8 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (0[,]1) ∧ 𝑦 ∈ (0[,]1)) ∧ (𝑥𝑦) ∈ ℚ)}
12 vitali.2 . . . . . . . 8 𝑆 = ((0[,]1) / )
13 vitali.3 . . . . . . . 8 (𝜑𝐹 Fn 𝑆)
14 vitali.4 . . . . . . . 8 (𝜑 → ∀𝑧𝑆 (𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧))
15 vitali.5 . . . . . . . 8 (𝜑𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)))
16 vitali.7 . . . . . . . 8 (𝜑 → ¬ ran 𝐹 ∈ (𝒫 ℝ ∖ dom vol))
1711, 12, 13, 14, 15, 5, 16vitalilem2 24202 . . . . . . 7 (𝜑 → (ran 𝐹 ⊆ (0[,]1) ∧ (0[,]1) ⊆ 𝑚 ∈ ℕ (𝑇𝑚) ∧ 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2)))
1817simp1d 1137 . . . . . 6 (𝜑 → ran 𝐹 ⊆ (0[,]1))
19 unitssre 12877 . . . . . 6 (0[,]1) ⊆ ℝ
2018, 19sstrdi 3977 . . . . 5 (𝜑 → ran 𝐹 ⊆ ℝ)
2120adantr 483 . . . 4 ((𝜑𝑚 ∈ ℕ) → ran 𝐹 ⊆ ℝ)
22 neg1rr 11744 . . . . . 6 -1 ∈ ℝ
23 1re 10633 . . . . . 6 1 ∈ ℝ
24 iccssre 12810 . . . . . 6 ((-1 ∈ ℝ ∧ 1 ∈ ℝ) → (-1[,]1) ⊆ ℝ)
2522, 23, 24mp2an 690 . . . . 5 (-1[,]1) ⊆ ℝ
26 f1of 6608 . . . . . . . 8 (𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)) → 𝐺:ℕ⟶(ℚ ∩ (-1[,]1)))
2715, 26syl 17 . . . . . . 7 (𝜑𝐺:ℕ⟶(ℚ ∩ (-1[,]1)))
2827ffvelrnda 6844 . . . . . 6 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ (ℚ ∩ (-1[,]1)))
2928elin2d 4174 . . . . 5 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ (-1[,]1))
3025, 29sseldi 3963 . . . 4 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ ℝ)
31 eqidd 2820 . . . 4 ((𝜑𝑚 ∈ ℕ) → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹} = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
3221, 30, 31ovolshft 24104 . . 3 ((𝜑𝑚 ∈ ℕ) → (vol*‘ran 𝐹) = (vol*‘{𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹}))
3310, 32eqtr4d 2857 . 2 ((𝜑𝑚 ∈ ℕ) → (vol*‘(𝑇𝑚)) = (vol*‘ran 𝐹))
34 3re 11709 . . . . . . . 8 3 ∈ ℝ
3534rexri 10691 . . . . . . 7 3 ∈ ℝ*
3635a1i 11 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 3 ∈ ℝ*)
37 3rp 12387 . . . . . . . . . . . . 13 3 ∈ ℝ+
38 0re 10635 . . . . . . . . . . . . . . . . . . . 20 0 ∈ ℝ
39 0le1 11155 . . . . . . . . . . . . . . . . . . . 20 0 ≤ 1
40 ovolicc 24116 . . . . . . . . . . . . . . . . . . . 20 ((0 ∈ ℝ ∧ 1 ∈ ℝ ∧ 0 ≤ 1) → (vol*‘(0[,]1)) = (1 − 0))
4138, 23, 39, 40mp3an 1455 . . . . . . . . . . . . . . . . . . 19 (vol*‘(0[,]1)) = (1 − 0)
42 1m0e1 11750 . . . . . . . . . . . . . . . . . . 19 (1 − 0) = 1
4341, 42eqtri 2842 . . . . . . . . . . . . . . . . . 18 (vol*‘(0[,]1)) = 1
4443, 23eqeltri 2907 . . . . . . . . . . . . . . . . 17 (vol*‘(0[,]1)) ∈ ℝ
45 ovolsscl 24079 . . . . . . . . . . . . . . . . 17 ((ran 𝐹 ⊆ (0[,]1) ∧ (0[,]1) ⊆ ℝ ∧ (vol*‘(0[,]1)) ∈ ℝ) → (vol*‘ran 𝐹) ∈ ℝ)
4619, 44, 45mp3an23 1447 . . . . . . . . . . . . . . . 16 (ran 𝐹 ⊆ (0[,]1) → (vol*‘ran 𝐹) ∈ ℝ)
4718, 46syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (vol*‘ran 𝐹) ∈ ℝ)
4847adantr 483 . . . . . . . . . . . . . 14 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ran 𝐹) ∈ ℝ)
49 simpr 487 . . . . . . . . . . . . . 14 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 0 < (vol*‘ran 𝐹))
5048, 49elrpd 12420 . . . . . . . . . . . . 13 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ran 𝐹) ∈ ℝ+)
51 rpdivcl 12406 . . . . . . . . . . . . 13 ((3 ∈ ℝ+ ∧ (vol*‘ran 𝐹) ∈ ℝ+) → (3 / (vol*‘ran 𝐹)) ∈ ℝ+)
5237, 50, 51sylancr 589 . . . . . . . . . . . 12 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (3 / (vol*‘ran 𝐹)) ∈ ℝ+)
5352rpred 12423 . . . . . . . . . . 11 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (3 / (vol*‘ran 𝐹)) ∈ ℝ)
5452rpge0d 12427 . . . . . . . . . . 11 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 0 ≤ (3 / (vol*‘ran 𝐹)))
55 flge0nn0 13182 . . . . . . . . . . 11 (((3 / (vol*‘ran 𝐹)) ∈ ℝ ∧ 0 ≤ (3 / (vol*‘ran 𝐹))) → (⌊‘(3 / (vol*‘ran 𝐹))) ∈ ℕ0)
5653, 54, 55syl2anc 586 . . . . . . . . . 10 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (⌊‘(3 / (vol*‘ran 𝐹))) ∈ ℕ0)
57 nn0p1nn 11928 . . . . . . . . . 10 ((⌊‘(3 / (vol*‘ran 𝐹))) ∈ ℕ0 → ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ∈ ℕ)
5856, 57syl 17 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ∈ ℕ)
5958nnred 11645 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ∈ ℝ)
6059, 48remulcld 10663 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ∈ ℝ)
6160rexrd 10683 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ∈ ℝ*)
626elpw2 5239 . . . . . . . . . . . . . . . . . 18 (ran 𝐹 ∈ 𝒫 ℝ ↔ ran 𝐹 ⊆ ℝ)
6320, 62sylibr 236 . . . . . . . . . . . . . . . . 17 (𝜑 → ran 𝐹 ∈ 𝒫 ℝ)
6463anim1i 616 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ ran 𝐹 ∈ dom vol) → (ran 𝐹 ∈ 𝒫 ℝ ∧ ¬ ran 𝐹 ∈ dom vol))
65 eldif 3944 . . . . . . . . . . . . . . . 16 (ran 𝐹 ∈ (𝒫 ℝ ∖ dom vol) ↔ (ran 𝐹 ∈ 𝒫 ℝ ∧ ¬ ran 𝐹 ∈ dom vol))
6664, 65sylibr 236 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ ran 𝐹 ∈ dom vol) → ran 𝐹 ∈ (𝒫 ℝ ∖ dom vol))
6766ex 415 . . . . . . . . . . . . . 14 (𝜑 → (¬ ran 𝐹 ∈ dom vol → ran 𝐹 ∈ (𝒫 ℝ ∖ dom vol)))
6816, 67mt3d 150 . . . . . . . . . . . . 13 (𝜑 → ran 𝐹 ∈ dom vol)
69 inss1 4203 . . . . . . . . . . . . . . . 16 (ℚ ∩ (-1[,]1)) ⊆ ℚ
70 qssre 12350 . . . . . . . . . . . . . . . 16 ℚ ⊆ ℝ
7169, 70sstri 3974 . . . . . . . . . . . . . . 15 (ℚ ∩ (-1[,]1)) ⊆ ℝ
72 fss 6520 . . . . . . . . . . . . . . 15 ((𝐺:ℕ⟶(ℚ ∩ (-1[,]1)) ∧ (ℚ ∩ (-1[,]1)) ⊆ ℝ) → 𝐺:ℕ⟶ℝ)
7327, 71, 72sylancl 588 . . . . . . . . . . . . . 14 (𝜑𝐺:ℕ⟶ℝ)
7473ffvelrnda 6844 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ ℕ) → (𝐺𝑛) ∈ ℝ)
75 shftmbl 24131 . . . . . . . . . . . . 13 ((ran 𝐹 ∈ dom vol ∧ (𝐺𝑛) ∈ ℝ) → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹} ∈ dom vol)
7668, 74, 75syl2an2r 683 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ) → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹} ∈ dom vol)
7776, 5fmptd 6871 . . . . . . . . . . 11 (𝜑𝑇:ℕ⟶dom vol)
7877ffvelrnda 6844 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (𝑇𝑚) ∈ dom vol)
7978ralrimiva 3180 . . . . . . . . 9 (𝜑 → ∀𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol)
80 iunmbl 24146 . . . . . . . . 9 (∀𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol → 𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol)
8179, 80syl 17 . . . . . . . 8 (𝜑 𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol)
82 mblss 24124 . . . . . . . 8 ( 𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol → 𝑚 ∈ ℕ (𝑇𝑚) ⊆ ℝ)
83 ovolcl 24071 . . . . . . . 8 ( 𝑚 ∈ ℕ (𝑇𝑚) ⊆ ℝ → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ∈ ℝ*)
8481, 82, 833syl 18 . . . . . . 7 (𝜑 → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ∈ ℝ*)
8584adantr 483 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ∈ ℝ*)
86 flltp1 13162 . . . . . . . 8 ((3 / (vol*‘ran 𝐹)) ∈ ℝ → (3 / (vol*‘ran 𝐹)) < ((⌊‘(3 / (vol*‘ran 𝐹))) + 1))
8753, 86syl 17 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (3 / (vol*‘ran 𝐹)) < ((⌊‘(3 / (vol*‘ran 𝐹))) + 1))
8834a1i 11 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 3 ∈ ℝ)
8988, 59, 50ltdivmul2d 12475 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ((3 / (vol*‘ran 𝐹)) < ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ↔ 3 < (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹))))
9087, 89mpbid 234 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 3 < (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)))
91 nnuz 12273 . . . . . . . . . . 11 ℕ = (ℤ‘1)
92 1zzd 12005 . . . . . . . . . . 11 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 1 ∈ ℤ)
93 mblvol 24123 . . . . . . . . . . . . . . . . 17 ((𝑇𝑚) ∈ dom vol → (vol‘(𝑇𝑚)) = (vol*‘(𝑇𝑚)))
9478, 93syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → (vol‘(𝑇𝑚)) = (vol*‘(𝑇𝑚)))
9594, 33eqtrd 2854 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → (vol‘(𝑇𝑚)) = (vol*‘ran 𝐹))
9647adantr 483 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → (vol*‘ran 𝐹) ∈ ℝ)
9795, 96eqeltrd 2911 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (vol‘(𝑇𝑚)) ∈ ℝ)
9897adantlr 713 . . . . . . . . . . . . 13 (((𝜑 ∧ 0 < (vol*‘ran 𝐹)) ∧ 𝑚 ∈ ℕ) → (vol‘(𝑇𝑚)) ∈ ℝ)
99 eqid 2819 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))) = (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))
10098, 99fmptd 6871 . . . . . . . . . . . 12 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))):ℕ⟶ℝ)
101100ffvelrnda 6844 . . . . . . . . . . 11 (((𝜑 ∧ 0 < (vol*‘ran 𝐹)) ∧ 𝑘 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))‘𝑘) ∈ ℝ)
10291, 92, 101serfre 13391 . . . . . . . . . 10 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))):ℕ⟶ℝ)
103102frnd 6514 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) ⊆ ℝ)
104 ressxr 10677 . . . . . . . . 9 ℝ ⊆ ℝ*
105103, 104sstrdi 3977 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) ⊆ ℝ*)
10695adantlr 713 . . . . . . . . . . . . . 14 (((𝜑 ∧ 0 < (vol*‘ran 𝐹)) ∧ 𝑚 ∈ ℕ) → (vol‘(𝑇𝑚)) = (vol*‘ran 𝐹))
107106mpteq2dva 5152 . . . . . . . . . . . . 13 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))) = (𝑚 ∈ ℕ ↦ (vol*‘ran 𝐹)))
108 fconstmpt 5607 . . . . . . . . . . . . 13 (ℕ × {(vol*‘ran 𝐹)}) = (𝑚 ∈ ℕ ↦ (vol*‘ran 𝐹))
109107, 108syl6eqr 2872 . . . . . . . . . . . 12 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))) = (ℕ × {(vol*‘ran 𝐹)}))
110109seqeq3d 13369 . . . . . . . . . . 11 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) = seq1( + , (ℕ × {(vol*‘ran 𝐹)})))
111110fveq1d 6665 . . . . . . . . . 10 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) = (seq1( + , (ℕ × {(vol*‘ran 𝐹)}))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)))
11248recnd 10661 . . . . . . . . . . 11 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ran 𝐹) ∈ ℂ)
113 ser1const 13418 . . . . . . . . . . 11 (((vol*‘ran 𝐹) ∈ ℂ ∧ ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ∈ ℕ) → (seq1( + , (ℕ × {(vol*‘ran 𝐹)}))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) = (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)))
114112, 58, 113syl2anc 586 . . . . . . . . . 10 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (seq1( + , (ℕ × {(vol*‘ran 𝐹)}))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) = (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)))
115111, 114eqtrd 2854 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) = (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)))
116102ffnd 6508 . . . . . . . . . 10 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) Fn ℕ)
117 fnfvelrn 6841 . . . . . . . . . 10 ((seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) Fn ℕ ∧ ((⌊‘(3 / (vol*‘ran 𝐹))) + 1) ∈ ℕ) → (seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) ∈ ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))))
118116, 58, 117syl2anc 586 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))‘((⌊‘(3 / (vol*‘ran 𝐹))) + 1)) ∈ ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))))
119115, 118eqeltrrd 2912 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ∈ ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))))
120 supxrub 12709 . . . . . . . 8 ((ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) ⊆ ℝ* ∧ (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ∈ ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ≤ sup(ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))), ℝ*, < ))
121105, 119, 120syl2anc 586 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ≤ sup(ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))), ℝ*, < ))
12281adantr 483 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol)
123 mblvol 24123 . . . . . . . . 9 ( 𝑚 ∈ ℕ (𝑇𝑚) ∈ dom vol → (vol‘ 𝑚 ∈ ℕ (𝑇𝑚)) = (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)))
124122, 123syl 17 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol‘ 𝑚 ∈ ℕ (𝑇𝑚)) = (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)))
12578, 97jca 514 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ((𝑇𝑚) ∈ dom vol ∧ (vol‘(𝑇𝑚)) ∈ ℝ))
126125ralrimiva 3180 . . . . . . . . 9 (𝜑 → ∀𝑚 ∈ ℕ ((𝑇𝑚) ∈ dom vol ∧ (vol‘(𝑇𝑚)) ∈ ℝ))
12711, 12, 13, 14, 15, 5, 16vitalilem3 24203 . . . . . . . . . 10 (𝜑Disj 𝑚 ∈ ℕ (𝑇𝑚))
128127adantr 483 . . . . . . . . 9 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → Disj 𝑚 ∈ ℕ (𝑇𝑚))
129 eqid 2819 . . . . . . . . . 10 seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))) = seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚))))
130129, 99voliun 24147 . . . . . . . . 9 ((∀𝑚 ∈ ℕ ((𝑇𝑚) ∈ dom vol ∧ (vol‘(𝑇𝑚)) ∈ ℝ) ∧ Disj 𝑚 ∈ ℕ (𝑇𝑚)) → (vol‘ 𝑚 ∈ ℕ (𝑇𝑚)) = sup(ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))), ℝ*, < ))
131126, 128, 130syl2an2r 683 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol‘ 𝑚 ∈ ℕ (𝑇𝑚)) = sup(ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))), ℝ*, < ))
132124, 131eqtr3d 2856 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) = sup(ran seq1( + , (𝑚 ∈ ℕ ↦ (vol‘(𝑇𝑚)))), ℝ*, < ))
133121, 132breqtrrd 5085 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (((⌊‘(3 / (vol*‘ran 𝐹))) + 1) · (vol*‘ran 𝐹)) ≤ (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)))
13436, 61, 85, 90, 133xrltletrd 12546 . . . . 5 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 3 < (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)))
13517simp3d 1139 . . . . . . . . 9 (𝜑 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2))
136135adantr 483 . . . . . . . 8 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2))
137 2re 11703 . . . . . . . . 9 2 ∈ ℝ
138 iccssre 12810 . . . . . . . . 9 ((-1 ∈ ℝ ∧ 2 ∈ ℝ) → (-1[,]2) ⊆ ℝ)
13922, 137, 138mp2an 690 . . . . . . . 8 (-1[,]2) ⊆ ℝ
140 ovolss 24078 . . . . . . . 8 (( 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2) ∧ (-1[,]2) ⊆ ℝ) → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ≤ (vol*‘(-1[,]2)))
141136, 139, 140sylancl 588 . . . . . . 7 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ≤ (vol*‘(-1[,]2)))
142 2cn 11704 . . . . . . . . 9 2 ∈ ℂ
143 ax-1cn 10587 . . . . . . . . 9 1 ∈ ℂ
144142, 143subnegi 10957 . . . . . . . 8 (2 − -1) = (2 + 1)
145 neg1lt0 11746 . . . . . . . . . . 11 -1 < 0
146 2pos 11732 . . . . . . . . . . 11 0 < 2
14722, 38, 137lttri 10758 . . . . . . . . . . 11 ((-1 < 0 ∧ 0 < 2) → -1 < 2)
148145, 146, 147mp2an 690 . . . . . . . . . 10 -1 < 2
14922, 137, 148ltleii 10755 . . . . . . . . 9 -1 ≤ 2
150 ovolicc 24116 . . . . . . . . 9 ((-1 ∈ ℝ ∧ 2 ∈ ℝ ∧ -1 ≤ 2) → (vol*‘(-1[,]2)) = (2 − -1))
15122, 137, 149, 150mp3an 1455 . . . . . . . 8 (vol*‘(-1[,]2)) = (2 − -1)
152 df-3 11693 . . . . . . . 8 3 = (2 + 1)
153144, 151, 1523eqtr4i 2852 . . . . . . 7 (vol*‘(-1[,]2)) = 3
154141, 153breqtrdi 5098 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ≤ 3)
155 xrlenlt 10698 . . . . . . 7 (((vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ∈ ℝ* ∧ 3 ∈ ℝ*) → ((vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ≤ 3 ↔ ¬ 3 < (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚))))
15685, 35, 155sylancl 588 . . . . . 6 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ((vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)) ≤ 3 ↔ ¬ 3 < (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚))))
157154, 156mpbid 234 . . . . 5 ((𝜑 ∧ 0 < (vol*‘ran 𝐹)) → ¬ 3 < (vol*‘ 𝑚 ∈ ℕ (𝑇𝑚)))
158134, 157pm2.65da 815 . . . 4 (𝜑 → ¬ 0 < (vol*‘ran 𝐹))
159 ovolge0 24074 . . . . . . 7 (ran 𝐹 ⊆ ℝ → 0 ≤ (vol*‘ran 𝐹))
16020, 159syl 17 . . . . . 6 (𝜑 → 0 ≤ (vol*‘ran 𝐹))
161 0xr 10680 . . . . . . 7 0 ∈ ℝ*
162 ovolcl 24071 . . . . . . . 8 (ran 𝐹 ⊆ ℝ → (vol*‘ran 𝐹) ∈ ℝ*)
16320, 162syl 17 . . . . . . 7 (𝜑 → (vol*‘ran 𝐹) ∈ ℝ*)
164 xrleloe 12529 . . . . . . 7 ((0 ∈ ℝ* ∧ (vol*‘ran 𝐹) ∈ ℝ*) → (0 ≤ (vol*‘ran 𝐹) ↔ (0 < (vol*‘ran 𝐹) ∨ 0 = (vol*‘ran 𝐹))))
165161, 163, 164sylancr 589 . . . . . 6 (𝜑 → (0 ≤ (vol*‘ran 𝐹) ↔ (0 < (vol*‘ran 𝐹) ∨ 0 = (vol*‘ran 𝐹))))
166160, 165mpbid 234 . . . . 5 (𝜑 → (0 < (vol*‘ran 𝐹) ∨ 0 = (vol*‘ran 𝐹)))
167166ord 860 . . . 4 (𝜑 → (¬ 0 < (vol*‘ran 𝐹) → 0 = (vol*‘ran 𝐹)))
168158, 167mpd 15 . . 3 (𝜑 → 0 = (vol*‘ran 𝐹))
169168adantr 483 . 2 ((𝜑𝑚 ∈ ℕ) → 0 = (vol*‘ran 𝐹))
17033, 169eqtr4d 2857 1 ((𝜑𝑚 ∈ ℕ) → (vol*‘(𝑇𝑚)) = 0)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  wo 843   = wceq 1531  wcel 2108  wne 3014  wral 3136  {crab 3140  cdif 3931  cin 3933  wss 3934  c0 4289  𝒫 cpw 4537  {csn 4559   ciun 4910  Disj wdisj 5022   class class class wbr 5057  {copab 5119  cmpt 5137   × cxp 5546  dom cdm 5548  ran crn 5549   Fn wfn 6343  wf 6344  1-1-ontowf1o 6347  cfv 6348  (class class class)co 7148   / cqs 8280  supcsup 8896  cc 10527  cr 10528  0cc0 10529  1c1 10530   + caddc 10532   · cmul 10534  *cxr 10666   < clt 10667  cle 10668  cmin 10862  -cneg 10863   / cdiv 11289  cn 11630  2c2 11684  3c3 11685  0cn0 11889  cq 12340  +crp 12381  [,]cicc 12733  cfl 13152  seqcseq 13361  vol*covol 24055  volcvol 24056
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453  ax-inf2 9096  ax-cc 9849  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606  ax-pre-sup 10607
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1534  df-fal 1544  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-nel 3122  df-ral 3141  df-rex 3142  df-reu 3143  df-rmo 3144  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-int 4868  df-iun 4912  df-disj 5023  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-se 5508  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-isom 6357  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-of 7401  df-om 7573  df-1st 7681  df-2nd 7682  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-1o 8094  df-2o 8095  df-oadd 8098  df-er 8281  df-ec 8283  df-qs 8287  df-map 8400  df-pm 8401  df-en 8502  df-dom 8503  df-sdom 8504  df-fin 8505  df-fi 8867  df-sup 8898  df-inf 8899  df-oi 8966  df-dju 9322  df-card 9360  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11631  df-2 11692  df-3 11693  df-n0 11890  df-z 11974  df-uz 12236  df-q 12341  df-rp 12382  df-xneg 12499  df-xadd 12500  df-xmul 12501  df-ioo 12734  df-ico 12736  df-icc 12737  df-fz 12885  df-fzo 13026  df-fl 13154  df-seq 13362  df-exp 13422  df-hash 13683  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-clim 14837  df-rlim 14838  df-sum 15035  df-rest 16688  df-topgen 16709  df-psmet 20529  df-xmet 20530  df-met 20531  df-bl 20532  df-mopn 20533  df-top 21494  df-topon 21511  df-bases 21546  df-cmp 21987  df-ovol 24057  df-vol 24058
This theorem is referenced by:  vitalilem5  24205
  Copyright terms: Public domain W3C validator