Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  sfprmdvdsmersenne Structured version   Visualization version   GIF version

Theorem sfprmdvdsmersenne 48955
Description: If 𝑄 is a safe prime (i.e. 𝑄 = ((2 · 𝑃) + 1) for a prime 𝑃) with 𝑄≡7 (mod 8), then 𝑄 divides the 𝑃-th Mersenne number MP. (Contributed by AV, 20-Aug-2021.)
Assertion
Ref Expression
sfprmdvdsmersenne ((𝑃 ∈ ℙ ∧ (𝑄 ∈ ℙ ∧ (𝑄 mod 8) = 7 ∧ 𝑄 = ((2 · 𝑃) + 1))) → 𝑄 ∥ ((2↑𝑃) − 1))

Proof of Theorem sfprmdvdsmersenne
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 olc 882 . . . . . . 7 ((𝑄 mod 8) = 7 → ((𝑄 mod 8) = 1 ∨ (𝑄 mod 8) = 7))
2 ovex 7482 . . . . . . . 8 (𝑄 mod 8) ∈ V
3 elprg 4607 . . . . . . . 8 ((𝑄 mod 8) ∈ V → ((𝑄 mod 8) ∈ {1, 7} ↔ ((𝑄 mod 8) = 1 ∨ (𝑄 mod 8) = 7)))
42, 3mp1i 14 . . . . . . 7 ((𝑄 mod 8) = 7 → ((𝑄 mod 8) ∈ {1, 7} ↔ ((𝑄 mod 8) = 1 ∨ (𝑄 mod 8) = 7)))
51, 4mpbird 260 . . . . . 6 ((𝑄 mod 8) = 7 → (𝑄 mod 8) ∈ {1, 7})
6 2lgs 27780 . . . . . . . 8 (𝑄 ∈ ℙ → ((2 /L 𝑄) = 1 ↔ (𝑄 mod 8) ∈ {1, 7}))
76ad2antlr 740 . . . . . . 7 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((2 /L 𝑄) = 1 ↔ (𝑄 mod 8) ∈ {1, 7}))
8 2z 12766 . . . . . . . . 9 2 ∈ ℤ
9 simpr 490 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → 𝑄 ∈ ℙ)
109adantr 486 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 𝑄 ∈ ℙ)
11 2re 12455 . . . . . . . . . . . 12 2 ∈ ℝ
1211a1i 11 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 2 ∈ ℝ)
13 2m1e1 12505 . . . . . . . . . . . . . . 15 (2 − 1) = 1
1411a1i 11 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → 2 ∈ ℝ)
15 prmnn 16890 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
1615nnred 12388 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
17 1lt2 12553 . . . . . . . . . . . . . . . . 17 1 < 2
1817a1i 11 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → 1 < 2)
19 prmgt1 16914 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → 1 < 𝑃)
2014, 16, 18, 19mulgt1d 12291 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 1 < (2 · 𝑃))
2113, 20eqbrtrid 5144 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → (2 − 1) < (2 · 𝑃))
22 1red 11346 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 1 ∈ ℝ)
23 2nn 12454 . . . . . . . . . . . . . . . . . 18 2 ∈ ℕ
2423a1i 11 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ ℙ → 2 ∈ ℕ)
2524, 15nnmulcld 12429 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → (2 · 𝑃) ∈ ℕ)
2625nnred 12388 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → (2 · 𝑃) ∈ ℝ)
2714, 22, 26ltsubaddd 11950 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → ((2 − 1) < (2 · 𝑃) ↔ 2 < ((2 · 𝑃) + 1)))
2821, 27mpbid 235 . . . . . . . . . . . . 13 (𝑃 ∈ ℙ → 2 < ((2 · 𝑃) + 1))
2928ad2antrr 739 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 2 < ((2 · 𝑃) + 1))
30 breq2 5110 . . . . . . . . . . . . 13 (𝑄 = ((2 · 𝑃) + 1) → (2 < 𝑄 ↔ 2 < ((2 · 𝑃) + 1)))
3130adantl 487 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (2 < 𝑄 ↔ 2 < ((2 · 𝑃) + 1)))
3229, 31mpbird 260 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 2 < 𝑄)
3312, 32gtned 11482 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 𝑄 ≠ 2)
34 eldifsn 4748 . . . . . . . . . 10 (𝑄 ∈ (ℙ ∖ {2}) ↔ (𝑄 ∈ ℙ ∧ 𝑄 ≠ 2))
3510, 33, 34sylanbrc 595 . . . . . . . . 9 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 𝑄 ∈ (ℙ ∖ {2}))
36 lgsqrmodndvds 27726 . . . . . . . . 9 ((2 ∈ ℤ ∧ 𝑄 ∈ (ℙ ∖ {2})) → ((2 /L 𝑄) = 1 → ∃𝑚 ∈ ℤ (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚)))
378, 35, 36sylancr 599 . . . . . . . 8 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((2 /L 𝑄) = 1 → ∃𝑚 ∈ ℤ (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚)))
38 prmnn 16890 . . . . . . . . . . . . . . 15 (𝑄 ∈ ℙ → 𝑄 ∈ ℕ)
3938nncnd 12389 . . . . . . . . . . . . . 14 (𝑄 ∈ ℙ → 𝑄 ∈ ℂ)
4039adantl 487 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → 𝑄 ∈ ℂ)
41 1cnd 11339 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → 1 ∈ ℂ)
42 2cnd 12459 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 2 ∈ ℂ)
4315nncnd 12389 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℂ)
4442, 43mulcld 11366 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → (2 · 𝑃) ∈ ℂ)
4544adantr 486 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (2 · 𝑃) ∈ ℂ)
4640, 41, 45subadd2d 11725 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → ((𝑄 − 1) = (2 · 𝑃) ↔ ((2 · 𝑃) + 1) = 𝑄))
47 prmz 16891 . . . . . . . . . . . . . . . 16 (𝑄 ∈ ℙ → 𝑄 ∈ ℤ)
48 peano2zm 12777 . . . . . . . . . . . . . . . 16 (𝑄 ∈ ℤ → (𝑄 − 1) ∈ ℤ)
4947, 48syl 18 . . . . . . . . . . . . . . 15 (𝑄 ∈ ℙ → (𝑄 − 1) ∈ ℤ)
5049zcnd 12842 . . . . . . . . . . . . . 14 (𝑄 ∈ ℙ → (𝑄 − 1) ∈ ℂ)
5150adantl 487 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (𝑄 − 1) ∈ ℂ)
5243adantr 486 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → 𝑃 ∈ ℂ)
53 2cnne0 12593 . . . . . . . . . . . . . 14 (2 ∈ ℂ ∧ 2 ≠ 0)
5453a1i 11 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (2 ∈ ℂ ∧ 2 ≠ 0))
55 divmul2 12016 . . . . . . . . . . . . 13 (((𝑄 − 1) ∈ ℂ ∧ 𝑃 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → (((𝑄 − 1) / 2) = 𝑃 ↔ (𝑄 − 1) = (2 · 𝑃)))
5651, 52, 54, 55syl3anc 1399 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (((𝑄 − 1) / 2) = 𝑃 ↔ (𝑄 − 1) = (2 · 𝑃)))
57 eqcom 2770 . . . . . . . . . . . . 13 (𝑄 = ((2 · 𝑃) + 1) ↔ ((2 · 𝑃) + 1) = 𝑄)
5857a1i 11 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (𝑄 = ((2 · 𝑃) + 1) ↔ ((2 · 𝑃) + 1) = 𝑄))
5946, 56, 583bitr4rd 315 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (𝑄 = ((2 · 𝑃) + 1) ↔ ((𝑄 − 1) / 2) = 𝑃))
6059biimpa 482 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 − 1) / 2) = 𝑃)
61 oveq2 7457 . . . . . . . . . . 11 (((𝑄 − 1) / 2) = 𝑃 → (2↑((𝑄 − 1) / 2)) = (2↑𝑃))
62 zsqcl 14310 . . . . . . . . . . . . . . . . . . . . . 22 (𝑚 ∈ ℤ → (𝑚↑2) ∈ ℤ)
6362ad2antlr 740 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → (𝑚↑2) ∈ ℤ)
648a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → 2 ∈ ℤ)
65 oveq1 7456 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑄 = ((2 · 𝑃) + 1) → (𝑄 − 1) = (((2 · 𝑃) + 1) − 1))
6665adantl 487 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (𝑄 − 1) = (((2 · 𝑃) + 1) − 1))
6766oveq1d 7464 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 − 1) / 2) = ((((2 · 𝑃) + 1) − 1) / 2))
68 pncan1 11777 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((2 · 𝑃) ∈ ℂ → (((2 · 𝑃) + 1) − 1) = (2 · 𝑃))
6944, 68syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑃 ∈ ℙ → (((2 · 𝑃) + 1) − 1) = (2 · 𝑃))
7069oveq1d 7464 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑃 ∈ ℙ → ((((2 · 𝑃) + 1) − 1) / 2) = ((2 · 𝑃) / 2))
71 2ne0 12487 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 2 ≠ 0
7271a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑃 ∈ ℙ → 2 ≠ 0)
7343, 42, 72divcan3d 12136 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑃 ∈ ℙ → ((2 · 𝑃) / 2) = 𝑃)
7470, 73eqtrd 2798 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑃 ∈ ℙ → ((((2 · 𝑃) + 1) − 1) / 2) = 𝑃)
7574ad2antrr 739 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((((2 · 𝑃) + 1) − 1) / 2) = 𝑃)
7667, 75eqtrd 2798 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 − 1) / 2) = 𝑃)
7715nnnn0d 12705 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ0)
7877ad2antrr 739 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 𝑃 ∈ ℕ0)
7976, 78eqeltrd 2864 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 − 1) / 2) ∈ ℕ0)
8038nnrpd 13200 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑄 ∈ ℙ → 𝑄 ∈ ℝ+)
8180ad2antlr 740 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → 𝑄 ∈ ℝ+)
8279, 81jca 521 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (((𝑄 − 1) / 2) ∈ ℕ0 ∧ 𝑄 ∈ ℝ+))
8382ad2antrr 739 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → (((𝑄 − 1) / 2) ∈ ℕ0 ∧ 𝑄 ∈ ℝ+))
84 simpr 490 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → ((𝑚↑2) mod 𝑄) = (2 mod 𝑄))
85 modexp 14421 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑚↑2) ∈ ℤ ∧ 2 ∈ ℤ) ∧ (((𝑄 − 1) / 2) ∈ ℕ0 ∧ 𝑄 ∈ ℝ+) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄))
8663, 64, 83, 84, 85syl211anc 1404 . . . . . . . . . . . . . . . . . . . 20 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ((𝑚↑2) mod 𝑄) = (2 mod 𝑄)) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄))
8786ex 418 . . . . . . . . . . . . . . . . . . 19 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄)))
8887adantr 486 . . . . . . . . . . . . . . . . . 18 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄)))
89 2cnd 12459 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑄 ∈ ℙ → 2 ∈ ℂ)
9071a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑄 ∈ ℙ → 2 ≠ 0)
9150, 89, 90divcan2d 12133 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑄 ∈ ℙ → (2 · ((𝑄 − 1) / 2)) = (𝑄 − 1))
9291eqcomd 2769 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑄 ∈ ℙ → (𝑄 − 1) = (2 · ((𝑄 − 1) / 2)))
9392oveq2d 7465 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑄 ∈ ℙ → (𝑚↑(𝑄 − 1)) = (𝑚↑(2 · ((𝑄 − 1) / 2))))
9493ad3antlr 744 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (𝑚↑(𝑄 − 1)) = (𝑚↑(2 · ((𝑄 − 1) / 2))))
95 zcn 12736 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑚 ∈ ℤ → 𝑚 ∈ ℂ)
9695adantl 487 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → 𝑚 ∈ ℂ)
9779adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → ((𝑄 − 1) / 2) ∈ ℕ0)
98 2nn0 12661 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 2 ∈ ℕ0
9998a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → 2 ∈ ℕ0)
10096, 97, 99expmuld 14330 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (𝑚↑(2 · ((𝑄 − 1) / 2))) = ((𝑚↑2)↑((𝑄 − 1) / 2)))
10194, 100eqtr2d 2799 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → ((𝑚↑2)↑((𝑄 − 1) / 2)) = (𝑚↑(𝑄 − 1)))
102101oveq1d 7464 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((𝑚↑(𝑄 − 1)) mod 𝑄))
103102adantr 486 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((𝑚↑(𝑄 − 1)) mod 𝑄))
104 vfermltl 17020 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑄 ∈ ℙ ∧ 𝑚 ∈ ℤ ∧ ¬ 𝑄 ∥ 𝑚) → ((𝑚↑(𝑄 − 1)) mod 𝑄) = 1)
105104ad5ant245 1385 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → ((𝑚↑(𝑄 − 1)) mod 𝑄) = 1)
106103, 105eqtrd 2798 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → (((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = 1)
107 oveq1 7456 . . . . . . . . . . . . . . . . . . . . . 22 ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → ((2↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑𝑃) mod 𝑄))
108106, 107eqeqan12d 2777 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) ∧ (2↑((𝑄 − 1) / 2)) = (2↑𝑃)) → ((((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄) ↔ 1 = ((2↑𝑃) mod 𝑄)))
109 id 23 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 = ((2↑𝑃) mod 𝑄) → 1 = ((2↑𝑃) mod 𝑄))
110109eqcomd 2769 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 = ((2↑𝑃) mod 𝑄) → ((2↑𝑃) mod 𝑄) = 1)
11138nnred 12388 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑄 ∈ ℙ → 𝑄 ∈ ℝ)
112 prmgt1 16914 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑄 ∈ ℙ → 1 < 𝑄)
113 1mod 14081 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑄 ∈ ℝ ∧ 1 < 𝑄) → (1 mod 𝑄) = 1)
114111, 112, 113syl2anc 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑄 ∈ ℙ → (1 mod 𝑄) = 1)
115114eqcomd 2769 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑄 ∈ ℙ → 1 = (1 mod 𝑄))
116115ad3antlr 744 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → 1 = (1 mod 𝑄))
117110, 116sylan9eqr 2820 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → ((2↑𝑃) mod 𝑄) = (1 mod 𝑄))
11838ad4antlr 746 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → 𝑄 ∈ ℕ)
119 zexpcl 14257 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((2 ∈ ℤ ∧ 𝑃 ∈ ℕ0) → (2↑𝑃) ∈ ℤ)
1208, 77, 119sylancr 599 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑃 ∈ ℙ → (2↑𝑃) ∈ ℤ)
121120ad4antr 745 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → (2↑𝑃) ∈ ℤ)
122 1zzd 12765 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → 1 ∈ ℤ)
123 moddvds 16474 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑄 ∈ ℕ ∧ (2↑𝑃) ∈ ℤ ∧ 1 ∈ ℤ) → (((2↑𝑃) mod 𝑄) = (1 mod 𝑄) ↔ 𝑄 ∥ ((2↑𝑃) − 1)))
124118, 121, 122, 123syl3anc 1399 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → (((2↑𝑃) mod 𝑄) = (1 mod 𝑄) ↔ 𝑄 ∥ ((2↑𝑃) − 1)))
125117, 124mpbid 235 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ 1 = ((2↑𝑃) mod 𝑄)) → 𝑄 ∥ ((2↑𝑃) − 1))
126125ex 418 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (1 = ((2↑𝑃) mod 𝑄) → 𝑄 ∥ ((2↑𝑃) − 1)))
127126ad2antrr 739 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) ∧ (2↑((𝑄 − 1) / 2)) = (2↑𝑃)) → (1 = ((2↑𝑃) mod 𝑄) → 𝑄 ∥ ((2↑𝑃) − 1)))
128108, 127sylbid 243 . . . . . . . . . . . . . . . . . . . 20 ((((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) ∧ (2↑((𝑄 − 1) / 2)) = (2↑𝑃)) → ((((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄) → 𝑄 ∥ ((2↑𝑃) − 1)))
129128ex 418 . . . . . . . . . . . . . . . . . . 19 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → ((((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄) → 𝑄 ∥ ((2↑𝑃) − 1))))
130129com23 87 . . . . . . . . . . . . . . . . . 18 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → ((((𝑚↑2)↑((𝑄 − 1) / 2)) mod 𝑄) = ((2↑((𝑄 − 1) / 2)) mod 𝑄) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → 𝑄 ∥ ((2↑𝑃) − 1))))
13188, 130syld 48 . . . . . . . . . . . . . . . . 17 (((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) ∧ ¬ 𝑄 ∥ 𝑚) → (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → 𝑄 ∥ ((2↑𝑃) − 1))))
132131ex 418 . . . . . . . . . . . . . . . 16 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (¬ 𝑄 ∥ 𝑚 → (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → 𝑄 ∥ ((2↑𝑃) − 1)))))
133132com23 87 . . . . . . . . . . . . . . 15 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) → (¬ 𝑄 ∥ 𝑚 → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → 𝑄 ∥ ((2↑𝑃) − 1)))))
134133impd 416 . . . . . . . . . . . . . 14 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → 𝑄 ∥ ((2↑𝑃) − 1))))
135134com23 87 . . . . . . . . . . . . 13 ((((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) ∧ 𝑚 ∈ ℤ) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1))))
136135ex 418 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (𝑚 ∈ ℤ → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1)))))
137136com23 87 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((2↑((𝑄 − 1) / 2)) = (2↑𝑃) → (𝑚 ∈ ℤ → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1)))))
13861, 137syl5 35 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (((𝑄 − 1) / 2) = 𝑃 → (𝑚 ∈ ℤ → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1)))))
13960, 138mpd 16 . . . . . . . . 9 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (𝑚 ∈ ℤ → ((((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1))))
140139rexlimdv 3165 . . . . . . . 8 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → (∃𝑚 ∈ ℤ (((𝑚↑2) mod 𝑄) = (2 mod 𝑄) ∧ ¬ 𝑄 ∥ 𝑚) → 𝑄 ∥ ((2↑𝑃) − 1)))
14137, 140syld 48 . . . . . . 7 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((2 /L 𝑄) = 1 → 𝑄 ∥ ((2↑𝑃) − 1)))
1427, 141sylbird 263 . . . . . 6 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 mod 8) ∈ {1, 7} → 𝑄 ∥ ((2↑𝑃) − 1)))
1435, 142syl5 35 . . . . 5 (((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) ∧ 𝑄 = ((2 · 𝑃) + 1)) → ((𝑄 mod 8) = 7 → 𝑄 ∥ ((2↑𝑃) − 1)))
144143ex 418 . . . 4 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → (𝑄 = ((2 · 𝑃) + 1) → ((𝑄 mod 8) = 7 → 𝑄 ∥ ((2↑𝑃) − 1))))
145144com23 87 . . 3 ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → ((𝑄 mod 8) = 7 → (𝑄 = ((2 · 𝑃) + 1) → 𝑄 ∥ ((2↑𝑃) − 1))))
146145ex 418 . 2 (𝑃 ∈ ℙ → (𝑄 ∈ ℙ → ((𝑄 mod 8) = 7 → (𝑄 = ((2 · 𝑃) + 1) → 𝑄 ∥ ((2↑𝑃) − 1)))))
1471463imp2 1368 1 ((𝑃 ∈ ℙ ∧ (𝑄 ∈ ℙ ∧ (𝑄 mod 8) = 7 ∧ 𝑄 = ((2 · 𝑃) + 1))) → 𝑄 ∥ ((2↑𝑃) − 1))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∃wrex 3090  Vcvv 3454   ∖ cdif 4048  {csn 4588  {cpr 4590   class class class wbr 5106  (class class class)co 7449  ℂcc 11235  ℝcr 11236  0cc0 11237  1c1 11238   + caddc 11240   · cmul 11242   < clt 11380   − cmin 11578   / cdiv 12011  ℕcn 12373  2c2 12435  7c7 12440  8c8 12441  ℕ0cn0 12644  ℤcz 12731  ℝ+crp 13158   mod cmo 14047  ↑cexp 14242   ∥ cdvds 16463  ℙcprime 16887   /L clgs 27667
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7781  ax-inf2 9677  ax-cnex 11293  ax-resscn 11294  ax-1cn 11295  ax-icn 11296  ax-addcl 11297  ax-addrcl 11298  ax-mulcl 11299  ax-mulrcl 11300  ax-mulcom 11301  ax-addass 11302  ax-mulass 11303  ax-distr 11304  ax-i2m1 11305  ax-1ne0 11306  ax-1rid 11307  ax-rnegex 11308  ax-rrecex 11309  ax-cnre 11310  ax-pre-lttri 11311  ax-pre-lttrn 11312  ax-pre-ltadd 11313  ax-pre-mulgt0 11314  ax-pre-sup 11315  ax-addf 11316  ax-mulf 11317
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-iin 4957  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-se 5610  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6328  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6518  df-fun 6566  df-fn 6567  df-f 6568  df-f1 6569  df-fo 6570  df-f1o 6571  df-fv 6572  df-isom 6573  df-riota 7406  df-ov 7452  df-oprab 7453  df-mpo 7454  df-of 7723  df-ofr 7724  df-om 7910  df-1st 8033  df-2nd 8034  df-supp 8213  df-tpos 8279  df-frecs 8335  df-wrecs 8366  df-recs 8415  df-rdg 8454  df-1o 8512  df-2o 8513  df-oadd 8516  df-er 8753  df-ec 8755  df-qs 8759  df-map 8885  df-pm 8886  df-ixp 8962  df-en 9010  df-dom 9011  df-sdom 9012  df-fin 9013  df-fsupp 9390  df-sup 9469  df-inf 9470  df-oi 9539  df-dju 10017  df-card 10055  df-pnf 11382  df-mnf 11383  df-xr 11384  df-ltxr 11385  df-le 11386  df-sub 11580  df-neg 11581  df-div 12012  df-nn 12374  df-2 12443  df-3 12444  df-4 12445  df-5 12446  df-6 12447  df-7 12448  df-8 12449  df-9 12450  df-n0 12645  df-xnn0 12718  df-z 12732  df-dec 12853  df-uz 13004  df-q 13114  df-rp 13159  df-ioo 13518  df-ico 13520  df-fz 13678  df-fzo 13827  df-fl 13970  df-mod 14048  df-seq 14183  df-exp 14243  df-fac 14457  df-hash 14514  df-cj 15307  df-re 15308  df-im 15309  df-sqrt 15443  df-abs 15444  df-clim 15696  df-prod 16114  df-dvds 16464  df-gcd 16706  df-prm 16888  df-phi 16984  df-pc 17056  df-struct 17366  df-sets 17383  df-slot 17401  df-ndx 17413  df-base 17429  df-ress 17450  df-plusg 17482  df-mulr 17483  df-starv 17484  df-sca 17485  df-vsca 17486  df-ip 17487  df-tset 17488  df-ple 17489  df-ds 17491  df-unif 17492  df-hom 17493  df-cco 17494  df-0g 17653  df-gsum 17654  df-prds 17659  df-pws 17661  df-imas 17721  df-qus 17722  df-mre 17797  df-mrc 17798  df-acs 17800  df-mgm 18857  df-sgrp 18949  df-mnd 18965  df-mhm 19019  df-submnd 19020  df-grp 19188  df-minusg 19189  df-sbg 19190  df-mulg 19319  df-subg 19374  df-nsg 19375  df-eqg 19376  df-ghm 19469  df-cntz 19573  df-cmn 20038  df-abl 20039  df-mgp 20403  df-rng 20417  df-ur 20450  df-srg 20455  df-ring 20503  df-cring 20504  df-oppr 20609  df-dvdsr 20629  df-unit 20630  df-invr 20660  df-dvr 20673  df-rhm 20744  df-nzr 20805  df-subrng 20840  df-subrg 20864  df-rlreg 20988  df-domn 20989  df-idom 20990  df-drng 21024  df-field 21025  df-lmod 21179  df-lss 21249  df-lsp 21289  df-sra 21490  df-rgmod 21491  df-lidl 21528  df-rsp 21529  df-2idl 21585  df-cnfld 21721  df-zring 21797  df-zrh 21853  df-zn 21856  df-assa 22205  df-asp 22206  df-ascl 22207  df-psr 22261  df-mvr 22262  df-mpl 22263  df-opsr 22265  df-evls 22427  df-evl 22428  df-psr1 22542  df-vr1 22543  df-ply1 22544  df-coe1 22545  df-evl1 22678  df-mdeg 26417  df-deg1 26418  df-mon1 26493  df-uc1p 26494  df-q1p 26495  df-r1p 26496  df-lgs 27668
This theorem is used by:  sgprmdvdsmersenne  48956
  Copyright terms: Public domain W3C validator