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

Theorem vitalilem2 23670
Description: Lemma for vitali 23674. (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
vitalilem2 (𝜑 → (ran 𝐹 ⊆ (0[,]1) ∧ (0[,]1) ⊆ 𝑚 ∈ ℕ (𝑇𝑚) ∧ 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2)))
Distinct variable groups:   𝑚,𝑛,𝑠,𝑥,𝑦,𝑧,𝐺   𝜑,𝑚,𝑛,𝑥,𝑧   𝑧,𝑆   𝑇,𝑚,𝑥   𝑚,𝐹,𝑛,𝑠,𝑥,𝑦,𝑧   ,𝑚,𝑛,𝑠,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑦,𝑠)   𝑆(𝑥,𝑦,𝑚,𝑛,𝑠)   𝑇(𝑦,𝑧,𝑛,𝑠)

Proof of Theorem vitalilem2
Dummy variables 𝑣 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vitali.3 . . . 4 (𝜑𝐹 Fn 𝑆)
2 vitali.4 . . . . 5 (𝜑 → ∀𝑧𝑆 (𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧))
3 vitali.2 . . . . . . . . 9 𝑆 = ((0[,]1) / )
4 neeq1 2999 . . . . . . . . 9 ([𝑣] = 𝑧 → ([𝑣] ≠ ∅ ↔ 𝑧 ≠ ∅))
5 vitali.1 . . . . . . . . . . . . . 14 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (0[,]1) ∧ 𝑦 ∈ (0[,]1)) ∧ (𝑥𝑦) ∈ ℚ)}
65vitalilem1 23669 . . . . . . . . . . . . 13 Er (0[,]1)
7 erdm 7959 . . . . . . . . . . . . 13 ( Er (0[,]1) → dom = (0[,]1))
86, 7ax-mp 5 . . . . . . . . . . . 12 dom = (0[,]1)
98eleq2i 2836 . . . . . . . . . . 11 (𝑣 ∈ dom 𝑣 ∈ (0[,]1))
10 ecdmn0 7994 . . . . . . . . . . 11 (𝑣 ∈ dom ↔ [𝑣] ≠ ∅)
119, 10bitr3i 268 . . . . . . . . . 10 (𝑣 ∈ (0[,]1) ↔ [𝑣] ≠ ∅)
1211biimpi 207 . . . . . . . . 9 (𝑣 ∈ (0[,]1) → [𝑣] ≠ ∅)
133, 4, 12ectocl 8020 . . . . . . . 8 (𝑧𝑆𝑧 ≠ ∅)
1413adantl 473 . . . . . . 7 ((𝜑𝑧𝑆) → 𝑧 ≠ ∅)
15 sseq1 3788 . . . . . . . . . 10 ([𝑤] = 𝑧 → ([𝑤] ⊆ (0[,]1) ↔ 𝑧 ⊆ (0[,]1)))
166a1i 11 . . . . . . . . . . 11 (𝑤 ∈ (0[,]1) → Er (0[,]1))
1716ecss 7993 . . . . . . . . . 10 (𝑤 ∈ (0[,]1) → [𝑤] ⊆ (0[,]1))
183, 15, 17ectocl 8020 . . . . . . . . 9 (𝑧𝑆𝑧 ⊆ (0[,]1))
1918adantl 473 . . . . . . . 8 ((𝜑𝑧𝑆) → 𝑧 ⊆ (0[,]1))
2019sseld 3762 . . . . . . 7 ((𝜑𝑧𝑆) → ((𝐹𝑧) ∈ 𝑧 → (𝐹𝑧) ∈ (0[,]1)))
2114, 20embantd 59 . . . . . 6 ((𝜑𝑧𝑆) → ((𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧) → (𝐹𝑧) ∈ (0[,]1)))
2221ralimdva 3109 . . . . 5 (𝜑 → (∀𝑧𝑆 (𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧) → ∀𝑧𝑆 (𝐹𝑧) ∈ (0[,]1)))
232, 22mpd 15 . . . 4 (𝜑 → ∀𝑧𝑆 (𝐹𝑧) ∈ (0[,]1))
24 ffnfv 6580 . . . 4 (𝐹:𝑆⟶(0[,]1) ↔ (𝐹 Fn 𝑆 ∧ ∀𝑧𝑆 (𝐹𝑧) ∈ (0[,]1)))
251, 23, 24sylanbrc 578 . . 3 (𝜑𝐹:𝑆⟶(0[,]1))
2625frnd 6232 . 2 (𝜑 → ran 𝐹 ⊆ (0[,]1))
27 vitali.5 . . . . . . . . 9 (𝜑𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)))
2827adantr 472 . . . . . . . 8 ((𝜑𝑣 ∈ (0[,]1)) → 𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)))
29 f1ocnv 6334 . . . . . . . 8 (𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)) → 𝐺:(ℚ ∩ (-1[,]1))–1-1-onto→ℕ)
30 f1of 6322 . . . . . . . 8 (𝐺:(ℚ ∩ (-1[,]1))–1-1-onto→ℕ → 𝐺:(ℚ ∩ (-1[,]1))⟶ℕ)
3128, 29, 303syl 18 . . . . . . 7 ((𝜑𝑣 ∈ (0[,]1)) → 𝐺:(ℚ ∩ (-1[,]1))⟶ℕ)
32 simpr 477 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ∈ (0[,]1))
3332, 11sylib 209 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → [𝑣] ≠ ∅)
34 neeq1 2999 . . . . . . . . . . . . 13 (𝑧 = [𝑣] → (𝑧 ≠ ∅ ↔ [𝑣] ≠ ∅))
35 fveq2 6377 . . . . . . . . . . . . . 14 (𝑧 = [𝑣] → (𝐹𝑧) = (𝐹‘[𝑣] ))
36 id 22 . . . . . . . . . . . . . 14 (𝑧 = [𝑣] 𝑧 = [𝑣] )
3735, 36eleq12d 2838 . . . . . . . . . . . . 13 (𝑧 = [𝑣] → ((𝐹𝑧) ∈ 𝑧 ↔ (𝐹‘[𝑣] ) ∈ [𝑣] ))
3834, 37imbi12d 335 . . . . . . . . . . . 12 (𝑧 = [𝑣] → ((𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧) ↔ ([𝑣] ≠ ∅ → (𝐹‘[𝑣] ) ∈ [𝑣] )))
392adantr 472 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → ∀𝑧𝑆 (𝑧 ≠ ∅ → (𝐹𝑧) ∈ 𝑧))
40 ovex 6876 . . . . . . . . . . . . . . . 16 (0[,]1) ∈ V
41 erex 7973 . . . . . . . . . . . . . . . 16 ( Er (0[,]1) → ((0[,]1) ∈ V → ∈ V))
426, 40, 41mp2 9 . . . . . . . . . . . . . . 15 ∈ V
4342ecelqsi 8008 . . . . . . . . . . . . . 14 (𝑣 ∈ (0[,]1) → [𝑣] ∈ ((0[,]1) / ))
4443adantl 473 . . . . . . . . . . . . 13 ((𝜑𝑣 ∈ (0[,]1)) → [𝑣] ∈ ((0[,]1) / ))
4544, 3syl6eleqr 2855 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → [𝑣] 𝑆)
4638, 39, 45rspcdva 3468 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → ([𝑣] ≠ ∅ → (𝐹‘[𝑣] ) ∈ [𝑣] ))
4733, 46mpd 15 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ∈ [𝑣] )
48 fvex 6390 . . . . . . . . . . . 12 (𝐹‘[𝑣] ) ∈ V
49 vex 3353 . . . . . . . . . . . 12 𝑣 ∈ V
5048, 49elec 7991 . . . . . . . . . . 11 ((𝐹‘[𝑣] ) ∈ [𝑣] 𝑣 (𝐹‘[𝑣] ))
51 oveq12 6853 . . . . . . . . . . . . 13 ((𝑥 = 𝑣𝑦 = (𝐹‘[𝑣] )) → (𝑥𝑦) = (𝑣 − (𝐹‘[𝑣] )))
5251eleq1d 2829 . . . . . . . . . . . 12 ((𝑥 = 𝑣𝑦 = (𝐹‘[𝑣] )) → ((𝑥𝑦) ∈ ℚ ↔ (𝑣 − (𝐹‘[𝑣] )) ∈ ℚ))
5352, 5brab2a 5366 . . . . . . . . . . 11 (𝑣 (𝐹‘[𝑣] ) ↔ ((𝑣 ∈ (0[,]1) ∧ (𝐹‘[𝑣] ) ∈ (0[,]1)) ∧ (𝑣 − (𝐹‘[𝑣] )) ∈ ℚ))
5450, 53bitri 266 . . . . . . . . . 10 ((𝐹‘[𝑣] ) ∈ [𝑣] ↔ ((𝑣 ∈ (0[,]1) ∧ (𝐹‘[𝑣] ) ∈ (0[,]1)) ∧ (𝑣 − (𝐹‘[𝑣] )) ∈ ℚ))
5547, 54sylib 209 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → ((𝑣 ∈ (0[,]1) ∧ (𝐹‘[𝑣] ) ∈ (0[,]1)) ∧ (𝑣 − (𝐹‘[𝑣] )) ∈ ℚ))
5655simprd 489 . . . . . . . 8 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ∈ ℚ)
57 elicc01 12497 . . . . . . . . . . . 12 (𝑣 ∈ (0[,]1) ↔ (𝑣 ∈ ℝ ∧ 0 ≤ 𝑣𝑣 ≤ 1))
5832, 57sylib 209 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 ∈ ℝ ∧ 0 ≤ 𝑣𝑣 ≤ 1))
5958simp1d 1172 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ∈ ℝ)
6055simpld 488 . . . . . . . . . . . . 13 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 ∈ (0[,]1) ∧ (𝐹‘[𝑣] ) ∈ (0[,]1)))
6160simprd 489 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ∈ (0[,]1))
62 elicc01 12497 . . . . . . . . . . . 12 ((𝐹‘[𝑣] ) ∈ (0[,]1) ↔ ((𝐹‘[𝑣] ) ∈ ℝ ∧ 0 ≤ (𝐹‘[𝑣] ) ∧ (𝐹‘[𝑣] ) ≤ 1))
6361, 62sylib 209 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → ((𝐹‘[𝑣] ) ∈ ℝ ∧ 0 ≤ (𝐹‘[𝑣] ) ∧ (𝐹‘[𝑣] ) ≤ 1))
6463simp1d 1172 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ∈ ℝ)
6559, 64resubcld 10714 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ∈ ℝ)
6664, 59resubcld 10714 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → ((𝐹‘[𝑣] ) − 𝑣) ∈ ℝ)
67 1red 10296 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → 1 ∈ ℝ)
6858simp2d 1173 . . . . . . . . . . . . 13 ((𝜑𝑣 ∈ (0[,]1)) → 0 ≤ 𝑣)
6964, 59subge02d 10875 . . . . . . . . . . . . 13 ((𝜑𝑣 ∈ (0[,]1)) → (0 ≤ 𝑣 ↔ ((𝐹‘[𝑣] ) − 𝑣) ≤ (𝐹‘[𝑣] )))
7068, 69mpbid 223 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → ((𝐹‘[𝑣] ) − 𝑣) ≤ (𝐹‘[𝑣] ))
7163simp3d 1174 . . . . . . . . . . . 12 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ≤ 1)
7266, 64, 67, 70, 71letrd 10450 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → ((𝐹‘[𝑣] ) − 𝑣) ≤ 1)
7366, 67lenegd 10862 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → (((𝐹‘[𝑣] ) − 𝑣) ≤ 1 ↔ -1 ≤ -((𝐹‘[𝑣] ) − 𝑣)))
7472, 73mpbid 223 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → -1 ≤ -((𝐹‘[𝑣] ) − 𝑣))
7564recnd 10324 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ∈ ℂ)
7659recnd 10324 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ∈ ℂ)
7775, 76negsubdi2d 10664 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → -((𝐹‘[𝑣] ) − 𝑣) = (𝑣 − (𝐹‘[𝑣] )))
7874, 77breqtrd 4837 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → -1 ≤ (𝑣 − (𝐹‘[𝑣] )))
7963simp2d 1173 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → 0 ≤ (𝐹‘[𝑣] ))
8059, 64subge02d 10875 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → (0 ≤ (𝐹‘[𝑣] ) ↔ (𝑣 − (𝐹‘[𝑣] )) ≤ 𝑣))
8179, 80mpbid 223 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ≤ 𝑣)
8258simp3d 1174 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ≤ 1)
8365, 59, 67, 81, 82letrd 10450 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ≤ 1)
84 neg1rr 11396 . . . . . . . . . 10 -1 ∈ ℝ
85 1re 10295 . . . . . . . . . 10 1 ∈ ℝ
8684, 85elicc2i 12444 . . . . . . . . 9 ((𝑣 − (𝐹‘[𝑣] )) ∈ (-1[,]1) ↔ ((𝑣 − (𝐹‘[𝑣] )) ∈ ℝ ∧ -1 ≤ (𝑣 − (𝐹‘[𝑣] )) ∧ (𝑣 − (𝐹‘[𝑣] )) ≤ 1))
8765, 78, 83, 86syl3anbrc 1443 . . . . . . . 8 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ∈ (-1[,]1))
8856, 87elind 3962 . . . . . . 7 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐹‘[𝑣] )) ∈ (ℚ ∩ (-1[,]1)))
8931, 88ffvelrnd 6552 . . . . . 6 ((𝜑𝑣 ∈ (0[,]1)) → (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) ∈ ℕ)
90 f1ocnvfv2 6727 . . . . . . . . . . . 12 ((𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)) ∧ (𝑣 − (𝐹‘[𝑣] )) ∈ (ℚ ∩ (-1[,]1))) → (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))) = (𝑣 − (𝐹‘[𝑣] )))
9128, 88, 90syl2anc 579 . . . . . . . . . . 11 ((𝜑𝑣 ∈ (0[,]1)) → (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))) = (𝑣 − (𝐹‘[𝑣] )))
9291oveq2d 6860 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) = (𝑣 − (𝑣 − (𝐹‘[𝑣] ))))
9376, 75nncand 10653 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝑣 − (𝐹‘[𝑣] ))) = (𝐹‘[𝑣] ))
9492, 93eqtrd 2799 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) = (𝐹‘[𝑣] ))
951adantr 472 . . . . . . . . . 10 ((𝜑𝑣 ∈ (0[,]1)) → 𝐹 Fn 𝑆)
96 fnfvelrn 6548 . . . . . . . . . 10 ((𝐹 Fn 𝑆 ∧ [𝑣] 𝑆) → (𝐹‘[𝑣] ) ∈ ran 𝐹)
9795, 45, 96syl2anc 579 . . . . . . . . 9 ((𝜑𝑣 ∈ (0[,]1)) → (𝐹‘[𝑣] ) ∈ ran 𝐹)
9894, 97eqeltrd 2844 . . . . . . . 8 ((𝜑𝑣 ∈ (0[,]1)) → (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹)
99 oveq1 6851 . . . . . . . . . 10 (𝑠 = 𝑣 → (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) = (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))))
10099eleq1d 2829 . . . . . . . . 9 (𝑠 = 𝑣 → ((𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹 ↔ (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹))
101100elrab 3521 . . . . . . . 8 (𝑣 ∈ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹} ↔ (𝑣 ∈ ℝ ∧ (𝑣 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹))
10259, 98, 101sylanbrc 578 . . . . . . 7 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ∈ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹})
103 fveq2 6377 . . . . . . . . . . . 12 (𝑛 = (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) → (𝐺𝑛) = (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))))
104103oveq2d 6860 . . . . . . . . . . 11 (𝑛 = (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) → (𝑠 − (𝐺𝑛)) = (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))))
105104eleq1d 2829 . . . . . . . . . 10 (𝑛 = (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) → ((𝑠 − (𝐺𝑛)) ∈ ran 𝐹 ↔ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹))
106105rabbidv 3338 . . . . . . . . 9 (𝑛 = (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹} = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹})
107 vitali.6 . . . . . . . . 9 𝑇 = (𝑛 ∈ ℕ ↦ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹})
108 reex 10282 . . . . . . . . . 10 ℝ ∈ V
109108rabex 4975 . . . . . . . . 9 {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹} ∈ V
110106, 107, 109fvmpt 6473 . . . . . . . 8 ((𝐺‘(𝑣 − (𝐹‘[𝑣] ))) ∈ ℕ → (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹})
11189, 110syl 17 . . . . . . 7 ((𝜑𝑣 ∈ (0[,]1)) → (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) ∈ ran 𝐹})
112102, 111eleqtrrd 2847 . . . . . 6 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 ∈ (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))))
11389, 112jca 507 . . . . 5 ((𝜑𝑣 ∈ (0[,]1)) → ((𝐺‘(𝑣 − (𝐹‘[𝑣] ))) ∈ ℕ ∧ 𝑣 ∈ (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))))
114 fveq2 6377 . . . . . 6 (𝑚 = (𝐺‘(𝑣 − (𝐹‘[𝑣] ))) → (𝑇𝑚) = (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] )))))
115114eliuni 4684 . . . . 5 (((𝐺‘(𝑣 − (𝐹‘[𝑣] ))) ∈ ℕ ∧ 𝑣 ∈ (𝑇‘(𝐺‘(𝑣 − (𝐹‘[𝑣] ))))) → 𝑣 𝑚 ∈ ℕ (𝑇𝑚))
116113, 115syl 17 . . . 4 ((𝜑𝑣 ∈ (0[,]1)) → 𝑣 𝑚 ∈ ℕ (𝑇𝑚))
117116ex 401 . . 3 (𝜑 → (𝑣 ∈ (0[,]1) → 𝑣 𝑚 ∈ ℕ (𝑇𝑚)))
118117ssrdv 3769 . 2 (𝜑 → (0[,]1) ⊆ 𝑚 ∈ ℕ (𝑇𝑚))
119 eliun 4682 . . . 4 (𝑥 𝑚 ∈ ℕ (𝑇𝑚) ↔ ∃𝑚 ∈ ℕ 𝑥 ∈ (𝑇𝑚))
120 fveq2 6377 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑚 → (𝐺𝑛) = (𝐺𝑚))
121120oveq2d 6860 . . . . . . . . . . . . . . 15 (𝑛 = 𝑚 → (𝑠 − (𝐺𝑛)) = (𝑠 − (𝐺𝑚)))
122121eleq1d 2829 . . . . . . . . . . . . . 14 (𝑛 = 𝑚 → ((𝑠 − (𝐺𝑛)) ∈ ran 𝐹 ↔ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹))
123122rabbidv 3338 . . . . . . . . . . . . 13 (𝑛 = 𝑚 → {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑛)) ∈ ran 𝐹} = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
124108rabex 4975 . . . . . . . . . . . . 13 {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹} ∈ V
125123, 107, 124fvmpt 6473 . . . . . . . . . . . 12 (𝑚 ∈ ℕ → (𝑇𝑚) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
126125adantl 473 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝑇𝑚) = {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
127126eleq2d 2830 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (𝑥 ∈ (𝑇𝑚) ↔ 𝑥 ∈ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹}))
128127biimpa 468 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 𝑥 ∈ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹})
129 oveq1 6851 . . . . . . . . . . 11 (𝑠 = 𝑥 → (𝑠 − (𝐺𝑚)) = (𝑥 − (𝐺𝑚)))
130129eleq1d 2829 . . . . . . . . . 10 (𝑠 = 𝑥 → ((𝑠 − (𝐺𝑚)) ∈ ran 𝐹 ↔ (𝑥 − (𝐺𝑚)) ∈ ran 𝐹))
131130elrab 3521 . . . . . . . . 9 (𝑥 ∈ {𝑠 ∈ ℝ ∣ (𝑠 − (𝐺𝑚)) ∈ ran 𝐹} ↔ (𝑥 ∈ ℝ ∧ (𝑥 − (𝐺𝑚)) ∈ ran 𝐹))
132128, 131sylib 209 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝑥 ∈ ℝ ∧ (𝑥 − (𝐺𝑚)) ∈ ran 𝐹))
133132simpld 488 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 𝑥 ∈ ℝ)
13484a1i 11 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → -1 ∈ ℝ)
135 iccssre 12460 . . . . . . . . . . 11 ((-1 ∈ ℝ ∧ 1 ∈ ℝ) → (-1[,]1) ⊆ ℝ)
13684, 85, 135mp2an 683 . . . . . . . . . 10 (-1[,]1) ⊆ ℝ
137 inss2 3995 . . . . . . . . . . 11 (ℚ ∩ (-1[,]1)) ⊆ (-1[,]1)
138 f1of 6322 . . . . . . . . . . . . 13 (𝐺:ℕ–1-1-onto→(ℚ ∩ (-1[,]1)) → 𝐺:ℕ⟶(ℚ ∩ (-1[,]1)))
13927, 138syl 17 . . . . . . . . . . . 12 (𝜑𝐺:ℕ⟶(ℚ ∩ (-1[,]1)))
140139ffvelrnda 6551 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ (ℚ ∩ (-1[,]1)))
141137, 140sseldi 3761 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ (-1[,]1))
142136, 141sseldi 3761 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (𝐺𝑚) ∈ ℝ)
143142adantr 472 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝐺𝑚) ∈ ℝ)
144141adantr 472 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝐺𝑚) ∈ (-1[,]1))
14584, 85elicc2i 12444 . . . . . . . . . 10 ((𝐺𝑚) ∈ (-1[,]1) ↔ ((𝐺𝑚) ∈ ℝ ∧ -1 ≤ (𝐺𝑚) ∧ (𝐺𝑚) ≤ 1))
146144, 145sylib 209 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝐺𝑚) ∈ ℝ ∧ -1 ≤ (𝐺𝑚) ∧ (𝐺𝑚) ≤ 1))
147146simp2d 1173 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → -1 ≤ (𝐺𝑚))
14826ad2antrr 717 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ran 𝐹 ⊆ (0[,]1))
149132simprd 489 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝑥 − (𝐺𝑚)) ∈ ran 𝐹)
150148, 149sseldd 3764 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝑥 − (𝐺𝑚)) ∈ (0[,]1))
151 elicc01 12497 . . . . . . . . . . 11 ((𝑥 − (𝐺𝑚)) ∈ (0[,]1) ↔ ((𝑥 − (𝐺𝑚)) ∈ ℝ ∧ 0 ≤ (𝑥 − (𝐺𝑚)) ∧ (𝑥 − (𝐺𝑚)) ≤ 1))
152150, 151sylib 209 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝑥 − (𝐺𝑚)) ∈ ℝ ∧ 0 ≤ (𝑥 − (𝐺𝑚)) ∧ (𝑥 − (𝐺𝑚)) ≤ 1))
153152simp2d 1173 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 0 ≤ (𝑥 − (𝐺𝑚)))
154133, 143subge0d 10873 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (0 ≤ (𝑥 − (𝐺𝑚)) ↔ (𝐺𝑚) ≤ 𝑥))
155153, 154mpbid 223 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝐺𝑚) ≤ 𝑥)
156134, 143, 133, 147, 155letrd 10450 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → -1 ≤ 𝑥)
157 peano2re 10465 . . . . . . . . 9 ((𝐺𝑚) ∈ ℝ → ((𝐺𝑚) + 1) ∈ ℝ)
158143, 157syl 17 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝐺𝑚) + 1) ∈ ℝ)
159 2re 11348 . . . . . . . . 9 2 ∈ ℝ
160159a1i 11 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 2 ∈ ℝ)
161152simp3d 1174 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝑥 − (𝐺𝑚)) ≤ 1)
162 1red 10296 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 1 ∈ ℝ)
163133, 143, 162lesubadd2d 10882 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝑥 − (𝐺𝑚)) ≤ 1 ↔ 𝑥 ≤ ((𝐺𝑚) + 1)))
164161, 163mpbid 223 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 𝑥 ≤ ((𝐺𝑚) + 1))
165146simp3d 1174 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → (𝐺𝑚) ≤ 1)
166143, 162, 162, 165leadd1dd 10897 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝐺𝑚) + 1) ≤ (1 + 1))
167 df-2 11337 . . . . . . . . 9 2 = (1 + 1)
168166, 167syl6breqr 4853 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → ((𝐺𝑚) + 1) ≤ 2)
169133, 158, 160, 164, 168letrd 10450 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 𝑥 ≤ 2)
17084, 159elicc2i 12444 . . . . . . 7 (𝑥 ∈ (-1[,]2) ↔ (𝑥 ∈ ℝ ∧ -1 ≤ 𝑥𝑥 ≤ 2))
171133, 156, 169, 170syl3anbrc 1443 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ 𝑥 ∈ (𝑇𝑚)) → 𝑥 ∈ (-1[,]2))
172171ex 401 . . . . 5 ((𝜑𝑚 ∈ ℕ) → (𝑥 ∈ (𝑇𝑚) → 𝑥 ∈ (-1[,]2)))
173172rexlimdva 3178 . . . 4 (𝜑 → (∃𝑚 ∈ ℕ 𝑥 ∈ (𝑇𝑚) → 𝑥 ∈ (-1[,]2)))
174119, 173syl5bi 233 . . 3 (𝜑 → (𝑥 𝑚 ∈ ℕ (𝑇𝑚) → 𝑥 ∈ (-1[,]2)))
175174ssrdv 3769 . 2 (𝜑 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2))
17626, 118, 1753jca 1158 1 (𝜑 → (ran 𝐹 ⊆ (0[,]1) ∧ (0[,]1) ⊆ 𝑚 ∈ ℕ (𝑇𝑚) ∧ 𝑚 ∈ ℕ (𝑇𝑚) ⊆ (-1[,]2)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2937  wral 3055  wrex 3056  {crab 3059  Vcvv 3350  cdif 3731  cin 3733  wss 3734  c0 4081  𝒫 cpw 4317   ciun 4678   class class class wbr 4811  {copab 4873  cmpt 4890  ccnv 5278  dom cdm 5279  ran crn 5280   Fn wfn 6065  wf 6066  1-1-ontowf1o 6069  cfv 6070  (class class class)co 6844   Er wer 7946  [cec 7947   / cqs 7948  cr 10190  0cc0 10191  1c1 10192   + caddc 10194  cle 10331  cmin 10522  -cneg 10523  cn 11276  2c2 11329  cq 11992  [,]cicc 12383  volcvol 23524
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7149  ax-cnex 10247  ax-resscn 10248  ax-1cn 10249  ax-icn 10250  ax-addcl 10251  ax-addrcl 10252  ax-mulcl 10253  ax-mulrcl 10254  ax-mulcom 10255  ax-addass 10256  ax-mulass 10257  ax-distr 10258  ax-i2m1 10259  ax-1ne0 10260  ax-1rid 10261  ax-rnegex 10262  ax-rrecex 10263  ax-cnre 10264  ax-pre-lttri 10265  ax-pre-lttrn 10266  ax-pre-ltadd 10267  ax-pre-mulgt0 10268
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-pss 3750  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-tp 4341  df-op 4343  df-uni 4597  df-iun 4680  df-br 4812  df-opab 4874  df-mpt 4891  df-tr 4914  df-id 5187  df-eprel 5192  df-po 5200  df-so 5201  df-fr 5238  df-we 5240  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-pred 5867  df-ord 5913  df-on 5914  df-lim 5915  df-suc 5916  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6805  df-ov 6847  df-oprab 6848  df-mpt2 6849  df-om 7266  df-1st 7368  df-2nd 7369  df-wrecs 7612  df-recs 7674  df-rdg 7712  df-er 7949  df-ec 7951  df-qs 7955  df-en 8163  df-dom 8164  df-sdom 8165  df-pnf 10332  df-mnf 10333  df-xr 10334  df-ltxr 10335  df-le 10336  df-sub 10524  df-neg 10525  df-div 10941  df-nn 11277  df-2 11337  df-n0 11541  df-z 11627  df-q 11993  df-icc 12387
This theorem is referenced by:  vitalilem3  23671  vitalilem4  23672  vitalilem5  23673
  Copyright terms: Public domain W3C validator