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 16991

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 12307	. . . . . 6 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℕ)
5		nnuz 12919	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
6	4, 5	eleqtrdi 2876	. . . . 5 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ (ℤ_≥‘1))
7		eluzp1p1 12908	. . . . 5 ⊢ ((𝐴 · 𝐵) ∈ (ℤ_≥‘1) → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
8	6, 7	syl 18	. . . 4 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
9		df-2 12321	. . . . 5 ⊢ 2 = (1 + 1)
10	9	fveq2i 6891	. . . 4 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
11	8, 10	eleqtrrdi 2877	. . 3 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘2))
12	1, 11	eqeltrd 2866	. 2 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
13		eluzelre 12891	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
14	12, 13	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℝ)
15	14	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ∈ ℝ)
16	2	nnred 12266	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
17	16	resqcld 14181	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
18	17	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) ∈ ℝ)
19		prmnn 16757	. . . . . . . . . 10 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ ℕ)
20	19	ad2antrl 741	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ)
21	20	nnred 12266	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℝ)
22	21	resqcld 14181	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞↑2) ∈ ℝ)
23		pockthg.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 < 𝐴)
24	3	nnred 12266	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25	2	nngt0d 12303	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐴)
26		ltmul2 12084	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝐴 ∈ ℝ ∧ 0 < 𝐴)) → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
27	24, 16, 16, 25, 26	syl112anc 1401	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
28	23, 27	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 · 𝐵) < (𝐴 · 𝐴))
29	2, 2	nnmulcld 12307	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 · 𝐴) ∈ ℕ)
30		nnltp1le 12670	. . . . . . . . . . 11 ⊢ (((𝐴 · 𝐵) ∈ ℕ ∧ (𝐴 · 𝐴) ∈ ℕ) → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
31	4, 29, 30	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
32	28, 31	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴))
33	2	nncnd 12267	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℂ)
34	33	sqvald 14199	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) = (𝐴 · 𝐴))
35	32, 1, 34	3brtr4d 5148	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ≤ (𝐴↑2))
36	35	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ≤ (𝐴↑2))
37		pockthg.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
38	37	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
39		prmnn 16757	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
40	39	ad2antrl 741	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℕ)
41	40	nncnd 12267	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℂ)
42	41	exp1d 14197	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) = 𝑝)
43		nnge1 12282	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ → 1 ≤ (𝑝 pCnt 𝐴))
44	43	ad2antll 742	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ≤ (𝑝 pCnt 𝐴))
45		simprl 783	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℙ)
46	2	nnzd 12635	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℤ)
47	46	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝐴 ∈ ℤ)
48		1nn0 12538	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
49	48	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ∈ ℕ₀)
50		pcdvdsb 16954	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 1 ∈ ℕ₀) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
51	45, 47, 49, 50	syl3anc 1398	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
52	44, 51	mpbid 235	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) ∥ 𝐴)
53	42, 52	eqbrtrrd 5140	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∥ 𝐴)
54		simpl1 1210	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝜑)
55	54, 2	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐴 ∈ ℕ)
56	54, 3	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 ∈ ℕ)
57	54, 23	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 < 𝐴)
58	54, 1	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑁 = ((𝐴 · 𝐵) + 1))
59		simpl2l 1245	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∈ ℙ)
60		simpl2r 1246	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∥ 𝑁)
61		simpl3l 1247	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑝 ∈ ℙ)
62		simpl3r 1248	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ∈ ℕ)
63		simprl 783	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑥 ∈ ℤ)
64		simprrl 793	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → ((𝑥↑(𝑁 − 1)) mod 𝑁) = 1)
65		simprrr 794	. . . . . . . . . . . . . . . . . . 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 16990	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
67	66	rexlimdvaa 3170	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
68	67	3expa 1136	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
69	53, 68	embantd 60	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
70	69	expr 462	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
71		id 23	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
72		prmuz2 16779	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ (ℤ_≥‘2))
73		uz2m1nn 12965	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ (ℤ_≥‘2) → (𝑞 − 1) ∈ ℕ)
74	72, 73	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑞 ∈ ℙ → (𝑞 − 1) ∈ ℕ)
75	74	ad2antrl 741	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℕ)
76		pccl 16934	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (𝑞 − 1) ∈ ℕ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
77	71, 75, 76	syl2anr 609	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
78	77	nn0ge0d 12586	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 0 ≤ (𝑝 pCnt (𝑞 − 1)))
79		breq1 5117	. . . . . . . . . . . . . . . 16 ⊢ ((𝑝 pCnt 𝐴) = 0 → ((𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)) ↔ 0 ≤ (𝑝 pCnt (𝑞 − 1))))
80	78, 79	syl5ibrcom 250	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
81	80	a1dd 51	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
82		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
83	2	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℕ)
84	82, 83	pccld 16935	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝐴) ∈ ℕ₀)
85		elnn0 12524	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ₀ ↔ ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
86	84, 85	sylib 221	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
87	70, 81, 86	mpjaod 874	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
88	87	ralimdva 3180	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
89	38, 88	mpd 16	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
90	75	nnzd 12635	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℤ)
91		pc2dvds 16964	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℤ) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
92	46, 90, 91	syl2an2r 698	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
93	89, 92	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∥ (𝑞 − 1))
94		dvdsle 16393	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℕ) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
95	46, 75, 94	syl2an2r 698	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
96	93, 95	mpd 16	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ≤ (𝑞 − 1))
97	2	nnnn0d 12583	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
98	20	nnnn0d 12583	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ₀)
99		nn0ltlem1 12674	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ₀ ∧ 𝑞 ∈ ℕ₀) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
100	97, 98, 99	syl2an2r 698	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
101	96, 100	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 < 𝑞)
102	16	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∈ ℝ)
103	97	nn0ge0d 12586	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝐴)
104	103	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝐴)
105	98	nn0ge0d 12586	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝑞)
106	102, 21, 104, 105	lt2sqd 14312	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ (𝐴↑2) < (𝑞↑2)))
107	101, 106	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) < (𝑞↑2))
108	15, 18, 22, 36, 107	lelttrd 11386	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 < (𝑞↑2))
109	15, 22	ltnled 11375	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑁 < (𝑞↑2) ↔ ¬ (𝑞↑2) ≤ 𝑁))
110	108, 109	mpbid 235	. . . . 5 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ¬ (𝑞↑2) ≤ 𝑁)
111	110	expr 462	. . . 4 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ 𝑁 → ¬ (𝑞↑2) ≤ 𝑁))
112	111	con2d 135	. . 3 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
113	112	ralrimiva 3160	. 2 ⊢ (𝜑 → ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
114		isprm5 16791	. 2 ⊢ (𝑁 ∈ ℙ ↔ (𝑁 ∈ (ℤ_≥‘2) ∧ ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁)))
115	12, 113, 114	sylanbrc 595	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 2146 ∀wral 3082 ∃wrex 3092 class class class wbr 5114 ‘cfv 6543 (class class class)co 7423 ℝcr 11117 0cc0 11118 1c1 11119 + caddc 11121 · cmul 11123 < clt 11261 ≤ cle 11262 − cmin 11459 / cdiv 11889 ℕcn 12251 2c2 12313 ℕ₀cn0 12522 ℤcz 12609 ℤ_≥cuz 12880 mod cmo 13922 ↑cexp 14117 ∥ cdvds 16335 gcd cgcd 16577 ℙcprime 16754 pCnt cpc 16921

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 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2738 ax-rep 5243 ax-sep 5262 ax-nul 5274 ax-pow 5341 ax-pr 5409 ax-un 7745 ax-cnex 11174 ax-resscn 11175 ax-1cn 11176 ax-icn 11177 ax-addcl 11178 ax-addrcl 11179 ax-mulcl 11180 ax-mulrcl 11181 ax-mulcom 11182 ax-addass 11183 ax-mulass 11184 ax-distr 11185 ax-i2m1 11186 ax-1ne0 11187 ax-1rid 11188 ax-rnegex 11189 ax-rrecex 11190 ax-cnre 11191 ax-pre-lttri 11192 ax-pre-lttrn 11193 ax-pre-ltadd 11194 ax-pre-mulgt0 11195 ax-pre-sup 11196

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 2100 df-mo 2570 df-eu 2600 df-clab 2745 df-cleq 2758 df-clel 2841 df-nfc 2915 df-ne 2962 df-nel 3068 df-ral 3083 df-rex 3093 df-rmo 3372 df-reu 3373 df-rab 3420 df-v 3460 df-sbc 3748 df-csb 3857 df-dif 3911 df-un 3913 df-in 3915 df-ss 3925 df-pss 3928 df-nul 4290 df-if 4493 df-pw 4569 df-sn 4595 df-pr 4597 df-op 4601 df-uni 4878 df-int 4918 df-iun 4963 df-br 5115 df-opab 5179 df-mpt 5198 df-tr 5224 df-id 5561 df-eprel 5566 df-po 5574 df-so 5575 df-fr 5619 df-we 5621 df-xp 5672 df-rel 5673 df-cnv 5674 df-co 5675 df-dm 5676 df-rn 5677 df-res 5678 df-ima 5679 df-pred 6309 df-ord 6370 df-on 6371 df-lim 6372 df-suc 6373 df-iota 6499 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7380 df-ov 7426 df-oprab 7427 df-mpo 7428 df-om 7872 df-1st 7995 df-2nd 7996 df-frecs 8287 df-wrecs 8318 df-recs 8367 df-rdg 8406 df-1o 8462 df-2o 8463 df-oadd 8466 df-er 8703 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-sup 9412 df-inf 9413 df-dju 9906 df-card 9944 df-pnf 11263 df-mnf 11264 df-xr 11265 df-ltxr 11266 df-le 11267 df-sub 11461 df-neg 11462 df-div 11890 df-nn 12252 df-2 12321 df-3 12322 df-n0 12523 df-xnn0 12596 df-z 12610 df-uz 12881 df-q 12991 df-rp 13035 df-fz 13554 df-fzo 13702 df-fl 13845 df-mod 13923 df-seq 14058 df-exp 14118 df-hash 14387 df-cj 15176 df-re 15177 df-im 15178 df-sqrt 15312 df-abs 15313 df-dvds 16336 df-gcd 16578 df-prm 16755 df-odz 16849 df-phi 16850 df-pc 16922

This theorem is used by: pockthi 16992 proththd 48407

W3C validator