pockthlem - Intuitionistic Logic Explorer

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

Theorem pockthlem 12723

Description: Lemma for pockthg 12724. (Contributed by Mario Carneiro, 2-Mar-2014.)

**Hypotheses**
Ref	Expression
pockthg.1	⊢ (𝜑 → 𝐴 ∈ ℕ)
pockthg.2	⊢ (𝜑 → 𝐵 ∈ ℕ)
pockthg.3	⊢ (𝜑 → 𝐵 < 𝐴)
pockthg.4	⊢ (𝜑 → 𝑁 = ((𝐴 · 𝐵) + 1))
pockthlem.5	⊢ (𝜑 → 𝑃 ∈ ℙ)
pockthlem.6	⊢ (𝜑 → 𝑃 ∥ 𝑁)
pockthlem.7	⊢ (𝜑 → 𝑄 ∈ ℙ)
pockthlem.8	⊢ (𝜑 → (𝑄 pCnt 𝐴) ∈ ℕ)
pockthlem.9	⊢ (𝜑 → 𝐶 ∈ ℤ)
pockthlem.10	⊢ (𝜑 → ((𝐶↑(𝑁 − 1)) mod 𝑁) = 1)
pockthlem.11	⊢ (𝜑 → (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁) = 1)

**Assertion**
Ref	Expression
pockthlem	⊢ (𝜑 → (𝑄 pCnt 𝐴) ≤ (𝑄 pCnt (𝑃 − 1)))

**Proof of Theorem pockthlem**
Step	Hyp	Ref	Expression
1		pockthlem.7	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ ℙ)
2		prmnn 12476	. . . . . 6 ⊢ (𝑄 ∈ ℙ → 𝑄 ∈ ℕ)
3	1, 2	syl 14	. . . . 5 ⊢ (𝜑 → 𝑄 ∈ ℕ)
4		pockthlem.8	. . . . . 6 ⊢ (𝜑 → (𝑄 pCnt 𝐴) ∈ ℕ)
5	4	nnnn0d 9355	. . . . 5 ⊢ (𝜑 → (𝑄 pCnt 𝐴) ∈ ℕ₀)
6	3, 5	nnexpcld 10847	. . . 4 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∈ ℕ)
7	6	nnzd 9501	. . 3 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∈ ℤ)
8		pockthlem.5	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmnn 12476	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
10	8, 9	syl 14	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ ℕ)
11		pockthlem.9	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ ℤ)
12	10	nnzd 9501	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
13		gcddvds 12328	. . . . . . . . . 10 ⊢ ((𝐶 ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((𝐶 gcd 𝑃) ∥ 𝐶 ∧ (𝐶 gcd 𝑃) ∥ 𝑃))
14	11, 12, 13	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → ((𝐶 gcd 𝑃) ∥ 𝐶 ∧ (𝐶 gcd 𝑃) ∥ 𝑃))
15	14	simpld 112	. . . . . . . 8 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∥ 𝐶)
16	11, 12	gcdcld 12333	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∈ ℕ₀)
17	16	nn0zd 9500	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∈ ℤ)
18		pockthg.4	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 = ((𝐴 · 𝐵) + 1))
19		pockthg.1	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ ℕ)
20		pockthg.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 ∈ ℕ)
21	19, 20	nnmulcld 9092	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℕ)
22		nnuz 9691	. . . . . . . . . . . . . . . 16 ⊢ ℕ = (ℤ_≥‘1)
23	21, 22	eleqtrdi 2299	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ (ℤ_≥‘1))
24		eluzp1p1 9681	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 · 𝐵) ∈ (ℤ_≥‘1) → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
25	23, 24	syl 14	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 · 𝐵) + 1) ∈ (ℤ_≥‘(1 + 1)))
26	18, 25	eqeltrd 2283	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(1 + 1)))
27		df-2 9102	. . . . . . . . . . . . . 14 ⊢ 2 = (1 + 1)
28	27	fveq2i 5586	. . . . . . . . . . . . 13 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
29	26, 28	eleqtrrdi 2300	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
30		eluz2b2 9731	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ (ℤ_≥‘2) ↔ (𝑁 ∈ ℕ ∧ 1 < 𝑁))
31	29, 30	sylib 122	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 1 < 𝑁))
32	31	simpld 112	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
33	32	nnzd 9501	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℤ)
34	14	simprd 114	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∥ 𝑃)
35		pockthlem.6	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
36	17, 12, 33, 34, 35	dvdstrd 12185	. . . . . . . 8 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∥ 𝑁)
37	32	nnne0d 9088	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ≠ 0)
38		simpr 110	. . . . . . . . . . 11 ⊢ ((𝐶 = 0 ∧ 𝑁 = 0) → 𝑁 = 0)
39	38	necon3ai 2426	. . . . . . . . . 10 ⊢ (𝑁 ≠ 0 → ¬ (𝐶 = 0 ∧ 𝑁 = 0))
40	37, 39	syl 14	. . . . . . . . 9 ⊢ (𝜑 → ¬ (𝐶 = 0 ∧ 𝑁 = 0))
41		dvdslegcd 12329	. . . . . . . . 9 ⊢ ((((𝐶 gcd 𝑃) ∈ ℤ ∧ 𝐶 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝐶 = 0 ∧ 𝑁 = 0)) → (((𝐶 gcd 𝑃) ∥ 𝐶 ∧ (𝐶 gcd 𝑃) ∥ 𝑁) → (𝐶 gcd 𝑃) ≤ (𝐶 gcd 𝑁)))
42	17, 11, 33, 40, 41	syl31anc 1253	. . . . . . . 8 ⊢ (𝜑 → (((𝐶 gcd 𝑃) ∥ 𝐶 ∧ (𝐶 gcd 𝑃) ∥ 𝑁) → (𝐶 gcd 𝑃) ≤ (𝐶 gcd 𝑁)))
43	15, 36, 42	mp2and 433	. . . . . . 7 ⊢ (𝜑 → (𝐶 gcd 𝑃) ≤ (𝐶 gcd 𝑁))
44		pockthlem.10	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑(𝑁 − 1)) mod 𝑁) = 1)
45	44	oveq1d 5966	. . . . . . . . 9 ⊢ (𝜑 → (((𝐶↑(𝑁 − 1)) mod 𝑁) gcd 𝑁) = (1 gcd 𝑁))
46		1z 9405	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℤ
47		eluzp1m1 9679	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℤ ∧ 𝑁 ∈ (ℤ_≥‘(1 + 1))) → (𝑁 − 1) ∈ (ℤ_≥‘1))
48	46, 26, 47	sylancr 414	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 − 1) ∈ (ℤ_≥‘1))
49	48, 22	eleqtrrdi 2300	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ)
50	49	nnnn0d 9355	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ₀)
51		zexpcl 10706	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ ℤ ∧ (𝑁 − 1) ∈ ℕ₀) → (𝐶↑(𝑁 − 1)) ∈ ℤ)
52	11, 50, 51	syl2anc 411	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶↑(𝑁 − 1)) ∈ ℤ)
53		modgcd 12356	. . . . . . . . . 10 ⊢ (((𝐶↑(𝑁 − 1)) ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐶↑(𝑁 − 1)) mod 𝑁) gcd 𝑁) = ((𝐶↑(𝑁 − 1)) gcd 𝑁))
54	52, 32, 53	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → (((𝐶↑(𝑁 − 1)) mod 𝑁) gcd 𝑁) = ((𝐶↑(𝑁 − 1)) gcd 𝑁))
55		gcdcom 12338	. . . . . . . . . . 11 ⊢ ((1 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (1 gcd 𝑁) = (𝑁 gcd 1))
56	46, 33, 55	sylancr 414	. . . . . . . . . 10 ⊢ (𝜑 → (1 gcd 𝑁) = (𝑁 gcd 1))
57		gcd1 12352	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℤ → (𝑁 gcd 1) = 1)
58	33, 57	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 gcd 1) = 1)
59	56, 58	eqtrd 2239	. . . . . . . . 9 ⊢ (𝜑 → (1 gcd 𝑁) = 1)
60	45, 54, 59	3eqtr3d 2247	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑(𝑁 − 1)) gcd 𝑁) = 1)
61		rpexp 12519	. . . . . . . . 9 ⊢ ((𝐶 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ (𝑁 − 1) ∈ ℕ) → (((𝐶↑(𝑁 − 1)) gcd 𝑁) = 1 ↔ (𝐶 gcd 𝑁) = 1))
62	11, 33, 49, 61	syl3anc 1250	. . . . . . . 8 ⊢ (𝜑 → (((𝐶↑(𝑁 − 1)) gcd 𝑁) = 1 ↔ (𝐶 gcd 𝑁) = 1))
63	60, 62	mpbid 147	. . . . . . 7 ⊢ (𝜑 → (𝐶 gcd 𝑁) = 1)
64	43, 63	breqtrd 4073	. . . . . 6 ⊢ (𝜑 → (𝐶 gcd 𝑃) ≤ 1)
65	10	nnne0d 9088	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ≠ 0)
66		simpr 110	. . . . . . . . . 10 ⊢ ((𝐶 = 0 ∧ 𝑃 = 0) → 𝑃 = 0)
67	66	necon3ai 2426	. . . . . . . . 9 ⊢ (𝑃 ≠ 0 → ¬ (𝐶 = 0 ∧ 𝑃 = 0))
68	65, 67	syl 14	. . . . . . . 8 ⊢ (𝜑 → ¬ (𝐶 = 0 ∧ 𝑃 = 0))
69		gcdn0cl 12327	. . . . . . . 8 ⊢ (((𝐶 ∈ ℤ ∧ 𝑃 ∈ ℤ) ∧ ¬ (𝐶 = 0 ∧ 𝑃 = 0)) → (𝐶 gcd 𝑃) ∈ ℕ)
70	11, 12, 68, 69	syl21anc 1249	. . . . . . 7 ⊢ (𝜑 → (𝐶 gcd 𝑃) ∈ ℕ)
71		nnle1eq1 9067	. . . . . . 7 ⊢ ((𝐶 gcd 𝑃) ∈ ℕ → ((𝐶 gcd 𝑃) ≤ 1 ↔ (𝐶 gcd 𝑃) = 1))
72	70, 71	syl 14	. . . . . 6 ⊢ (𝜑 → ((𝐶 gcd 𝑃) ≤ 1 ↔ (𝐶 gcd 𝑃) = 1))
73	64, 72	mpbid 147	. . . . 5 ⊢ (𝜑 → (𝐶 gcd 𝑃) = 1)
74		odzcl 12610	. . . . 5 ⊢ ((𝑃 ∈ ℕ ∧ 𝐶 ∈ ℤ ∧ (𝐶 gcd 𝑃) = 1) → ((od_ℤ‘𝑃)‘𝐶) ∈ ℕ)
75	10, 11, 73, 74	syl3anc 1250	. . . 4 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∈ ℕ)
76	75	nnzd 9501	. . 3 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∈ ℤ)
77		prmuz2 12497	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
78	8, 77	syl 14	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ (ℤ_≥‘2))
79	78, 28	eleqtrdi 2299	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ (ℤ_≥‘(1 + 1)))
80		eluzp1m1 9679	. . . . . 6 ⊢ ((1 ∈ ℤ ∧ 𝑃 ∈ (ℤ_≥‘(1 + 1))) → (𝑃 − 1) ∈ (ℤ_≥‘1))
81	46, 79, 80	sylancr 414	. . . . 5 ⊢ (𝜑 → (𝑃 − 1) ∈ (ℤ_≥‘1))
82	81, 22	eleqtrrdi 2300	. . . 4 ⊢ (𝜑 → (𝑃 − 1) ∈ ℕ)
83	82	nnzd 9501	. . 3 ⊢ (𝜑 → (𝑃 − 1) ∈ ℤ)
84	19	nnzd 9501	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℤ)
85	49	nnzd 9501	. . . . . 6 ⊢ (𝜑 → (𝑁 − 1) ∈ ℤ)
86		pcdvds 12682	. . . . . . 7 ⊢ ((𝑄 ∈ ℙ ∧ 𝐴 ∈ ℕ) → (𝑄↑(𝑄 pCnt 𝐴)) ∥ 𝐴)
87	1, 19, 86	syl2anc 411	. . . . . 6 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∥ 𝐴)
88	20	nnzd 9501	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℤ)
89		dvdsmul1 12168	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → 𝐴 ∥ (𝐴 · 𝐵))
90	84, 88, 89	syl2anc 411	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∥ (𝐴 · 𝐵))
91	18	oveq1d 5966	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 1) = (((𝐴 · 𝐵) + 1) − 1))
92	21	nncnd 9057	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℂ)
93		ax-1cn 8025	. . . . . . . . 9 ⊢ 1 ∈ ℂ
94		pncan 8285	. . . . . . . . 9 ⊢ (((𝐴 · 𝐵) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐴 · 𝐵) + 1) − 1) = (𝐴 · 𝐵))
95	92, 93, 94	sylancl 413	. . . . . . . 8 ⊢ (𝜑 → (((𝐴 · 𝐵) + 1) − 1) = (𝐴 · 𝐵))
96	91, 95	eqtrd 2239	. . . . . . 7 ⊢ (𝜑 → (𝑁 − 1) = (𝐴 · 𝐵))
97	90, 96	breqtrrd 4075	. . . . . 6 ⊢ (𝜑 → 𝐴 ∥ (𝑁 − 1))
98	7, 84, 85, 87, 97	dvdstrd 12185	. . . . 5 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑁 − 1))
99	6	nnne0d 9088	. . . . . 6 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ≠ 0)
100		dvdsval2 12145	. . . . . 6 ⊢ (((𝑄↑(𝑄 pCnt 𝐴)) ∈ ℤ ∧ (𝑄↑(𝑄 pCnt 𝐴)) ≠ 0 ∧ (𝑁 − 1) ∈ ℤ) → ((𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑁 − 1) ↔ ((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℤ))
101	7, 99, 85, 100	syl3anc 1250	. . . . 5 ⊢ (𝜑 → ((𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑁 − 1) ↔ ((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℤ))
102	98, 101	mpbid 147	. . . 4 ⊢ (𝜑 → ((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℤ)
103		peano2zm 9417	. . . . . . . 8 ⊢ ((𝐶↑(𝑁 − 1)) ∈ ℤ → ((𝐶↑(𝑁 − 1)) − 1) ∈ ℤ)
104	52, 103	syl 14	. . . . . . 7 ⊢ (𝜑 → ((𝐶↑(𝑁 − 1)) − 1) ∈ ℤ)
105		nnq 9761	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℚ)
106	32, 105	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℚ)
107	31	simprd 114	. . . . . . . . . 10 ⊢ (𝜑 → 1 < 𝑁)
108		q1mod 10508	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℚ ∧ 1 < 𝑁) → (1 mod 𝑁) = 1)
109	106, 107, 108	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → (1 mod 𝑁) = 1)
110	44, 109	eqtr4d 2242	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑(𝑁 − 1)) mod 𝑁) = (1 mod 𝑁))
111		1zzd 9406	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℤ)
112		moddvds 12154	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ (𝐶↑(𝑁 − 1)) ∈ ℤ ∧ 1 ∈ ℤ) → (((𝐶↑(𝑁 − 1)) mod 𝑁) = (1 mod 𝑁) ↔ 𝑁 ∥ ((𝐶↑(𝑁 − 1)) − 1)))
113	32, 52, 111, 112	syl3anc 1250	. . . . . . . 8 ⊢ (𝜑 → (((𝐶↑(𝑁 − 1)) mod 𝑁) = (1 mod 𝑁) ↔ 𝑁 ∥ ((𝐶↑(𝑁 − 1)) − 1)))
114	110, 113	mpbid 147	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∥ ((𝐶↑(𝑁 − 1)) − 1))
115	12, 33, 104, 35, 114	dvdstrd 12185	. . . . . 6 ⊢ (𝜑 → 𝑃 ∥ ((𝐶↑(𝑁 − 1)) − 1))
116		odzdvds 12612	. . . . . . 7 ⊢ (((𝑃 ∈ ℕ ∧ 𝐶 ∈ ℤ ∧ (𝐶 gcd 𝑃) = 1) ∧ (𝑁 − 1) ∈ ℕ₀) → (𝑃 ∥ ((𝐶↑(𝑁 − 1)) − 1) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ (𝑁 − 1)))
117	10, 11, 73, 50, 116	syl31anc 1253	. . . . . 6 ⊢ (𝜑 → (𝑃 ∥ ((𝐶↑(𝑁 − 1)) − 1) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ (𝑁 − 1)))
118	115, 117	mpbid 147	. . . . 5 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∥ (𝑁 − 1))
119	49	nncnd 9057	. . . . . 6 ⊢ (𝜑 → (𝑁 − 1) ∈ ℂ)
120	6	nncnd 9057	. . . . . 6 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∈ ℂ)
121	6	nnap0d 9089	. . . . . 6 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) # 0)
122	119, 120, 121	divcanap1d 8871	. . . . 5 ⊢ (𝜑 → (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑(𝑄 pCnt 𝐴))) = (𝑁 − 1))
123	118, 122	breqtrrd 4075	. . . 4 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑(𝑄 pCnt 𝐴))))
124		nprmdvds1 12506	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ¬ 𝑃 ∥ 1)
125	8, 124	syl 14	. . . . 5 ⊢ (𝜑 → ¬ 𝑃 ∥ 1)
126	3	nnzd 9501	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ∈ ℤ)
127		iddvdsexp 12170	. . . . . . . . . . . . . 14 ⊢ ((𝑄 ∈ ℤ ∧ (𝑄 pCnt 𝐴) ∈ ℕ) → 𝑄 ∥ (𝑄↑(𝑄 pCnt 𝐴)))
128	126, 4, 127	syl2anc 411	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ∥ (𝑄↑(𝑄 pCnt 𝐴)))
129	126, 7, 85, 128, 98	dvdstrd 12185	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑄 ∥ (𝑁 − 1))
130	3	nnne0d 9088	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ≠ 0)
131		dvdsval2 12145	. . . . . . . . . . . . 13 ⊢ ((𝑄 ∈ ℤ ∧ 𝑄 ≠ 0 ∧ (𝑁 − 1) ∈ ℤ) → (𝑄 ∥ (𝑁 − 1) ↔ ((𝑁 − 1) / 𝑄) ∈ ℤ))
132	126, 130, 85, 131	syl3anc 1250	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑄 ∥ (𝑁 − 1) ↔ ((𝑁 − 1) / 𝑄) ∈ ℤ))
133	129, 132	mpbid 147	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 − 1) / 𝑄) ∈ ℤ)
134	50	nn0ge0d 9358	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁 − 1))
135	49	nnred 9056	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 − 1) ∈ ℝ)
136	3	nnred 9056	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ∈ ℝ)
137	3	nngt0d 9087	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 < 𝑄)
138		ge0div 8951	. . . . . . . . . . . . 13 ⊢ (((𝑁 − 1) ∈ ℝ ∧ 𝑄 ∈ ℝ ∧ 0 < 𝑄) → (0 ≤ (𝑁 − 1) ↔ 0 ≤ ((𝑁 − 1) / 𝑄)))
139	135, 136, 137, 138	syl3anc 1250	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 ≤ (𝑁 − 1) ↔ 0 ≤ ((𝑁 − 1) / 𝑄)))
140	134, 139	mpbid 147	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ ((𝑁 − 1) / 𝑄))
141		elnn0z 9392	. . . . . . . . . . 11 ⊢ (((𝑁 − 1) / 𝑄) ∈ ℕ₀ ↔ (((𝑁 − 1) / 𝑄) ∈ ℤ ∧ 0 ≤ ((𝑁 − 1) / 𝑄)))
142	133, 140, 141	sylanbrc 417	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁 − 1) / 𝑄) ∈ ℕ₀)
143		zexpcl 10706	. . . . . . . . . 10 ⊢ ((𝐶 ∈ ℤ ∧ ((𝑁 − 1) / 𝑄) ∈ ℕ₀) → (𝐶↑((𝑁 − 1) / 𝑄)) ∈ ℤ)
144	11, 142, 143	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → (𝐶↑((𝑁 − 1) / 𝑄)) ∈ ℤ)
145		peano2zm 9417	. . . . . . . . 9 ⊢ ((𝐶↑((𝑁 − 1) / 𝑄)) ∈ ℤ → ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ∈ ℤ)
146	144, 145	syl 14	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ∈ ℤ)
147		dvdsgcd 12377	. . . . . . . 8 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∥ (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁)))
148	12, 146, 33, 147	syl3anc 1250	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∥ (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁)))
149	35, 148	mpan2d 428	. . . . . 6 ⊢ (𝜑 → (𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) → 𝑃 ∥ (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁)))
150		odzdvds 12612	. . . . . . . 8 ⊢ (((𝑃 ∈ ℕ ∧ 𝐶 ∈ ℤ ∧ (𝐶 gcd 𝑃) = 1) ∧ ((𝑁 − 1) / 𝑄) ∈ ℕ₀) → (𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ ((𝑁 − 1) / 𝑄)))
151	10, 11, 73, 142, 150	syl31anc 1253	. . . . . . 7 ⊢ (𝜑 → (𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ ((𝑁 − 1) / 𝑄)))
152	3	nncnd 9057	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑄 ∈ ℂ)
153	3	nnap0d 9089	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑄 # 0)
154	4	nnzd 9501	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 pCnt 𝐴) ∈ ℤ)
155	152, 153, 154	expm1apd 10835	. . . . . . . . . 10 ⊢ (𝜑 → (𝑄↑((𝑄 pCnt 𝐴) − 1)) = ((𝑄↑(𝑄 pCnt 𝐴)) / 𝑄))
156	155	oveq2d 5967	. . . . . . . . 9 ⊢ (𝜑 → (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))) = (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · ((𝑄↑(𝑄 pCnt 𝐴)) / 𝑄)))
157	135, 6	nndivred 9093	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℝ)
158	157	recnd 8108	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℂ)
159	158, 120, 152, 153	divassapd 8906	. . . . . . . . 9 ⊢ (𝜑 → ((((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑(𝑄 pCnt 𝐴))) / 𝑄) = (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · ((𝑄↑(𝑄 pCnt 𝐴)) / 𝑄)))
160	122	oveq1d 5966	. . . . . . . . 9 ⊢ (𝜑 → ((((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑(𝑄 pCnt 𝐴))) / 𝑄) = ((𝑁 − 1) / 𝑄))
161	156, 159, 160	3eqtr2d 2245	. . . . . . . 8 ⊢ (𝜑 → (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))) = ((𝑁 − 1) / 𝑄))
162	161	breq2d 4059	. . . . . . 7 ⊢ (𝜑 → (((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ ((𝑁 − 1) / 𝑄)))
163	151, 162	bitr4d 191	. . . . . 6 ⊢ (𝜑 → (𝑃 ∥ ((𝐶↑((𝑁 − 1) / 𝑄)) − 1) ↔ ((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1)))))
164		pockthlem.11	. . . . . . 7 ⊢ (𝜑 → (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁) = 1)
165	164	breq2d 4059	. . . . . 6 ⊢ (𝜑 → (𝑃 ∥ (((𝐶↑((𝑁 − 1) / 𝑄)) − 1) gcd 𝑁) ↔ 𝑃 ∥ 1))
166	149, 163, 165	3imtr3d 202	. . . . 5 ⊢ (𝜑 → (((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))) → 𝑃 ∥ 1))
167	125, 166	mtod 665	. . . 4 ⊢ (𝜑 → ¬ ((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))))
168		prmpwdvds 12722	. . . 4 ⊢ (((((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) ∈ ℤ ∧ ((od_ℤ‘𝑃)‘𝐶) ∈ ℤ) ∧ (𝑄 ∈ ℙ ∧ (𝑄 pCnt 𝐴) ∈ ℕ) ∧ (((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑(𝑄 pCnt 𝐴))) ∧ ¬ ((od_ℤ‘𝑃)‘𝐶) ∥ (((𝑁 − 1) / (𝑄↑(𝑄 pCnt 𝐴))) · (𝑄↑((𝑄 pCnt 𝐴) − 1))))) → (𝑄↑(𝑄 pCnt 𝐴)) ∥ ((od_ℤ‘𝑃)‘𝐶))
169	102, 76, 1, 4, 123, 167, 168	syl222anc 1266	. . 3 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∥ ((od_ℤ‘𝑃)‘𝐶))
170		odzphi 12613	. . . . 5 ⊢ ((𝑃 ∈ ℕ ∧ 𝐶 ∈ ℤ ∧ (𝐶 gcd 𝑃) = 1) → ((od_ℤ‘𝑃)‘𝐶) ∥ (ϕ‘𝑃))
171	10, 11, 73, 170	syl3anc 1250	. . . 4 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∥ (ϕ‘𝑃))
172		phiprm 12589	. . . . 5 ⊢ (𝑃 ∈ ℙ → (ϕ‘𝑃) = (𝑃 − 1))
173	8, 172	syl 14	. . . 4 ⊢ (𝜑 → (ϕ‘𝑃) = (𝑃 − 1))
174	171, 173	breqtrd 4073	. . 3 ⊢ (𝜑 → ((od_ℤ‘𝑃)‘𝐶) ∥ (𝑃 − 1))
175	7, 76, 83, 169, 174	dvdstrd 12185	. 2 ⊢ (𝜑 → (𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑃 − 1))
176		pcdvdsb 12687	. . 3 ⊢ ((𝑄 ∈ ℙ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑄 pCnt 𝐴) ∈ ℕ₀) → ((𝑄 pCnt 𝐴) ≤ (𝑄 pCnt (𝑃 − 1)) ↔ (𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑃 − 1)))
177	1, 83, 5, 176	syl3anc 1250	. 2 ⊢ (𝜑 → ((𝑄 pCnt 𝐴) ≤ (𝑄 pCnt (𝑃 − 1)) ↔ (𝑄↑(𝑄 pCnt 𝐴)) ∥ (𝑃 − 1)))
178	175, 177	mpbird 167	1 ⊢ (𝜑 → (𝑄 pCnt 𝐴) ≤ (𝑄 pCnt (𝑃 − 1)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 = wceq 1373 ∈ wcel 2177 ≠ wne 2377 class class class wbr 4047 ‘cfv 5276 (class class class)co 5951 ℂcc 7930 ℝcr 7931 0cc0 7932 1c1 7933 + caddc 7935 · cmul 7937 < clt 8114 ≤ cle 8115 − cmin 8250 / cdiv 8752 ℕcn 9043 2c2 9094 ℕ₀cn0 9302 ℤcz 9379 ℤ_≥cuz 9655 ℚcq 9747 mod cmo 10474 ↑cexp 10690 ∥ cdvds 12142 gcd cgcd 12318 ℙcprime 12473 od_ℤcodz 12574 ϕcphi 12575 pCnt cpc 12651

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 711 ax-5 1471 ax-7 1472 ax-gen 1473 ax-ie1 1517 ax-ie2 1518 ax-8 1528 ax-10 1529 ax-11 1530 ax-i12 1531 ax-bndl 1533 ax-4 1534 ax-17 1550 ax-i9 1554 ax-ial 1558 ax-i5r 1559 ax-13 2179 ax-14 2180 ax-ext 2188 ax-coll 4163 ax-sep 4166 ax-nul 4174 ax-pow 4222 ax-pr 4257 ax-un 4484 ax-setind 4589 ax-iinf 4640 ax-cnex 8023 ax-resscn 8024 ax-1cn 8025 ax-1re 8026 ax-icn 8027 ax-addcl 8028 ax-addrcl 8029 ax-mulcl 8030 ax-mulrcl 8031 ax-addcom 8032 ax-mulcom 8033 ax-addass 8034 ax-mulass 8035 ax-distr 8036 ax-i2m1 8037 ax-0lt1 8038 ax-1rid 8039 ax-0id 8040 ax-rnegex 8041 ax-precex 8042 ax-cnre 8043 ax-pre-ltirr 8044 ax-pre-ltwlin 8045 ax-pre-lttrn 8046 ax-pre-apti 8047 ax-pre-ltadd 8048 ax-pre-mulgt0 8049 ax-pre-mulext 8050 ax-arch 8051 ax-caucvg 8052

This theorem depends on definitions: df-bi 117 df-stab 833 df-dc 837 df-3or 982 df-3an 983 df-tru 1376 df-fal 1379 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ne 2378 df-nel 2473 df-ral 2490 df-rex 2491 df-reu 2492 df-rmo 2493 df-rab 2494 df-v 2775 df-sbc 3000 df-csb 3095 df-dif 3169 df-un 3171 df-in 3173 df-ss 3180 df-nul 3462 df-if 3573 df-pw 3619 df-sn 3640 df-pr 3641 df-op 3643 df-uni 3853 df-int 3888 df-iun 3931 df-br 4048 df-opab 4110 df-mpt 4111 df-tr 4147 df-id 4344 df-po 4347 df-iso 4348 df-iord 4417 df-on 4419 df-ilim 4420 df-suc 4422 df-iom 4643 df-xp 4685 df-rel 4686 df-cnv 4687 df-co 4688 df-dm 4689 df-rn 4690 df-res 4691 df-ima 4692 df-iota 5237 df-fun 5278 df-fn 5279 df-f 5280 df-f1 5281 df-fo 5282 df-f1o 5283 df-fv 5284 df-isom 5285 df-riota 5906 df-ov 5954 df-oprab 5955 df-mpo 5956 df-1st 6233 df-2nd 6234 df-recs 6398 df-irdg 6463 df-frec 6484 df-1o 6509 df-2o 6510 df-oadd 6513 df-er 6627 df-en 6835 df-dom 6836 df-fin 6837 df-sup 7093 df-inf 7094 df-pnf 8116 df-mnf 8117 df-xr 8118 df-ltxr 8119 df-le 8120 df-sub 8252 df-neg 8253 df-reap 8655 df-ap 8662 df-div 8753 df-inn 9044 df-2 9102 df-3 9103 df-4 9104 df-n0 9303 df-z 9380 df-uz 9656 df-q 9748 df-rp 9783 df-fz 10138 df-fzo 10272 df-fl 10420 df-mod 10475 df-seqfrec 10600 df-exp 10691 df-ihash 10928 df-cj 11197 df-re 11198 df-im 11199 df-rsqrt 11353 df-abs 11354 df-clim 11634 df-proddc 11906 df-dvds 12143 df-gcd 12319 df-prm 12474 df-odz 12576 df-phi 12577 df-pc 12652

This theorem is referenced by: pockthg 12724

W3C validator