Metamath Proof Explorer


Theorem znunit

Description: The units of Z/nZ are the integers coprime to the base. (Contributed by Mario Carneiro, 18-Apr-2016)

Ref Expression
Hypotheses znchr.y ⊢ Y = ℤ/Nℤ
znunit.u ⊢ U = Unit ⁡ Y
znunit.l ⊢ L = ℤRHom ⁡ Y
Assertion znunit ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ⁡ A ∈ U ↔ A gcd N = 1

Proof

Step Hyp Ref Expression
1 znchr.y ⊢ Y = ℤ/Nℤ
2 znunit.u ⊢ U = Unit ⁡ Y
3 znunit.l ⊢ L = ℤRHom ⁡ Y
4 1 zncrng ⊢ N ∈ ℕ 0 → Y ∈ CRing
5 4 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → Y ∈ CRing
6 eqid ⊢ 1 Y = 1 Y
7 eqid ⊢ ∥ r ⁡ Y = ∥ r ⁡ Y
8 2 6 7 crngunit ⊢ Y ∈ CRing → L ⁡ A ∈ U ↔ L ⁡ A ∥ r ⁡ Y 1 Y
9 5 8 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ⁡ A ∈ U ↔ L ⁡ A ∥ r ⁡ Y 1 Y
10 eqid ⊢ Base Y = Base Y
11 1 10 3 znzrhfo ⊢ N ∈ ℕ 0 → L : ℤ ⟶ onto Base Y
12 11 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L : ℤ ⟶ onto Base Y
13 fof ⊢ L : ℤ ⟶ onto Base Y → L : ℤ ⟶ Base Y
14 12 13 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L : ℤ ⟶ Base Y
15 ffvelcdm ⊢ L : ℤ ⟶ Base Y ∧ A ∈ ℤ → L ⁡ A ∈ Base Y
16 14 15 sylancom ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ⁡ A ∈ Base Y
17 eqid ⊢ ⋅ Y = ⋅ Y
18 10 7 17 dvdsr2 ⊢ L ⁡ A ∈ Base Y → L ⁡ A ∥ r ⁡ Y 1 Y ↔ ∃ x ∈ Base Y x ⋅ Y L ⁡ A = 1 Y
19 16 18 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ⁡ A ∥ r ⁡ Y 1 Y ↔ ∃ x ∈ Base Y x ⋅ Y L ⁡ A = 1 Y
20 forn ⊢ L : ℤ ⟶ onto Base Y → ran ⁡ L = Base Y
21 12 20 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ran ⁡ L = Base Y
22 21 rexeqdv ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ x ∈ ran ⁡ L x ⋅ Y L ⁡ A = 1 Y ↔ ∃ x ∈ Base Y x ⋅ Y L ⁡ A = 1 Y
23 ffn ⊢ L : ℤ ⟶ Base Y → L Fn ℤ
24 oveq1 ⊢ x = L ⁡ n → x ⋅ Y L ⁡ A = L ⁡ n ⋅ Y L ⁡ A
25 24 eqeq1d ⊢ x = L ⁡ n → x ⋅ Y L ⁡ A = 1 Y ↔ L ⁡ n ⋅ Y L ⁡ A = 1 Y
26 25 rexrn ⊢ L Fn ℤ → ∃ x ∈ ran ⁡ L x ⋅ Y L ⁡ A = 1 Y ↔ ∃ n ∈ ℤ L ⁡ n ⋅ Y L ⁡ A = 1 Y
27 14 23 26 3syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ x ∈ ran ⁡ L x ⋅ Y L ⁡ A = 1 Y ↔ ∃ n ∈ ℤ L ⁡ n ⋅ Y L ⁡ A = 1 Y
28 22 27 bitr3d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ x ∈ Base Y x ⋅ Y L ⁡ A = 1 Y ↔ ∃ n ∈ ℤ L ⁡ n ⋅ Y L ⁡ A = 1 Y
29 crngring ⊢ Y ∈ CRing → Y ∈ Ring
30 5 29 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → Y ∈ Ring
31 3 zrhrhm ⊢ Y ∈ Ring → L ∈ ℤ ring RingHom Y
32 30 31 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ∈ ℤ ring RingHom Y
33 32 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ∈ ℤ ring RingHom Y
34 simpr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → n ∈ ℤ
35 simplr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → A ∈ ℤ
36 zringbas ⊢ ℤ = Base ℤ ring
37 zringmulr ⊢ × = ⋅ ℤ ring
38 36 37 17 rhmmul ⊢ L ∈ ℤ ring RingHom Y ∧ n ∈ ℤ ∧ A ∈ ℤ → L ⁡ n ⁢ A = L ⁡ n ⋅ Y L ⁡ A
39 33 34 35 38 syl3anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ⁡ n ⁢ A = L ⁡ n ⋅ Y L ⁡ A
40 30 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → Y ∈ Ring
41 3 6 zrh1 ⊢ Y ∈ Ring → L ⁡ 1 = 1 Y
42 40 41 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ⁡ 1 = 1 Y
43 39 42 eqeq12d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ⁡ n ⁢ A = L ⁡ 1 ↔ L ⁡ n ⋅ Y L ⁡ A = 1 Y
44 simpll ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → N ∈ ℕ 0
45 34 35 zmulcld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → n ⁢ A ∈ ℤ
46 1zzd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → 1 ∈ ℤ
47 1 3 zndvds ⊢ N ∈ ℕ 0 ∧ n ⁢ A ∈ ℤ ∧ 1 ∈ ℤ → L ⁡ n ⁢ A = L ⁡ 1 ↔ N ∥ n ⁢ A − 1
48 44 45 46 47 syl3anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ⁡ n ⁢ A = L ⁡ 1 ↔ N ∥ n ⁢ A − 1
49 43 48 bitr3d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → L ⁡ n ⋅ Y L ⁡ A = 1 Y ↔ N ∥ n ⁢ A − 1
50 49 rexbidva ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ n ∈ ℤ L ⁡ n ⋅ Y L ⁡ A = 1 Y ↔ ∃ n ∈ ℤ N ∥ n ⁢ A − 1
51 simplr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A ∈ ℤ
52 nn0z ⊢ N ∈ ℕ 0 → N ∈ ℤ
53 52 ad2antrr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → N ∈ ℤ
54 gcddvds ⊢ A ∈ ℤ ∧ N ∈ ℤ → A gcd N ∥ A ∧ A gcd N ∥ N
55 51 53 54 syl2anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ A ∧ A gcd N ∥ N
56 55 simpld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ A
57 51 53 gcdcld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∈ ℕ 0
58 57 nn0zd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∈ ℤ
59 34 adantrr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → n ∈ ℤ
60 dvdsmultr2 ⊢ A gcd N ∈ ℤ ∧ n ∈ ℤ ∧ A ∈ ℤ → A gcd N ∥ A → A gcd N ∥ n ⁢ A
61 58 59 51 60 syl3anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ A → A gcd N ∥ n ⁢ A
62 56 61 mpd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ n ⁢ A
63 45 adantrr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → n ⁢ A ∈ ℤ
64 1zzd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → 1 ∈ ℤ
65 peano2zm ⊢ n ⁢ A ∈ ℤ → n ⁢ A − 1 ∈ ℤ
66 63 65 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → n ⁢ A − 1 ∈ ℤ
67 55 simprd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ N
68 simprr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → N ∥ n ⁢ A − 1
69 58 53 66 67 68 dvdstrd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ n ⁢ A − 1
70 dvdssub2 ⊢ A gcd N ∈ ℤ ∧ n ⁢ A ∈ ℤ ∧ 1 ∈ ℤ ∧ A gcd N ∥ n ⁢ A − 1 → A gcd N ∥ n ⁢ A ↔ A gcd N ∥ 1
71 58 63 64 69 70 syl31anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ n ⁢ A ↔ A gcd N ∥ 1
72 62 71 mpbid ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ 1
73 dvds1 ⊢ A gcd N ∈ ℕ 0 → A gcd N ∥ 1 ↔ A gcd N = 1
74 57 73 syl ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N ∥ 1 ↔ A gcd N = 1
75 72 74 mpbid ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ N ∥ n ⁢ A − 1 → A gcd N = 1
76 75 rexlimdvaa ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ n ∈ ℤ N ∥ n ⁢ A − 1 → A gcd N = 1
77 simpr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → A ∈ ℤ
78 52 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → N ∈ ℤ
79 bezout ⊢ A ∈ ℤ ∧ N ∈ ℤ → ∃ n ∈ ℤ ∃ m ∈ ℤ A gcd N = A ⁢ n + N ⁢ m
80 77 78 79 syl2anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ n ∈ ℤ ∃ m ∈ ℤ A gcd N = A ⁢ n + N ⁢ m
81 eqeq1 ⊢ A gcd N = 1 → A gcd N = A ⁢ n + N ⁢ m ↔ 1 = A ⁢ n + N ⁢ m
82 81 2rexbidv ⊢ A gcd N = 1 → ∃ n ∈ ℤ ∃ m ∈ ℤ A gcd N = A ⁢ n + N ⁢ m ↔ ∃ n ∈ ℤ ∃ m ∈ ℤ 1 = A ⁢ n + N ⁢ m
83 80 82 syl5ibcom ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → A gcd N = 1 → ∃ n ∈ ℤ ∃ m ∈ ℤ 1 = A ⁢ n + N ⁢ m
84 52 ad3antrrr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ∈ ℤ
85 dvdsmul1 ⊢ N ∈ ℤ ∧ m ∈ ℤ → N ∥ N ⁢ m
86 84 85 sylancom ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ∥ N ⁢ m
87 zmulcl ⊢ N ∈ ℤ ∧ m ∈ ℤ → N ⁢ m ∈ ℤ
88 84 87 sylancom ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ⁢ m ∈ ℤ
89 dvdsnegb ⊢ N ∈ ℤ ∧ N ⁢ m ∈ ℤ → N ∥ N ⁢ m ↔ N ∥ − N ⁢ m
90 84 88 89 syl2anc ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ∥ N ⁢ m ↔ N ∥ − N ⁢ m
91 86 90 mpbid ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ∥ − N ⁢ m
92 35 adantr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → A ∈ ℤ
93 92 zcnd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → A ∈ ℂ
94 zcn ⊢ n ∈ ℤ → n ∈ ℂ
95 94 ad2antlr ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ∈ ℂ
96 93 95 mulcomd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → A ⁢ n = n ⁢ A
97 96 oveq1d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → A ⁢ n + N ⁢ m = n ⁢ A + N ⁢ m
98 95 93 mulcld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ⁢ A ∈ ℂ
99 88 zcnd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ⁢ m ∈ ℂ
100 98 99 subnegd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ⁢ A − − N ⁢ m = n ⁢ A + N ⁢ m
101 97 100 eqtr4d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → A ⁢ n + N ⁢ m = n ⁢ A − − N ⁢ m
102 101 oveq2d ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ⁢ A − A ⁢ n + N ⁢ m = n ⁢ A − n ⁢ A − − N ⁢ m
103 99 negcld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → − N ⁢ m ∈ ℂ
104 98 103 nncand ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ⁢ A − n ⁢ A − − N ⁢ m = − N ⁢ m
105 102 104 eqtrd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → n ⁢ A − A ⁢ n + N ⁢ m = − N ⁢ m
106 91 105 breqtrrd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → N ∥ n ⁢ A − A ⁢ n + N ⁢ m
107 oveq2 ⊢ 1 = A ⁢ n + N ⁢ m → n ⁢ A − 1 = n ⁢ A − A ⁢ n + N ⁢ m
108 107 breq2d ⊢ 1 = A ⁢ n + N ⁢ m → N ∥ n ⁢ A − 1 ↔ N ∥ n ⁢ A − A ⁢ n + N ⁢ m
109 106 108 syl5ibrcom ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ ∧ m ∈ ℤ → 1 = A ⁢ n + N ⁢ m → N ∥ n ⁢ A − 1
110 109 rexlimdva ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ ∧ n ∈ ℤ → ∃ m ∈ ℤ 1 = A ⁢ n + N ⁢ m → N ∥ n ⁢ A − 1
111 110 reximdva ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ n ∈ ℤ ∃ m ∈ ℤ 1 = A ⁢ n + N ⁢ m → ∃ n ∈ ℤ N ∥ n ⁢ A − 1
112 83 111 syld ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → A gcd N = 1 → ∃ n ∈ ℤ N ∥ n ⁢ A − 1
113 76 112 impbid ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ n ∈ ℤ N ∥ n ⁢ A − 1 ↔ A gcd N = 1
114 28 50 113 3bitrd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → ∃ x ∈ Base Y x ⋅ Y L ⁡ A = 1 Y ↔ A gcd N = 1
115 9 19 114 3bitrd ⊢ N ∈ ℕ 0 ∧ A ∈ ℤ → L ⁡ A ∈ U ↔ A gcd N = 1