Metamath Proof Explorer


Theorem smfpimbor1lem1

Description: Every open set belongs to T . This is the second step in the proof of Proposition 121E (f) of Fremlin1 p. 38 . (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses smfpimbor1lem1.s ⊢ φ → S ∈ SAlg
smfpimbor1lem1.f ⊢ φ → F ∈ SMblFn ⁡ S
smfpimbor1lem1.a ⊢ D = dom ⁡ F
smfpimbor1lem1.j ⊢ J = topGen ⁡ ran ⁡ .
smfpimbor1lem1.8 ⊢ φ → G ∈ J
smfpimbor1lem1.t ⊢ T = e ∈ 𝒫 ℝ | F -1 e ∈ S ↾ 𝑡 D
Assertion smfpimbor1lem1 ⊢ φ → G ∈ T

Proof

Step Hyp Ref Expression
1 smfpimbor1lem1.s ⊢ φ → S ∈ SAlg
2 smfpimbor1lem1.f ⊢ φ → F ∈ SMblFn ⁡ S
3 smfpimbor1lem1.a ⊢ D = dom ⁡ F
4 smfpimbor1lem1.j ⊢ J = topGen ⁡ ran ⁡ .
5 smfpimbor1lem1.8 ⊢ φ → G ∈ J
6 smfpimbor1lem1.t ⊢ T = e ∈ 𝒫 ℝ | F -1 e ∈ S ↾ 𝑡 D
7 4 5 tgqioo2 ⊢ φ → ∃ q q ⊆ . ℚ × ℚ ∧ G = ⋃ q
8 simprr ⊢ φ ∧ q ⊆ . ℚ × ℚ ∧ G = ⋃ q → G = ⋃ q
9 1 2 3 6 smfresal ⊢ φ → T ∈ SAlg
10 9 adantr ⊢ φ ∧ q ⊆ . ℚ × ℚ → T ∈ SAlg
11 iooex ⊢ . ∈ V
12 11 imaexi ⊢ . ℚ × ℚ ∈ V
13 12 a1i ⊢ q ⊆ . ℚ × ℚ → . ℚ × ℚ ∈ V
14 id ⊢ q ⊆ . ℚ × ℚ → q ⊆ . ℚ × ℚ
15 13 14 ssexd ⊢ q ⊆ . ℚ × ℚ → q ∈ V
16 15 adantl ⊢ φ ∧ q ⊆ . ℚ × ℚ → q ∈ V
17 simpr ⊢ φ ∧ q ⊆ . ℚ × ℚ → q ⊆ . ℚ × ℚ
18 ioofun ⊢ Fun ⁡ .
19 18 a1i ⊢ q ∈ . ℚ × ℚ → Fun ⁡ .
20 id ⊢ q ∈ . ℚ × ℚ → q ∈ . ℚ × ℚ
21 fvelima ⊢ Fun ⁡ . ∧ q ∈ . ℚ × ℚ → ∃ p ∈ ℚ × ℚ . ⁡ p = q
22 19 20 21 syl2anc ⊢ q ∈ . ℚ × ℚ → ∃ p ∈ ℚ × ℚ . ⁡ p = q
23 22 adantl ⊢ φ ∧ q ∈ . ℚ × ℚ → ∃ p ∈ ℚ × ℚ . ⁡ p = q
24 id ⊢ . ⁡ p = q → . ⁡ p = q
25 24 eqcomd ⊢ . ⁡ p = q → q = . ⁡ p
26 25 adantl ⊢ p ∈ ℚ × ℚ ∧ . ⁡ p = q → q = . ⁡ p
27 1st2nd2 ⊢ p ∈ ℚ × ℚ → p = 1 st ⁡ p 2 nd ⁡ p
28 27 fveq2d ⊢ p ∈ ℚ × ℚ → . ⁡ p = . ⁡ 1 st ⁡ p 2 nd ⁡ p
29 df-ov ⊢ 1 st ⁡ p 2 nd ⁡ p = . ⁡ 1 st ⁡ p 2 nd ⁡ p
30 29 eqcomi ⊢ . ⁡ 1 st ⁡ p 2 nd ⁡ p = 1 st ⁡ p 2 nd ⁡ p
31 30 a1i ⊢ p ∈ ℚ × ℚ → . ⁡ 1 st ⁡ p 2 nd ⁡ p = 1 st ⁡ p 2 nd ⁡ p
32 28 31 eqtrd ⊢ p ∈ ℚ × ℚ → . ⁡ p = 1 st ⁡ p 2 nd ⁡ p
33 32 adantr ⊢ p ∈ ℚ × ℚ ∧ . ⁡ p = q → . ⁡ p = 1 st ⁡ p 2 nd ⁡ p
34 26 33 eqtrd ⊢ p ∈ ℚ × ℚ ∧ . ⁡ p = q → q = 1 st ⁡ p 2 nd ⁡ p
35 34 3adant1 ⊢ φ ∧ p ∈ ℚ × ℚ ∧ . ⁡ p = q → q = 1 st ⁡ p 2 nd ⁡ p
36 ioossre ⊢ 1 st ⁡ p 2 nd ⁡ p ⊆ ℝ
37 ovex ⊢ 1 st ⁡ p 2 nd ⁡ p ∈ V
38 37 elpw ⊢ 1 st ⁡ p 2 nd ⁡ p ∈ 𝒫 ℝ ↔ 1 st ⁡ p 2 nd ⁡ p ⊆ ℝ
39 36 38 mpbir ⊢ 1 st ⁡ p 2 nd ⁡ p ∈ 𝒫 ℝ
40 39 a1i ⊢ φ ∧ p ∈ ℚ × ℚ → 1 st ⁡ p 2 nd ⁡ p ∈ 𝒫 ℝ
41 1 adantr ⊢ φ ∧ p ∈ ℚ × ℚ → S ∈ SAlg
42 2 adantr ⊢ φ ∧ p ∈ ℚ × ℚ → F ∈ SMblFn ⁡ S
43 xp1st ⊢ p ∈ ℚ × ℚ → 1 st ⁡ p ∈ ℚ
44 43 qred ⊢ p ∈ ℚ × ℚ → 1 st ⁡ p ∈ ℝ
45 44 rexrd ⊢ p ∈ ℚ × ℚ → 1 st ⁡ p ∈ ℝ *
46 45 adantl ⊢ φ ∧ p ∈ ℚ × ℚ → 1 st ⁡ p ∈ ℝ *
47 xp2nd ⊢ p ∈ ℚ × ℚ → 2 nd ⁡ p ∈ ℚ
48 47 qred ⊢ p ∈ ℚ × ℚ → 2 nd ⁡ p ∈ ℝ
49 48 rexrd ⊢ p ∈ ℚ × ℚ → 2 nd ⁡ p ∈ ℝ *
50 49 adantl ⊢ φ ∧ p ∈ ℚ × ℚ → 2 nd ⁡ p ∈ ℝ *
51 41 42 3 46 50 smfpimioo ⊢ φ ∧ p ∈ ℚ × ℚ → F -1 1 st ⁡ p 2 nd ⁡ p ∈ S ↾ 𝑡 D
52 40 51 jca ⊢ φ ∧ p ∈ ℚ × ℚ → 1 st ⁡ p 2 nd ⁡ p ∈ 𝒫 ℝ ∧ F -1 1 st ⁡ p 2 nd ⁡ p ∈ S ↾ 𝑡 D
53 imaeq2 ⊢ e = 1 st ⁡ p 2 nd ⁡ p → F -1 e = F -1 1 st ⁡ p 2 nd ⁡ p
54 53 eleq1d ⊢ e = 1 st ⁡ p 2 nd ⁡ p → F -1 e ∈ S ↾ 𝑡 D ↔ F -1 1 st ⁡ p 2 nd ⁡ p ∈ S ↾ 𝑡 D
55 54 6 elrab2 ⊢ 1 st ⁡ p 2 nd ⁡ p ∈ T ↔ 1 st ⁡ p 2 nd ⁡ p ∈ 𝒫 ℝ ∧ F -1 1 st ⁡ p 2 nd ⁡ p ∈ S ↾ 𝑡 D
56 52 55 sylibr ⊢ φ ∧ p ∈ ℚ × ℚ → 1 st ⁡ p 2 nd ⁡ p ∈ T
57 56 3adant3 ⊢ φ ∧ p ∈ ℚ × ℚ ∧ . ⁡ p = q → 1 st ⁡ p 2 nd ⁡ p ∈ T
58 35 57 eqeltrd ⊢ φ ∧ p ∈ ℚ × ℚ ∧ . ⁡ p = q → q ∈ T
59 58 3exp ⊢ φ → p ∈ ℚ × ℚ → . ⁡ p = q → q ∈ T
60 59 rexlimdv ⊢ φ → ∃ p ∈ ℚ × ℚ . ⁡ p = q → q ∈ T
61 60 adantr ⊢ φ ∧ q ∈ . ℚ × ℚ → ∃ p ∈ ℚ × ℚ . ⁡ p = q → q ∈ T
62 23 61 mpd ⊢ φ ∧ q ∈ . ℚ × ℚ → q ∈ T
63 62 ssd ⊢ φ → . ℚ × ℚ ⊆ T
64 63 adantr ⊢ φ ∧ q ⊆ . ℚ × ℚ → . ℚ × ℚ ⊆ T
65 17 64 sstrd ⊢ φ ∧ q ⊆ . ℚ × ℚ → q ⊆ T
66 16 65 elpwd ⊢ φ ∧ q ⊆ . ℚ × ℚ → q ∈ 𝒫 T
67 ssdomg ⊢ . ℚ × ℚ ∈ V → q ⊆ . ℚ × ℚ → q ≼ . ℚ × ℚ
68 12 67 ax-mp ⊢ q ⊆ . ℚ × ℚ → q ≼ . ℚ × ℚ
69 qct ⊢ ℚ ≼ ω
70 69 69 pm3.2i ⊢ ℚ ≼ ω ∧ ℚ ≼ ω
71 xpct ⊢ ℚ ≼ ω ∧ ℚ ≼ ω → ℚ × ℚ ≼ ω
72 70 71 ax-mp ⊢ ℚ × ℚ ≼ ω
73 fimact ⊢ ℚ × ℚ ≼ ω ∧ Fun ⁡ . → . ℚ × ℚ ≼ ω
74 72 18 73 mp2an ⊢ . ℚ × ℚ ≼ ω
75 74 a1i ⊢ q ⊆ . ℚ × ℚ → . ℚ × ℚ ≼ ω
76 domtr ⊢ q ≼ . ℚ × ℚ ∧ . ℚ × ℚ ≼ ω → q ≼ ω
77 68 75 76 syl2anc ⊢ q ⊆ . ℚ × ℚ → q ≼ ω
78 77 adantl ⊢ φ ∧ q ⊆ . ℚ × ℚ → q ≼ ω
79 10 66 78 salunicl ⊢ φ ∧ q ⊆ . ℚ × ℚ → ⋃ q ∈ T
80 79 adantrr ⊢ φ ∧ q ⊆ . ℚ × ℚ ∧ G = ⋃ q → ⋃ q ∈ T
81 8 80 eqeltrd ⊢ φ ∧ q ⊆ . ℚ × ℚ ∧ G = ⋃ q → G ∈ T
82 81 ex ⊢ φ → q ⊆ . ℚ × ℚ ∧ G = ⋃ q → G ∈ T
83 82 exlimdv ⊢ φ → ∃ q q ⊆ . ℚ × ℚ ∧ G = ⋃ q → G ∈ T
84 7 83 mpd ⊢ φ → G ∈ T