pockthg - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > pockthg		Structured version Visualization version GIF version

Theorem pockthg 16921

Description: The generalized Pocklington's theorem. If 𝑁 − 1 = 𝐴 · 𝐵 where 𝐵 < 𝐴, then 𝑁 is prime if and only if for every prime factor 𝑝 of 𝐴, there is an 𝑥 such that 𝑥↑(𝑁 − 1) = 1( mod 𝑁) and gcd (𝑥↑((𝑁 − 1) / 𝑝) − 1, 𝑁) = 1. (Contributed by Mario Carneiro, 2-Mar-2014.)

**Hypotheses**
Ref	Expression
pockthg.1	⊢ (𝜑 → 𝐴 ∈ ℕ)
pockthg.2	⊢ (𝜑 → 𝐵 ∈ ℕ)
pockthg.3	⊢ (𝜑 → 𝐵 < 𝐴)
pockthg.4	⊢ (𝜑 → 𝑁 = ((𝐴 · 𝐵) + 1))
pockthg.5	⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))

**Assertion**
Ref	Expression
pockthg	⊢ (𝜑 → 𝑁 ∈ ℙ)

Distinct variable groups: 𝑥,𝑝,𝑁 𝐴,𝑝,𝑥 𝜑,𝑝,𝑥 Allowed substitution hints: 𝐵(𝑥,𝑝)

Proof of Theorem pockthg Dummy variable 𝑞 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		pockthg.4	. . 3 ⊢ (𝜑 → 𝑁 = ((𝐴 · 𝐵) + 1))
2		pockthg.1	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℕ)
3		pockthg.2	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℕ)
4	2, 3	nnmulcld 12321	. . . . . 6 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℕ)
5		nnuz 12921	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
6	4, 5	eleqtrdi 2839	. . . . 5 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ (ℤ_≥‘1))
7		eluzp1p1 12906	. . . . 5 ⊢ ((𝐴 · 𝐵) ∈ (ℤ_≥‘1) → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
8	6, 7	syl 17	. . . 4 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
9		df-2 12331	. . . . 5 ⊢ 2 = (1 + 1)
10	9	fveq2i 6906	. . . 4 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
11	8, 10	eleqtrrdi 2840	. . 3 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘2))
12	1, 11	eqeltrd 2829	. 2 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
13		eluzelre 12889	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
14	12, 13	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℝ)
15	14	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ∈ ℝ)
16	2	nnred 12283	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
17	16	resqcld 14149	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
18	17	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) ∈ ℝ)
19		prmnn 16688	. . . . . . . . . 10 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ ℕ)
20	19	ad2antrl 726	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ)
21	20	nnred 12283	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℝ)
22	21	resqcld 14149	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞↑2) ∈ ℝ)
23		pockthg.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 < 𝐴)
24	3	nnred 12283	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25	2	nngt0d 12317	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐴)
26		ltmul2 12120	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝐴 ∈ ℝ ∧ 0 < 𝐴)) → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
27	24, 16, 16, 25, 26	syl112anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
28	23, 27	mpbid 231	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 · 𝐵) < (𝐴 · 𝐴))
29	2, 2	nnmulcld 12321	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 · 𝐴) ∈ ℕ)
30		nnltp1le 12674	. . . . . . . . . . 11 ⊢ (((𝐴 · 𝐵) ∈ ℕ ∧ (𝐴 · 𝐴) ∈ ℕ) → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
31	4, 29, 30	syl2anc 582	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
32	28, 31	mpbid 231	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴))
33	2	nncnd 12284	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℂ)
34	33	sqvald 14167	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) = (𝐴 · 𝐴))
35	32, 1, 34	3brtr4d 5186	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ≤ (𝐴↑2))
36	35	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ≤ (𝐴↑2))
37		pockthg.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
38	37	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
39		prmnn 16688	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
40	39	ad2antrl 726	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℕ)
41	40	nncnd 12284	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℂ)
42	41	exp1d 14165	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) = 𝑝)
43		nnge1 12296	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ → 1 ≤ (𝑝 pCnt 𝐴))
44	43	ad2antll 727	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ≤ (𝑝 pCnt 𝐴))
45		simprl 769	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℙ)
46	2	nnzd 12641	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℤ)
47	46	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝐴 ∈ ℤ)
48		1nn0 12544	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
49	48	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ∈ ℕ₀)
50		pcdvdsb 16884	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 1 ∈ ℕ₀) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
51	45, 47, 49, 50	syl3anc 1368	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
52	44, 51	mpbid 231	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) ∥ 𝐴)
53	42, 52	eqbrtrrd 5178	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∥ 𝐴)
54		simpl1 1188	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝜑)
55	54, 2	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐴 ∈ ℕ)
56	54, 3	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 ∈ ℕ)
57	54, 23	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 < 𝐴)
58	54, 1	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑁 = ((𝐴 · 𝐵) + 1))
59		simpl2l 1223	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∈ ℙ)
60		simpl2r 1224	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∥ 𝑁)
61		simpl3l 1225	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑝 ∈ ℙ)
62		simpl3r 1226	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ∈ ℕ)
63		simprl 769	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑥 ∈ ℤ)
64		simprrl 779	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → ((𝑥↑(𝑁 − 1)) mod 𝑁) = 1)
65		simprrr 780	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)
66	55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65	pockthlem 16920	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
67	66	rexlimdvaa 3149	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
68	67	3expa 1115	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
69	53, 68	embantd 59	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
70	69	expr 455	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
71		id 22	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
72		prmuz2 16710	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ (ℤ_≥‘2))
73		uz2m1nn 12963	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ (ℤ_≥‘2) → (𝑞 − 1) ∈ ℕ)
74	72, 73	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑞 ∈ ℙ → (𝑞 − 1) ∈ ℕ)
75	74	ad2antrl 726	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℕ)
76		pccl 16864	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (𝑞 − 1) ∈ ℕ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
77	71, 75, 76	syl2anr 595	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
78	77	nn0ge0d 12591	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 0 ≤ (𝑝 pCnt (𝑞 − 1)))
79		breq1 5157	. . . . . . . . . . . . . . . 16 ⊢ ((𝑝 pCnt 𝐴) = 0 → ((𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)) ↔ 0 ≤ (𝑝 pCnt (𝑞 − 1))))
80	78, 79	syl5ibrcom 246	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
81	80	a1dd 50	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
82		simpr 483	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
83	2	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℕ)
84	82, 83	pccld 16865	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝐴) ∈ ℕ₀)
85		elnn0 12530	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ₀ ↔ ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
86	84, 85	sylib 217	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
87	70, 81, 86	mpjaod 858	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
88	87	ralimdva 3160	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
89	38, 88	mpd 15	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
90	75	nnzd 12641	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℤ)
91		pc2dvds 16894	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℤ) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
92	46, 90, 91	syl2an2r 683	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
93	89, 92	mpbird 256	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∥ (𝑞 − 1))
94		dvdsle 16325	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℕ) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
95	46, 75, 94	syl2an2r 683	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
96	93, 95	mpd 15	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ≤ (𝑞 − 1))
97	2	nnnn0d 12588	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
98	20	nnnn0d 12588	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ₀)
99		nn0ltlem1 12678	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ₀ ∧ 𝑞 ∈ ℕ₀) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
100	97, 98, 99	syl2an2r 683	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
101	96, 100	mpbird 256	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 < 𝑞)
102	16	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∈ ℝ)
103	97	nn0ge0d 12591	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝐴)
104	103	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝐴)
105	98	nn0ge0d 12591	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝑞)
106	102, 21, 104, 105	lt2sqd 14279	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ (𝐴↑2) < (𝑞↑2)))
107	101, 106	mpbid 231	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) < (𝑞↑2))
108	15, 18, 22, 36, 107	lelttrd 11423	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 < (𝑞↑2))
109	15, 22	ltnled 11412	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑁 < (𝑞↑2) ↔ ¬ (𝑞↑2) ≤ 𝑁))
110	108, 109	mpbid 231	. . . . 5 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ¬ (𝑞↑2) ≤ 𝑁)
111	110	expr 455	. . . 4 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ 𝑁 → ¬ (𝑞↑2) ≤ 𝑁))
112	111	con2d 134	. . 3 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
113	112	ralrimiva 3139	. 2 ⊢ (𝜑 → ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
114		isprm5 16721	. 2 ⊢ (𝑁 ∈ ℙ ↔ (𝑁 ∈ (ℤ_≥‘2) ∧ ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁)))
115	12, 113, 114	sylanbrc 581	1 ⊢ (𝜑 → 𝑁 ∈ ℙ)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 394 ∨ wo 845 ∧ w3a 1084 = wceq 1534 ∈ wcel 2100 ∀wral 3054 ∃wrex 3063 class class class wbr 5154 ‘cfv 6556 (class class class)co 7427 ℝcr 11158 0cc0 11159 1c1 11160 + caddc 11162 · cmul 11164 < clt 11299 ≤ cle 11300 − cmin 11495 / cdiv 11922 ℕcn 12268 2c2 12323 ℕ₀cn0 12528 ℤcz 12614 ℤ_≥cuz 12878 mod cmo 13894 ↑cexp 14086 ∥ cdvds 16269 gcd cgcd 16507 ℙcprime 16685 pCnt cpc 16851

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2102 ax-9 2110 ax-10 2133 ax-11 2150 ax-12 2170 ax-ext 2700 ax-rep 5291 ax-sep 5305 ax-nul 5312 ax-pow 5371 ax-pr 5435 ax-un 7748 ax-cnex 11215 ax-resscn 11216 ax-1cn 11217 ax-icn 11218 ax-addcl 11219 ax-addrcl 11220 ax-mulcl 11221 ax-mulrcl 11222 ax-mulcom 11223 ax-addass 11224 ax-mulass 11225 ax-distr 11226 ax-i2m1 11227 ax-1ne0 11228 ax-1rid 11229 ax-rnegex 11230 ax-rrecex 11231 ax-cnre 11232 ax-pre-lttri 11233 ax-pre-lttrn 11234 ax-pre-ltadd 11235 ax-pre-mulgt0 11236 ax-pre-sup 11237

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2062 df-mo 2532 df-eu 2561 df-clab 2707 df-cleq 2721 df-clel 2806 df-nfc 2881 df-ne 2934 df-nel 3040 df-ral 3055 df-rex 3064 df-rmo 3373 df-reu 3374 df-rab 3429 df-v 3474 df-sbc 3788 df-csb 3904 df-dif 3961 df-un 3963 df-in 3965 df-ss 3975 df-pss 3978 df-nul 4334 df-if 4535 df-pw 4610 df-sn 4635 df-pr 4637 df-op 4641 df-uni 4917 df-int 4958 df-iun 5006 df-br 5155 df-opab 5217 df-mpt 5238 df-tr 5272 df-id 5582 df-eprel 5588 df-po 5596 df-so 5597 df-fr 5639 df-we 5641 df-xp 5690 df-rel 5691 df-cnv 5692 df-co 5693 df-dm 5694 df-rn 5695 df-res 5696 df-ima 5697 df-pred 6315 df-ord 6381 df-on 6382 df-lim 6383 df-suc 6384 df-iota 6508 df-fun 6558 df-fn 6559 df-f 6560 df-f1 6561 df-fo 6562 df-f1o 6563 df-fv 6564 df-riota 7383 df-ov 7430 df-oprab 7431 df-mpo 7432 df-om 7882 df-1st 8008 df-2nd 8009 df-frecs 8300 df-wrecs 8331 df-recs 8405 df-rdg 8444 df-1o 8500 df-2o 8501 df-oadd 8504 df-er 8738 df-en 8979 df-dom 8980 df-sdom 8981 df-fin 8982 df-sup 9486 df-inf 9487 df-dju 9945 df-card 9983 df-pnf 11301 df-mnf 11302 df-xr 11303 df-ltxr 11304 df-le 11305 df-sub 11497 df-neg 11498 df-div 11923 df-nn 12269 df-2 12331 df-3 12332 df-n0 12529 df-xnn0 12601 df-z 12615 df-uz 12879 df-q 12989 df-rp 13033 df-fz 13543 df-fzo 13686 df-fl 13817 df-mod 13895 df-seq 14027 df-exp 14087 df-hash 14354 df-cj 15117 df-re 15118 df-im 15119 df-sqrt 15253 df-abs 15254 df-dvds 16270 df-gcd 16508 df-prm 16686 df-odz 16780 df-phi 16781 df-pc 16852

This theorem is referenced by: pockthi 16922 proththd 47297

W3C validator