Metamath Proof Explorer


Theorem cncmet

Description: The set of complex numbers is a complete metric space under the absolute value metric. (Contributed by NM, 20-Dec-2006) (Revised by Mario Carneiro, 15-Oct-2015)

Ref Expression
Hypothesis cncmet.1 ⊢ D = abs ∘ −
Assertion cncmet ⊢ D ∈ CMet ⁡ ℂ

Proof

Step Hyp Ref Expression
1 cncmet.1 ⊢ D = abs ∘ −
2 eqid ⊢ TopOpen ⁡ ℂ fld = TopOpen ⁡ ℂ fld
3 2 cnfldtopn ⊢ TopOpen ⁡ ℂ fld = MetOpen ⁡ abs ∘ −
4 1 fveq2i ⊢ MetOpen ⁡ D = MetOpen ⁡ abs ∘ −
5 3 4 eqtr4i ⊢ TopOpen ⁡ ℂ fld = MetOpen ⁡ D
6 cnmet ⊢ abs ∘ − ∈ Met ⁡ ℂ
7 1 6 eqeltri ⊢ D ∈ Met ⁡ ℂ
8 7 a1i ⊢ ⊤ → D ∈ Met ⁡ ℂ
9 1rp ⊢ 1 ∈ ℝ +
10 9 a1i ⊢ ⊤ → 1 ∈ ℝ +
11 2 cnfldtop ⊢ TopOpen ⁡ ℂ fld ∈ Top
12 metxmet ⊢ D ∈ Met ⁡ ℂ → D ∈ ∞Met ⁡ ℂ
13 7 12 ax-mp ⊢ D ∈ ∞Met ⁡ ℂ
14 1xr ⊢ 1 ∈ ℝ *
15 blssm ⊢ D ∈ ∞Met ⁡ ℂ ∧ x ∈ ℂ ∧ 1 ∈ ℝ * → x ball ⁡ D 1 ⊆ ℂ
16 13 14 15 mp3an13 ⊢ x ∈ ℂ → x ball ⁡ D 1 ⊆ ℂ
17 unicntop ⊢ ℂ = ⋃ TopOpen ⁡ ℂ fld
18 17 clscld ⊢ TopOpen ⁡ ℂ fld ∈ Top ∧ x ball ⁡ D 1 ⊆ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Clsd ⁡ TopOpen ⁡ ℂ fld
19 11 16 18 sylancr ⊢ x ∈ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Clsd ⁡ TopOpen ⁡ ℂ fld
20 abscl ⊢ x ∈ ℂ → x ∈ ℝ
21 peano2re ⊢ x ∈ ℝ → x + 1 ∈ ℝ
22 20 21 syl ⊢ x ∈ ℂ → x + 1 ∈ ℝ
23 df-rab ⊢ y ∈ ℂ | x D y ≤ 1 = y | y ∈ ℂ ∧ x D y ≤ 1
24 23 eqcomi ⊢ y | y ∈ ℂ ∧ x D y ≤ 1 = y ∈ ℂ | x D y ≤ 1
25 5 24 blcls ⊢ D ∈ ∞Met ⁡ ℂ ∧ x ∈ ℂ ∧ 1 ∈ ℝ * → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ y | y ∈ ℂ ∧ x D y ≤ 1
26 13 14 25 mp3an13 ⊢ x ∈ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ y | y ∈ ℂ ∧ x D y ≤ 1
27 abscl ⊢ y ∈ ℂ → y ∈ ℝ
28 27 ad2antrl ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y ∈ ℝ
29 20 adantr ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → x ∈ ℝ
30 28 29 resubcld ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ∈ ℝ
31 simpl ⊢ y ∈ ℂ ∧ x D y ≤ 1 → y ∈ ℂ
32 id ⊢ x ∈ ℂ → x ∈ ℂ
33 subcl ⊢ y ∈ ℂ ∧ x ∈ ℂ → y − x ∈ ℂ
34 31 32 33 syl2anr ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ∈ ℂ
35 34 abscld ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ∈ ℝ
36 1red ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → 1 ∈ ℝ
37 simprl ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y ∈ ℂ
38 simpl ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → x ∈ ℂ
39 37 38 abs2difd ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ≤ y − x
40 1 cnmetdval ⊢ x ∈ ℂ ∧ y ∈ ℂ → x D y = x − y
41 abssub ⊢ x ∈ ℂ ∧ y ∈ ℂ → x − y = y − x
42 40 41 eqtrd ⊢ x ∈ ℂ ∧ y ∈ ℂ → x D y = y − x
43 42 adantrr ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → x D y = y − x
44 simprr ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → x D y ≤ 1
45 43 44 eqbrtrrd ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ≤ 1
46 30 35 36 39 45 letrd ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ≤ 1
47 28 29 36 lesubadd2d ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y − x ≤ 1 ↔ y ≤ x + 1
48 46 47 mpbid ⊢ x ∈ ℂ ∧ y ∈ ℂ ∧ x D y ≤ 1 → y ≤ x + 1
49 48 ex ⊢ x ∈ ℂ → y ∈ ℂ ∧ x D y ≤ 1 → y ≤ x + 1
50 49 ss2abdv ⊢ x ∈ ℂ → y | y ∈ ℂ ∧ x D y ≤ 1 ⊆ y | y ≤ x + 1
51 26 50 sstrd ⊢ x ∈ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ y | y ≤ x + 1
52 ssabral ⊢ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ y | y ≤ x + 1 ↔ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ x + 1
53 51 52 sylib ⊢ x ∈ ℂ → ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ x + 1
54 brralrspcev ⊢ x + 1 ∈ ℝ ∧ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ x + 1 → ∃ r ∈ ℝ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ r
55 22 53 54 syl2anc ⊢ x ∈ ℂ → ∃ r ∈ ℝ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ r
56 17 clsss3 ⊢ TopOpen ⁡ ℂ fld ∈ Top ∧ x ball ⁡ D 1 ⊆ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ ℂ
57 11 16 56 sylancr ⊢ x ∈ ℂ → cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ ℂ
58 eqid ⊢ TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 = TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1
59 2 58 cnheibor ⊢ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ⊆ ℂ → TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Comp ↔ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Clsd ⁡ TopOpen ⁡ ℂ fld ∧ ∃ r ∈ ℝ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ r
60 57 59 syl ⊢ x ∈ ℂ → TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Comp ↔ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Clsd ⁡ TopOpen ⁡ ℂ fld ∧ ∃ r ∈ ℝ ∀ y ∈ cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 y ≤ r
61 19 55 60 mpbir2and ⊢ x ∈ ℂ → TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Comp
62 61 adantl ⊢ ⊤ ∧ x ∈ ℂ → TopOpen ⁡ ℂ fld ↾ 𝑡 cls ⁡ TopOpen ⁡ ℂ fld ⁡ x ball ⁡ D 1 ∈ Comp
63 5 8 10 62 relcmpcmet ⊢ ⊤ → D ∈ CMet ⁡ ℂ
64 63 mptru ⊢ D ∈ CMet ⁡ ℂ