Metamath Proof Explorer


Theorem rrhcn

Description: If the topology of R is Hausdorff, and R is a complete uniform space, then the canonical homomorphism from the real numbers to R is continuous. (Contributed by Thierry Arnoux, 17-Jan-2018)

Ref Expression
Hypotheses rrhf.d ⊢ D = dist ⁡ R ↾ B × B
rrhf.j ⊢ J = topGen ⁡ ran ⁡ .
rrhf.b ⊢ B = Base R
rrhf.k ⊢ K = TopOpen ⁡ R
rrhf.z ⊢ Z = ℤMod ⁡ R
rrhf.1 ⊢ φ → R ∈ DivRing
rrhf.2 ⊢ φ → R ∈ NrmRing
rrhf.3 ⊢ φ → Z ∈ NrmMod
rrhf.4 ⊢ φ → chr ⁡ R = 0
rrhf.5 ⊢ φ → R ∈ CUnifSp
rrhf.6 ⊢ φ → UnifSt ⁡ R = metUnif ⁡ D
Assertion rrhcn ⊢ φ → ℝHom ⁡ R ∈ J Cn K

Proof

Step Hyp Ref Expression
1 rrhf.d ⊢ D = dist ⁡ R ↾ B × B
2 rrhf.j ⊢ J = topGen ⁡ ran ⁡ .
3 rrhf.b ⊢ B = Base R
4 rrhf.k ⊢ K = TopOpen ⁡ R
5 rrhf.z ⊢ Z = ℤMod ⁡ R
6 rrhf.1 ⊢ φ → R ∈ DivRing
7 rrhf.2 ⊢ φ → R ∈ NrmRing
8 rrhf.3 ⊢ φ → Z ∈ NrmMod
9 rrhf.4 ⊢ φ → chr ⁡ R = 0
10 rrhf.5 ⊢ φ → R ∈ CUnifSp
11 rrhf.6 ⊢ φ → UnifSt ⁡ R = metUnif ⁡ D
12 nrgngp ⊢ R ∈ NrmRing → R ∈ NrmGrp
13 ngpxms ⊢ R ∈ NrmGrp → R ∈ ∞MetSp
14 7 12 13 3syl ⊢ φ → R ∈ ∞MetSp
15 xmstps ⊢ R ∈ ∞MetSp → R ∈ TopSp
16 14 15 syl ⊢ φ → R ∈ TopSp
17 2 4 rrhval ⊢ R ∈ TopSp → ℝHom ⁡ R = J CnExt K ⁡ ℚHom ⁡ R
18 16 17 syl ⊢ φ → ℝHom ⁡ R = J CnExt K ⁡ ℚHom ⁡ R
19 rebase ⊢ ℝ = Base ℝ fld
20 retopn ⊢ topGen ⁡ ran ⁡ . = TopOpen ⁡ ℝ fld
21 2 20 eqtri ⊢ J = TopOpen ⁡ ℝ fld
22 eqid ⊢ UnifSt ⁡ ℝ fld = UnifSt ⁡ ℝ fld
23 df-refld ⊢ ℝ fld = ℂ fld ↾ 𝑠 ℝ
24 23 oveq1i ⊢ ℝ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℝ ↾ 𝑠 ℚ
25 reex ⊢ ℝ ∈ V
26 qssre ⊢ ℚ ⊆ ℝ
27 ressabs ⊢ ℝ ∈ V ∧ ℚ ⊆ ℝ → ℂ fld ↾ 𝑠 ℝ ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℚ
28 25 26 27 mp2an ⊢ ℂ fld ↾ 𝑠 ℝ ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℚ
29 24 28 eqtr2i ⊢ ℂ fld ↾ 𝑠 ℚ = ℝ fld ↾ 𝑠 ℚ
30 29 fveq2i ⊢ UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ = UnifSt ⁡ ℝ fld ↾ 𝑠 ℚ
31 eqid ⊢ UnifSt ⁡ R = UnifSt ⁡ R
32 recms ⊢ ℝ fld ∈ CMetSp
33 cmsms ⊢ ℝ fld ∈ CMetSp → ℝ fld ∈ MetSp
34 mstps ⊢ ℝ fld ∈ MetSp → ℝ fld ∈ TopSp
35 32 33 34 mp2b ⊢ ℝ fld ∈ TopSp
36 35 a1i ⊢ φ → ℝ fld ∈ TopSp
37 recusp ⊢ ℝ fld ∈ CUnifSp
38 cuspusp ⊢ ℝ fld ∈ CUnifSp → ℝ fld ∈ UnifSp
39 37 38 mp1i ⊢ φ → ℝ fld ∈ UnifSp
40 4 3 1 xmstopn ⊢ R ∈ ∞MetSp → K = MetOpen ⁡ D
41 14 40 syl ⊢ φ → K = MetOpen ⁡ D
42 3 1 xmsxmet ⊢ R ∈ ∞MetSp → D ∈ ∞Met ⁡ B
43 eqid ⊢ MetOpen ⁡ D = MetOpen ⁡ D
44 43 methaus ⊢ D ∈ ∞Met ⁡ B → MetOpen ⁡ D ∈ Haus
45 14 42 44 3syl ⊢ φ → MetOpen ⁡ D ∈ Haus
46 41 45 eqeltrd ⊢ φ → K ∈ Haus
47 26 a1i ⊢ φ → ℚ ⊆ ℝ
48 eqid ⊢ ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℚ
49 eqid ⊢ UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ = UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ
50 1 fveq2i ⊢ metUnif ⁡ D = metUnif ⁡ dist ⁡ R ↾ B × B
51 3 48 49 50 5 7 6 8 9 qqhucn ⊢ φ → ℚHom ⁡ R ∈ UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ uCn metUnif ⁡ D
52 11 eqcomd ⊢ φ → metUnif ⁡ D = UnifSt ⁡ R
53 52 oveq2d ⊢ φ → UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ uCn metUnif ⁡ D = UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ uCn UnifSt ⁡ R
54 51 53 eleqtrd ⊢ φ → ℚHom ⁡ R ∈ UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ uCn UnifSt ⁡ R
55 2 fveq2i ⊢ cls ⁡ J = cls ⁡ topGen ⁡ ran ⁡ .
56 55 fveq1i ⊢ cls ⁡ J ⁡ ℚ = cls ⁡ topGen ⁡ ran ⁡ . ⁡ ℚ
57 qdensere ⊢ cls ⁡ topGen ⁡ ran ⁡ . ⁡ ℚ = ℝ
58 56 57 eqtri ⊢ cls ⁡ J ⁡ ℚ = ℝ
59 58 a1i ⊢ φ → cls ⁡ J ⁡ ℚ = ℝ
60 19 3 21 4 22 30 31 36 39 16 10 46 47 54 59 ucnextcn ⊢ φ → J CnExt K ⁡ ℚHom ⁡ R ∈ J Cn K
61 18 60 eqeltrd ⊢ φ → ℝHom ⁡ R ∈ J Cn K