Metamath Proof Explorer


Theorem odzcllem

Description: - Lemma for odzcl , showing existence of a recurrent point for the exponential. (Contributed by Mario Carneiro, 28-Feb-2014) (Proof shortened by AV, 26-Sep-2020)

Ref Expression
Assertion odzcllem ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → odℤ ⁡ N ⁡ A ∈ ℕ ∧ N ∥ A odℤ ⁡ N ⁡ A − 1

Proof

Step Hyp Ref Expression
1 odzval ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → odℤ ⁡ N ⁡ A = inf n ∈ ℕ | N ∥ A n − 1 ℝ <
2 ssrab2 ⊢ n ∈ ℕ | N ∥ A n − 1 ⊆ ℕ
3 nnuz ⊢ ℕ = ℤ ≥ 1
4 2 3 sseqtri ⊢ n ∈ ℕ | N ∥ A n − 1 ⊆ ℤ ≥ 1
5 phicl ⊢ N ∈ ℕ → ϕ ⁡ N ∈ ℕ
6 5 3ad2ant1 ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → ϕ ⁡ N ∈ ℕ
7 eulerth ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → A ϕ ⁡ N mod N = 1 mod N
8 simp1 ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → N ∈ ℕ
9 simp2 ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → A ∈ ℤ
10 6 nnnn0d ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → ϕ ⁡ N ∈ ℕ 0
11 zexpcl ⊢ A ∈ ℤ ∧ ϕ ⁡ N ∈ ℕ 0 → A ϕ ⁡ N ∈ ℤ
12 9 10 11 syl2anc ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → A ϕ ⁡ N ∈ ℤ
13 1z ⊢ 1 ∈ ℤ
14 moddvds ⊢ N ∈ ℕ ∧ A ϕ ⁡ N ∈ ℤ ∧ 1 ∈ ℤ → A ϕ ⁡ N mod N = 1 mod N ↔ N ∥ A ϕ ⁡ N − 1
15 13 14 mp3an3 ⊢ N ∈ ℕ ∧ A ϕ ⁡ N ∈ ℤ → A ϕ ⁡ N mod N = 1 mod N ↔ N ∥ A ϕ ⁡ N − 1
16 8 12 15 syl2anc ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → A ϕ ⁡ N mod N = 1 mod N ↔ N ∥ A ϕ ⁡ N − 1
17 7 16 mpbid ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → N ∥ A ϕ ⁡ N − 1
18 oveq2 ⊢ n = ϕ ⁡ N → A n = A ϕ ⁡ N
19 18 oveq1d ⊢ n = ϕ ⁡ N → A n − 1 = A ϕ ⁡ N − 1
20 19 breq2d ⊢ n = ϕ ⁡ N → N ∥ A n − 1 ↔ N ∥ A ϕ ⁡ N − 1
21 20 rspcev ⊢ ϕ ⁡ N ∈ ℕ ∧ N ∥ A ϕ ⁡ N − 1 → ∃ n ∈ ℕ N ∥ A n − 1
22 6 17 21 syl2anc ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → ∃ n ∈ ℕ N ∥ A n − 1
23 rabn0 ⊢ n ∈ ℕ | N ∥ A n − 1 ≠ ∅ ↔ ∃ n ∈ ℕ N ∥ A n − 1
24 22 23 sylibr ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → n ∈ ℕ | N ∥ A n − 1 ≠ ∅
25 infssuzcl ⊢ n ∈ ℕ | N ∥ A n − 1 ⊆ ℤ ≥ 1 ∧ n ∈ ℕ | N ∥ A n − 1 ≠ ∅ → inf n ∈ ℕ | N ∥ A n − 1 ℝ < ∈ n ∈ ℕ | N ∥ A n − 1
26 4 24 25 sylancr ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → inf n ∈ ℕ | N ∥ A n − 1 ℝ < ∈ n ∈ ℕ | N ∥ A n − 1
27 1 26 eqeltrd ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → odℤ ⁡ N ⁡ A ∈ n ∈ ℕ | N ∥ A n − 1
28 oveq2 ⊢ n = odℤ ⁡ N ⁡ A → A n = A odℤ ⁡ N ⁡ A
29 28 oveq1d ⊢ n = odℤ ⁡ N ⁡ A → A n − 1 = A odℤ ⁡ N ⁡ A − 1
30 29 breq2d ⊢ n = odℤ ⁡ N ⁡ A → N ∥ A n − 1 ↔ N ∥ A odℤ ⁡ N ⁡ A − 1
31 30 elrab ⊢ odℤ ⁡ N ⁡ A ∈ n ∈ ℕ | N ∥ A n − 1 ↔ odℤ ⁡ N ⁡ A ∈ ℕ ∧ N ∥ A odℤ ⁡ N ⁡ A − 1
32 27 31 sylib ⊢ N ∈ ℕ ∧ A ∈ ℤ ∧ A gcd N = 1 → odℤ ⁡ N ⁡ A ∈ ℕ ∧ N ∥ A odℤ ⁡ N ⁡ A − 1