Metamath Proof Explorer


Theorem proot1ex

Description: The complex field has primitive N -th roots of unity for all N . (Contributed by Stefan O'Rear, 12-Sep-2015)

Ref Expression
Hypotheses proot1ex.g ⊢ G = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
proot1ex.o ⊢ O = od ⁡ G
Assertion proot1ex ⊢ N ∈ ℕ → − 1 2 N ∈ O -1 N

Proof

Step Hyp Ref Expression
1 proot1ex.g ⊢ G = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
2 proot1ex.o ⊢ O = od ⁡ G
3 neg1cn ⊢ − 1 ∈ ℂ
4 2rp ⊢ 2 ∈ ℝ +
5 nnrp ⊢ N ∈ ℕ → N ∈ ℝ +
6 rpdivcl ⊢ 2 ∈ ℝ + ∧ N ∈ ℝ + → 2 N ∈ ℝ +
7 4 5 6 sylancr ⊢ N ∈ ℕ → 2 N ∈ ℝ +
8 7 rpcnd ⊢ N ∈ ℕ → 2 N ∈ ℂ
9 cxpcl ⊢ − 1 ∈ ℂ ∧ 2 N ∈ ℂ → − 1 2 N ∈ ℂ
10 3 8 9 sylancr ⊢ N ∈ ℕ → − 1 2 N ∈ ℂ
11 3 a1i ⊢ N ∈ ℕ → − 1 ∈ ℂ
12 neg1ne0 ⊢ − 1 ≠ 0
13 12 a1i ⊢ N ∈ ℕ → − 1 ≠ 0
14 11 13 8 cxpne0d ⊢ N ∈ ℕ → − 1 2 N ≠ 0
15 eldifsn ⊢ − 1 2 N ∈ ℂ ∖ 0 ↔ − 1 2 N ∈ ℂ ∧ − 1 2 N ≠ 0
16 10 14 15 sylanbrc ⊢ N ∈ ℕ → − 1 2 N ∈ ℂ ∖ 0
17 3 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 ∈ ℂ
18 12 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 ≠ 0
19 nn0cn ⊢ x ∈ ℕ 0 → x ∈ ℂ
20 mulcl ⊢ 2 N ∈ ℂ ∧ x ∈ ℂ → 2 N ⁢ x ∈ ℂ
21 8 19 20 syl2an ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ∈ ℂ
22 17 18 21 cxpefd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 2 N ⁢ x = e 2 N ⁢ x ⁢ log ⁡ -1
23 22 eqeq1d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 2 N ⁢ x = 1 ↔ e 2 N ⁢ x ⁢ log ⁡ -1 = 1
24 logcl ⊢ − 1 ∈ ℂ ∧ − 1 ≠ 0 → log ⁡ -1 ∈ ℂ
25 3 12 24 mp2an ⊢ log ⁡ -1 ∈ ℂ
26 mulcl ⊢ 2 N ⁢ x ∈ ℂ ∧ log ⁡ -1 ∈ ℂ → 2 N ⁢ x ⁢ log ⁡ -1 ∈ ℂ
27 21 25 26 sylancl ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 ∈ ℂ
28 efeq1 ⊢ 2 N ⁢ x ⁢ log ⁡ -1 ∈ ℂ → e 2 N ⁢ x ⁢ log ⁡ -1 = 1 ↔ 2 N ⁢ x ⁢ log ⁡ -1 i ⁢ 2 ⁢ π ∈ ℤ
29 27 28 syl ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → e 2 N ⁢ x ⁢ log ⁡ -1 = 1 ↔ 2 N ⁢ x ⁢ log ⁡ -1 i ⁢ 2 ⁢ π ∈ ℤ
30 2cn ⊢ 2 ∈ ℂ
31 30 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 ∈ ℂ
32 nncn ⊢ N ∈ ℕ → N ∈ ℂ
33 32 adantr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → N ∈ ℂ
34 19 adantl ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ∈ ℂ
35 nnne0 ⊢ N ∈ ℕ → N ≠ 0
36 35 adantr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → N ≠ 0
37 31 33 34 36 div13d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x = x N ⋅ 2
38 logm1 ⊢ log ⁡ -1 = i ⁢ π
39 38 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → log ⁡ -1 = i ⁢ π
40 37 39 oveq12d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 = x N ⋅ 2 ⁢ i ⁢ π
41 34 33 36 divcld ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x N ∈ ℂ
42 ax-icn ⊢ i ∈ ℂ
43 picn ⊢ π ∈ ℂ
44 42 43 mulcli ⊢ i ⁢ π ∈ ℂ
45 44 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → i ⁢ π ∈ ℂ
46 41 31 45 mulassd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x N ⋅ 2 ⁢ i ⁢ π = x N ⁢ 2 ⁢ i ⁢ π
47 42 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → i ∈ ℂ
48 43 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → π ∈ ℂ
49 31 47 48 mul12d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 ⁢ i ⁢ π = i ⁢ 2 ⁢ π
50 49 oveq2d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x N ⁢ 2 ⁢ i ⁢ π = x N ⁢ i ⁢ 2 ⁢ π
51 40 46 50 3eqtrd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 = x N ⁢ i ⁢ 2 ⁢ π
52 51 oveq1d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 i ⁢ 2 ⁢ π = x N ⁢ i ⁢ 2 ⁢ π i ⁢ 2 ⁢ π
53 30 43 mulcli ⊢ 2 ⁢ π ∈ ℂ
54 42 53 mulcli ⊢ i ⁢ 2 ⁢ π ∈ ℂ
55 54 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → i ⁢ 2 ⁢ π ∈ ℂ
56 ine0 ⊢ i ≠ 0
57 2ne0 ⊢ 2 ≠ 0
58 pire ⊢ π ∈ ℝ
59 pipos ⊢ 0 < π
60 58 59 gt0ne0ii ⊢ π ≠ 0
61 30 43 57 60 mulne0i ⊢ 2 ⁢ π ≠ 0
62 42 53 56 61 mulne0i ⊢ i ⁢ 2 ⁢ π ≠ 0
63 62 a1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → i ⁢ 2 ⁢ π ≠ 0
64 41 55 63 divcan4d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x N ⁢ i ⁢ 2 ⁢ π i ⁢ 2 ⁢ π = x N
65 52 64 eqtrd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 i ⁢ 2 ⁢ π = x N
66 65 eleq1d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ⁢ x ⁢ log ⁡ -1 i ⁢ 2 ⁢ π ∈ ℤ ↔ x N ∈ ℤ
67 23 29 66 3bitrd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 2 N ⁢ x = 1 ↔ x N ∈ ℤ
68 8 adantr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → 2 N ∈ ℂ
69 simpr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ∈ ℕ 0
70 17 68 69 cxpmul2d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 2 N ⁢ x = -1 2 N x
71 cnfldexp ⊢ − 1 2 N ∈ ℂ ∧ x ∈ ℕ 0 → x ⋅ mulGrp ℂ fld − 1 2 N = -1 2 N x
72 10 71 sylan ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ⋅ mulGrp ℂ fld − 1 2 N = -1 2 N x
73 cnring ⊢ ℂ fld ∈ Ring
74 cnfldbas ⊢ ℂ = Base ℂ fld
75 cnfld0 ⊢ 0 = 0 ℂ fld
76 cndrng ⊢ ℂ fld ∈ DivRing
77 74 75 76 drngui ⊢ ℂ ∖ 0 = Unit ⁡ ℂ fld
78 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
79 77 78 unitsubm ⊢ ℂ fld ∈ Ring → ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
80 73 79 mp1i ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
81 16 adantr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → − 1 2 N ∈ ℂ ∖ 0
82 eqid ⊢ ⋅ mulGrp ℂ fld = ⋅ mulGrp ℂ fld
83 eqid ⊢ ⋅ G = ⋅ G
84 82 1 83 submmulg ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld ∧ x ∈ ℕ 0 ∧ − 1 2 N ∈ ℂ ∖ 0 → x ⋅ mulGrp ℂ fld − 1 2 N = x ⋅ G − 1 2 N
85 80 69 81 84 syl3anc ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ⋅ mulGrp ℂ fld − 1 2 N = x ⋅ G − 1 2 N
86 70 72 85 3eqtr2rd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ⋅ G − 1 2 N = − 1 2 N ⁢ x
87 86 eqeq1d ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ⋅ G − 1 2 N = 1 ↔ − 1 2 N ⁢ x = 1
88 nnz ⊢ N ∈ ℕ → N ∈ ℤ
89 88 adantr ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → N ∈ ℤ
90 nn0z ⊢ x ∈ ℕ 0 → x ∈ ℤ
91 90 adantl ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → x ∈ ℤ
92 dvdsval2 ⊢ N ∈ ℤ ∧ N ≠ 0 ∧ x ∈ ℤ → N ∥ x ↔ x N ∈ ℤ
93 89 36 91 92 syl3anc ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → N ∥ x ↔ x N ∈ ℤ
94 67 87 93 3bitr4rd ⊢ N ∈ ℕ ∧ x ∈ ℕ 0 → N ∥ x ↔ x ⋅ G − 1 2 N = 1
95 94 ralrimiva ⊢ N ∈ ℕ → ∀ x ∈ ℕ 0 N ∥ x ↔ x ⋅ G − 1 2 N = 1
96 77 1 unitgrp ⊢ ℂ fld ∈ Ring → G ∈ Grp
97 73 96 mp1i ⊢ N ∈ ℕ → G ∈ Grp
98 nnnn0 ⊢ N ∈ ℕ → N ∈ ℕ 0
99 77 1 unitgrpbas ⊢ ℂ ∖ 0 = Base G
100 cnfld1 ⊢ 1 = 1 ℂ fld
101 77 1 100 unitgrpid ⊢ ℂ fld ∈ Ring → 1 = 0 G
102 73 101 ax-mp ⊢ 1 = 0 G
103 99 2 83 102 odeq ⊢ G ∈ Grp ∧ − 1 2 N ∈ ℂ ∖ 0 ∧ N ∈ ℕ 0 → N = O ⁡ − 1 2 N ↔ ∀ x ∈ ℕ 0 N ∥ x ↔ x ⋅ G − 1 2 N = 1
104 97 16 98 103 syl3anc ⊢ N ∈ ℕ → N = O ⁡ − 1 2 N ↔ ∀ x ∈ ℕ 0 N ∥ x ↔ x ⋅ G − 1 2 N = 1
105 95 104 mpbird ⊢ N ∈ ℕ → N = O ⁡ − 1 2 N
106 105 eqcomd ⊢ N ∈ ℕ → O ⁡ − 1 2 N = N
107 99 2 odf ⊢ O : ℂ ∖ 0 ⟶ ℕ 0
108 ffn ⊢ O : ℂ ∖ 0 ⟶ ℕ 0 → O Fn ℂ ∖ 0
109 107 108 ax-mp ⊢ O Fn ℂ ∖ 0
110 fniniseg ⊢ O Fn ℂ ∖ 0 → − 1 2 N ∈ O -1 N ↔ − 1 2 N ∈ ℂ ∖ 0 ∧ O ⁡ − 1 2 N = N
111 109 110 mp1i ⊢ N ∈ ℕ → − 1 2 N ∈ O -1 N ↔ − 1 2 N ∈ ℂ ∖ 0 ∧ O ⁡ − 1 2 N = N
112 16 106 111 mpbir2and ⊢ N ∈ ℕ → − 1 2 N ∈ O -1 N