Theorem aks6d1c2lem4 42744

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

Hypotheses

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

Assertion

Ref	Expression
aks6d1c2lem4	⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑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 6882	. . . . . . . 8 ⊢ (𝜑 → ((eval1‘𝐾)‘𝑆) ∈ V)
2		cnvexg 7905	. . . . . . . 8 ⊢ (((eval1‘𝐾)‘𝑆) ∈ V → ◡((eval1‘𝐾)‘𝑆) ∈ V)
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → ◡((eval1‘𝐾)‘𝑆) ∈ V)
4	3	imaexd 7897	. . . . . 6 ⊢ (𝜑 → (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ V)
5		nfv 1934	. . . . . . 7 ⊢ Ⅎ𝑠𝜑
6		fvexd 6882	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ℎ ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) ∈ V)
7		aks6d1c2.17	. . . . . . . . . 10 ⊢ 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀))
8	6, 7	fmptd 7095	. . . . . . . . 9 ⊢ (𝜑 → 𝐻:(ℕ0 ↑m (0...𝐴))⟶V)
9	8	ffnd 6692	. . . . . . . 8 ⊢ (𝜑 → 𝐻 Fn (ℕ0 ↑m (0...𝐴)))
10	9	fnfund 6622	. . . . . . 7 ⊢ (𝜑 → Fun 𝐻)
11		aks6d1c2.25	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))
12	11	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑆 = ((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))
13	12	fveq2d 6871	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((eval1‘𝐾)‘𝑆) = ((eval1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))))
14	13	fveq1d 6869	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (((eval1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)))
15		eqid 2762	. . . . . . . . . . . . 13 ⊢ (eval1‘𝐾) = (eval1‘𝐾)
16		eqid 2762	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐾) = (Poly1‘𝐾)
17		eqid 2762	. . . . . . . . . . . . 13 ⊢ (Base‘𝐾) = (Base‘𝐾)
18		eqid 2762	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly1‘𝐾)) = (Base‘(Poly1‘𝐾))
19		aks6d1c2.3	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ Field)
20	19	fldcrngd 20792	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐾 ∈ CRing)
21	20	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐾 ∈ CRing)
22	7	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
23		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ ℎ = 𝑠) → ℎ = 𝑠)
24	23	fveq2d 6871	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ ℎ = 𝑠) → (𝐺‘ℎ) = (𝐺‘𝑠))
25	24	fveq2d 6871	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ ℎ = 𝑠) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑠)))
26	25	fveq1d 6869	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ ℎ = 𝑠) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀))
27		simpr 488	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑠 ∈ (ℕ0 ↑m (0...𝐴)))
28		fvexd 6882	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ V)
29	22, 26, 27, 28	fvmptd 6983	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐻‘𝑠) = (((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀))
30		aks6d1c2.16	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
31		eqid 2762	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
32	31	crngmgp 20291	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
33	20, 32	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
34		aks6d1c2.5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑅 ∈ ℕ)
35	34	nnnn0d 12542	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
36		eqid 2762	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (.g‘(mulGrp‘𝐾)) = (.g‘(mulGrp‘𝐾))
37	33, 35, 36	isprimroot 42710	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅) ↔ (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ0 ((𝑣(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣))))
38	37	biimpd 231	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅) → (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ0 ((𝑣(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣))))
39	30, 38	mpd 15	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) ∧ ∀𝑣 ∈ ℕ0 ((𝑣(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑣)))
40	39	simp1d 1155	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ (Base‘(mulGrp‘𝐾)))
41	31, 17	mgpbas 20191	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
42	40, 41	eleqtrrdi 2873	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑀 ∈ (Base‘𝐾))
43	42	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑀 ∈ (Base‘𝐾))
44		aks6d1c2.1	. . . . . . . . . . . . . . . . 17 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))}
45		aks6d1c2.2	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑃 = (chr‘𝐾)
46	19	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐾 ∈ Field)
47		aks6d1c2.4	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℙ)
48	47	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑃 ∈ ℙ)
49	34	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑅 ∈ ℕ)
50		aks6d1c2.6	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ ℕ)
51	50	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑁 ∈ ℕ)
52		aks6d1c2.7	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
53	52	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑃 ∥ 𝑁)
54		aks6d1c2.8	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
55	54	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝑁 gcd 𝑅) = 1)
56		elmapi 8830	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ (ℕ0 ↑m (0...𝐴)) → 𝑠:(0...𝐴)⟶ℕ0)
57	56	adantl 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑠:(0...𝐴)⟶ℕ0)
58		aks6d1c2.10	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐺 = (𝑔 ∈ (ℕ0 ↑m (0...𝐴)) ↦ ((mulGrp‘(Poly1‘𝐾)) Σg (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(.g‘(mulGrp‘(Poly1‘𝐾)))((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
59		aks6d1c2.11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
60	59	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐴 ∈ ℕ0)
61		0nn0 12496	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℕ0
62	61	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 0 ∈ ℕ0)
63		eqid 2762	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃↑0) · ((𝑁 / 𝑃)↑0)) = ((𝑃↑0) · ((𝑁 / 𝑃)↑0))
64		aks6d1c2.14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
65	64	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
66		aks6d1c2.15	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
67	66	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
68	44, 45, 46, 48, 49, 51, 53, 55, 57, 58, 60, 62, 62, 63, 65, 67	aks6d1c1rh 42742	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((𝑃↑0) · ((𝑁 / 𝑃)↑0)) ∼ (𝐺‘𝑠))
69	44, 68	aks6d1c1p1rcl 42725	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((𝑃↑0) · ((𝑁 / 𝑃)↑0)) ∈ ℕ ∧ (𝐺‘𝑠) ∈ (Base‘(Poly1‘𝐾))))
70	69	simprd 499	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐺‘𝑠) ∈ (Base‘(Poly1‘𝐾)))
71	15, 16, 17, 18, 21, 43, 70	fveval1fvcl 22396	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ (Base‘𝐾))
72	29, 71	eqeltrd 2862	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐻‘𝑠) ∈ (Base‘𝐾))
73		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(mulGrp‘(Poly1‘𝐾))) = (Base‘(mulGrp‘(Poly1‘𝐾)))
74		aks6d1c2.23	. . . . . . . . . . . . . . . . 17 ⊢ ↑ = (.g‘(mulGrp‘(Poly1‘𝐾)))
75	16	ply1crng 22260	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ∈ CRing → (Poly1‘𝐾) ∈ CRing)
76	20, 75	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Poly1‘𝐾) ∈ CRing)
77		eqid 2762	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘(Poly1‘𝐾)) = (mulGrp‘(Poly1‘𝐾))
78	77	crngmgp 20291	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Poly1‘𝐾) ∈ CRing → (mulGrp‘(Poly1‘𝐾)) ∈ CMnd)
79	76, 78	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (mulGrp‘(Poly1‘𝐾)) ∈ CMnd)
80	79	cmnmndd 19844	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (mulGrp‘(Poly1‘𝐾)) ∈ Mnd)
81		simpr 488	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 = (𝑟𝐸𝑜))
82		aks6d1c2.12	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
83	82	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))))
84		simprl 780	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → 𝑘 = 𝑟)
85	84	oveq2d 7412	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → (𝑃↑𝑘) = (𝑃↑𝑟))
86		simprr 782	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → 𝑙 = 𝑜)
87	86	oveq2d 7412	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑜))
88	85, 87	oveq12d 7414	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
89		fz0ssnn0 13627	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0...𝐵) ⊆ ℕ0
90	89	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ⊆ ℕ0)
91	90	sselda 3936	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑟 ∈ ℕ0)
92	91	adantr 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑟 ∈ ℕ0)
93	89	sseli 3932	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑜 ∈ (0...𝐵) → 𝑜 ∈ ℕ0)
94	93	adantl 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑜 ∈ ℕ0)
95		ovexd 7431	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ V)
96	83, 88, 92, 94, 95	ovmpod 7548	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
97		prmnn 16708	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
98	47, 97	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑃 ∈ ℕ)
99	98	nnnn0d 12542	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑃 ∈ ℕ0)
100	99	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℕ0)
101	100	adantr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℕ0)
102	101, 92	nn0expcld 14259	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℕ0)
103	99	nn0zd 12593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℤ)
104	98	nnne0d 12263	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
105	50	nnnn0d 12542	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
106	105	nn0zd 12593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
107		dvdsval2 16289	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
108	103, 104, 106, 107	syl3anc 1390	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
109	52, 108	mpbid 234	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
110	50	nnred 12225	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑁 ∈ ℝ)
111	98	nnrpd 13035	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℝ+)
112	105	nn0ge0d 12545	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 0 ≤ 𝑁)
113	110, 111, 112	divge0d 13077	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ (𝑁 / 𝑃))
114	109, 113	jca 519	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 ≤ (𝑁 / 𝑃)))
115		elnn0z 12581	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑁 / 𝑃) ∈ ℕ0 ↔ ((𝑁 / 𝑃) ∈ ℤ ∧ 0 ≤ (𝑁 / 𝑃)))
116	114, 115	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℕ0)
117	116	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ0)
118	117	adantr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ0)
119	118, 94	nn0expcld 14259	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℕ0)
120	102, 119	nn0mulcld 12547	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℕ0)
121	96, 120	eqeltrd 2862	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ∈ ℕ0)
122	121	adantr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ∈ ℕ0)
123	81, 122	eqeltrd 2862	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ∈ ℕ0)
124		aks6d1c2.21	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 ∈ 𝐶)
125		aks6d1c2.19	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
126	125	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵))))
127	124, 126	eleqtrd 2864	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
128	50, 47, 52, 82	aks6d1c2p1 42735	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
129	128	ffnd 6692	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 Fn (ℕ0 × ℕ0))
130	90, 90	jca 519	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0))
131		aks6d1c2.18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
132	131	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
133		aks6d1c2.13	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
134		eqid 2762	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
135	50, 47, 52, 34, 54, 82, 133, 134	hashscontpowcl 42737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0)
136	135	nn0red 12543	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ)
137	135	nn0ge0d 12545	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
138	136, 137	resqrtcld 15445	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ)
139	138	flcld 13808	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ)
140	136, 137	sqrtge0d 15448	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → 0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
141		0zd 12580	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ∈ ℤ)
142		flge 13815	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ ∧ 0 ∈ ℤ) → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
143	138, 141, 142	syl2anc 593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
144	140, 143	mpbid 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
145	139, 144	jca 519	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
146		elnn0z 12581	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0 ↔ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
147	145, 146	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0)
148	132, 147	eqeltrd 2862	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
149		elnn0z 12581	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝐵 ∈ ℕ0 ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
150	148, 149	sylib 220	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
151		0z 12579	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 0 ∈ ℤ
152		eluz1 12843	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (0 ∈ ℤ → (𝐵 ∈ (ℤ≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵)))
153	151, 152	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝐵 ∈ (ℤ≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
154	150, 153	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝐵 ∈ (ℤ≥‘0))
155		fzn0 13543	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((0...𝐵) ≠ ∅ ↔ 𝐵 ∈ (ℤ≥‘0))
156	154, 155	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ≠ ∅)
157	156, 156	jca 519	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅))
158		xpnz 6144	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅) ↔ ((0...𝐵) × (0...𝐵)) ≠ ∅)
159	157, 158	sylib 220	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ≠ ∅)
160		ssxpb 6160	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((0...𝐵) × (0...𝐵)) ≠ ∅ → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) ↔ ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0)))
161	159, 160	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) ↔ ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0)))
162	130, 161	mpbird 259	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0))
163		ovelimab 7574	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 Fn (ℕ0 × ℕ0) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0)) → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
164	129, 162, 163	syl2anc 593	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
165	127, 164	mpbid 234	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜))
166	123, 165	r19.29vva 3222	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
167	20	crngringd 20296	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ Ring)
168		aks6d1c2.24	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑋 = (var1‘𝐾)
169	168, 16, 18	vr1cl 22279	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ Ring → 𝑋 ∈ (Base‘(Poly1‘𝐾)))
170	167, 169	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑋 ∈ (Base‘(Poly1‘𝐾)))
171	77, 18	mgpbas 20191	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Poly1‘𝐾)) = (Base‘(mulGrp‘(Poly1‘𝐾)))
172	171	eqcomi 2771	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(mulGrp‘(Poly1‘𝐾))) = (Base‘(Poly1‘𝐾))
173	172	eleq2i 2854	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑋 ∈ (Base‘(mulGrp‘(Poly1‘𝐾))) ↔ 𝑋 ∈ (Base‘(Poly1‘𝐾)))
174	170, 173	sylibr 236	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑋 ∈ (Base‘(mulGrp‘(Poly1‘𝐾))))
175	73, 74, 80, 166, 174	mulgnn0cld 19137	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly1‘𝐾))))
176	175, 171	eleqtrrdi 2873	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐽 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)))
177	176	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐽 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)))
178	170	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝑋 ∈ (Base‘(Poly1‘𝐾)))
179	15, 168, 17, 16, 18, 21, 72	evl1vard 22400	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝑋 ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠)))
180	179	simprd 499	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠))
181	178, 180	jca 519	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝑋 ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘𝑋)‘(𝐻‘𝑠)) = (𝐻‘𝑠)))
182	166	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐽 ∈ ℕ0)
183	15, 16, 17, 18, 21, 72, 181, 74, 36, 182	evl1expd 22408	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(.g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
184	183	simprd 499	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
185	29	oveq2d 7412	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐽(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐽(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
186	19	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐾 ∈ Field)
187	47	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℙ)
188	34	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑅 ∈ ℕ)
189	50	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑁 ∈ ℕ)
190	52	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∥ 𝑁)
191	54	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 gcd 𝑅) = 1)
192		aks6d1c2.9	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐹:(0...𝐴)⟶ℕ0)
193	192	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐹:(0...𝐴)⟶ℕ0)
194	59	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐴 ∈ ℕ0)
195	64	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
196	66	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
197	30	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
198		aks6d1c2.20	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 ∈ 𝐶)
199	198	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ 𝐶)
200	124	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 ∈ 𝐶)
201		aks6d1c2.22	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 < 𝐽)
202	201	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 < 𝐽)
203		aks6d1c2.26	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑈 ∈ ℕ)
204	203	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑈 ∈ ℕ)
205		aks6d1c2.27	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
206	205	ad7antr 748	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
207	27	ad6antr 746	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑠 ∈ (ℕ0 ↑m (0...𝐴)))
208		simp-6r 797	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑟 ∈ (0...𝐵))
209		simp-5r 795	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑜 ∈ (0...𝐵))
210		simp-4r 793	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 = (𝑟𝐸𝑜))
211		simpllr 785	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑝 ∈ (0...𝐵))
212		simplr 778	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑞 ∈ (0...𝐵))
213		simpr 488	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = (𝑝𝐸𝑞))
214		simpr 488	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = (𝑝𝐸𝑞))
215	82	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))))
216		simprl 780	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → 𝑘 = 𝑝)
217	216	oveq2d 7412	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → (𝑃↑𝑘) = (𝑃↑𝑝))
218		simprr 782	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → 𝑙 = 𝑞)
219	218	oveq2d 7412	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑞))
220	217, 219	oveq12d 7414	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
221	90	sselda 3936	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑝 ∈ (0...𝐵)) → 𝑝 ∈ ℕ0)
222	221	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑝 ∈ ℕ0)
223	222	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑝 ∈ ℕ0)
224	89	sseli 3932	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑞 ∈ (0...𝐵) → 𝑞 ∈ ℕ0)
225	224	adantl 485	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑞 ∈ ℕ0)
226	225	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑞 ∈ ℕ0)
227		ovexd 7431	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ V)
228	215, 220, 223, 226, 227	ovmpod 7548	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑝𝐸𝑞) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
229	214, 228	eqtrd 2797	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
230	99	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℕ0)
231	230, 223	nn0expcld 14259	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑃↑𝑝) ∈ ℕ0)
232	116	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ0)
233	232	adantr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 / 𝑃) ∈ ℕ0)
234	233, 226	nn0expcld 14259	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑁 / 𝑃)↑𝑞) ∈ ℕ0)
235	231, 234	nn0mulcld 12547	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ ℕ0)
236	229, 235	eqeltrd 2862	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ ℕ0)
237	198, 126	eleqtrd 2864	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
238		ovelimab 7574	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐸 Fn (ℕ0 × ℕ0) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0)) → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
239	129, 162, 238	syl2anc 593	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
240	237, 239	mpbid 234	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
241	236, 240	r19.29vva 3222	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐼 ∈ ℕ0)
242	241	adantr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐼 ∈ ℕ0)
243	242	ad6antr 746	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (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 42743	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝐽(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
245	240	ad4antr 742	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
246	244, 245	r19.29vva 3222	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝐽(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
247	165	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜))
248	246, 247	r19.29vva 3222	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐽(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
249	29	eqcomd 2768	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀) = (𝐻‘𝑠))
250	249	oveq2d 7412	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐼(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
251	185, 248, 250	3eqtrd 2801	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐽(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐼(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
252	15, 16, 17, 18, 21, 72, 181, 74, 36, 242	evl1expd 22408	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(.g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
253	252	simprd 499	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
254	253	eqcomd 2768	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐼(.g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
255	184, 251, 254	3eqtrd 2801	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
256	177, 255	jca 519	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
257	73, 74, 80, 241, 174	mulgnn0cld 19137	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly1‘𝐾))))
258	171	eleq2i 2854	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ↔ (𝐼 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly1‘𝐾))))
259	257, 258	sylibr 236	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)))
260	259	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)))
261		eqidd 2763	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
262	260, 261	jca 519	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
263		eqid 2762	. . . . . . . . . . . . 13 ⊢ (-g‘(Poly1‘𝐾)) = (-g‘(Poly1‘𝐾))
264		eqid 2762	. . . . . . . . . . . . 13 ⊢ (-g‘𝐾) = (-g‘𝐾)
265	15, 16, 17, 18, 21, 72, 256, 262, 263, 264	evl1subd 22405	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = ((((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-g‘𝐾)(((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))))
266	265	simprd 499	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = ((((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-g‘𝐾)(((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
267	21	crnggrpd 20297	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → 𝐾 ∈ Grp)
268	15, 16, 17, 18, 21, 72, 260	fveval1fvcl 22396	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾))
269		eqid 2762	. . . . . . . . . . . . 13 ⊢ (0g‘𝐾) = (0g‘𝐾)
270	17, 269, 264	grpsubid 19066	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Grp ∧ (((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾)) → ((((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-g‘𝐾)(((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0g‘𝐾))
271	267, 268, 270	syl2anc 593	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-g‘𝐾)(((eval1‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0g‘𝐾))
272	266, 271	eqtrd 2797	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = (0g‘𝐾))
273	14, 272	eqtrd 2797	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0g‘𝐾))
274		fvexd 6882	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ V)
275		elsng 4596	. . . . . . . . . 10 ⊢ ((((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ V → ((((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0g‘𝐾)} ↔ (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0g‘𝐾)))
276	274, 275	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0g‘𝐾)} ↔ (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0g‘𝐾)))
277	273, 276	mpbird 259	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0g‘𝐾)})
278	76	crnggrpd 20297	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Grp)
279	18, 263	grpsubcl 19062	. . . . . . . . . . . . . . . . 17 ⊢ (((Poly1‘𝐾) ∈ Grp ∧ (𝐽 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾)) ∧ (𝐼 ↑ 𝑋) ∈ (Base‘(Poly1‘𝐾))) → ((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly1‘𝐾)))
280	278, 176, 259, 279	syl3anc 1390	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly1‘𝐾)))
281	11, 280	eqeltrid 2866	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆 ∈ (Base‘(Poly1‘𝐾)))
282		eqid 2762	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ↑s (Base‘𝐾)) = (𝐾 ↑s (Base‘𝐾))
283	15, 16, 282, 17	evl1rhm 22395	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ CRing → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
284	20, 283	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
285		eqid 2762	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(𝐾 ↑s (Base‘𝐾))) = (Base‘(𝐾 ↑s (Base‘𝐾)))
286	18, 285	rhmf 20533	. . . . . . . . . . . . . . . . . 18 ⊢ ((eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))) → (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶(Base‘(𝐾 ↑s (Base‘𝐾))))
287	284, 286	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶(Base‘(𝐾 ↑s (Base‘𝐾))))
288	287	ffvelcdmda 7065	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑆 ∈ (Base‘(Poly1‘𝐾))) → ((eval1‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑s (Base‘𝐾))))
289	288	ex 416	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑆 ∈ (Base‘(Poly1‘𝐾)) → ((eval1‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑s (Base‘𝐾)))))
290	281, 289	mpd 15	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((eval1‘𝐾)‘𝑆) ∈ (Base‘(𝐾 ↑s (Base‘𝐾))))
291		fvexd 6882	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
292	282, 17	pwsbas 17516	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Field ∧ (Base‘𝐾) ∈ V) → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
293	19, 291, 292	syl2anc 593	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
294	290, 293	eleqtrrd 2865	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((eval1‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)))
295	291, 291	elmapd 8821	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval1‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)) ↔ ((eval1‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾)))
296	294, 295	mpbid 234	. . . . . . . . . . . 12 ⊢ (𝜑 → ((eval1‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾))
297		ffn 6691	. . . . . . . . . . . 12 ⊢ (((eval1‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾) → ((eval1‘𝐾)‘𝑆) Fn (Base‘𝐾))
298	296, 297	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval1‘𝐾)‘𝑆) Fn (Base‘𝐾))
299	298	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((eval1‘𝐾)‘𝑆) Fn (Base‘𝐾))
300		fnfun 6621	. . . . . . . . . 10 ⊢ (((eval1‘𝐾)‘𝑆) Fn (Base‘𝐾) → Fun ((eval1‘𝐾)‘𝑆))
301	299, 300	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → Fun ((eval1‘𝐾)‘𝑆))
302		fndm 6624	. . . . . . . . . . . 12 ⊢ (((eval1‘𝐾)‘𝑆) Fn (Base‘𝐾) → dom ((eval1‘𝐾)‘𝑆) = (Base‘𝐾))
303	298, 302	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → dom ((eval1‘𝐾)‘𝑆) = (Base‘𝐾))
304	303	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → dom ((eval1‘𝐾)‘𝑆) = (Base‘𝐾))
305	72, 304	eleqtrrd 2865	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐻‘𝑠) ∈ dom ((eval1‘𝐾)‘𝑆))
306		fvimacnv 7034	. . . . . . . . 9 ⊢ ((Fun ((eval1‘𝐾)‘𝑆) ∧ (𝐻‘𝑠) ∈ dom ((eval1‘𝐾)‘𝑆)) → ((((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0g‘𝐾)} ↔ (𝐻‘𝑠) ∈ (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})))
307	301, 305, 306	syl2anc 593	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → ((((eval1‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0g‘𝐾)} ↔ (𝐻‘𝑠) ∈ (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})))
308	277, 307	mpbid 234	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ0 ↑m (0...𝐴))) → (𝐻‘𝑠) ∈ (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}))
309	5, 10, 308	funimassd 6933	. . . . . 6 ⊢ (𝜑 → (𝐻 “ (ℕ0 ↑m (0...𝐴))) ⊆ (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}))
310	4, 309	ssexd 5280	. . . . 5 ⊢ (𝜑 → (𝐻 “ (ℕ0 ↑m (0...𝐴))) ∈ V)
311	11	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 = ((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋)))
312	311	fveq2d 6871	. . . . . . . . . 10 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) = ((deg1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))))
313		eqid 2762	. . . . . . . . . . 11 ⊢ (deg1‘𝐾) = (deg1‘𝐾)
314		isfld 20790	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
315	314	biimpi 218	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ Field → (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
316	315	simpld 498	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ Field → 𝐾 ∈ DivRing)
317		drngnzr 20798	. . . . . . . . . . . . . . . 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 26181	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐼 ∈ ℕ0) → ((deg1‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
321	319, 241, 320	syl2anc 593	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
322	321	eqcomd 2768	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 = ((deg1‘𝐾)‘(𝐼 ↑ 𝑋)))
323	313, 16, 168, 77, 74	deg1pw 26181	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐽 ∈ ℕ0) → ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
324	319, 166, 323	syl2anc 593	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
325	324	eqcomd 2768	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 = ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)))
326	201, 322, 325	3brtr3d 5131	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝐼 ↑ 𝑋)) < ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)))
327	16, 313, 167, 18, 263, 176, 259, 326	deg1sub 26168	. . . . . . . . . 10 ⊢ (𝜑 → ((deg1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))) = ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)))
328	312, 327	eqtrd 2797	. . . . . . . . 9 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) = ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)))
329	328, 324	eqtrd 2797	. . . . . . . 8 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) = 𝐽)
330	329, 166	eqeltrd 2862	. . . . . . 7 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) ∈ ℕ0)
331		eqid 2762	. . . . . . . 8 ⊢ (0g‘(Poly1‘𝐾)) = (0g‘(Poly1‘𝐾))
332		fldidom 20821	. . . . . . . . 9 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
333	19, 332	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ IDomn)
334	313, 16, 331, 18	deg1nn0clb 26150	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Ring ∧ 𝑆 ∈ (Base‘(Poly1‘𝐾))) → (𝑆 ≠ (0g‘(Poly1‘𝐾)) ↔ ((deg1‘𝐾)‘𝑆) ∈ ℕ0))
335	167, 281, 334	syl2anc 593	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ≠ (0g‘(Poly1‘𝐾)) ↔ ((deg1‘𝐾)‘𝑆) ∈ ℕ0))
336	330, 335	mpbird 259	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ≠ (0g‘(Poly1‘𝐾)))
337	16, 18, 313, 15, 269, 331, 333, 281, 336	fta1g 26230	. . . . . . 7 ⊢ (𝜑 → (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ≤ ((deg1‘𝐾)‘𝑆))
338		hashbnd 14349	. . . . . . 7 ⊢ (((◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ V ∧ ((deg1‘𝐾)‘𝑆) ∈ ℕ0 ∧ (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ≤ ((deg1‘𝐾)‘𝑆)) → (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ Fin)
339	4, 330, 337, 338	syl3anc 1390	. . . . . 6 ⊢ (𝜑 → (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ Fin)
340		hashcl 14369	. . . . . 6 ⊢ ((◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ Fin → (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ∈ ℕ0)
341	339, 340	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ∈ ℕ0)
342		hashss 14422	. . . . . 6 ⊢ (((◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}) ∈ V ∧ (𝐻 “ (ℕ0 ↑m (0...𝐴))) ⊆ (◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})))
343	4, 309, 342	syl2anc 593	. . . . 5 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})))
344		hashbnd 14349	. . . . 5 ⊢ (((𝐻 “ (ℕ0 ↑m (0...𝐴))) ∈ V ∧ (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ∈ ℕ0 ∧ (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)}))) → (𝐻 “ (ℕ0 ↑m (0...𝐴))) ∈ Fin)
345	310, 341, 343, 344	syl3anc 1390	. . . 4 ⊢ (𝜑 → (𝐻 “ (ℕ0 ↑m (0...𝐴))) ∈ Fin)
346		hashcl 14369	. . . 4 ⊢ ((𝐻 “ (ℕ0 ↑m (0...𝐴))) ∈ Fin → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ∈ ℕ0)
347	345, 346	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ∈ ℕ0)
348	347	nn0red 12543	. 2 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ∈ ℝ)
349	341	nn0red 12543	. 2 ⊢ (𝜑 → (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ∈ ℝ)
350	105, 148	nn0expcld 14259	. . 3 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℕ0)
351	350	nn0red 12543	. 2 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℝ)
352	166	nn0red 12543	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ ℝ)
353	324, 352	eqeltrd 2862	. . . . 5 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)) ∈ ℝ)
354	327, 353	eqeltrd 2862	. . . 4 ⊢ (𝜑 → ((deg1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))) ∈ ℝ)
355	312, 354	eqeltrd 2862	. . 3 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) ∈ ℝ)
356	97	nnred 12225	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
357	47, 356	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑃 ∈ ℝ)
358	357	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
359	358	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
360	359, 92	reexpcld 14176	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℝ)
361	110, 357, 104	redivcld 12019	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℝ)
362	361	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
363	362	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
364	363, 94	reexpcld 14176	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℝ)
365	360, 364	remulcld 11212	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℝ)
366	357, 148	reexpcld 14176	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃↑𝐵) ∈ ℝ)
367	366	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑃↑𝐵) ∈ ℝ)
368	361, 148	reexpcld 14176	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
369	368	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
370	367, 369	remulcld 11212	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
371	370	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
372	110, 148	reexpcld 14176	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℝ)
373	372	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁↑𝐵) ∈ ℝ)
374	373	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) ∈ ℝ)
375	367	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝐵) ∈ ℝ)
376	369	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
377		0red 11184	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ∈ ℝ)
378		1red 11182	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ∈ ℝ)
379		0le1 11710	. . . . . . . . . . . . . . . . 17 ⊢ 0 ≤ 1
380	379	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ≤ 1)
381		prmgt1 16732	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
382	47, 381	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 < 𝑃)
383	378, 357, 382	ltled 11331	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ≤ 𝑃)
384	377, 378, 357, 380, 383	letrd 11340	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ 𝑃)
385	384	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ 𝑃)
386	385	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ 𝑃)
387	359, 92, 386	expge0d 14177	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑃↑𝑟))
388	113	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
389	388	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
390	363, 94, 389	expge0d 14177	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ ((𝑁 / 𝑃)↑𝑜))
391	98	nnge1d 12261	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ 𝑃)
392	391	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 1 ≤ 𝑃)
393	392	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 1 ≤ 𝑃)
394		elfzuz3 13526	. . . . . . . . . . . . . . 15 ⊢ (𝑟 ∈ (0...𝐵) → 𝐵 ∈ (ℤ≥‘𝑟))
395	394	adantl 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ≥‘𝑟))
396	395	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ≥‘𝑟))
397	359, 393, 396	leexp2ad 14267	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ≤ (𝑃↑𝐵))
398	357	recnd 11210	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑃 ∈ ℂ)
399	398	mullidd 11200	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 · 𝑃) = 𝑃)
400	98	nnzd 12594	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℤ)
401		dvdsle 16344	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
402	400, 50, 401	syl2anc 593	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
403	52, 402	mpd 15	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑃 ≤ 𝑁)
404	399, 403	eqbrtrd 5122	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 · 𝑃) ≤ 𝑁)
405	378, 110, 111	lemuldivd 13086	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1 · 𝑃) ≤ 𝑁 ↔ 1 ≤ (𝑁 / 𝑃)))
406	404, 405	mpbid 234	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (𝑁 / 𝑃))
407	406	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 1 ≤ (𝑁 / 𝑃))
408	407	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 1 ≤ (𝑁 / 𝑃))
409		elfzuz3 13526	. . . . . . . . . . . . . 14 ⊢ (𝑜 ∈ (0...𝐵) → 𝐵 ∈ (ℤ≥‘𝑜))
410	409	adantl 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ≥‘𝑜))
411	363, 408, 410	leexp2ad 14267	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ≤ ((𝑁 / 𝑃)↑𝐵))
412	360, 375, 364, 376, 387, 390, 397, 411	lemul12ad 12134	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
413	110	recnd 11210	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ ℂ)
414	413, 398, 104	divcan2d 11969	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑃 · (𝑁 / 𝑃)) = 𝑁)
415	414	eqcomd 2768	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
416	415	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
417	416	adantr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
418	417	oveq1d 7411	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) = ((𝑃 · (𝑁 / 𝑃))↑𝐵))
419	359	recnd 11210	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℂ)
420	363	recnd 11210	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℂ)
421	148	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ ℕ0)
422	419, 420, 421	mulexpd 14174	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃 · (𝑁 / 𝑃))↑𝐵) = ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
423	418, 422	eqtr2d 2798	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) = (𝑁↑𝐵))
424	374	leidd 11753	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) ≤ (𝑁↑𝐵))
425	423, 424	eqbrtrd 5122	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ≤ (𝑁↑𝐵))
426	365, 371, 374, 412, 425	letrd 11340	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ (𝑁↑𝐵))
427	96, 426	eqbrtrd 5122	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
428	427	adantr 484	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
429	81, 428	eqbrtrd 5122	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ≤ (𝑁↑𝐵))
430	429, 165	r19.29vva 3222	. . . . . 6 ⊢ (𝜑 → 𝐽 ≤ (𝑁↑𝐵))
431	324, 430	eqbrtrd 5122	. . . . 5 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝐽 ↑ 𝑋)) ≤ (𝑁↑𝐵))
432	327, 431	eqbrtrd 5122	. . . 4 ⊢ (𝜑 → ((deg1‘𝐾)‘((𝐽 ↑ 𝑋)(-g‘(Poly1‘𝐾))(𝐼 ↑ 𝑋))) ≤ (𝑁↑𝐵))
433	312, 432	eqbrtrd 5122	. . 3 ⊢ (𝜑 → ((deg1‘𝐾)‘𝑆) ≤ (𝑁↑𝐵))
434	349, 355, 351, 337, 433	letrd 11340	. 2 ⊢ (𝜑 → (♯‘(◡((eval1‘𝐾)‘𝑆) “ {(0g‘𝐾)})) ≤ (𝑁↑𝐵))
435	348, 349, 351, 343, 434	letrd 11340	1 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1098   = wceq 1560   ∈ wcel 2142   ≠ wne 2957  ∀wral 3076  ∃wrex 3086  Vcvv 3454   ⊆ wss 3904  ∅c0 4285  {csn 4582   class class class wbr 5100  {copab 5162   ↦ cmpt 5181   × cxp 5645  ^◡ccnv 5646  dom cdm 5647   “ cima 5650  Fun wfun 6515   Fn wfn 6516  ⟶wf 6517  ‘cfv 6521  (class class class)co 7396   ∈ cmpo 7398   ↑_m cmap 8808  Fincfn 8927  ℝcr 11072  0cc0 11073  1c1 11074   + caddc 11076   · cmul 11078   < clt 11216   ≤ cle 11217   / cdiv 11844  ℕcn 12210  ℕ₀cn0 12481  ℤcz 12568  ℤ_≥cuz 12839  ...cfz 13512  ⌊cfl 13800  ↑cexp 14074  ♯chash 14343  √csqrt 15260   ∥ cdvds 16286   gcd cgcd 16528  ℙcprime 16705  Basecbs 17245  +_gcplusg 17286  0_gc0g 17468   Σ_g cgsu 17469   ↑_s cpws 17475  Grpcgrp 18975  -_gcsg 18977  ._gcmg 19109  CMndccmn 19820  mulGrpcmgp 20186  Ringcrg 20283  CRingccrg 20284   RingHom crh 20518   RingIso crs 20519  NzRingcnzr 20562  IDomncidom 20743  DivRingcdr 20779  Fieldcfield 20780  ℤRHomczrh 21551  chrcchr 21553  ℤ/nℤczn 21554  algSccascl 21904  var₁cv1 22238  Poly₁cpl1 22239  eval₁ce1 22377  deg₁cdg1 26114   PrimRoots cprimroots 42708

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150  ax-pre-sup 11151  ax-addf 11152  ax-mulf 11153

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4906  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-isom 6530  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-of 7660  df-ofr 7661  df-om 7847  df-1st 7970  df-2nd 7971  df-supp 8141  df-tpos 8206  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-2o 8438  df-oadd 8441  df-er 8678  df-ec 8680  df-qs 8684  df-map 8810  df-pm 8811  df-ixp 8880  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-fsupp 9308  df-sup 9388  df-inf 9389  df-oi 9458  df-dju 9859  df-card 9897  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-div 11845  df-nn 12211  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12482  df-xnn0 12555  df-z 12569  df-dec 12689  df-uz 12840  df-rp 12994  df-fz 13513  df-fzo 13660  df-fl 13802  df-mod 13880  df-seq 14015  df-exp 14075  df-fac 14287  df-bc 14316  df-hash 14344  df-cj 15126  df-re 15127  df-im 15128  df-sqrt 15262  df-abs 15263  df-dvds 16287  df-gcd 16529  df-prm 16706  df-phi 16801  df-struct 17183  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267  df-plusg 17299  df-mulr 17300  df-starv 17301  df-sca 17302  df-vsca 17303  df-ip 17304  df-tset 17305  df-ple 17306  df-ds 17308  df-unif 17309  df-hom 17310  df-cco 17311  df-0g 17470  df-gsum 17471  df-prds 17476  df-pws 17478  df-imas 17538  df-qus 17539  df-mre 17614  df-mrc 17615  df-acs 17617  df-mgm 18674  df-sgrp 18753  df-mnd 18769  df-mhm 18817  df-submnd 18818  df-grp 18978  df-minusg 18979  df-sbg 18980  df-mulg 19110  df-subg 19165  df-nsg 19166  df-eqg 19167  df-ghm 19254  df-cntz 19357  df-od 19568  df-cmn 19822  df-abl 19823  df-mgp 20187  df-rng 20199  df-ur 20232  df-srg 20237  df-ring 20285  df-cring 20286  df-oppr 20386  df-dvdsr 20406  df-unit 20407  df-invr 20437  df-dvr 20450  df-rhm 20521  df-rim 20522  df-nzr 20563  df-subrng 20596  df-subrg 20620  df-rlreg 20744  df-domn 20745  df-idom 20746  df-drng 20781  df-field 20782  df-lmod 20929  df-lss 20999  df-lsp 21039  df-sra 21240  df-rgmod 21241  df-lidl 21278  df-rsp 21279  df-2idl 21320  df-cnfld 21425  df-zring 21499  df-zrh 21555  df-chr 21557  df-zn 21558  df-assa 21905  df-asp 21906  df-ascl 21907  df-psr 21961  df-mvr 21962  df-mpl 21963  df-opsr 21965  df-evls 22127  df-evl 22128  df-psr1 22242  df-vr1 22243  df-ply1 22244  df-coe1 22245  df-evl1 22379  df-mdeg 26115  df-deg1 26116  df-mon1 26191  df-uc1p 26192  df-q1p 26193  df-r1p 26194  df-primroots 42709

This theorem is referenced by:  aks6d1c2  42747