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 17090

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 12395	. . . . . 6 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℕ)
5		nnuz 13008	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
6	4, 5	eleqtrdi 2870	. . . . 5 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ (ℤ_≥‘1))
7		eluzp1p1 12997	. . . . 5 ⊢ ((𝐴 · 𝐵) ∈ (ℤ_≥‘1) → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
8	6, 7	syl 18	. . . 4 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
9		df-2 12409	. . . . 5 ⊢ 2 = (1 + 1)
10	9	fveq2i 6889	. . . 4 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
11	8, 10	eleqtrrdi 2871	. . 3 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘2))
12	1, 11	eqeltrd 2860	. 2 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
13		eluzelre 12980	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
14	12, 13	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℝ)
15	14	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ∈ ℝ)
16	2	nnred 12354	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
17	16	resqcld 14272	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
18	17	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) ∈ ℝ)
19		prmnn 16855	. . . . . . . . . 10 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ ℕ)
20	19	ad2antrl 741	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ)
21	20	nnred 12354	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℝ)
22	21	resqcld 14272	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞↑2) ∈ ℝ)
23		pockthg.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 < 𝐴)
24	3	nnred 12354	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25	2	nngt0d 12391	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐴)
26		ltmul2 12172	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝐴 ∈ ℝ ∧ 0 < 𝐴)) → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
27	24, 16, 16, 25, 26	syl112anc 1401	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
28	23, 27	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 · 𝐵) < (𝐴 · 𝐴))
29	2, 2	nnmulcld 12395	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 · 𝐴) ∈ ℕ)
30		nnltp1le 12759	. . . . . . . . . . 11 ⊢ (((𝐴 · 𝐵) ∈ ℕ ∧ (𝐴 · 𝐴) ∈ ℕ) → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
31	4, 29, 30	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
32	28, 31	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴))
33	2	nncnd 12355	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℂ)
34	33	sqvald 14290	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) = (𝐴 · 𝐴))
35	32, 1, 34	3brtr4d 5136	. . . . . . . 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 16855	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
40	39	ad2antrl 741	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℕ)
41	40	nncnd 12355	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℂ)
42	41	exp1d 14288	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) = 𝑝)
43		nnge1 12370	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ → 1 ≤ (𝑝 pCnt 𝐴))
44	43	ad2antll 742	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ≤ (𝑝 pCnt 𝐴))
45		simprl 783	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℙ)
46	2	nnzd 12723	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℤ)
47	46	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝐴 ∈ ℤ)
48		1nn0 12626	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
49	48	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ∈ ℕ₀)
50		pcdvdsb 17053	. . . . . . . . . . . . . . . . . . 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 5128	. . . . . . . . . . . . . . . 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 17089	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
67	66	rexlimdvaa 3164	. . . . . . . . . . . . . . . . 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 16877	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ (ℤ_≥‘2))
73		uz2m1nn 13054	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ (ℤ_≥‘2) → (𝑞 − 1) ∈ ℕ)
74	72, 73	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑞 ∈ ℙ → (𝑞 − 1) ∈ ℕ)
75	74	ad2antrl 741	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℕ)
76		pccl 17033	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (𝑞 − 1) ∈ ℕ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
77	71, 75, 76	syl2anr 609	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
78	77	nn0ge0d 12674	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 0 ≤ (𝑝 pCnt (𝑞 − 1)))
79		breq1 5105	. . . . . . . . . . . . . . . 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 17034	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝐴) ∈ ℕ₀)
85		elnn0 12612	. . . . . . . . . . . . . . 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 3174	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
89	38, 88	mpd 16	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
90	75	nnzd 12723	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℤ)
91		pc2dvds 17063	. . . . . . . . . . . 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 16486	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℕ) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
95	46, 75, 94	syl2an2r 698	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
96	93, 95	mpd 16	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ≤ (𝑞 − 1))
97	2	nnnn0d 12671	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
98	20	nnnn0d 12671	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ₀)
99		nn0ltlem1 12763	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ₀ ∧ 𝑞 ∈ ℕ₀) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
100	97, 98, 99	syl2an2r 698	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
101	96, 100	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 < 𝑞)
102	16	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∈ ℝ)
103	97	nn0ge0d 12674	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝐴)
104	103	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝐴)
105	98	nn0ge0d 12674	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝑞)
106	102, 21, 104, 105	lt2sqd 14404	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ (𝐴↑2) < (𝑞↑2)))
107	101, 106	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) < (𝑞↑2))
108	15, 18, 22, 36, 107	lelttrd 11472	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 < (𝑞↑2))
109	15, 22	ltnled 11461	. . . . . 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 3154	. 2 ⊢ (𝜑 → ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
114		isprm5 16889	. 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 1569 ∈ wcel 2144 ∀wral 3076 ∃wrex 3086 class class class wbr 5102 ‘cfv 6539 (class class class)co 7421 ℝcr 11203 0cc0 11204 1c1 11205 + caddc 11207 · cmul 11209 < clt 11347 ≤ cle 11348 − cmin 11545 / cdiv 11977 ℕcn 12339 2c2 12401 ℕ₀cn0 12610 ℤcz 12697 ℤ_≥cuz 12969 mod cmo 14013 ↑cexp 14208 ∥ cdvds 16428 gcd cgcd 16670 ℙcprime 16852 pCnt cpc 17020

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7752 ax-cnex 11260 ax-resscn 11261 ax-1cn 11262 ax-icn 11263 ax-addcl 11264 ax-addrcl 11265 ax-mulcl 11266 ax-mulrcl 11267 ax-mulcom 11268 ax-addass 11269 ax-mulass 11270 ax-distr 11271 ax-i2m1 11272 ax-1ne0 11273 ax-1rid 11274 ax-rnegex 11275 ax-rrecex 11276 ax-cnre 11277 ax-pre-lttri 11278 ax-pre-lttrn 11279 ax-pre-ltadd 11280 ax-pre-mulgt0 11281 ax-pre-sup 11282

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-op 4835 df-uni 4867 df-int 4907 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6541 df-fn 6542 df-f 6543 df-f1 6544 df-fo 6545 df-f1o 6546 df-fv 6547 df-riota 7378 df-ov 7424 df-oprab 7425 df-mpo 7426 df-om 7879 df-1st 8002 df-2nd 8003 df-frecs 8303 df-wrecs 8334 df-recs 8383 df-rdg 8422 df-1o 8480 df-2o 8481 df-oadd 8484 df-er 8721 df-en 8978 df-dom 8979 df-sdom 8980 df-fin 8981 df-sup 9438 df-inf 9439 df-dju 9986 df-card 10024 df-pnf 11349 df-mnf 11350 df-xr 11351 df-ltxr 11352 df-le 11353 df-sub 11547 df-neg 11548 df-div 11978 df-nn 12340 df-2 12409 df-3 12410 df-n0 12611 df-xnn0 12684 df-z 12698 df-uz 12970 df-q 13080 df-rp 13125 df-fz 13644 df-fzo 13793 df-fl 13936 df-mod 14014 df-seq 14149 df-exp 14209 df-hash 14479 df-cj 15272 df-re 15273 df-im 15274 df-sqrt 15408 df-abs 15409 df-dvds 16429 df-gcd 16671 df-prm 16853 df-odz 16948 df-phi 16949 df-pc 17021

This theorem is used by: pockthi 17091 proththd 48793

W3C validator