Metamath Proof Explorer


Theorem qqhucn

Description: The QQHom homomorphism is uniformly continuous. (Contributed by Thierry Arnoux, 28-Jan-2018)

Ref Expression
Hypotheses qqhucn.b ⊢ B = Base R
qqhucn.q ⊢ Q = ℂ fld ↾ 𝑠 ℚ
qqhucn.u ⊢ U = UnifSt ⁡ Q
qqhucn.v ⊢ V = metUnif ⁡ dist ⁡ R ↾ B × B
qqhucn.z ⊢ Z = ℤMod ⁡ R
qqhucn.1 ⊢ φ → R ∈ NrmRing
qqhucn.2 ⊢ φ → R ∈ DivRing
qqhucn.3 ⊢ φ → Z ∈ NrmMod
qqhucn.4 ⊢ φ → chr ⁡ R = 0
Assertion qqhucn ⊢ φ → ℚHom ⁡ R ∈ U uCn V

Proof

Step Hyp Ref Expression
1 qqhucn.b ⊢ B = Base R
2 qqhucn.q ⊢ Q = ℂ fld ↾ 𝑠 ℚ
3 qqhucn.u ⊢ U = UnifSt ⁡ Q
4 qqhucn.v ⊢ V = metUnif ⁡ dist ⁡ R ↾ B × B
5 qqhucn.z ⊢ Z = ℤMod ⁡ R
6 qqhucn.1 ⊢ φ → R ∈ NrmRing
7 qqhucn.2 ⊢ φ → R ∈ DivRing
8 qqhucn.3 ⊢ φ → Z ∈ NrmMod
9 qqhucn.4 ⊢ φ → chr ⁡ R = 0
10 eqid ⊢ / r ⁡ R = / r ⁡ R
11 eqid ⊢ ℤRHom ⁡ R = ℤRHom ⁡ R
12 1 10 11 qqhf ⊢ R ∈ DivRing ∧ chr ⁡ R = 0 → ℚHom ⁡ R : ℚ ⟶ B
13 7 9 12 syl2anc ⊢ φ → ℚHom ⁡ R : ℚ ⟶ B
14 simpr ⊢ φ ∧ e ∈ ℝ + → e ∈ ℝ +
15 nrgngp ⊢ R ∈ NrmRing → R ∈ NrmGrp
16 6 15 syl ⊢ φ → R ∈ NrmGrp
17 16 ad2antrr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → R ∈ NrmGrp
18 13 ffvelcdmda ⊢ φ ∧ p ∈ ℚ → ℚHom ⁡ R ⁡ p ∈ B
19 18 adantr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ p ∈ B
20 13 adantr ⊢ φ ∧ p ∈ ℚ → ℚHom ⁡ R : ℚ ⟶ B
21 20 ffvelcdmda ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ q ∈ B
22 eqid ⊢ norm ⁡ R = norm ⁡ R
23 eqid ⊢ - R = - R
24 eqid ⊢ dist ⁡ R = dist ⁡ R
25 22 1 23 24 ngpdsr ⊢ R ∈ NrmGrp ∧ ℚHom ⁡ R ⁡ p ∈ B ∧ ℚHom ⁡ R ⁡ q ∈ B → ℚHom ⁡ R ⁡ p dist ⁡ R ℚHom ⁡ R ⁡ q = norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p
26 17 19 21 25 syl3anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ p dist ⁡ R ℚHom ⁡ R ⁡ q = norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p
27 simpr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → q ∈ ℚ
28 simplr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p ∈ ℚ
29 qsubdrg ⊢ ℚ ∈ SubRing ⁡ ℂ fld ∧ ℂ fld ↾ 𝑠 ℚ ∈ DivRing
30 29 simpli ⊢ ℚ ∈ SubRing ⁡ ℂ fld
31 subrgsubg ⊢ ℚ ∈ SubRing ⁡ ℂ fld → ℚ ∈ SubGrp ⁡ ℂ fld
32 30 31 ax-mp ⊢ ℚ ∈ SubGrp ⁡ ℂ fld
33 cnfldsub ⊢ − = - ℂ fld
34 eqid ⊢ - Q = - Q
35 33 2 34 subgsub ⊢ ℚ ∈ SubGrp ⁡ ℂ fld ∧ q ∈ ℚ ∧ p ∈ ℚ → q − p = q - Q p
36 32 35 mp3an1 ⊢ q ∈ ℚ ∧ p ∈ ℚ → q − p = q - Q p
37 27 28 36 syl2anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → q − p = q - Q p
38 37 fveq2d ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ q − p = ℚHom ⁡ R ⁡ q - Q p
39 1 10 11 2 qqhghm ⊢ R ∈ DivRing ∧ chr ⁡ R = 0 → ℚHom ⁡ R ∈ Q GrpHom R
40 7 9 39 syl2anc ⊢ φ → ℚHom ⁡ R ∈ Q GrpHom R
41 40 ad2antrr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ∈ Q GrpHom R
42 2 qrngbas ⊢ ℚ = Base Q
43 42 34 23 ghmsub ⊢ ℚHom ⁡ R ∈ Q GrpHom R ∧ q ∈ ℚ ∧ p ∈ ℚ → ℚHom ⁡ R ⁡ q - Q p = ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p
44 41 27 28 43 syl3anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ q - Q p = ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p
45 38 44 eqtr2d ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p = ℚHom ⁡ R ⁡ q − p
46 45 fveq2d ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q - R ℚHom ⁡ R ⁡ p = norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q − p
47 6 7 elind ⊢ φ → R ∈ NrmRing ∩ DivRing
48 47 ad2antrr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → R ∈ NrmRing ∩ DivRing
49 8 ad2antrr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → Z ∈ NrmMod
50 9 ad2antrr ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → chr ⁡ R = 0
51 qsubcl ⊢ q ∈ ℚ ∧ p ∈ ℚ → q − p ∈ ℚ
52 27 28 51 syl2anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → q − p ∈ ℚ
53 22 5 qqhnm ⊢ R ∈ NrmRing ∩ DivRing ∧ Z ∈ NrmMod ∧ chr ⁡ R = 0 ∧ q − p ∈ ℚ → norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q − p = q − p
54 48 49 50 52 53 syl31anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → norm ⁡ R ⁡ ℚHom ⁡ R ⁡ q − p = q − p
55 26 46 54 3eqtrd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ p dist ⁡ R ℚHom ⁡ R ⁡ q = q − p
56 19 21 ovresd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q = ℚHom ⁡ R ⁡ p dist ⁡ R ℚHom ⁡ R ⁡ q
57 qsscn ⊢ ℚ ⊆ ℂ
58 57 28 sselid ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p ∈ ℂ
59 57 27 sselid ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → q ∈ ℂ
60 eqid ⊢ abs ∘ − = abs ∘ −
61 60 cnmetdval ⊢ p ∈ ℂ ∧ q ∈ ℂ → p abs ∘ − q = p − q
62 58 59 61 syl2anc ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − q = p − q
63 28 27 ovresd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − ↾ ℚ × ℚ q = p abs ∘ − q
64 59 58 abssubd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → q − p = p − q
65 62 63 64 3eqtr4d ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − ↾ ℚ × ℚ q = q − p
66 55 56 65 3eqtr4rd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − ↾ ℚ × ℚ q = ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q
67 66 breq1d ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − ↾ ℚ × ℚ q < e ↔ ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
68 67 biimpd ⊢ φ ∧ p ∈ ℚ ∧ q ∈ ℚ → p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
69 68 ralrimiva ⊢ φ ∧ p ∈ ℚ → ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
70 69 ralrimiva ⊢ φ → ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
71 70 adantr ⊢ φ ∧ e ∈ ℝ + → ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
72 breq2 ⊢ d = e → p abs ∘ − ↾ ℚ × ℚ q < d ↔ p abs ∘ − ↾ ℚ × ℚ q < e
73 72 imbi1d ⊢ d = e → p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e ↔ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
74 73 2ralbidv ⊢ d = e → ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e ↔ ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
75 74 rspcev ⊢ e ∈ ℝ + ∧ ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < e → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e → ∃ d ∈ ℝ + ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
76 14 71 75 syl2anc ⊢ φ ∧ e ∈ ℝ + → ∃ d ∈ ℝ + ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
77 76 ralrimiva ⊢ φ → ∀ e ∈ ℝ + ∃ d ∈ ℝ + ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
78 eqid ⊢ metUnif ⁡ abs ∘ − ↾ ℚ × ℚ = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ
79 0z ⊢ 0 ∈ ℤ
80 zq ⊢ 0 ∈ ℤ → 0 ∈ ℚ
81 ne0i ⊢ 0 ∈ ℚ → ℚ ≠ ∅
82 79 80 81 mp2b ⊢ ℚ ≠ ∅
83 82 a1i ⊢ φ → ℚ ≠ ∅
84 drngring ⊢ R ∈ DivRing → R ∈ Ring
85 eqid ⊢ 1 R = 1 R
86 1 85 ringidcl ⊢ R ∈ Ring → 1 R ∈ B
87 ne0i ⊢ 1 R ∈ B → B ≠ ∅
88 7 84 86 87 4syl ⊢ φ → B ≠ ∅
89 cnfldxms ⊢ ℂ fld ∈ ∞MetSp
90 qex ⊢ ℚ ∈ V
91 ressxms ⊢ ℂ fld ∈ ∞MetSp ∧ ℚ ∈ V → ℂ fld ↾ 𝑠 ℚ ∈ ∞MetSp
92 89 90 91 mp2an ⊢ ℂ fld ↾ 𝑠 ℚ ∈ ∞MetSp
93 2 92 eqeltri ⊢ Q ∈ ∞MetSp
94 cnfldds ⊢ abs ∘ − = dist ⁡ ℂ fld
95 2 94 ressds ⊢ ℚ ∈ V → abs ∘ − = dist ⁡ Q
96 90 95 ax-mp ⊢ abs ∘ − = dist ⁡ Q
97 42 96 xmsxmet2 ⊢ Q ∈ ∞MetSp → abs ∘ − ↾ ℚ × ℚ ∈ ∞Met ⁡ ℚ
98 93 97 mp1i ⊢ φ → abs ∘ − ↾ ℚ × ℚ ∈ ∞Met ⁡ ℚ
99 xmetpsmet ⊢ abs ∘ − ↾ ℚ × ℚ ∈ ∞Met ⁡ ℚ → abs ∘ − ↾ ℚ × ℚ ∈ PsMet ⁡ ℚ
100 98 99 syl ⊢ φ → abs ∘ − ↾ ℚ × ℚ ∈ PsMet ⁡ ℚ
101 ngpxms ⊢ R ∈ NrmGrp → R ∈ ∞MetSp
102 1 24 xmsxmet2 ⊢ R ∈ ∞MetSp → dist ⁡ R ↾ B × B ∈ ∞Met ⁡ B
103 6 15 101 102 4syl ⊢ φ → dist ⁡ R ↾ B × B ∈ ∞Met ⁡ B
104 xmetpsmet ⊢ dist ⁡ R ↾ B × B ∈ ∞Met ⁡ B → dist ⁡ R ↾ B × B ∈ PsMet ⁡ B
105 103 104 syl ⊢ φ → dist ⁡ R ↾ B × B ∈ PsMet ⁡ B
106 78 4 83 88 100 105 metucn ⊢ φ → ℚHom ⁡ R ∈ metUnif ⁡ abs ∘ − ↾ ℚ × ℚ uCn V ↔ ℚHom ⁡ R : ℚ ⟶ B ∧ ∀ e ∈ ℝ + ∃ d ∈ ℝ + ∀ p ∈ ℚ ∀ q ∈ ℚ p abs ∘ − ↾ ℚ × ℚ q < d → ℚHom ⁡ R ⁡ p dist ⁡ R ↾ B × B ℚHom ⁡ R ⁡ q < e
107 13 77 106 mpbir2and ⊢ φ → ℚHom ⁡ R ∈ metUnif ⁡ abs ∘ − ↾ ℚ × ℚ uCn V
108 2 fveq2i ⊢ UnifSt ⁡ Q = UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ
109 ressuss ⊢ ℚ ∈ V → UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ = UnifSt ⁡ ℂ fld ↾ 𝑡 ℚ × ℚ
110 90 109 ax-mp ⊢ UnifSt ⁡ ℂ fld ↾ 𝑠 ℚ = UnifSt ⁡ ℂ fld ↾ 𝑡 ℚ × ℚ
111 3 108 110 3eqtri ⊢ U = UnifSt ⁡ ℂ fld ↾ 𝑡 ℚ × ℚ
112 eqid ⊢ UnifSt ⁡ ℂ fld = UnifSt ⁡ ℂ fld
113 112 cnflduss ⊢ UnifSt ⁡ ℂ fld = metUnif ⁡ abs ∘ −
114 113 oveq1i ⊢ UnifSt ⁡ ℂ fld ↾ 𝑡 ℚ × ℚ = metUnif ⁡ abs ∘ − ↾ 𝑡 ℚ × ℚ
115 cnxmet ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ
116 xmetpsmet ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ → abs ∘ − ∈ PsMet ⁡ ℂ
117 115 116 ax-mp ⊢ abs ∘ − ∈ PsMet ⁡ ℂ
118 restmetu ⊢ ℚ ≠ ∅ ∧ abs ∘ − ∈ PsMet ⁡ ℂ ∧ ℚ ⊆ ℂ → metUnif ⁡ abs ∘ − ↾ 𝑡 ℚ × ℚ = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ
119 82 117 57 118 mp3an ⊢ metUnif ⁡ abs ∘ − ↾ 𝑡 ℚ × ℚ = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ
120 111 114 119 3eqtri ⊢ U = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ
121 120 a1i ⊢ φ → U = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ
122 121 oveq1d ⊢ φ → U uCn V = metUnif ⁡ abs ∘ − ↾ ℚ × ℚ uCn V
123 107 122 eleqtrrd ⊢ φ → ℚHom ⁡ R ∈ U uCn V