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 38555
Description: Lemma for heibor 38558. 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 25515 . . . 4 (𝐷 ∈ (CMet‘𝑋) → 𝐷 ∈ (Met‘𝑋))
3 metxmet 24561 . . . 4 (𝐷 ∈ (Met‘𝑋) → 𝐷 ∈ (∞Met‘𝑋))
41, 2, 33syl 19 . . 3 (𝜑𝐷 ∈ (∞Met‘𝑋))
5 heibor.13 . . . 4 (𝜑𝑈𝐽)
6 heibor.16 . . . 4 (𝜑𝑍𝑈)
75, 6sseldd 3935 . . 3 (𝜑𝑍𝐽)
8 heibor.15 . . 3 (𝜑𝑌𝑍)
9 heibor.1 . . . 4 𝐽 = (MetOpen‘𝐷)
109mopni2 24720 . . 3 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑍𝐽𝑌𝑍) → ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
114, 7, 8, 10syl3anc 1398 . 2 (𝜑 → ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
12 rphalfcl 13073 . . . . . 6 (𝑥 ∈ ℝ+ → (𝑥 / 2) ∈ ℝ+)
13 breq2 5111 . . . . . . . 8 (𝑟 = (𝑥 / 2) → ((2nd ‘(𝑀𝑘)) < 𝑟 ↔ (2nd ‘(𝑀𝑘)) < (𝑥 / 2)))
1413rexbidv 3188 . . . . . . 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 38554 . . . . . . 7 𝑟 ∈ ℝ+𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < 𝑟
2514, 24vtoclri 3547 . . . . . 6 ((𝑥 / 2) ∈ ℝ+ → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
2612, 25syl 18 . . . . 5 (𝑥 ∈ ℝ+ → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
2726adantl 487 . . . 4 ((𝜑𝑥 ∈ ℝ+) → ∃𝑘 ∈ ℕ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
28 nnnn0 12538 . . . . . . 7 (𝑘 ∈ ℕ → 𝑘 ∈ ℕ0)
299, 15, 16, 17, 1, 18, 19, 20, 21, 22heiborlem4 38551 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → (𝑆𝑘)𝐺𝑘)
30 fvex 6895 . . . . . . . . . 10 (𝑆𝑘) ∈ V
31 vex 3457 . . . . . . . . . 10 𝑘 ∈ V
329, 15, 16, 30, 31heiborlem2 38549 . . . . . . . . 9 ((𝑆𝑘)𝐺𝑘 ↔ (𝑘 ∈ ℕ0 ∧ (𝑆𝑘) ∈ (𝐹𝑘) ∧ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
3332simp3bi 1165 . . . . . . . 8 ((𝑆𝑘)𝐺𝑘 → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3429, 33syl 18 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3528, 34sylan2 605 . . . . . 6 ((𝜑𝑘 ∈ ℕ) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
3635ad2ant2r 760 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
374ad2antrr 739 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝐷 ∈ (∞Met‘𝑋))
389, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem5 38552 . . . . . . . . . . . . 13 (𝜑𝑀:ℕ⟶(𝑋 × ℝ+))
3938ffvelcdmda 7080 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → (𝑀𝑘) ∈ (𝑋 × ℝ+))
4039ad2ant2r 760 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑀𝑘) ∈ (𝑋 × ℝ+))
41 xp1st 8021 . . . . . . . . . . 11 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (1st ‘(𝑀𝑘)) ∈ 𝑋)
4240, 41syl 18 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1st ‘(𝑀𝑘)) ∈ 𝑋)
43 2nn 12341 . . . . . . . . . . . . . . 15 2 ∈ ℕ
44 nnexpcl 14140 . . . . . . . . . . . . . . 15 ((2 ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (2↑𝑘) ∈ ℕ)
4543, 28, 44sylancr 599 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → (2↑𝑘) ∈ ℕ)
4645nnrpd 13086 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (2↑𝑘) ∈ ℝ+)
4746rpreccld 13098 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1 / (2↑𝑘)) ∈ ℝ+)
4847ad2antrl 741 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ∈ ℝ+)
4948rpxrd 13089 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ∈ ℝ*)
50 xp2nd 8022 . . . . . . . . . . . 12 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (2nd ‘(𝑀𝑘)) ∈ ℝ+)
5140, 50syl 18 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) ∈ ℝ+)
5251rpxrd 13089 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) ∈ ℝ*)
53 1le3 12482 . . . . . . . . . . . . . 14 1 ≤ 3
54 elrp 13046 . . . . . . . . . . . . . . 15 ((2↑𝑘) ∈ ℝ+ ↔ ((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘)))
55 1re 11235 . . . . . . . . . . . . . . . 16 1 ∈ ℝ
56 3re 12348 . . . . . . . . . . . . . . . 16 3 ∈ ℝ
57 lediv1 12107 . . . . . . . . . . . . . . . 16 ((1 ∈ ℝ ∧ 3 ∈ ℝ ∧ ((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘))) → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
5855, 56, 57mp3an12 1480 . . . . . . . . . . . . . . 15 (((2↑𝑘) ∈ ℝ ∧ 0 < (2↑𝑘)) → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
5954, 58sylbi 220 . . . . . . . . . . . . . 14 ((2↑𝑘) ∈ ℝ+ → (1 ≤ 3 ↔ (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘))))
6053, 59mpbii 236 . . . . . . . . . . . . 13 ((2↑𝑘) ∈ ℝ+ → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
6146, 60syl 18 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
6261ad2antrl 741 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ≤ (3 / (2↑𝑘)))
63 fveq2 6882 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑘 → (𝑆𝑛) = (𝑆𝑘))
64 oveq2 7424 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑘 → (2↑𝑛) = (2↑𝑘))
6564oveq2d 7432 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑘 → (3 / (2↑𝑛)) = (3 / (2↑𝑘)))
6663, 65opeq12d 4844 . . . . . . . . . . . . . . 15 (𝑛 = 𝑘 → ⟨(𝑆𝑛), (3 / (2↑𝑛))⟩ = ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩)
67 opex 5443 . . . . . . . . . . . . . . 15 ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩ ∈ V
6866, 23, 67fvmpt 6990 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → (𝑀𝑘) = ⟨(𝑆𝑘), (3 / (2↑𝑘))⟩)
6968fveq2d 6886 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (2nd ‘(𝑀𝑘)) = (2nd ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩))
70 ovex 7449 . . . . . . . . . . . . . 14 (3 / (2↑𝑘)) ∈ V
7130, 70op2nd 7998 . . . . . . . . . . . . 13 (2nd ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩) = (3 / (2↑𝑘))
7269, 71eqtrdi 2813 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (2nd ‘(𝑀𝑘)) = (3 / (2↑𝑘)))
7372ad2antrl 741 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) = (3 / (2↑𝑘)))
7462, 73breqtrrd 5137 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1 / (2↑𝑘)) ≤ (2nd ‘(𝑀𝑘)))
75 ssbl 24650 . . . . . . . . . 10 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ ((1 / (2↑𝑘)) ∈ ℝ* ∧ (2nd ‘(𝑀𝑘)) ∈ ℝ*) ∧ (1 / (2↑𝑘)) ≤ (2nd ‘(𝑀𝑘))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))))
7637, 42, 49, 52, 74, 75syl221anc 1408 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))))
7728ad2antrl 741 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑘 ∈ ℕ0)
78 oveq1 7423 . . . . . . . . . . . 12 (𝑧 = (1st ‘(𝑀𝑘)) → (𝑧(ball‘𝐷)(1 / (2↑𝑚))) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑚))))
79 oveq2 7424 . . . . . . . . . . . . . 14 (𝑚 = 𝑘 → (2↑𝑚) = (2↑𝑘))
8079oveq2d 7432 . . . . . . . . . . . . 13 (𝑚 = 𝑘 → (1 / (2↑𝑚)) = (1 / (2↑𝑘)))
8180oveq2d 7432 . . . . . . . . . . . 12 (𝑚 = 𝑘 → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑚))) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
82 ovex 7449 . . . . . . . . . . . 12 ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) ∈ V
8378, 81, 17, 82ovmpo 7576 . . . . . . . . . . 11 (((1st ‘(𝑀𝑘)) ∈ 𝑋𝑘 ∈ ℕ0) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
8442, 77, 83syl2anc 596 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))))
8568fveq2d 6886 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (1st ‘(𝑀𝑘)) = (1st ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩))
8630, 70op1st 7997 . . . . . . . . . . . . 13 (1st ‘⟨(𝑆𝑘), (3 / (2↑𝑘))⟩) = (𝑆𝑘)
8785, 86eqtrdi 2813 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1st ‘(𝑀𝑘)) = (𝑆𝑘))
8887ad2antrl 741 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (1st ‘(𝑀𝑘)) = (𝑆𝑘))
8988oveq1d 7431 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))𝐵𝑘) = ((𝑆𝑘)𝐵𝑘))
9084, 89eqtr3d 2799 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(1 / (2↑𝑘))) = ((𝑆𝑘)𝐵𝑘))
91 df-ov 7419 . . . . . . . . . 10 ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) = ((ball‘𝐷)‘⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
92 1st2nd2 8028 . . . . . . . . . . . 12 ((𝑀𝑘) ∈ (𝑋 × ℝ+) → (𝑀𝑘) = ⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
9340, 92syl 18 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑀𝑘) = ⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩)
9493fveq2d 6886 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) = ((ball‘𝐷)‘⟨(1st ‘(𝑀𝑘)), (2nd ‘(𝑀𝑘))⟩))
9591, 94eqtr4id 2816 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) = ((ball‘𝐷)‘(𝑀𝑘)))
9676, 90, 953sstr3d 3988 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ⊆ ((ball‘𝐷)‘(𝑀𝑘)))
979mopntop 24667 . . . . . . . . . . 11 (𝐷 ∈ (∞Met‘𝑋) → 𝐽 ∈ Top)
9837, 97syl 18 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝐽 ∈ Top)
99 blssm 24645 . . . . . . . . . . . 12 ((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋 ∧ (2nd ‘(𝑀𝑘)) ∈ ℝ*) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) ⊆ 𝑋)
10037, 42, 52, 99syl3anc 1398 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘))) ⊆ 𝑋)
1019mopnuni 24668 . . . . . . . . . . . 12 (𝐷 ∈ (∞Met‘𝑋) → 𝑋 = 𝐽)
10237, 101syl 18 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑋 = 𝐽)
103100, 95, 1023sstr3d 3988 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ 𝐽)
104 eqid 2762 . . . . . . . . . . 11 𝐽 = 𝐽
105104sscls 23282 . . . . . . . . . 10 ((𝐽 ∈ Top ∧ ((ball‘𝐷)‘(𝑀𝑘)) ⊆ 𝐽) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10698, 103, 105syl2anc 596 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10795fveq2d 6886 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) = ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
10812ad2antlr 740 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑥 / 2) ∈ ℝ+)
109108rpxrd 13089 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (𝑥 / 2) ∈ ℝ*)
110 simprr 785 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (2nd ‘(𝑀𝑘)) < (𝑥 / 2))
1119blsscls 24734 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ ((2nd ‘(𝑀𝑘)) ∈ ℝ* ∧ (𝑥 / 2) ∈ ℝ* ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
11237, 42, 52, 109, 110, 111syl23anc 1404 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((1st ‘(𝑀𝑘))(ball‘𝐷)(2nd ‘(𝑀𝑘)))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
113107, 112eqsstrrd 3969 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))) ⊆ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
114 rpre 13053 . . . . . . . . . . . 12 (𝑥 ∈ ℝ+𝑥 ∈ ℝ)
115114ad2antlr 740 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑥 ∈ ℝ)
116 heibor.17 . . . . . . . . . . . . . . 15 (𝜑 → (1st𝑀)(⇝𝑡𝐽)𝑌)
1179, 15, 16, 17, 1, 18, 19, 20, 21, 22, 23heiborlem6 38553 . . . . . . . . . . . . . . . . 17 (𝜑 → ∀𝑡 ∈ ℕ ((ball‘𝐷)‘(𝑀‘(𝑡 + 1))) ⊆ ((ball‘𝐷)‘(𝑀𝑡)))
1184, 38, 117, 9caublcls 25538 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (1st𝑀)(⇝𝑡𝐽)𝑌𝑘 ∈ ℕ) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
1191183expia 1139 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (1st𝑀)(⇝𝑡𝐽)𝑌) → (𝑘 ∈ ℕ → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘)))))
120116, 119mpdan 700 . . . . . . . . . . . . . 14 (𝜑 → (𝑘 ∈ ℕ → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘)))))
121120imp 412 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
122121ad2ant2r 760 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑌 ∈ ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))))
123113, 122sseldd 3935 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → 𝑌 ∈ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))
124 blhalf 24632 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ (1st ‘(𝑀𝑘)) ∈ 𝑋) ∧ (𝑥 ∈ ℝ ∧ 𝑌 ∈ ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)) ⊆ (𝑌(ball‘𝐷)𝑥))
12537, 42, 115, 123, 124syl22anc 852 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((1st ‘(𝑀𝑘))(ball‘𝐷)(𝑥 / 2)) ⊆ (𝑌(ball‘𝐷)𝑥))
126113, 125sstrd 3944 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((cls‘𝐽)‘((ball‘𝐷)‘(𝑀𝑘))) ⊆ (𝑌(ball‘𝐷)𝑥))
127106, 126sstrd 3944 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((ball‘𝐷)‘(𝑀𝑘)) ⊆ (𝑌(ball‘𝐷)𝑥))
12896, 127sstrd 3944 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑆𝑘)𝐵𝑘) ⊆ (𝑌(ball‘𝐷)𝑥))
129 sstr2 3941 . . . . . . 7 (((𝑆𝑘)𝐵𝑘) ⊆ (𝑌(ball‘𝐷)𝑥) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
130128, 129syl 18 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
131 unisng 4888 . . . . . . . . . . . . 13 (𝑍𝑈 {𝑍} = 𝑍)
1326, 131syl 18 . . . . . . . . . . . 12 (𝜑 {𝑍} = 𝑍)
133132sseq2d 3966 . . . . . . . . . . 11 (𝜑 → (((𝑆𝑘)𝐵𝑘) ⊆ {𝑍} ↔ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍))
134133biimpar 483 . . . . . . . . . 10 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍})
1356snssd 4750 . . . . . . . . . . . . 13 (𝜑 → {𝑍} ⊆ 𝑈)
136 snex 5408 . . . . . . . . . . . . . 14 {𝑍} ∈ V
137136elpw 4564 . . . . . . . . . . . . 13 ({𝑍} ∈ 𝒫 𝑈 ↔ {𝑍} ⊆ 𝑈)
138135, 137sylibr 237 . . . . . . . . . . . 12 (𝜑 → {𝑍} ∈ 𝒫 𝑈)
139 snfi 9053 . . . . . . . . . . . . 13 {𝑍} ∈ Fin
140139a1i 11 . . . . . . . . . . . 12 (𝜑 → {𝑍} ∈ Fin)
141138, 140elind 4149 . . . . . . . . . . 11 (𝜑 → {𝑍} ∈ (𝒫 𝑈 ∩ Fin))
142 unieq 4881 . . . . . . . . . . . . 13 (𝑣 = {𝑍} → 𝑣 = {𝑍})
143142sseq2d 3966 . . . . . . . . . . . 12 (𝑣 = {𝑍} → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑣 ↔ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}))
144143rspcev 3579 . . . . . . . . . . 11 (({𝑍} ∈ (𝒫 𝑈 ∩ Fin) ∧ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
145141, 144sylan 592 . . . . . . . . . 10 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ {𝑍}) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
146134, 145syldan 603 . . . . . . . . 9 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
147 ovex 7449 . . . . . . . . . . 11 ((𝑆𝑘)𝐵𝑘) ∈ V
148 sseq1 3959 . . . . . . . . . . . . 13 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (𝑢 𝑣 ↔ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
149148rexbidv 3188 . . . . . . . . . . . 12 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣 ↔ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
150149notbid 321 . . . . . . . . . . 11 (𝑢 = ((𝑆𝑘)𝐵𝑘) → (¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)𝑢 𝑣 ↔ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣))
151147, 150, 15elab2 3639 . . . . . . . . . 10 (((𝑆𝑘)𝐵𝑘) ∈ 𝐾 ↔ ¬ ∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣)
152151con2bii 360 . . . . . . . . 9 (∃𝑣 ∈ (𝒫 𝑈 ∩ Fin)((𝑆𝑘)𝐵𝑘) ⊆ 𝑣 ↔ ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
153146, 152sylib 221 . . . . . . . 8 ((𝜑 ∧ ((𝑆𝑘)𝐵𝑘) ⊆ 𝑍) → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾)
154153ex 418 . . . . . . 7 (𝜑 → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
155154ad2antrr 739 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → (((𝑆𝑘)𝐵𝑘) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
156130, 155syld 48 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ((𝑌(ball‘𝐷)𝑥) ⊆ 𝑍 → ¬ ((𝑆𝑘)𝐵𝑘) ∈ 𝐾))
15736, 156mt2d 137 . . . 4 (((𝜑𝑥 ∈ ℝ+) ∧ (𝑘 ∈ ℕ ∧ (2nd ‘(𝑀𝑘)) < (𝑥 / 2))) → ¬ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
15827, 157rexlimddv 3171 . . 3 ((𝜑𝑥 ∈ ℝ+) → ¬ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
159158nrexdv 3159 . 2 (𝜑 → ¬ ∃𝑥 ∈ ℝ+ (𝑌(ball‘𝐷)𝑥) ⊆ 𝑍)
16011, 159pm2.21dd 198 1 (𝜑𝜓)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2145  {cab 2740  wral 3078  wrex 3088  Vcvv 3453  cin 3901  wss 3902  ifcif 4485  𝒫 cpw 4560  {csn 4587  cop 4593   cuni 4870   ciun 4954   class class class wbr 5107  {copab 5171  cmpt 5190   × cxp 5657  ccom 5663  wf 6533  cfv 6537  (class class class)co 7416  cmpo 7418  1st c1st 7987  2nd c2nd 7988  Fincfn 8955  cr 11126  0cc0 11127  1c1 11128   + caddc 11130  *cxr 11269   < clt 11270  cle 11271  cmin 11468   / cdiv 11898  cn 12260  2c2 12322  3c3 12323  0cn0 12531  +crp 13044  seqcseq 14067  cexp 14127  ∞Metcxmet 21571  Metcmet 21572  ballcbl 21573  MetOpencmopn 21576  Topctop 23119  clsccl 23244  𝑡clm 23452  CMetccmet 25483
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7739  ax-cnex 11183  ax-resscn 11184  ax-1cn 11185  ax-icn 11186  ax-addcl 11187  ax-addrcl 11188  ax-mulcl 11189  ax-mulrcl 11190  ax-mulcom 11191  ax-addass 11192  ax-mulass 11193  ax-distr 11194  ax-i2m1 11195  ax-1ne0 11196  ax-1rid 11197  ax-rnegex 11198  ax-rrecex 11199  ax-cnre 11200  ax-pre-lttri 11201  ax-pre-lttrn 11202  ax-pre-ltadd 11203  ax-pre-mulgt0 11204  ax-pre-sup 11205
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-int 4911  df-iun 4956  df-iin 4957  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-om 7866  df-1st 7989  df-2nd 7990  df-frecs 8283  df-wrecs 8314  df-recs 8363  df-rdg 8402  df-1o 8458  df-er 8699  df-map 8831  df-pm 8832  df-en 8956  df-dom 8957  df-sdom 8958  df-fin 8959  df-sup 9415  df-inf 9416  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11470  df-neg 11471  df-div 11899  df-nn 12261  df-2 12330  df-3 12331  df-n0 12532  df-z 12619  df-uz 12891  df-q 13001  df-rp 13045  df-xneg 13165  df-xadd 13166  df-xmul 13167  df-fl 13855  df-seq 14068  df-exp 14128  df-topgen 17532  df-psmet 21578  df-xmet 21579  df-met 21580  df-bl 21581  df-mopn 21582  df-top 23120  df-topon 23137  df-bases 23172  df-cld 23245  df-ntr 23246  df-cls 23247  df-lm 23455  df-cmet 25486
This theorem is used by:  heiborlem9  38556
  Copyright terms: Public domain W3C validator