aks6d1c2lem4 - Mathbox for metakunt

	Mathbox for metakunt		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > aks6d1c2lem4		Structured version Visualization version GIF version

Theorem aks6d1c2lem4 42109

Description: Claim 2 of Theorem 6.1 AKS, Preparation for injectivity proof. (Contributed by metakunt, 1-May-2025.)

**Hypotheses**
Ref	Expression
aks6d1c2.1	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly₁‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘𝑓)‘𝑦)) = (((eval₁‘𝐾)‘𝑓)‘(𝑒(._g‘(mulGrp‘𝐾))𝑦)))}
aks6d1c2.2	⊢ 𝑃 = (chr‘𝐾)
aks6d1c2.3	⊢ (𝜑 → 𝐾 ∈ Field)
aks6d1c2.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c2.5	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks6d1c2.6	⊢ (𝜑 → 𝑁 ∈ ℕ)
aks6d1c2.7	⊢ (𝜑 → 𝑃 ∥ 𝑁)
aks6d1c2.8	⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
aks6d1c2.9	⊢ (𝜑 → 𝐹:(0...𝐴)⟶ℕ₀)
aks6d1c2.10	⊢ 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
aks6d1c2.11	⊢ (𝜑 → 𝐴 ∈ ℕ₀)
aks6d1c2.12	⊢ 𝐸 = (𝑘 ∈ ℕ₀, 𝑙 ∈ ℕ₀ ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
aks6d1c2.13	⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
aks6d1c2.14	⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
aks6d1c2.15	⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(._g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
aks6d1c2.16	⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
aks6d1c2.17	⊢ 𝐻 = (ℎ ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀))
aks6d1c2.18	⊢ 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))
aks6d1c2.19	⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
aks6d1c2.20	⊢ (𝜑 → 𝐼 ∈ 𝐶)
aks6d1c2.21	⊢ (𝜑 → 𝐽 ∈ 𝐶)
aks6d1c2.22	⊢ (𝜑 → 𝐼 < 𝐽)
aks6d1c2.23	⊢ ↑ = (._g‘(mulGrp‘(Poly₁‘𝐾)))
aks6d1c2.24	⊢ 𝑋 = (var₁‘𝐾)
aks6d1c2.25	⊢ 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))
aks6d1c2.26	⊢ (𝜑 → 𝑈 ∈ ℕ)
aks6d1c2.27	⊢ (𝜑 → 𝐽 = (𝐼 + (𝑈 · 𝑅)))

**Assertion**
Ref	Expression
aks6d1c2lem4	⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (𝑁↑𝐵))

Distinct variable groups: ∼ ,𝑎 𝐴,𝑎 𝐴,𝑔,𝑖 𝐴,ℎ 𝐴,𝑘,𝑙 𝑥,𝐴 𝐵,𝑎 𝐵,𝑔,𝑖 𝐵,𝑘,𝑙 𝑥,𝐵 𝐸,𝑎 𝑔,𝐸,𝑖 𝑘,𝐸,𝑙 𝑥,𝐸 𝑒,𝐺,𝑓,𝑦 ℎ,𝐺 𝐼,𝑎 𝑔,𝐼,𝑖 𝑘,𝐼,𝑙 𝑥,𝐼 𝐽,𝑎 𝑔,𝐽,𝑖 𝑘,𝐽,𝑙 𝑥,𝐽 𝐾,𝑎 𝑒,𝐾,𝑓,𝑦 𝑔,𝐾,𝑖 ℎ,𝐾 𝑥,𝐾 ℎ,𝑀 𝑦,𝑀 𝑁,𝑎 𝑒,𝑁,𝑓,𝑦 𝑘,𝑁,𝑙 𝑥,𝑁 𝑃,𝑒,𝑓,𝑦 𝑃,𝑘,𝑙 𝑥,𝑃 𝑅,𝑒,𝑓,𝑦 𝑥,𝑅 𝜑,𝑎 𝜑,𝑔,𝑖 𝜑,ℎ 𝜑,𝑘,𝑙 𝜑,𝑥 Allowed substitution hints: 𝜑(𝑦,𝑒,𝑓) 𝐴(𝑦,𝑒,𝑓) 𝐵(𝑦,𝑒,𝑓,ℎ) 𝐶(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝑃(𝑔,ℎ,𝑖,𝑎) ∼ (𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑙) 𝑅(𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝑆(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝑈(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝐸(𝑦,𝑒,𝑓,ℎ) ↑ (𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝐹(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝐺(𝑥,𝑔,𝑖,𝑘,𝑎,𝑙) 𝐻(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝐼(𝑦,𝑒,𝑓,ℎ) 𝐽(𝑦,𝑒,𝑓,ℎ) 𝐾(𝑘,𝑙) 𝐿(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙) 𝑀(𝑥,𝑒,𝑓,𝑔,𝑖,𝑘,𝑎,𝑙) 𝑁(𝑔,ℎ,𝑖) 𝑋(𝑥,𝑦,𝑒,𝑓,𝑔,ℎ,𝑖,𝑘,𝑎,𝑙)

Proof of Theorem aks6d1c2lem4 Dummy variables 𝑜 𝑝 𝑞 𝑟 𝑠 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvexd 6922	. . . . . . . 8 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) ∈ V)
2		cnvexg 7947	. . . . . . . 8 ⊢ (((eval₁‘𝐾)‘𝑆) ∈ V → ^◡((eval₁‘𝐾)‘𝑆) ∈ V)
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → ^◡((eval₁‘𝐾)‘𝑆) ∈ V)
4	3	imaexd 7939	. . . . . 6 ⊢ (𝜑 → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V)
5		nfv 1912	. . . . . . 7 ⊢ Ⅎ𝑠𝜑
6		fvexd 6922	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ℎ ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀) ∈ V)
7		aks6d1c2.17	. . . . . . . . . 10 ⊢ 𝐻 = (ℎ ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀))
8	6, 7	fmptd 7134	. . . . . . . . 9 ⊢ (𝜑 → 𝐻:(ℕ₀ ↑_m (0...𝐴))⟶V)
9	8	ffnd 6738	. . . . . . . 8 ⊢ (𝜑 → 𝐻 Fn (ℕ₀ ↑_m (0...𝐴)))
10	9	fnfund 6670	. . . . . . 7 ⊢ (𝜑 → Fun 𝐻)
11		aks6d1c2.25	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))
12	11	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))
13	12	fveq2d 6911	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((eval₁‘𝐾)‘𝑆) = ((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))))
14	13	fveq1d 6909	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)))
15		eqid 2735	. . . . . . . . . . . . 13 ⊢ (eval₁‘𝐾) = (eval₁‘𝐾)
16		eqid 2735	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
17		eqid 2735	. . . . . . . . . . . . 13 ⊢ (Base‘𝐾) = (Base‘𝐾)
18		eqid 2735	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
19		aks6d1c2.3	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ Field)
20	19	fldcrngd 20759	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐾 ∈ CRing)
21	20	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐾 ∈ CRing)
22	7	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐻 = (ℎ ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
23		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → ℎ = 𝑠)
24	23	fveq2d 6911	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → (𝐺‘ℎ) = (𝐺‘𝑠))
25	24	fveq2d 6911	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → ((eval₁‘𝐾)‘(𝐺‘ℎ)) = ((eval₁‘𝐾)‘(𝐺‘𝑠)))
26	25	fveq1d 6909	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀))
27		simpr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴)))
28		fvexd 6922	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ V)
29	22, 26, 27, 28	fvmptd 7023	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) = (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀))
30		aks6d1c2.16	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
31		eqid 2735	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
32	31	crngmgp 20259	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
33	20, 32	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
34		aks6d1c2.5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑅 ∈ ℕ)
35	34	nnnn0d 12585	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑅 ∈ ℕ₀)
36		eqid 2735	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (._g‘(mulGrp‘𝐾)) = (._g‘(mulGrp‘𝐾))
37	33, 35, 36	isprimroot 42075	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅) ↔ (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ₀ ((𝑣(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣))))
38	37	biimpd 229	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅) → (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ₀ ((𝑣(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣))))
39	30, 38	mpd 15	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ₀ ((𝑣(._g‘(mulGrp‘𝐾))𝑀) = (0_g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣)))
40	39	simp1d 1141	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ (Base‘(mulGrp‘𝐾)))
41	31, 17	mgpbas 20158	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
42	40, 41	eleqtrrdi 2850	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑀 ∈ (Base‘𝐾))
43	42	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑀 ∈ (Base‘𝐾))
44		aks6d1c2.1	. . . . . . . . . . . . . . . . 17 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly₁‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘𝑓)‘𝑦)) = (((eval₁‘𝐾)‘𝑓)‘(𝑒(._g‘(mulGrp‘𝐾))𝑦)))}
45		aks6d1c2.2	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑃 = (chr‘𝐾)
46	19	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐾 ∈ Field)
47		aks6d1c2.4	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℙ)
48	47	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑃 ∈ ℙ)
49	34	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑅 ∈ ℕ)
50		aks6d1c2.6	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ ℕ)
51	50	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑁 ∈ ℕ)
52		aks6d1c2.7	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
53	52	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑃 ∥ 𝑁)
54		aks6d1c2.8	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
55	54	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝑁 gcd 𝑅) = 1)
56		elmapi 8888	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ (ℕ₀ ↑_m (0...𝐴)) → 𝑠:(0...𝐴)⟶ℕ₀)
57	56	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑠:(0...𝐴)⟶ℕ₀)
58		aks6d1c2.10	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
59		aks6d1c2.11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
60	59	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐴 ∈ ℕ₀)
61		0nn0 12539	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℕ₀
62	61	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 0 ∈ ℕ₀)
63		eqid 2735	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃↑0) · ((𝑁 / 𝑃)↑0)) = ((𝑃↑0) · ((𝑁 / 𝑃)↑0))
64		aks6d1c2.14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
65	64	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
66		aks6d1c2.15	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(._g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
67	66	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(._g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
68	44, 45, 46, 48, 49, 51, 53, 55, 57, 58, 60, 62, 62, 63, 65, 67	aks6d1c1rh 42107	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝑃↑0) · ((𝑁 / 𝑃)↑0)) ∼ (𝐺‘𝑠))
69	44, 68	aks6d1c1p1rcl 42090	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((𝑃↑0) · ((𝑁 / 𝑃)↑0)) ∈ ℕ ∧ (𝐺‘𝑠) ∈ (Base‘(Poly₁‘𝐾))))
70	69	simprd 495	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐺‘𝑠) ∈ (Base‘(Poly₁‘𝐾)))
71	15, 16, 17, 18, 21, 43, 70	fveval1fvcl 22353	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ (Base‘𝐾))
72	29, 71	eqeltrd 2839	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) ∈ (Base‘𝐾))
73		eqid 2735	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
74		aks6d1c2.23	. . . . . . . . . . . . . . . . 17 ⊢ ↑ = (._g‘(mulGrp‘(Poly₁‘𝐾)))
75	16	ply1crng 22216	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ∈ CRing → (Poly₁‘𝐾) ∈ CRing)
76	20, 75	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ CRing)
77		eqid 2735	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
78	77	crngmgp 20259	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Poly₁‘𝐾) ∈ CRing → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
79	76, 78	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
80	79	cmnmndd 19837	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
81		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 = (𝑟𝐸𝑜))
82		aks6d1c2.12	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝐸 = (𝑘 ∈ ℕ₀, 𝑙 ∈ ℕ₀ ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
83	82	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐸 = (𝑘 ∈ ℕ₀, 𝑙 ∈ ℕ₀ ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))))
84		simprl 771	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → 𝑘 = 𝑟)
85	84	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → (𝑃↑𝑘) = (𝑃↑𝑟))
86		simprr 773	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → 𝑙 = 𝑜)
87	86	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑜))
88	85, 87	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
89		fz0ssnn0 13659	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0...𝐵) ⊆ ℕ₀
90	89	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ⊆ ℕ₀)
91	90	sselda 3995	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑟 ∈ ℕ₀)
92	91	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑟 ∈ ℕ₀)
93	89	sseli 3991	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑜 ∈ (0...𝐵) → 𝑜 ∈ ℕ₀)
94	93	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑜 ∈ ℕ₀)
95		ovexd 7466	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ V)
96	83, 88, 92, 94, 95	ovmpod 7585	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
97		prmnn 16708	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
98	47, 97	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑃 ∈ ℕ)
99	98	nnnn0d 12585	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑃 ∈ ℕ₀)
100	99	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℕ₀)
101	100	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℕ₀)
102	101, 92	nn0expcld 14282	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℕ₀)
103	99	nn0zd 12637	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℤ)
104	98	nnne0d 12314	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
105	50	nnnn0d 12585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
106	105	nn0zd 12637	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
107		dvdsval2 16290	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
108	103, 104, 106, 107	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
109	52, 108	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
110	50	nnred 12279	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑁 ∈ ℝ)
111	98	nnrpd 13073	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℝ⁺)
112	105	nn0ge0d 12588	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 0 ≤ 𝑁)
113	110, 111, 112	divge0d 13115	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ (𝑁 / 𝑃))
114	109, 113	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 ≤ (𝑁 / 𝑃)))
115		elnn0z 12624	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑁 / 𝑃) ∈ ℕ₀ ↔ ((𝑁 / 𝑃) ∈ ℤ ∧ 0 ≤ (𝑁 / 𝑃)))
116	114, 115	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℕ₀)
117	116	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ₀)
118	117	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ₀)
119	118, 94	nn0expcld 14282	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℕ₀)
120	102, 119	nn0mulcld 12590	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℕ₀)
121	96, 120	eqeltrd 2839	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ∈ ℕ₀)
122	121	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ∈ ℕ₀)
123	81, 122	eqeltrd 2839	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ∈ ℕ₀)
124		aks6d1c2.21	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 ∈ 𝐶)
125		aks6d1c2.19	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
126	125	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵))))
127	124, 126	eleqtrd 2841	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
128	50, 47, 52, 82	aks6d1c2p1 42100	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸:(ℕ₀ × ℕ₀)⟶ℕ)
129	128	ffnd 6738	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 Fn (ℕ₀ × ℕ₀))
130	90, 90	jca 511	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((0...𝐵) ⊆ ℕ₀ ∧ (0...𝐵) ⊆ ℕ₀))
131		aks6d1c2.18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))
132	131	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))))
133		aks6d1c2.13	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
134		eqid 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
135	50, 47, 52, 34, 54, 82, 133, 134	hashscontpowcl 42102	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))) ∈ ℕ₀)
136	135	nn0red 12586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))) ∈ ℝ)
137	135	nn0ge0d 12588	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))
138	136, 137	resqrtcld 15453	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ∈ ℝ)
139	138	flcld 13835	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ)
140	136, 137	sqrtge0d 15456	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → 0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))
141		0zd 12623	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ∈ ℤ)
142		flge 13842	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ∈ ℝ ∧ 0 ∈ ℤ) → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
143	138, 141, 142	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
144	140, 143	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))))
145	139, 144	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
146		elnn0z 12624	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℕ₀ ↔ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
147	145, 146	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℕ₀)
148	132, 147	eqeltrd 2839	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝐵 ∈ ℕ₀)
149		elnn0z 12624	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝐵 ∈ ℕ₀ ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
150	148, 149	sylib 218	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
151		0z 12622	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 0 ∈ ℤ
152		eluz1 12880	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (0 ∈ ℤ → (𝐵 ∈ (ℤ_≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵)))
153	151, 152	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝐵 ∈ (ℤ_≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
154	150, 153	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝐵 ∈ (ℤ_≥‘0))
155		fzn0 13575	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((0...𝐵) ≠ ∅ ↔ 𝐵 ∈ (ℤ_≥‘0))
156	154, 155	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ≠ ∅)
157	156, 156	jca 511	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅))
158		xpnz 6181	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅) ↔ ((0...𝐵) × (0...𝐵)) ≠ ∅)
159	157, 158	sylib 218	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ≠ ∅)
160		ssxpb 6196	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((0...𝐵) × (0...𝐵)) ≠ ∅ → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀) ↔ ((0...𝐵) ⊆ ℕ₀ ∧ (0...𝐵) ⊆ ℕ₀)))
161	159, 160	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀) ↔ ((0...𝐵) ⊆ ℕ₀ ∧ (0...𝐵) ⊆ ℕ₀)))
162	130, 161	mpbird 257	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀))
163		ovelimab 7611	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 Fn (ℕ₀ × ℕ₀) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀)) → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
164	129, 162, 163	syl2anc 584	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
165	127, 164	mpbid 232	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜))
166	123, 165	r19.29vva 3214	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℕ₀)
167	20	crngringd 20264	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ Ring)
168		aks6d1c2.24	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑋 = (var₁‘𝐾)
169	168, 16, 18	vr1cl 22235	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ Ring → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
170	167, 169	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
171	77, 18	mgpbas 20158	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
172	171	eqcomi 2744	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(Poly₁‘𝐾))
173	172	eleq2i 2831	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑋 ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))) ↔ 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
174	170, 173	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑋 ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
175	73, 74, 80, 166, 174	mulgnn0cld 19126	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
176	175, 171	eleqtrrdi 2850	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)))
177	176	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)))
178	170	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
179	15, 168, 17, 16, 18, 21, 72	evl1vard 22357	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝑋 ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠)))
180	179	simprd 495	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠))
181	178, 180	jca 511	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝑋 ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠)))
182	166	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐽 ∈ ℕ₀)
183	15, 16, 17, 18, 21, 72, 181, 74, 36, 182	evl1expd 22365	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
184	183	simprd 495	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
185	29	oveq2d 7447	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
186	19	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐾 ∈ Field)
187	47	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℙ)
188	34	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑅 ∈ ℕ)
189	50	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑁 ∈ ℕ)
190	52	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∥ 𝑁)
191	54	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 gcd 𝑅) = 1)
192		aks6d1c2.9	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐹:(0...𝐴)⟶ℕ₀)
193	192	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐹:(0...𝐴)⟶ℕ₀)
194	59	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐴 ∈ ℕ₀)
195	64	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
196	66	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(._g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
197	30	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
198		aks6d1c2.20	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 ∈ 𝐶)
199	198	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ 𝐶)
200	124	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 ∈ 𝐶)
201		aks6d1c2.22	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 < 𝐽)
202	201	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 < 𝐽)
203		aks6d1c2.26	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑈 ∈ ℕ)
204	203	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑈 ∈ ℕ)
205		aks6d1c2.27	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
206	205	ad7antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
207	27	ad6antr 736	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴)))
208		simp-6r 788	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑟 ∈ (0...𝐵))
209		simp-5r 786	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑜 ∈ (0...𝐵))
210		simp-4r 784	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 = (𝑟𝐸𝑜))
211		simpllr 776	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑝 ∈ (0...𝐵))
212		simplr 769	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑞 ∈ (0...𝐵))
213		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = (𝑝𝐸𝑞))
214		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = (𝑝𝐸𝑞))
215	82	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐸 = (𝑘 ∈ ℕ₀, 𝑙 ∈ ℕ₀ ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))))
216		simprl 771	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → 𝑘 = 𝑝)
217	216	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → (𝑃↑𝑘) = (𝑃↑𝑝))
218		simprr 773	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → 𝑙 = 𝑞)
219	218	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑞))
220	217, 219	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
221	90	sselda 3995	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑝 ∈ (0...𝐵)) → 𝑝 ∈ ℕ₀)
222	221	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑝 ∈ ℕ₀)
223	222	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑝 ∈ ℕ₀)
224	89	sseli 3991	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑞 ∈ (0...𝐵) → 𝑞 ∈ ℕ₀)
225	224	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑞 ∈ ℕ₀)
226	225	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑞 ∈ ℕ₀)
227		ovexd 7466	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ V)
228	215, 220, 223, 226, 227	ovmpod 7585	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑝𝐸𝑞) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
229	214, 228	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
230	99	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℕ₀)
231	230, 223	nn0expcld 14282	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑃↑𝑝) ∈ ℕ₀)
232	116	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ₀)
233	232	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 / 𝑃) ∈ ℕ₀)
234	233, 226	nn0expcld 14282	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑁 / 𝑃)↑𝑞) ∈ ℕ₀)
235	231, 234	nn0mulcld 12590	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ ℕ₀)
236	229, 235	eqeltrd 2839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ ℕ₀)
237	198, 126	eleqtrd 2841	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
238		ovelimab 7611	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐸 Fn (ℕ₀ × ℕ₀) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀)) → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
239	129, 162, 238	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
240	237, 239	mpbid 232	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
241	236, 240	r19.29vva 3214	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐼 ∈ ℕ₀)
242	241	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐼 ∈ ℕ₀)
243	242	ad6antr 736	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ ℕ₀)
244	44, 45, 186, 187, 188, 189, 190, 191, 193, 58, 194, 82, 133, 195, 196, 197, 7, 131, 125, 199, 200, 202, 74, 168, 11, 204, 206, 207, 208, 209, 210, 211, 212, 213, 243	aks6d1c2lem3 42108	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
245	240	ad4antr 732	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
246	244, 245	r19.29vva 3214	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
247	165	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜))
248	246, 247	r19.29vva 3214	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
249	29	eqcomd 2741	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) = (𝐻‘𝑠))
250	249	oveq2d 7447	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
251	185, 248, 250	3eqtrd 2779	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
252	15, 16, 17, 18, 21, 72, 181, 74, 36, 242	evl1expd 22365	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
253	252	simprd 495	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
254	253	eqcomd 2741	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
255	184, 251, 254	3eqtrd 2779	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
256	177, 255	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
257	73, 74, 80, 241, 174	mulgnn0cld 19126	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
258	171	eleq2i 2831	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ↔ (𝐼 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
259	257, 258	sylibr 234	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)))
260	259	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)))
261		eqidd 2736	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
262	260, 261	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
263		eqid 2735	. . . . . . . . . . . . 13 ⊢ (-_g‘(Poly₁‘𝐾)) = (-_g‘(Poly₁‘𝐾))
264		eqid 2735	. . . . . . . . . . . . 13 ⊢ (-_g‘𝐾) = (-_g‘𝐾)
265	15, 16, 17, 18, 21, 72, 256, 262, 263, 264	evl1subd 22362	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))))
266	265	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
267	21	crnggrpd 20265	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐾 ∈ Grp)
268	15, 16, 17, 18, 21, 72, 260	fveval1fvcl 22353	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾))
269		eqid 2735	. . . . . . . . . . . . 13 ⊢ (0_g‘𝐾) = (0_g‘𝐾)
270	17, 269, 264	grpsubid 19055	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Grp ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾)) → ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0_g‘𝐾))
271	267, 268, 270	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0_g‘𝐾))
272	266, 271	eqtrd 2775	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = (0_g‘𝐾))
273	14, 272	eqtrd 2775	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0_g‘𝐾))
274		fvexd 6922	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ V)
275		elsng 4645	. . . . . . . . . 10 ⊢ ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ V → ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)} ↔ (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0_g‘𝐾)))
276	274, 275	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)} ↔ (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0_g‘𝐾)))
277	273, 276	mpbird 257	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)})
278	76	crnggrpd 20265	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Grp)
279	18, 263	grpsubcl 19051	. . . . . . . . . . . . . . . . 17 ⊢ (((Poly₁‘𝐾) ∈ Grp ∧ (𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾))) → ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly₁‘𝐾)))
280	278, 176, 259, 279	syl3anc 1370	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly₁‘𝐾)))
281	11, 280	eqeltrid 2843	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆 ∈ (Base‘(Poly₁‘𝐾)))
282		eqid 2735	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ↑_s (Base‘𝐾)) = (𝐾 ↑_s (Base‘𝐾))
283	15, 16, 282, 17	evl1rhm 22352	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ CRing → (eval₁‘𝐾) ∈ ((Poly₁‘𝐾) RingHom (𝐾 ↑_s (Base‘𝐾))))
284	20, 283	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (eval₁‘𝐾) ∈ ((Poly₁‘𝐾) RingHom (𝐾 ↑_s (Base‘𝐾))))
285		eqid 2735	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(𝐾 ↑_s (Base‘𝐾))) = (Base‘(𝐾 ↑_s (Base‘𝐾)))
286	18, 285	rhmf 20502	. . . . . . . . . . . . . . . . . 18 ⊢ ((eval₁‘𝐾) ∈ ((Poly₁‘𝐾) RingHom (𝐾 ↑_s (Base‘𝐾))) → (eval₁‘𝐾):(Base‘(Poly₁‘𝐾))⟶(Base‘(𝐾 ↑_s (Base‘𝐾))))
287	284, 286	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (eval₁‘𝐾):(Base‘(Poly₁‘𝐾))⟶(Base‘(𝐾 ↑_s (Base‘𝐾))))
288	287	ffvelcdmda 7104	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑆 ∈ (Base‘(Poly₁‘𝐾))) → ((eval₁‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑_s (Base‘𝐾))))
289	288	ex 412	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑆 ∈ (Base‘(Poly₁‘𝐾)) → ((eval₁‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑_s (Base‘𝐾)))))
290	281, 289	mpd 15	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑_s (Base‘𝐾))))
291		fvexd 6922	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
292	282, 17	pwsbas 17534	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Field ∧ (Base‘𝐾) ∈ V) → ((Base‘𝐾) ↑_m (Base‘𝐾)) = (Base‘(𝐾 ↑_s (Base‘𝐾))))
293	19, 291, 292	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((Base‘𝐾) ↑_m (Base‘𝐾)) = (Base‘(𝐾 ↑_s (Base‘𝐾))))
294	290, 293	eleqtrrd 2842	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑_m (Base‘𝐾)))
295	291, 291	elmapd 8879	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval₁‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑_m (Base‘𝐾)) ↔ ((eval₁‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾)))
296	294, 295	mpbid 232	. . . . . . . . . . . 12 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾))
297		ffn 6737	. . . . . . . . . . . 12 ⊢ (((eval₁‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾) → ((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾))
298	296, 297	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾))
299	298	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾))
300		fnfun 6669	. . . . . . . . . 10 ⊢ (((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾) → Fun ((eval₁‘𝐾)‘𝑆))
301	299, 300	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → Fun ((eval₁‘𝐾)‘𝑆))
302		fndm 6672	. . . . . . . . . . . 12 ⊢ (((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾) → dom ((eval₁‘𝐾)‘𝑆) = (Base‘𝐾))
303	298, 302	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → dom ((eval₁‘𝐾)‘𝑆) = (Base‘𝐾))
304	303	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → dom ((eval₁‘𝐾)‘𝑆) = (Base‘𝐾))
305	72, 304	eleqtrrd 2842	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) ∈ dom ((eval₁‘𝐾)‘𝑆))
306		fvimacnv 7073	. . . . . . . . 9 ⊢ ((Fun ((eval₁‘𝐾)‘𝑆) ∧ (𝐻‘𝑠) ∈ dom ((eval₁‘𝐾)‘𝑆)) → ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)} ↔ (𝐻‘𝑠) ∈ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
307	301, 305, 306	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)} ↔ (𝐻‘𝑠) ∈ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
308	277, 307	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) ∈ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}))
309	5, 10, 308	funimassd 6975	. . . . . 6 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ⊆ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}))
310	4, 309	ssexd 5330	. . . . 5 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ V)
311	11	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))
312	311	fveq2d 6911	. . . . . . . . . 10 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))))
313		eqid 2735	. . . . . . . . . . 11 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
314		isfld 20757	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
315	314	biimpi 216	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ Field → (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
316	315	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ Field → 𝐾 ∈ DivRing)
317		drngnzr 20765	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ DivRing → 𝐾 ∈ NzRing)
318	316, 317	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ Field → 𝐾 ∈ NzRing)
319	19, 318	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐾 ∈ NzRing)
320	313, 16, 168, 77, 74	deg1pw 26175	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐼 ∈ ℕ₀) → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
321	319, 241, 320	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
322	321	eqcomd 2741	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 = ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)))
323	313, 16, 168, 77, 74	deg1pw 26175	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐽 ∈ ℕ₀) → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
324	319, 166, 323	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
325	324	eqcomd 2741	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
326	201, 322, 325	3brtr3d 5179	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) < ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
327	16, 313, 167, 18, 263, 176, 259, 326	deg1sub 26162	. . . . . . . . . 10 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
328	312, 327	eqtrd 2775	. . . . . . . . 9 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
329	328, 324	eqtrd 2775	. . . . . . . 8 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = 𝐽)
330	329, 166	eqeltrd 2839	. . . . . . 7 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀)
331		eqid 2735	. . . . . . . 8 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
332		fldidom 20788	. . . . . . . . 9 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
333	19, 332	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ IDomn)
334	313, 16, 331, 18	deg1nn0clb 26144	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Ring ∧ 𝑆 ∈ (Base‘(Poly₁‘𝐾))) → (𝑆 ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀))
335	167, 281, 334	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀))
336	330, 335	mpbird 257	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ≠ (0_g‘(Poly₁‘𝐾)))
337	16, 18, 313, 15, 269, 331, 333, 281, 336	fta1g 26224	. . . . . . 7 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ ((deg₁‘𝐾)‘𝑆))
338		hashbnd 14372	. . . . . . 7 ⊢ (((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V ∧ ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀ ∧ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ ((deg₁‘𝐾)‘𝑆)) → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin)
339	4, 330, 337, 338	syl3anc 1370	. . . . . 6 ⊢ (𝜑 → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin)
340		hashcl 14392	. . . . . 6 ⊢ ((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀)
341	339, 340	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀)
342		hashss 14445	. . . . . 6 ⊢ (((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V ∧ (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ⊆ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
343	4, 309, 342	syl2anc 584	. . . . 5 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
344		hashbnd 14372	. . . . 5 ⊢ (((𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ V ∧ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀ ∧ (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}))) → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin)
345	310, 341, 343, 344	syl3anc 1370	. . . 4 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin)
346		hashcl 14392	. . . 4 ⊢ ((𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℕ₀)
347	345, 346	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℕ₀)
348	347	nn0red 12586	. 2 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℝ)
349	341	nn0red 12586	. 2 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℝ)
350	105, 148	nn0expcld 14282	. . 3 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℕ₀)
351	350	nn0red 12586	. 2 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℝ)
352	166	nn0red 12586	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ ℝ)
353	324, 352	eqeltrd 2839	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) ∈ ℝ)
354	327, 353	eqeltrd 2839	. . . 4 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) ∈ ℝ)
355	312, 354	eqeltrd 2839	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ∈ ℝ)
356	97	nnred 12279	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
357	47, 356	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑃 ∈ ℝ)
358	357	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
359	358	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
360	359, 92	reexpcld 14200	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℝ)
361	110, 357, 104	redivcld 12093	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℝ)
362	361	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
363	362	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
364	363, 94	reexpcld 14200	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℝ)
365	360, 364	remulcld 11289	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℝ)
366	357, 148	reexpcld 14200	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃↑𝐵) ∈ ℝ)
367	366	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑃↑𝐵) ∈ ℝ)
368	361, 148	reexpcld 14200	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
369	368	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
370	367, 369	remulcld 11289	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
371	370	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
372	110, 148	reexpcld 14200	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℝ)
373	372	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁↑𝐵) ∈ ℝ)
374	373	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) ∈ ℝ)
375	367	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝐵) ∈ ℝ)
376	369	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
377		0red 11262	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ∈ ℝ)
378		1red 11260	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ∈ ℝ)
379		0le1 11784	. . . . . . . . . . . . . . . . 17 ⊢ 0 ≤ 1
380	379	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ≤ 1)
381		prmgt1 16731	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
382	47, 381	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 < 𝑃)
383	378, 357, 382	ltled 11407	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ≤ 𝑃)
384	377, 378, 357, 380, 383	letrd 11416	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ 𝑃)
385	384	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ 𝑃)
386	385	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ 𝑃)
387	359, 92, 386	expge0d 14201	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑃↑𝑟))
388	113	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
389	388	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
390	363, 94, 389	expge0d 14201	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ ((𝑁 / 𝑃)↑𝑜))
391	98	nnge1d 12312	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ 𝑃)
392	391	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 1 ≤ 𝑃)
393	392	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 1 ≤ 𝑃)
394		elfzuz3 13558	. . . . . . . . . . . . . . 15 ⊢ (𝑟 ∈ (0...𝐵) → 𝐵 ∈ (ℤ_≥‘𝑟))
395	394	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑟))
396	395	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑟))
397	359, 393, 396	leexp2ad 14290	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ≤ (𝑃↑𝐵))
398	357	recnd 11287	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑃 ∈ ℂ)
399	398	mullidd 11277	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 · 𝑃) = 𝑃)
400	98	nnzd 12638	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℤ)
401		dvdsle 16344	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
402	400, 50, 401	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
403	52, 402	mpd 15	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑃 ≤ 𝑁)
404	399, 403	eqbrtrd 5170	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 · 𝑃) ≤ 𝑁)
405	378, 110, 111	lemuldivd 13124	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1 · 𝑃) ≤ 𝑁 ↔ 1 ≤ (𝑁 / 𝑃)))
406	404, 405	mpbid 232	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (𝑁 / 𝑃))
407	406	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 1 ≤ (𝑁 / 𝑃))
408	407	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 1 ≤ (𝑁 / 𝑃))
409		elfzuz3 13558	. . . . . . . . . . . . . 14 ⊢ (𝑜 ∈ (0...𝐵) → 𝐵 ∈ (ℤ_≥‘𝑜))
410	409	adantl 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑜))
411	363, 408, 410	leexp2ad 14290	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ≤ ((𝑁 / 𝑃)↑𝐵))
412	360, 375, 364, 376, 387, 390, 397, 411	lemul12ad 12208	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
413	110	recnd 11287	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ ℂ)
414	413, 398, 104	divcan2d 12043	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑃 · (𝑁 / 𝑃)) = 𝑁)
415	414	eqcomd 2741	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
416	415	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
417	416	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
418	417	oveq1d 7446	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) = ((𝑃 · (𝑁 / 𝑃))↑𝐵))
419	359	recnd 11287	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℂ)
420	363	recnd 11287	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℂ)
421	148	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ ℕ₀)
422	419, 420, 421	mulexpd 14198	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃 · (𝑁 / 𝑃))↑𝐵) = ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
423	418, 422	eqtr2d 2776	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) = (𝑁↑𝐵))
424	374	leidd 11827	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) ≤ (𝑁↑𝐵))
425	423, 424	eqbrtrd 5170	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ≤ (𝑁↑𝐵))
426	365, 371, 374, 412, 425	letrd 11416	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ (𝑁↑𝐵))
427	96, 426	eqbrtrd 5170	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
428	427	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
429	81, 428	eqbrtrd 5170	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ≤ (𝑁↑𝐵))
430	429, 165	r19.29vva 3214	. . . . . 6 ⊢ (𝜑 → 𝐽 ≤ (𝑁↑𝐵))
431	324, 430	eqbrtrd 5170	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) ≤ (𝑁↑𝐵))
432	327, 431	eqbrtrd 5170	. . . 4 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) ≤ (𝑁↑𝐵))
433	312, 432	eqbrtrd 5170	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ≤ (𝑁↑𝐵))
434	349, 355, 351, 337, 433	letrd 11416	. 2 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ (𝑁↑𝐵))
435	348, 349, 351, 343, 434	letrd 11416	1 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (𝑁↑𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1537 ∈ wcel 2106 ≠ wne 2938 ∀wral 3059 ∃wrex 3068 Vcvv 3478 ⊆ wss 3963 ∅c0 4339 {csn 4631 class class class wbr 5148 {copab 5210 ↦ cmpt 5231 × cxp 5687 ^◡ccnv 5688 dom cdm 5689 “ cima 5692 Fun wfun 6557 Fn wfn 6558 ⟶wf 6559 ‘cfv 6563 (class class class)co 7431 ∈ cmpo 7433 ↑_m cmap 8865 Fincfn 8984 ℝcr 11152 0cc0 11153 1c1 11154 + caddc 11156 · cmul 11158 < clt 11293 ≤ cle 11294 / cdiv 11918 ℕcn 12264 ℕ₀cn0 12524 ℤcz 12611 ℤ_≥cuz 12876 ...cfz 13544 ⌊cfl 13827 ↑cexp 14099 ♯chash 14366 √csqrt 15269 ∥ cdvds 16287 gcd cgcd 16528 ℙcprime 16705 Basecbs 17245 +_gcplusg 17298 0_gc0g 17486 Σ_g cgsu 17487 ↑_s cpws 17493 Grpcgrp 18964 -_gcsg 18966 ._gcmg 19098 CMndccmn 19813 mulGrpcmgp 20152 Ringcrg 20251 CRingccrg 20252 RingHom crh 20486 RingIso crs 20487 NzRingcnzr 20529 IDomncidom 20710 DivRingcdr 20746 Fieldcfield 20747 ℤRHomczrh 21528 chrcchr 21530 ℤ/nℤczn 21531 algSccascl 21890 var₁cv1 22193 Poly₁cpl1 22194 eval₁ce1 22334 deg₁cdg1 26108 PrimRoots cprimroots 42073

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1908 ax-6 1965 ax-7 2005 ax-8 2108 ax-9 2116 ax-10 2139 ax-11 2155 ax-12 2175 ax-ext 2706 ax-rep 5285 ax-sep 5302 ax-nul 5312 ax-pow 5371 ax-pr 5438 ax-un 7754 ax-cnex 11209 ax-resscn 11210 ax-1cn 11211 ax-icn 11212 ax-addcl 11213 ax-addrcl 11214 ax-mulcl 11215 ax-mulrcl 11216 ax-mulcom 11217 ax-addass 11218 ax-mulass 11219 ax-distr 11220 ax-i2m1 11221 ax-1ne0 11222 ax-1rid 11223 ax-rnegex 11224 ax-rrecex 11225 ax-cnre 11226 ax-pre-lttri 11227 ax-pre-lttrn 11228 ax-pre-ltadd 11229 ax-pre-mulgt0 11230 ax-pre-sup 11231 ax-addf 11232 ax-mulf 11233

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1540 df-fal 1550 df-ex 1777 df-nf 1781 df-sb 2063 df-mo 2538 df-eu 2567 df-clab 2713 df-cleq 2727 df-clel 2814 df-nfc 2890 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3378 df-reu 3379 df-rab 3434 df-v 3480 df-sbc 3792 df-csb 3909 df-dif 3966 df-un 3968 df-in 3970 df-ss 3980 df-pss 3983 df-nul 4340 df-if 4532 df-pw 4607 df-sn 4632 df-pr 4634 df-tp 4636 df-op 4638 df-uni 4913 df-int 4952 df-iun 4998 df-iin 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5583 df-eprel 5589 df-po 5597 df-so 5598 df-fr 5641 df-se 5642 df-we 5643 df-xp 5695 df-rel 5696 df-cnv 5697 df-co 5698 df-dm 5699 df-rn 5700 df-res 5701 df-ima 5702 df-pred 6323 df-ord 6389 df-on 6390 df-lim 6391 df-suc 6392 df-iota 6516 df-fun 6565 df-fn 6566 df-f 6567 df-f1 6568 df-fo 6569 df-f1o 6570 df-fv 6571 df-isom 6572 df-riota 7388 df-ov 7434 df-oprab 7435 df-mpo 7436 df-of 7697 df-ofr 7698 df-om 7888 df-1st 8013 df-2nd 8014 df-supp 8185 df-tpos 8250 df-frecs 8305 df-wrecs 8336 df-recs 8410 df-rdg 8449 df-1o 8505 df-2o 8506 df-oadd 8509 df-er 8744 df-ec 8746 df-qs 8750 df-map 8867 df-pm 8868 df-ixp 8937 df-en 8985 df-dom 8986 df-sdom 8987 df-fin 8988 df-fsupp 9400 df-sup 9480 df-inf 9481 df-oi 9548 df-dju 9939 df-card 9977 df-pnf 11295 df-mnf 11296 df-xr 11297 df-ltxr 11298 df-le 11299 df-sub 11492 df-neg 11493 df-div 11919 df-nn 12265 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12525 df-xnn0 12598 df-z 12612 df-dec 12732 df-uz 12877 df-rp 13033 df-fz 13545 df-fzo 13692 df-fl 13829 df-mod 13907 df-seq 14040 df-exp 14100 df-fac 14310 df-bc 14339 df-hash 14367 df-cj 15135 df-re 15136 df-im 15137 df-sqrt 15271 df-abs 15272 df-dvds 16288 df-gcd 16529 df-prm 16706 df-phi 16800 df-struct 17181 df-sets 17198 df-slot 17216 df-ndx 17228 df-base 17246 df-ress 17275 df-plusg 17311 df-mulr 17312 df-starv 17313 df-sca 17314 df-vsca 17315 df-ip 17316 df-tset 17317 df-ple 17318 df-ds 17320 df-unif 17321 df-hom 17322 df-cco 17323 df-0g 17488 df-gsum 17489 df-prds 17494 df-pws 17496 df-imas 17555 df-qus 17556 df-mre 17631 df-mrc 17632 df-acs 17634 df-mgm 18666 df-sgrp 18745 df-mnd 18761 df-mhm 18809 df-submnd 18810 df-grp 18967 df-minusg 18968 df-sbg 18969 df-mulg 19099 df-subg 19154 df-nsg 19155 df-eqg 19156 df-ghm 19244 df-cntz 19348 df-od 19561 df-cmn 19815 df-abl 19816 df-mgp 20153 df-rng 20171 df-ur 20200 df-srg 20205 df-ring 20253 df-cring 20254 df-oppr 20351 df-dvdsr 20374 df-unit 20375 df-invr 20405 df-dvr 20418 df-rhm 20489 df-rim 20490 df-nzr 20530 df-subrng 20563 df-subrg 20587 df-rlreg 20711 df-domn 20712 df-idom 20713 df-drng 20748 df-field 20749 df-lmod 20877 df-lss 20948 df-lsp 20988 df-sra 21190 df-rgmod 21191 df-lidl 21236 df-rsp 21237 df-2idl 21278 df-cnfld 21383 df-zring 21476 df-zrh 21532 df-chr 21534 df-zn 21535 df-assa 21891 df-asp 21892 df-ascl 21893 df-psr 21947 df-mvr 21948 df-mpl 21949 df-opsr 21951 df-evls 22116 df-evl 22117 df-psr1 22197 df-vr1 22198 df-ply1 22199 df-coe1 22200 df-evl1 22336 df-mdeg 26109 df-deg1 26110 df-mon1 26185 df-uc1p 26186 df-q1p 26187 df-r1p 26188 df-primroots 42074

This theorem is referenced by: aks6d1c2 42112

W3C validator