pockthg - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > pockthg		GIF version

Theorem pockthg 12498

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 9033	. . . . . 6 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℕ)
5		nnuz 9631	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
6	4, 5	eleqtrdi 2286	. . . . 5 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ (ℤ_≥‘1))
7		eluzp1p1 9621	. . . . 5 ⊢ ((𝐴 · 𝐵) ∈ (ℤ_≥‘1) → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
8	6, 7	syl 14	. . . 4 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
9		df-2 9043	. . . . 5 ⊢ 2 = (1 + 1)
10	9	fveq2i 5558	. . . 4 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
11	8, 10	eleqtrrdi 2287	. . 3 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘2))
12	1, 11	eqeltrd 2270	. 2 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
13		eluzelre 9605	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
14	12, 13	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℝ)
15	14	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ∈ ℝ)
16	2	nnred 8997	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
17	16	resqcld 10773	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
18	17	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) ∈ ℝ)
19		prmnn 12251	. . . . . . . . . 10 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ ℕ)
20	19	ad2antrl 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ)
21	20	nnred 8997	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℝ)
22	21	resqcld 10773	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞↑2) ∈ ℝ)
23		pockthg.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 < 𝐴)
24	3	nnred 8997	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25	2	nngt0d 9028	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐴)
26		ltmul2 8877	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝐴 ∈ ℝ ∧ 0 < 𝐴)) → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
27	24, 16, 16, 25, 26	syl112anc 1253	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 < 𝐴 ↔ (𝐴 · 𝐵) < (𝐴 · 𝐴)))
28	23, 27	mpbid 147	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 · 𝐵) < (𝐴 · 𝐴))
29	2, 2	nnmulcld 9033	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 · 𝐴) ∈ ℕ)
30		nnltp1le 9380	. . . . . . . . . . 11 ⊢ (((𝐴 · 𝐵) ∈ ℕ ∧ (𝐴 · 𝐴) ∈ ℕ) → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
31	4, 29, 30	syl2anc 411	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 · 𝐵) < (𝐴 · 𝐴) ↔ ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴)))
32	28, 31	mpbid 147	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ≤ (𝐴 · 𝐴))
33	2	nncnd 8998	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℂ)
34	33	sqvald 10744	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) = (𝐴 · 𝐴))
35	32, 1, 34	3brtr4d 4062	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ≤ (𝐴↑2))
36	35	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ≤ (𝐴↑2))
37		pockthg.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
38	37	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)))
39		prmnn 12251	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
40	39	ad2antrl 490	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℕ)
41	40	nncnd 8998	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℂ)
42	41	exp1d 10742	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) = 𝑝)
43		nnge1 9007	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ → 1 ≤ (𝑝 pCnt 𝐴))
44	43	ad2antll 491	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ≤ (𝑝 pCnt 𝐴))
45		simprl 529	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∈ ℙ)
46	2	nnzd 9441	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℤ)
47	46	ad2antrr 488	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝐴 ∈ ℤ)
48		1nn0 9259	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
49	48	a1i 9	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 1 ∈ ℕ₀)
50		pcdvdsb 12461	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 1 ∈ ℕ₀) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
51	45, 47, 49, 50	syl3anc 1249	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (1 ≤ (𝑝 pCnt 𝐴) ↔ (𝑝↑1) ∥ 𝐴))
52	44, 51	mpbid 147	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (𝑝↑1) ∥ 𝐴)
53	42, 52	eqbrtrrd 4054	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → 𝑝 ∥ 𝐴)
54		simpl1 1002	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝜑)
55	54, 2	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐴 ∈ ℕ)
56	54, 3	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 ∈ ℕ)
57	54, 23	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝐵 < 𝐴)
58	54, 1	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑁 = ((𝐴 · 𝐵) + 1))
59		simpl2l 1052	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∈ ℙ)
60		simpl2r 1053	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑞 ∥ 𝑁)
61		simpl3l 1054	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑝 ∈ ℙ)
62		simpl3r 1055	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ∈ ℕ)
63		simprl 529	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → 𝑥 ∈ ℤ)
64		simprrl 539	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → ((𝑥↑(𝑁 − 1)) mod 𝑁) = 1)
65		simprrr 540	. . . . . . . . . . . . . . . . . . 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 12497	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) ∧ (𝑥 ∈ ℤ ∧ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1))) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
67	66	rexlimdvaa 2612	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
68	67	3expa 1205	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → (∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
69	53, 68	embantd 56	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ (𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ)) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
70	69	expr 375	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
71		id 19	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
72		prmuz2 12272	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ ℙ → 𝑞 ∈ (ℤ_≥‘2))
73		uz2m1nn 9673	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑞 ∈ (ℤ_≥‘2) → (𝑞 − 1) ∈ ℕ)
74	72, 73	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑞 ∈ ℙ → (𝑞 − 1) ∈ ℕ)
75	74	ad2antrl 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℕ)
76		pccl 12440	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (𝑞 − 1) ∈ ℕ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
77	71, 75, 76	syl2anr 290	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑞 − 1)) ∈ ℕ₀)
78	77	nn0ge0d 9299	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 0 ≤ (𝑝 pCnt (𝑞 − 1)))
79		breq1 4033	. . . . . . . . . . . . . . . 16 ⊢ ((𝑝 pCnt 𝐴) = 0 → ((𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)) ↔ 0 ≤ (𝑝 pCnt (𝑞 − 1))))
80	78, 79	syl5ibrcom 157	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
81	80	a1dd 48	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) = 0 → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))))
82		simpr 110	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
83	2	ad2antrr 488	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℕ)
84	82, 83	pccld 12441	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝐴) ∈ ℕ₀)
85		elnn0 9245	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 pCnt 𝐴) ∈ ℕ₀ ↔ ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
86	84, 85	sylib 122	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝐴) ∈ ℕ ∨ (𝑝 pCnt 𝐴) = 0))
87	70, 81, 86	mpjaod 719	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
88	87	ralimdva 2561	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (∀𝑝 ∈ ℙ (𝑝 ∥ 𝐴 → ∃𝑥 ∈ ℤ (((𝑥↑(𝑁 − 1)) mod 𝑁) = 1 ∧ (((𝑥↑((𝑁 − 1) / 𝑝)) − 1) gcd 𝑁) = 1)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
89	38, 88	mpd 13	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1)))
90	75	nnzd 9441	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞 − 1) ∈ ℤ)
91		pc2dvds 12471	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℤ) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
92	46, 90, 91	syl2an2r 595	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝐴) ≤ (𝑝 pCnt (𝑞 − 1))))
93	89, 92	mpbird 167	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∥ (𝑞 − 1))
94		dvdsle 11989	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑞 − 1) ∈ ℕ) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
95	46, 75, 94	syl2an2r 595	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 ∥ (𝑞 − 1) → 𝐴 ≤ (𝑞 − 1)))
96	93, 95	mpd 13	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ≤ (𝑞 − 1))
97	2	nnnn0d 9296	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
98	20	nnnn0d 9296	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℕ₀)
99		nn0ltlem1 9384	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ₀ ∧ 𝑞 ∈ ℕ₀) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
100	97, 98, 99	syl2an2r 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ 𝐴 ≤ (𝑞 − 1)))
101	96, 100	mpbird 167	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 < 𝑞)
102	16	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝐴 ∈ ℝ)
103	97	nn0ge0d 9299	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝐴)
104	103	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝐴)
105	98	nn0ge0d 9299	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 0 ≤ 𝑞)
106	102, 21, 104, 105	lt2sqd 10778	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴 < 𝑞 ↔ (𝐴↑2) < (𝑞↑2)))
107	101, 106	mpbid 147	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝐴↑2) < (𝑞↑2))
108	15, 18, 22, 36, 107	lelttrd 8146	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 < (𝑞↑2))
109		dvdszrcl 11938	. . . . . . . . 9 ⊢ (𝑞 ∥ 𝑁 → (𝑞 ∈ ℤ ∧ 𝑁 ∈ ℤ))
110	109	simprd 114	. . . . . . . 8 ⊢ (𝑞 ∥ 𝑁 → 𝑁 ∈ ℤ)
111	110	ad2antll 491	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑁 ∈ ℤ)
112	20	nnzd 9441	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → 𝑞 ∈ ℤ)
113		zsqcl 10684	. . . . . . . 8 ⊢ (𝑞 ∈ ℤ → (𝑞↑2) ∈ ℤ)
114	112, 113	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑞↑2) ∈ ℤ)
115		zltnle 9366	. . . . . . 7 ⊢ ((𝑁 ∈ ℤ ∧ (𝑞↑2) ∈ ℤ) → (𝑁 < (𝑞↑2) ↔ ¬ (𝑞↑2) ≤ 𝑁))
116	111, 114, 115	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → (𝑁 < (𝑞↑2) ↔ ¬ (𝑞↑2) ≤ 𝑁))
117	108, 116	mpbid 147	. . . . 5 ⊢ ((𝜑 ∧ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁)) → ¬ (𝑞↑2) ≤ 𝑁)
118	117	expr 375	. . . 4 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ 𝑁 → ¬ (𝑞↑2) ≤ 𝑁))
119	118	con2d 625	. . 3 ⊢ ((𝜑 ∧ 𝑞 ∈ ℙ) → ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
120	119	ralrimiva 2567	. 2 ⊢ (𝜑 → ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁))
121		isprm5 12283	. 2 ⊢ (𝑁 ∈ ℙ ↔ (𝑁 ∈ (ℤ_≥‘2) ∧ ∀𝑞 ∈ ℙ ((𝑞↑2) ≤ 𝑁 → ¬ 𝑞 ∥ 𝑁)))
122	12, 120, 121	sylanbrc 417	1 ⊢ (𝜑 → 𝑁 ∈ ℙ)

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 709 ∧ w3a 980 = wceq 1364 ∈ wcel 2164 ∀wral 2472 ∃wrex 2473 class class class wbr 4030 ‘cfv 5255 (class class class)co 5919 ℝcr 7873 0cc0 7874 1c1 7875 + caddc 7877 · cmul 7879 < clt 8056 ≤ cle 8057 − cmin 8192 / cdiv 8693 ℕcn 8984 2c2 9035 ℕ₀cn0 9243 ℤcz 9320 ℤ_≥cuz 9595 mod cmo 10396 ↑cexp 10612 ∥ cdvds 11933 gcd cgcd 12082 ℙcprime 12248 pCnt cpc 12425

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-13 2166 ax-14 2167 ax-ext 2175 ax-coll 4145 ax-sep 4148 ax-nul 4156 ax-pow 4204 ax-pr 4239 ax-un 4465 ax-setind 4570 ax-iinf 4621 ax-cnex 7965 ax-resscn 7966 ax-1cn 7967 ax-1re 7968 ax-icn 7969 ax-addcl 7970 ax-addrcl 7971 ax-mulcl 7972 ax-mulrcl 7973 ax-addcom 7974 ax-mulcom 7975 ax-addass 7976 ax-mulass 7977 ax-distr 7978 ax-i2m1 7979 ax-0lt1 7980 ax-1rid 7981 ax-0id 7982 ax-rnegex 7983 ax-precex 7984 ax-cnre 7985 ax-pre-ltirr 7986 ax-pre-ltwlin 7987 ax-pre-lttrn 7988 ax-pre-apti 7989 ax-pre-ltadd 7990 ax-pre-mulgt0 7991 ax-pre-mulext 7992 ax-arch 7993 ax-caucvg 7994

This theorem depends on definitions: df-bi 117 df-stab 832 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1472 df-sb 1774 df-eu 2045 df-mo 2046 df-clab 2180 df-cleq 2186 df-clel 2189 df-nfc 2325 df-ne 2365 df-nel 2460 df-ral 2477 df-rex 2478 df-reu 2479 df-rmo 2480 df-rab 2481 df-v 2762 df-sbc 2987 df-csb 3082 df-dif 3156 df-un 3158 df-in 3160 df-ss 3167 df-nul 3448 df-if 3559 df-pw 3604 df-sn 3625 df-pr 3626 df-op 3628 df-uni 3837 df-int 3872 df-iun 3915 df-br 4031 df-opab 4092 df-mpt 4093 df-tr 4129 df-id 4325 df-po 4328 df-iso 4329 df-iord 4398 df-on 4400 df-ilim 4401 df-suc 4403 df-iom 4624 df-xp 4666 df-rel 4667 df-cnv 4668 df-co 4669 df-dm 4670 df-rn 4671 df-res 4672 df-ima 4673 df-iota 5216 df-fun 5257 df-fn 5258 df-f 5259 df-f1 5260 df-fo 5261 df-f1o 5262 df-fv 5263 df-isom 5264 df-riota 5874 df-ov 5922 df-oprab 5923 df-mpo 5924 df-1st 6195 df-2nd 6196 df-recs 6360 df-irdg 6425 df-frec 6446 df-1o 6471 df-2o 6472 df-oadd 6475 df-er 6589 df-en 6797 df-dom 6798 df-fin 6799 df-sup 7045 df-inf 7046 df-pnf 8058 df-mnf 8059 df-xr 8060 df-ltxr 8061 df-le 8062 df-sub 8194 df-neg 8195 df-reap 8596 df-ap 8603 df-div 8694 df-inn 8985 df-2 9043 df-3 9044 df-4 9045 df-n0 9244 df-xnn0 9307 df-z 9321 df-uz 9596 df-q 9688 df-rp 9723 df-fz 10078 df-fzo 10212 df-fl 10342 df-mod 10397 df-seqfrec 10522 df-exp 10613 df-ihash 10850 df-cj 10989 df-re 10990 df-im 10991 df-rsqrt 11145 df-abs 11146 df-clim 11425 df-proddc 11697 df-dvds 11934 df-gcd 12083 df-prm 12249 df-odz 12351 df-phi 12352 df-pc 12426

This theorem is referenced by: pockthi 12499

W3C validator