Metamath Proof Explorer


Theorem lighneal

Description: If a power of a prime P (i.e. P ^ M ) is of the form 2 ^ N - 1 , then N must be prime and M must be 1 . Generalization of mersenne (where M = 1 is a prerequisite). Theorem of S. Ligh and L. Neal (1974) "A note on Mersenne mumbers", Mathematics Magazine, 47:4, 231-233. (Contributed by AV, 16-Aug-2021)

Ref Expression
Assertion lighneal ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P M → M = 1 ∧ N ∈ ℙ

Proof

Step Hyp Ref Expression
1 lighneallem1 ⊢ P = 2 ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 N − 1 ≠ P M
2 eqneqall ⊢ 2 N − 1 = P M → 2 N − 1 ≠ P M → M = 1
3 1 2 syl5com ⊢ P = 2 ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 N − 1 = P M → M = 1
4 3 3exp ⊢ P = 2 → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
5 4 a1d ⊢ P = 2 → P ∈ ℙ → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
6 eldifsn ⊢ P ∈ ℙ ∖ 2 ↔ P ∈ ℙ ∧ P ≠ 2
7 lighneallem2 ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 ∥ N ∧ 2 N − 1 = P M → M = 1
8 7 3exp ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 ∥ N → 2 N − 1 = P M → M = 1
9 8 3exp ⊢ P ∈ ℙ ∖ 2 → M ∈ ℕ → N ∈ ℕ → 2 ∥ N → 2 N − 1 = P M → M = 1
10 9 com3r ⊢ N ∈ ℕ → P ∈ ℙ ∖ 2 → M ∈ ℕ → 2 ∥ N → 2 N − 1 = P M → M = 1
11 10 com24 ⊢ N ∈ ℕ → 2 ∥ N → M ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
12 lighneallem3 ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ ¬ 2 ∥ N ∧ 2 ∥ M ∧ 2 N − 1 = P M → M = 1
13 12 3exp ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ → ¬ 2 ∥ N ∧ 2 ∥ M → 2 N − 1 = P M → M = 1
14 13 3exp ⊢ P ∈ ℙ ∖ 2 → M ∈ ℕ → N ∈ ℕ → ¬ 2 ∥ N ∧ 2 ∥ M → 2 N − 1 = P M → M = 1
15 14 com24 ⊢ P ∈ ℙ ∖ 2 → ¬ 2 ∥ N ∧ 2 ∥ M → N ∈ ℕ → M ∈ ℕ → 2 N − 1 = P M → M = 1
16 15 com14 ⊢ M ∈ ℕ → ¬ 2 ∥ N ∧ 2 ∥ M → N ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
17 16 expcomd ⊢ M ∈ ℕ → 2 ∥ M → ¬ 2 ∥ N → N ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
18 lighneallem4 ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ ¬ 2 ∥ N ∧ ¬ 2 ∥ M ∧ 2 N − 1 = P M → M = 1
19 18 3exp ⊢ P ∈ ℙ ∖ 2 ∧ M ∈ ℕ ∧ N ∈ ℕ → ¬ 2 ∥ N ∧ ¬ 2 ∥ M → 2 N − 1 = P M → M = 1
20 19 3exp ⊢ P ∈ ℙ ∖ 2 → M ∈ ℕ → N ∈ ℕ → ¬ 2 ∥ N ∧ ¬ 2 ∥ M → 2 N − 1 = P M → M = 1
21 20 com24 ⊢ P ∈ ℙ ∖ 2 → ¬ 2 ∥ N ∧ ¬ 2 ∥ M → N ∈ ℕ → M ∈ ℕ → 2 N − 1 = P M → M = 1
22 21 com14 ⊢ M ∈ ℕ → ¬ 2 ∥ N ∧ ¬ 2 ∥ M → N ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
23 22 expcomd ⊢ M ∈ ℕ → ¬ 2 ∥ M → ¬ 2 ∥ N → N ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
24 17 23 pm2.61d ⊢ M ∈ ℕ → ¬ 2 ∥ N → N ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
25 24 com13 ⊢ N ∈ ℕ → ¬ 2 ∥ N → M ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
26 11 25 pm2.61d ⊢ N ∈ ℕ → M ∈ ℕ → P ∈ ℙ ∖ 2 → 2 N − 1 = P M → M = 1
27 26 com13 ⊢ P ∈ ℙ ∖ 2 → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
28 6 27 sylbir ⊢ P ∈ ℙ ∧ P ≠ 2 → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
29 28 expcom ⊢ P ≠ 2 → P ∈ ℙ → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
30 5 29 pm2.61ine ⊢ P ∈ ℙ → M ∈ ℕ → N ∈ ℕ → 2 N − 1 = P M → M = 1
31 30 3imp1 ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P M → M = 1
32 oveq2 ⊢ M = 1 → P M = P 1
33 32 eqeq2d ⊢ M = 1 → 2 N − 1 = P M ↔ 2 N − 1 = P 1
34 33 adantl ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ M = 1 → 2 N − 1 = P M ↔ 2 N − 1 = P 1
35 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
36 35 nncnd ⊢ P ∈ ℙ → P ∈ ℂ
37 36 3ad2ant1 ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → P ∈ ℂ
38 37 exp1d ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → P 1 = P
39 38 eqeq2d ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 N − 1 = P 1 ↔ 2 N − 1 = P
40 nnz ⊢ N ∈ ℕ → N ∈ ℤ
41 40 3ad2ant3 ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → N ∈ ℤ
42 simpl1 ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P → P ∈ ℙ
43 eleq1 ⊢ 2 N − 1 = P → 2 N − 1 ∈ ℙ ↔ P ∈ ℙ
44 43 adantl ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P → 2 N − 1 ∈ ℙ ↔ P ∈ ℙ
45 42 44 mpbird ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P → 2 N − 1 ∈ ℙ
46 mersenne ⊢ N ∈ ℤ ∧ 2 N − 1 ∈ ℙ → N ∈ ℙ
47 41 45 46 syl2an2r ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P → N ∈ ℙ
48 47 ex ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 N − 1 = P → N ∈ ℙ
49 39 48 sylbid ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ → 2 N − 1 = P 1 → N ∈ ℙ
50 49 adantr ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ M = 1 → 2 N − 1 = P 1 → N ∈ ℙ
51 34 50 sylbid ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ M = 1 → 2 N − 1 = P M → N ∈ ℙ
52 51 impancom ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P M → M = 1 → N ∈ ℙ
53 31 52 jcai ⊢ P ∈ ℙ ∧ M ∈ ℕ ∧ N ∈ ℕ ∧ 2 N − 1 = P M → M = 1 ∧ N ∈ ℙ