Users' Mathboxes Mathbox for Jeff Madsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  heiborlem8 Structured version   Visualization version   GIF version

Theorem heiborlem8 34977
Description: Lemma for heibor 34980. The previous lemmas establish that the sequence 𝑀 is Cauchy, so using completeness we now consider the convergent point 𝑌. By assumption, 𝑈 is an open cover, so 𝑌 is an element of some 𝑍𝑈, and some ball centered at 𝑌 is contained in 𝑍. But the sequence contains arbitrarily small balls close to 𝑌, so some element ball(𝑀𝑛) of the sequence is contained in 𝑍. And finally we arrive at a contradiction, because {𝑍} is a finite subcover of 𝑈 that covers ball(𝑀𝑛), yet ball(𝑀𝑛) ∈ 𝐾. For convenience, we write this contradiction as 𝜑𝜓 where 𝜑 is all the accumulated hypotheses and 𝜓 is anything at all. (Contributed by Jeff Madsen, 22-Jan-2014.)
Hypotheses
Ref Expression
heibor.1 𝐽 = (MetOpen‘𝐷)
heibor.3 𝐾 = {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣}
heibor.4 𝐺 = {⟨𝑦, 𝑛⟩ ∣ (𝑛 ∈ ℕ0𝑦 ∈ (𝐹𝑛) ∧ (𝑦𝐵𝑛) ∈ 𝐾)}
heibor.5 𝐵 = (𝑧𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))
heibor.6 (𝜑𝐷 ∈ (CMet‘𝑋))
heibor.7 (𝜑𝐹:ℕ0⟶(𝒫 𝑋 ∩ Fin))
heibor.8 (𝜑 → ∀𝑛 ∈ ℕ0 𝑋 = 𝑦 ∈ (𝐹𝑛)(𝑦𝐵𝑛))
heibor.9 (𝜑 → ∀𝑥𝐺 ((𝑇𝑥)𝐺((2nd𝑥) + 1) ∧ ((𝐵𝑥) ∩ ((𝑇𝑥)𝐵((2nd𝑥) + 1))) ∈ 𝐾))
heibor.10 (𝜑𝐶𝐺0)
heibor.11 𝑆 = seq0(𝑇, (𝑚 ∈ ℕ0 ↦ if(𝑚 = 0, 𝐶, (𝑚 − 1))))
heibor.12 𝑀 = (𝑛 ∈ ℕ ↦ ⟨(𝑆𝑛), (3 / (2↑𝑛))⟩)
heibor.13 (𝜑𝑈𝐽)
heibor.14 𝑌 ∈ V
heibor.15 (𝜑𝑌𝑍)
heibor.16 (𝜑𝑍𝑈)
heibor.17 (𝜑 → (1st𝑀)(⇝𝑡𝐽)𝑌)
Assertion
Ref Expression
heiborlem8 (𝜑𝜓)
Distinct variable groups:   𝑥,𝑛,𝑦,𝑢,𝐹   𝑥,𝐺   𝜑,𝑥   𝑚,𝑛,𝑢,𝑣,𝑥,𝑦,𝑧,𝐷   𝑚,𝑀,𝑢,𝑥,𝑦,𝑧   𝑇,𝑚,𝑛,𝑥,𝑦,𝑧   𝐵,𝑛,𝑢,𝑣,𝑦   𝑚,𝐽,𝑛,𝑢,𝑣,𝑥,𝑦,𝑧   𝑈,𝑛,𝑢,𝑣,𝑥,𝑦,𝑧   𝜓,𝑦,𝑧   𝑆,𝑚,𝑛,𝑢,𝑣,𝑥,𝑦,𝑧   𝑚,𝑋,𝑛,𝑢,𝑣,𝑥,𝑦,𝑧   𝐶,𝑚,𝑛,𝑢,𝑣,𝑦   𝑛,𝐾,𝑥,𝑦,𝑧   𝑥,𝑌   𝑣,𝑍,𝑥   𝑥,𝐵
Allowed substitution hints:   𝜑(𝑦,𝑧,𝑣,𝑢,𝑚,𝑛)   𝜓(𝑥,𝑣,𝑢,𝑚,𝑛)   𝐵(𝑧,𝑚)   𝐶(𝑥,𝑧)   𝑇(𝑣,𝑢)   𝑈(𝑚)   𝐹(𝑧,𝑣,𝑚)   𝐺(𝑦,𝑧,𝑣,𝑢,𝑚,𝑛)   𝐾(𝑣,𝑢,𝑚)   𝑀(𝑣,𝑛)   𝑌(𝑦,𝑧,𝑣,𝑢,𝑚,𝑛)   𝑍(𝑦,𝑧,𝑢,𝑚,𝑛)

Proof of Theorem heiborlem8
Dummy variables 𝑡 𝑘 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 heibor.6 . . . 4 (𝜑𝐷 ∈ (CMet‘𝑋))
2 cmetmet 23816 . . . 4 (𝐷 ∈ (CMet‘𝑋) → 𝐷 ∈ (Met‘𝑋))
3 metxmet 22871 . . . 4 (𝐷 ∈ (Met‘𝑋) → 𝐷 ∈ (∞Met‘𝑋))
41, 2, 33syl 18 . . 3 (𝜑𝐷 ∈ (∞Met‘𝑋))
5 heibor.13 . . . 4 (𝜑𝑈𝐽)
6 heibor.16 . . . 4 (𝜑𝑍𝑈)
75, 6sseldd 3965 . . 3 (𝜑𝑍𝐽)
8 heibor.15 . . 3 (𝜑𝑌𝑍)
9 heibor.1 . . . 4 𝐽 = (MetOpen‘𝐷)
109mopni2 23030 . . 3 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑍𝐽𝑌𝑍) → ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
114, 7, 8, 10syl3anc 1363 . 2 (𝜑 → ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
12 rphalfcl 12404 . . . . . 6 (𝑥 ∈ ℝ+ → (𝑥 / 2) ∈ ℝ+)
13 breq2 5061 . . . . . . . 8 (𝑟 = (𝑥 / 2) → ((2nd ‘(𝑀𝑘)) < 𝑟 ↔ (2nd ‘(𝑀𝑘)) < (𝑥 / 2)))
1413rexbidv 3294 . . . . . . 7 (𝑟 = (𝑥 / 2) → (∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < 𝑟 ↔ ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2)))
15 heibor.3 . . . . . . . 8 𝐾 = {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣}
16 heibor.4 . . . . . . . 8 𝐺 = {⟨𝑦, 𝑛⟩ ∣ (𝑛 ∈ ℕ0𝑦 ∈ (𝐹𝑛) ∧ (𝑦𝐵𝑛) ∈ 𝐾)}
17 heibor.5 . . . . . . . 8 𝐵 = (𝑧𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))
18 heibor.7 . . . . . . . 8 (𝜑𝐹:ℕ0⟶(𝒫 𝑋 ∩ Fin))
19 heibor.8 . . . . . . . 8 (𝜑 → ∀𝑛 ∈ ℕ0 𝑋 = 𝑦 ∈ (𝐹𝑛)(𝑦𝐵𝑛))
20 heibor.9 . . . . . . . 8 (𝜑 → ∀𝑥𝐺 ((𝑇𝑥)𝐺((2nd𝑥) + 1) ∧ ((𝐵𝑥) ∩ ((𝑇𝑥)𝐵((2nd𝑥) + 1))) ∈ 𝐾))
21 heibor.10 . . . . . . . 8 (𝜑𝐶𝐺0)
22 heibor.11 . . . . . . . 8 𝑆 = seq0(𝑇, (𝑚 ∈ ℕ0 ↦ if(𝑚 = 0, 𝐶, (𝑚 − 1))))
23 heibor.12 . . . . . . . 8 𝑀 = (𝑛 ∈ ℕ ↦ ⟨(𝑆𝑛), (3 / (2↑𝑛))⟩)
249, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem7 34976 . . . . . . 7 𝑟 ∈ ℝ+𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < 𝑟
2514, 24vtoclri 3582 . . . . . 6 ((𝑥 / 2) ∈ ℝ+ → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
2612, 25syl 17 . . . . 5 (𝑥 ∈ ℝ+ → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
2726adantl 482 . . . 4 ((𝜑𝑥 ∈ ℝ+) → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
28 nnnn0 11892 . . . . . . 7 (𝑘 ∈ ℕ → 𝑘 ∈ ℕ0)
299, 15, 16, 17, 1, 18, 19, 20, 21, 22heiborlem4 34973 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → (𝑆𝑘)𝐺𝑘)
30 fvex 6676 . . . . . . . . . 10 (𝑆𝑘) ∈ V
31 vex 3495 . . . . . . . . . 10 𝑘 ∈ V
329, 15, 16, 30, 31heiborlem2 34971 . . . . . . . . 9 ((𝑆𝑘)𝐺𝑘 ↔ (𝑘 ∈ ℕ0 ∧ (𝑆𝑘) ∈ (𝐹𝑘) ∧ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
3332simp3bi 1139 . . . . . . . 8 ((𝑆𝑘)𝐺𝑘 → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3429, 33syl 17 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3528, 34sylan2 592 . . . . . 6 ((𝜑𝑘 ∈ ℕ) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3635ad2ant2r 743 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
374ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝐷 ∈ (∞Met‘𝑋))
389, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem5 34974 . . . . . . . . . . . . 13 (𝜑𝑀:ℕ⟶(𝑋 × ℝ+))
3938ffvelrnda 6843 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → (𝑀𝑘) ∈ (𝑋 × ℝ+))
4039ad2ant2r 743 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑀𝑘) ∈ (𝑋 × ℝ+))
41 xp1st 7710 . . . . . . . . . . 11 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (1st ‘(𝑀𝑘)) ∈ 𝑋)
4240, 41syl 17 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1st ‘(𝑀𝑘)) ∈ 𝑋)
43 2nn 11698 . . . . . . . . . . . . . . 15 2 ∈ ℕ
44 nnexpcl 13430 . . . . . . . . . . . . . . 15 ((2 ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (2↑𝑘) ∈ ℕ)
4543, 28, 44sylancr 587 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → (2↑𝑘) ∈ ℕ)
4645nnrpd 12417 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (2↑𝑘) ∈ ℝ+)
4746rpreccld 12429 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1 / (2↑𝑘)) ∈ ℝ+)
4847ad2antrl 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ∈ ℝ+)
4948rpxrd 12420 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ∈ ℝ*)
50 xp2nd 7711 . . . . . . . . . . . 12 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (2nd ‘(𝑀𝑘)) ∈ ℝ+)
5140, 50syl 17 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) ∈ ℝ+)
5251rpxrd 12420 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) ∈ ℝ*)
53 1le3 11837 . . . . . . . . . . . . . 14 1 ≤ 3
54 elrp 12379 . . . . . . . . . . . . . . 15 ((2↑𝑘) ∈ ℝ+ ↔ ((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘)))
55 1re 10629 . . . . . . . . . . . . . . . 16 1 ∈ ℝ
56 3re 11705 . . . . . . . . . . . . . . . 16 3 ∈ ℝ
57 lediv1 11493 . . . . . . . . . . . . . . . 16 ((1 ∈ ℝ ∧ 3 ∈ ℝ ∧ ((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘))) → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
5855, 56, 57mp3an12 1442 . . . . . . . . . . . . . . 15 (((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘)) → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
5954, 58sylbi 218 . . . . . . . . . . . . . 14 ((2↑𝑘) ∈ ℝ+ → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
6053, 59mpbii 234 . . . . . . . . . . . . 13 ((2↑𝑘) ∈ ℝ+ → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
6146, 60syl 17 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
6261ad2antrl 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
63 fveq2 6663 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑘 → (𝑆𝑛) = (𝑆𝑘))
64 oveq2 7153 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑘 → (2↑𝑛) = (2↑𝑘))
6564oveq2d 7161 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑘 → (3 / (2↑𝑛)) = (3 / (2↑𝑘)))
6663, 65opeq12d 4803 . . . . . . . . . . . . . . 15 (𝑛 = 𝑘 → ⟨(𝑆𝑛), (3 / (2↑𝑛))⟩ = ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩)
67 opex 5347 . . . . . . . . . . . . . . 15 ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩ ∈ V
6866, 23, 67fvmpt 6761 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → (𝑀𝑘) = ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩)
6968fveq2d 6667 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (2nd ‘(𝑀𝑘)) = (2nd ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩))
70 ovex 7178 . . . . . . . . . . . . . 14 (3 / (2↑𝑘)) ∈ V
7130, 70op2nd 7687 . . . . . . . . . . . . 13 (2nd ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩) = (3 / (2↑𝑘))
7269, 71syl6eq 2869 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (2nd ‘(𝑀𝑘)) = (3 / (2↑𝑘)))
7372ad2antrl 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) = (3 / (2↑𝑘)))
7462, 73breqtrrd 5085 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ≤ (2nd ‘(𝑀𝑘)))
75 ssbl 22960 . . . . . . . . . 10 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ ((1 / (2↑𝑘)) ∈ ℝ* ∧ (2nd ‘(𝑀𝑘)) ∈ ℝ*) ∧ (1 / (2↑𝑘)) ≤ (2nd ‘(𝑀𝑘))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))))
7637, 42, 49, 52, 74, 75syl221anc 1373 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))))
7728ad2antrl 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑘 ∈ ℕ0)
78 oveq1 7152 . . . . . . . . . . . 12 (𝑧 = (1st ‘(𝑀𝑘)) → (𝑧(ball‘𝐷)(1 / (2↑𝑚))) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑚))))
79 oveq2 7153 . . . . . . . . . . . . . 14 (𝑚 = 𝑘 → (2↑𝑚) = (2↑𝑘))
8079oveq2d 7161 . . . . . . . . . . . . 13 (𝑚 = 𝑘 → (1 / (2↑𝑚)) = (1 / (2↑𝑘)))
8180oveq2d 7161 . . . . . . . . . . . 12 (𝑚 = 𝑘 → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑚))) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
82 ovex 7178 . . . . . . . . . . . 12 ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ∈ V
8378, 81, 17, 82ovmpo 7299 . . . . . . . . . . 11 (((1st ‘(𝑀𝑘)) ∈ 𝑋𝑘 ∈ ℕ0) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
8442, 77, 83syl2anc 584 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
8568fveq2d 6667 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (1st ‘(𝑀𝑘)) = (1st ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩))
8630, 70op1st 7686 . . . . . . . . . . . . 13 (1st ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩) = (𝑆𝑘)
8785, 86syl6eq 2869 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1st ‘(𝑀𝑘)) = (𝑆𝑘))
8887ad2antrl 724 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1st ‘(𝑀𝑘)) = (𝑆𝑘))
8988oveq1d 7160 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((𝑆𝑘)𝐵𝑘))
9084, 89eqtr3d 2855 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) = ((𝑆𝑘)𝐵𝑘))
91 1st2nd2 7717 . . . . . . . . . . . 12 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (𝑀𝑘) = ⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
9240, 91syl 17 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑀𝑘) = ⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
9392fveq2d 6667 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) = ((ball‘𝐷)‘⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩))
94 df-ov 7148 . . . . . . . . . 10 ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) = ((ball‘𝐷)‘⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
9593, 94syl6reqr 2872 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) = ((ball‘𝐷)‘(𝑀𝑘)))
9676, 90, 953sstr3d 4010 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ⊆ ((ball‘𝐷)‘(𝑀𝑘)))
979mopntop 22977 . . . . . . . . . . 11 (𝐷 ∈ (∞Met‘𝑋) → 𝐽 ∈ Top)
9837, 97syl 17 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝐽 ∈ Top)
99 blssm 22955 . . . . . . . . . . . 12 ((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋 ∧ (2nd ‘(𝑀𝑘)) ∈ ℝ*) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) ⊆ 𝑋)
10037, 42, 52, 99syl3anc 1363 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) ⊆ 𝑋)
1019mopnuni 22978 . . . . . . . . . . . 12 (𝐷 ∈ (∞Met‘𝑋) → 𝑋 = 𝐽)
10237, 101syl 17 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑋 = 𝐽)
103100, 95, 1023sstr3d 4010 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ 𝐽)
104 eqid 2818 . . . . . . . . . . 11 𝐽 = 𝐽
105104sscls 21592 . . . . . . . . . 10 ((𝐽 ∈ Top ∧ ((ball‘𝐷)‘(𝑀𝑘)) ⊆ 𝐽) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10698, 103, 105syl2anc 584 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10795fveq2d 6667 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) = ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10812ad2antlr 723 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑥 / 2) ∈ ℝ+)
109108rpxrd 12420 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑥 / 2) ∈ ℝ*)
110 simprr 769 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
1119blsscls 23044 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ ((2nd ‘(𝑀𝑘)) ∈ ℝ* ∧ (𝑥 / 2) ∈ ℝ* ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
11237, 42, 52, 109, 110, 111syl23anc 1369 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
113107, 112eqsstrrd 4003 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
114 rpre 12385 . . . . . . . . . . . 12 (𝑥 ∈ ℝ+𝑥 ∈ ℝ)
115114ad2antlr 723 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑥 ∈ ℝ)
116 heibor.17 . . . . . . . . . . . . . . 15 (𝜑 → (1st𝑀)(⇝𝑡𝐽)𝑌)
1179, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem6 34975 . . . . . . . . . . . . . . . . 17 (𝜑 → ∀𝑡 ∈ ℕ ((ball‘𝐷)‘(𝑀‘(𝑡 + 1))) ⊆ ((ball‘𝐷)‘(𝑀𝑡)))
1184, 38, 117, 9caublcls 23839 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (1st𝑀)(⇝𝑡𝐽)𝑌𝑘 ∈ ℕ) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
1191183expia 1113 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (1st𝑀)(⇝𝑡𝐽)𝑌) → (𝑘 ∈ ℕ → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘)))))
120116, 119mpdan 683 . . . . . . . . . . . . . 14 (𝜑 → (𝑘 ∈ ℕ → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘)))))
121120imp 407 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
122121ad2ant2r 743 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
123113, 122sseldd 3965 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑌 ∈ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
124 blhalf 22942 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ (𝑥 ∈ ℝ ∧ 𝑌 ∈ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)) ⊆ (𝑌(ball‘𝐷)𝑥))
12537, 42, 115, 123, 124syl22anc 834 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)) ⊆ (𝑌(ball‘𝐷)𝑥))
126113, 125sstrd 3974 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))) ⊆ (𝑌(ball‘𝐷)𝑥))
127106, 126sstrd 3974 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ (𝑌(ball‘𝐷)𝑥))
12896, 127sstrd 3974 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ⊆ (𝑌(ball‘𝐷)𝑥))
129 sstr2 3971 . . . . . . 7 (((𝑆𝑘)𝐵𝑘) ⊆ (𝑌(ball‘𝐷)𝑥) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
130128, 129syl 17 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
131 unisng 4845 . . . . . . . . . . . . 13 (𝑍𝑈 {𝑍} = 𝑍)
1326, 131syl 17 . . . . . . . . . . . 12 (𝜑 {𝑍} = 𝑍)
133132sseq2d 3996 . . . . . . . . . . 11 (𝜑 → (((𝑆𝑘)𝐵𝑘) ⊆ {𝑍} ↔ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
134133biimpar 478 . . . . . . . . . 10 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍})
1356snssd 4734 . . . . . . . . . . . . 13 (𝜑 → {𝑍} ⊆ 𝑈)
136 snex 5322 . . . . . . . . . . . . . 14 {𝑍} ∈ V
137136elpw 4542 . . . . . . . . . . . . 13 ({𝑍} ∈ 𝒫 𝑈 ↔ {𝑍} ⊆ 𝑈)
138135, 137sylibr 235 . . . . . . . . . . . 12 (𝜑 → {𝑍} ∈ 𝒫 𝑈)
139 snfi 8582 . . . . . . . . . . . . 13 {𝑍} ∈ Fin
140139a1i 11 . . . . . . . . . . . 12 (𝜑 → {𝑍} ∈ Fin)
141138, 140elind 4168 . . . . . . . . . . 11 (𝜑 → {𝑍} ∈ (𝒫 𝑈 ∩ Fin))
142 unieq 4838 . . . . . . . . . . . . 13 (𝑣 = {𝑍} → 𝑣 = {𝑍})
143142sseq2d 3996 . . . . . . . . . . . 12 (𝑣 = {𝑍} → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑣 ↔ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}))
144143rspcev 3620 . . . . . . . . . . 11 (({𝑍} ∈ (𝒫 𝑈 ∩ Fin) ∧ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
145141, 144sylan 580 . . . . . . . . . 10 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
146134, 145syldan 591 . . . . . . . . 9 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
147 ovex 7178 . . . . . . . . . . 11 ((𝑆𝑘)𝐵𝑘) ∈ V
148 sseq1 3989 . . . . . . . . . . . . 13 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (𝑢 𝑣 ↔ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
149148rexbidv 3294 . . . . . . . . . . . 12 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣 ↔ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
150149notbid 319 . . . . . . . . . . 11 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣 ↔ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
151147, 150, 15elab2 3667 . . . . . . . . . 10 (((𝑆𝑘)𝐵𝑘) ∈ 𝐾 ↔ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
152151con2bii 359 . . . . . . . . 9 (∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣 ↔ ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
153146, 152sylib 219 . . . . . . . 8 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
154153ex 413 . . . . . . 7 (𝜑 → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
155154ad2antrr 722 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
156130, 155syld 47 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
15736, 156mt2d 138 . . . 4 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ¬ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
15827, 157rexlimddv 3288 . . 3 ((𝜑𝑥 ∈ ℝ+) → ¬ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
159158nrexdv 3267 . 2 (𝜑 → ¬ ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
16011, 159pm2.21dd 196 1 (𝜑𝜓)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1079   = wceq 1528  wcel 2105  {cab 2796  wral 3135  wrex 3136  Vcvv 3492  cin 3932  wss 3933  ifcif 4463  𝒫 cpw 4535  {csn 4557  cop 4563   cuni 4830   ciun 4910   class class class wbr 5057  {copab 5119  cmpt 5137   × cxp 5546  ccom 5552  wf 6344  cfv 6348  (class class class)co 7145  cmpo 7147  1st c1st 7676  2nd c2nd 7677  Fincfn 8497  cr 10524  0cc0 10525  1c1 10526   + caddc 10528  *cxr 10662   < clt 10663  cle 10664  cmin 10858   / cdiv 11285  cn 11626  2c2 11680  3c3 11681  0cn0 11885  +crp 12377  seqcseq 13357  cexp 13417  ∞Metcxmet 20458  Metcmet 20459  ballcbl 20460  MetOpencmopn 20463  Topctop 21429  clsccl 21554  𝑡clm 21762  CMetccmet 23784
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7450  ax-cnex 10581  ax-resscn 10582  ax-1cn 10583  ax-icn 10584  ax-addcl 10585  ax-addrcl 10586  ax-mulcl 10587  ax-mulrcl 10588  ax-mulcom 10589  ax-addass 10590  ax-mulass 10591  ax-distr 10592  ax-i2m1 10593  ax-1ne0 10594  ax-1rid 10595  ax-rnegex 10596  ax-rrecex 10597  ax-cnre 10598  ax-pre-lttri 10599  ax-pre-lttrn 10600  ax-pre-ltadd 10601  ax-pre-mulgt0 10602  ax-pre-sup 10603
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3or 1080  df-3an 1081  df-tru 1531  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ne 3014  df-nel 3121  df-ral 3140  df-rex 3141  df-reu 3142  df-rmo 3143  df-rab 3144  df-v 3494  df-sbc 3770  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-pss 3951  df-nul 4289  df-if 4464  df-pw 4537  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-uni 4831  df-int 4868  df-iun 4912  df-iin 4913  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-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-riota 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-om 7570  df-1st 7678  df-2nd 7679  df-wrecs 7936  df-recs 7997  df-rdg 8035  df-1o 8091  df-er 8278  df-map 8397  df-pm 8398  df-en 8498  df-dom 8499  df-sdom 8500  df-fin 8501  df-sup 8894  df-inf 8895  df-pnf 10665  df-mnf 10666  df-xr 10667  df-ltxr 10668  df-le 10669  df-sub 10860  df-neg 10861  df-div 11286  df-nn 11627  df-2 11688  df-3 11689  df-n0 11886  df-z 11970  df-uz 12232  df-q 12337  df-rp 12378  df-xneg 12495  df-xadd 12496  df-xmul 12497  df-fl 13150  df-seq 13358  df-exp 13418  df-topgen 16705  df-psmet 20465  df-xmet 20466  df-met 20467  df-bl 20468  df-mopn 20469  df-top 21430  df-topon 21447  df-bases 21482  df-cld 21555  df-ntr 21556  df-cls 21557  df-lm 21765  df-cmet 23787
This theorem is referenced by:  heiborlem9  34978
  Copyright terms: Public domain W3C validator