Metamath Proof Explorer


Theorem qndenserrnopnlem

Description: n-dimensional rational numbers are dense in the space of n-dimensional real numbers, with respect to the n-dimensional standard topology. (Contributed by Glauco Siliprandi, 24-Dec-2020)

Ref Expression
Hypotheses qndenserrnopnlem.i ⊢ φ → I ∈ Fin
qndenserrnopnlem.j ⊢ J = TopOpen ⁡ I
qndenserrnopnlem.v ⊢ φ → V ∈ J
qndenserrnopnlem.x ⊢ φ → X ∈ V
qndenserrnopnlem.d ⊢ D = dist ⁡ I
Assertion qndenserrnopnlem ⊢ φ → ∃ y ∈ ℚ I y ∈ V

Proof

Step Hyp Ref Expression
1 qndenserrnopnlem.i ⊢ φ → I ∈ Fin
2 qndenserrnopnlem.j ⊢ J = TopOpen ⁡ I
3 qndenserrnopnlem.v ⊢ φ → V ∈ J
4 qndenserrnopnlem.x ⊢ φ → X ∈ V
5 qndenserrnopnlem.d ⊢ D = dist ⁡ I
6 5 rrxmetfi ⊢ I ∈ Fin → D ∈ Met ⁡ ℝ I
7 1 6 syl ⊢ φ → D ∈ Met ⁡ ℝ I
8 metxmet ⊢ D ∈ Met ⁡ ℝ I → D ∈ ∞Met ⁡ ℝ I
9 7 8 syl ⊢ φ → D ∈ ∞Met ⁡ ℝ I
10 3 2 eleqtrdi ⊢ φ → V ∈ TopOpen ⁡ I
11 1 rrxtopnfi ⊢ φ → TopOpen ⁡ I = MetOpen ⁡ f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ k ∈ I f ⁡ k − g ⁡ k 2
12 5 a1i ⊢ φ → D = dist ⁡ I
13 eqid ⊢ I = I
14 eqid ⊢ ℝ I = ℝ I
15 13 14 rrxdsfi ⊢ I ∈ Fin → dist ⁡ I = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ k ∈ I f ⁡ k − g ⁡ k 2
16 1 15 syl ⊢ φ → dist ⁡ I = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ k ∈ I f ⁡ k − g ⁡ k 2
17 12 16 eqtr2d ⊢ φ → f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ k ∈ I f ⁡ k − g ⁡ k 2 = D
18 17 fveq2d ⊢ φ → MetOpen ⁡ f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ k ∈ I f ⁡ k − g ⁡ k 2 = MetOpen ⁡ D
19 11 18 eqtrd ⊢ φ → TopOpen ⁡ I = MetOpen ⁡ D
20 10 19 eleqtrd ⊢ φ → V ∈ MetOpen ⁡ D
21 eqid ⊢ MetOpen ⁡ D = MetOpen ⁡ D
22 21 mopni2 ⊢ D ∈ ∞Met ⁡ ℝ I ∧ V ∈ MetOpen ⁡ D ∧ X ∈ V → ∃ e ∈ ℝ + X ball ⁡ D e ⊆ V
23 9 20 4 22 syl3anc ⊢ φ → ∃ e ∈ ℝ + X ball ⁡ D e ⊆ V
24 1 3ad2ant1 ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → I ∈ Fin
25 rrxtps ⊢ I ∈ Fin → I ∈ TopSp
26 1 25 syl ⊢ φ → I ∈ TopSp
27 eqid ⊢ Base I = Base I
28 27 2 istps ⊢ I ∈ TopSp ↔ J ∈ TopOn ⁡ Base I
29 26 28 sylib ⊢ φ → J ∈ TopOn ⁡ Base I
30 1 13 27 rrxbasefi ⊢ φ → Base I = ℝ I
31 30 fveq2d ⊢ φ → TopOn ⁡ Base I = TopOn ⁡ ℝ I
32 29 31 eleqtrd ⊢ φ → J ∈ TopOn ⁡ ℝ I
33 toponss ⊢ J ∈ TopOn ⁡ ℝ I ∧ V ∈ J → V ⊆ ℝ I
34 32 3 33 syl2anc ⊢ φ → V ⊆ ℝ I
35 34 4 sseldd ⊢ φ → X ∈ ℝ I
36 35 3ad2ant1 ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → X ∈ ℝ I
37 simp2 ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → e ∈ ℝ +
38 24 36 5 37 qndenserrnbl ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → ∃ y ∈ ℚ I y ∈ X ball ⁡ D e
39 ssel ⊢ X ball ⁡ D e ⊆ V → y ∈ X ball ⁡ D e → y ∈ V
40 39 adantr ⊢ X ball ⁡ D e ⊆ V ∧ y ∈ ℚ I → y ∈ X ball ⁡ D e → y ∈ V
41 40 3ad2antl3 ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V ∧ y ∈ ℚ I → y ∈ X ball ⁡ D e → y ∈ V
42 41 reximdva ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → ∃ y ∈ ℚ I y ∈ X ball ⁡ D e → ∃ y ∈ ℚ I y ∈ V
43 38 42 mpd ⊢ φ ∧ e ∈ ℝ + ∧ X ball ⁡ D e ⊆ V → ∃ y ∈ ℚ I y ∈ V
44 43 3exp ⊢ φ → e ∈ ℝ + → X ball ⁡ D e ⊆ V → ∃ y ∈ ℚ I y ∈ V
45 44 rexlimdv ⊢ φ → ∃ e ∈ ℝ + X ball ⁡ D e ⊆ V → ∃ y ∈ ℚ I y ∈ V
46 23 45 mpd ⊢ φ → ∃ y ∈ ℚ I y ∈ V