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 42583

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 6850	. . . . . . . 8 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) ∈ V)
2		cnvexg 7869	. . . . . . . 8 ⊢ (((eval₁‘𝐾)‘𝑆) ∈ V → ^◡((eval₁‘𝐾)‘𝑆) ∈ V)
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → ^◡((eval₁‘𝐾)‘𝑆) ∈ V)
4	3	imaexd 7861	. . . . . 6 ⊢ (𝜑 → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V)
5		nfv 1916	. . . . . . 7 ⊢ Ⅎ𝑠𝜑
6		fvexd 6850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ℎ ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀) ∈ V)
7		aks6d1c2.17	. . . . . . . . . 10 ⊢ 𝐻 = (ℎ ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀))
8	6, 7	fmptd 7061	. . . . . . . . 9 ⊢ (𝜑 → 𝐻:(ℕ₀ ↑_m (0...𝐴))⟶V)
9	8	ffnd 6664	. . . . . . . 8 ⊢ (𝜑 → 𝐻 Fn (ℕ₀ ↑_m (0...𝐴)))
10	9	fnfund 6594	. . . . . . 7 ⊢ (𝜑 → Fun 𝐻)
11		aks6d1c2.25	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))
12	11	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))
13	12	fveq2d 6839	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((eval₁‘𝐾)‘𝑆) = ((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))))
14	13	fveq1d 6837	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)))
15		eqid 2737	. . . . . . . . . . . . 13 ⊢ (eval₁‘𝐾) = (eval₁‘𝐾)
16		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
17		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Base‘𝐾) = (Base‘𝐾)
18		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
19		aks6d1c2.3	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ Field)
20	19	fldcrngd 20713	. . . . . . . . . . . . . 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 6839	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → (𝐺‘ℎ) = (𝐺‘𝑠))
25	24	fveq2d 6839	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → ((eval₁‘𝐾)‘(𝐺‘ℎ)) = ((eval₁‘𝐾)‘(𝐺‘𝑠)))
26	25	fveq1d 6837	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ ℎ = 𝑠) → (((eval₁‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀))
27		simpr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴)))
28		fvexd 6850	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ V)
29	22, 26, 27, 28	fvmptd 6950	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) = (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀))
30		aks6d1c2.16	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
31		eqid 2737	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
32	31	crngmgp 20216	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
33	20, 32	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
34		aks6d1c2.5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑅 ∈ ℕ)
35	34	nnnn0d 12492	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑅 ∈ ℕ₀)
36		eqid 2737	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (._g‘(mulGrp‘𝐾)) = (._g‘(mulGrp‘𝐾))
37	33, 35, 36	isprimroot 42549	. . . . . . . . . . . . . . . . . . . 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 1143	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ (Base‘(mulGrp‘𝐾)))
41	31, 17	mgpbas 20120	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
42	40, 41	eleqtrrdi 2848	. . . . . . . . . . . . . . . 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 8790	. . . . . . . . . . . . . . . . . . 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 12446	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℕ₀
62	61	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 0 ∈ ℕ₀)
63		eqid 2737	. . . . . . . . . . . . . . . . . 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 42581	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝑃↑0) · ((𝑁 / 𝑃)↑0)) ∼ (𝐺‘𝑠))
69	44, 68	aks6d1c1p1rcl 42564	. . . . . . . . . . . . . . . 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 22311	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) ∈ (Base‘𝐾))
72	29, 71	eqeltrd 2837	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) ∈ (Base‘𝐾))
73		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
74		aks6d1c2.23	. . . . . . . . . . . . . . . . 17 ⊢ ↑ = (._g‘(mulGrp‘(Poly₁‘𝐾)))
75	16	ply1crng 22175	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ∈ CRing → (Poly₁‘𝐾) ∈ CRing)
76	20, 75	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ CRing)
77		eqid 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
78	77	crngmgp 20216	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Poly₁‘𝐾) ∈ CRing → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
79	76, 78	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
80	79	cmnmndd 19773	. . . . . . . . . . . . . . . . 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 7377	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → (𝑃↑𝑘) = (𝑃↑𝑟))
86		simprr 773	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → 𝑙 = 𝑜)
87	86	oveq2d 7377	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑜))
88	85, 87	oveq12d 7379	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ (𝑘 = 𝑟 ∧ 𝑙 = 𝑜)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
89		fz0ssnn0 13570	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0...𝐵) ⊆ ℕ₀
90	89	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ⊆ ℕ₀)
91	90	sselda 3922	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑟 ∈ ℕ₀)
92	91	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑟 ∈ ℕ₀)
93	89	sseli 3918	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑜 ∈ (0...𝐵) → 𝑜 ∈ ℕ₀)
94	93	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑜 ∈ ℕ₀)
95		ovexd 7396	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ V)
96	83, 88, 92, 94, 95	ovmpod 7513	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) = ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)))
97		prmnn 16637	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
98	47, 97	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑃 ∈ ℕ)
99	98	nnnn0d 12492	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑃 ∈ ℕ₀)
100	99	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℕ₀)
101	100	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℕ₀)
102	101, 92	nn0expcld 14202	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℕ₀)
103	99	nn0zd 12543	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℤ)
104	98	nnne0d 12221	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
105	50	nnnn0d 12492	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
106	105	nn0zd 12543	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
107		dvdsval2 16218	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
108	103, 104, 106, 107	syl3anc 1374	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
109	52, 108	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
110	50	nnred 12183	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑁 ∈ ℝ)
111	98	nnrpd 12978	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℝ⁺)
112	105	nn0ge0d 12495	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 0 ≤ 𝑁)
113	110, 111, 112	divge0d 13020	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ (𝑁 / 𝑃))
114	109, 113	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 ≤ (𝑁 / 𝑃)))
115		elnn0z 12531	. . . . . . . . . . . . . . . . . . . . . . . . . 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 14202	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℕ₀)
120	102, 119	nn0mulcld 12497	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℕ₀)
121	96, 120	eqeltrd 2837	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ∈ ℕ₀)
122	121	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ∈ ℕ₀)
123	81, 122	eqeltrd 2837	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ∈ ℕ₀)
124		aks6d1c2.21	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 ∈ 𝐶)
125		aks6d1c2.19	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
126	125	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵))))
127	124, 126	eleqtrd 2839	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
128	50, 47, 52, 82	aks6d1c2p1 42574	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸:(ℕ₀ × ℕ₀)⟶ℕ)
129	128	ffnd 6664	. . . . . . . . . . . . . . . . . . . 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 2737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
135	50, 47, 52, 34, 54, 82, 133, 134	hashscontpowcl 42576	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))) ∈ ℕ₀)
136	135	nn0red 12493	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))) ∈ ℝ)
137	135	nn0ge0d 12495	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))
138	136, 137	resqrtcld 15374	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ∈ ℝ)
139	138	flcld 13751	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ)
140	136, 137	sqrtge0d 15377	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → 0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))
141		0zd 12530	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → 0 ∈ ℤ)
142		flge 13758	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ∈ ℝ ∧ 0 ∈ ℤ) → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
143	138, 141, 142	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
144	140, 143	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))))
145	139, 144	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
146		elnn0z 12531	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℕ₀ ↔ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀))))))))
147	145, 146	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ₀ × ℕ₀)))))) ∈ ℕ₀)
148	132, 147	eqeltrd 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝐵 ∈ ℕ₀)
149		elnn0z 12531	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝐵 ∈ ℕ₀ ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
150	148, 149	sylib 218	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
151		0z 12529	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 0 ∈ ℤ
152		eluz1 12786	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (0 ∈ ℤ → (𝐵 ∈ (ℤ_≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵)))
153	151, 152	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝐵 ∈ (ℤ_≥‘0) ↔ (𝐵 ∈ ℤ ∧ 0 ≤ 𝐵))
154	150, 153	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝐵 ∈ (ℤ_≥‘0))
155		fzn0 13486	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((0...𝐵) ≠ ∅ ↔ 𝐵 ∈ (ℤ_≥‘0))
156	154, 155	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (0...𝐵) ≠ ∅)
157	156, 156	jca 511	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅))
158		xpnz 6118	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅) ↔ ((0...𝐵) × (0...𝐵)) ≠ ∅)
159	157, 158	sylib 218	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ≠ ∅)
160		ssxpb 6133	. . . . . . . . . . . . . . . . . . . . . 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 7539	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 Fn (ℕ₀ × ℕ₀) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀)) → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
164	129, 162, 163	syl2anc 585	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐽 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜)))
165	127, 164	mpbid 232	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∃𝑟 ∈ (0...𝐵)∃𝑜 ∈ (0...𝐵)𝐽 = (𝑟𝐸𝑜))
166	123, 165	r19.29vva 3198	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℕ₀)
167	20	crngringd 20221	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ Ring)
168		aks6d1c2.24	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑋 = (var₁‘𝐾)
169	168, 16, 18	vr1cl 22194	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ Ring → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
170	167, 169	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
171	77, 18	mgpbas 20120	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
172	171	eqcomi 2746	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(Poly₁‘𝐾))
173	172	eleq2i 2829	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑋 ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))) ↔ 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
174	170, 173	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑋 ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
175	73, 74, 80, 166, 174	mulgnn0cld 19065	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
176	175, 171	eleqtrrdi 2848	. . . . . . . . . . . . . . 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 22315	. . . . . . . . . . . . . . . . . . 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 22323	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
184	183	simprd 495	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
185	29	oveq2d 7377	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
186	19	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐾 ∈ Field)
187	47	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℙ)
188	34	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑅 ∈ ℕ)
189	50	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑁 ∈ ℕ)
190	52	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∥ 𝑁)
191	54	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 gcd 𝑅) = 1)
192		aks6d1c2.9	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐹:(0...𝐴)⟶ℕ₀)
193	192	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐹:(0...𝐴)⟶ℕ₀)
194	59	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐴 ∈ ℕ₀)
195	64	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
196	66	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(._g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
197	30	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
198		aks6d1c2.20	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 ∈ 𝐶)
199	198	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ 𝐶)
200	124	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 ∈ 𝐶)
201		aks6d1c2.22	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐼 < 𝐽)
202	201	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 < 𝐽)
203		aks6d1c2.26	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑈 ∈ ℕ)
204	203	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑈 ∈ ℕ)
205		aks6d1c2.27	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
206	205	ad7antr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐽 = (𝐼 + (𝑈 · 𝑅)))
207	27	ad6antr 737	. . . . . . . . . . . . . . . . . . 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 7377	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → (𝑃↑𝑘) = (𝑃↑𝑝))
218		simprr 773	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → 𝑙 = 𝑞)
219	218	oveq2d 7377	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑁 / 𝑃)↑𝑙) = ((𝑁 / 𝑃)↑𝑞))
220	217, 219	oveq12d 7379	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) ∧ (𝑘 = 𝑝 ∧ 𝑙 = 𝑞)) → ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
221	90	sselda 3922	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑝 ∈ (0...𝐵)) → 𝑝 ∈ ℕ₀)
222	221	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑝 ∈ ℕ₀)
223	222	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑝 ∈ ℕ₀)
224	89	sseli 3918	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑞 ∈ (0...𝐵) → 𝑞 ∈ ℕ₀)
225	224	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → 𝑞 ∈ ℕ₀)
226	225	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑞 ∈ ℕ₀)
227		ovexd 7396	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ V)
228	215, 220, 223, 226, 227	ovmpod 7513	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑝𝐸𝑞) = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
229	214, 228	eqtrd 2772	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 = ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)))
230	99	ad3antrrr 731	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝑃 ∈ ℕ₀)
231	230, 223	nn0expcld 14202	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑃↑𝑝) ∈ ℕ₀)
232	116	ad2antrr 727	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℕ₀)
233	232	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝑁 / 𝑃) ∈ ℕ₀)
234	233, 226	nn0expcld 14202	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑁 / 𝑃)↑𝑞) ∈ ℕ₀)
235	231, 234	nn0mulcld 12497	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → ((𝑃↑𝑝) · ((𝑁 / 𝑃)↑𝑞)) ∈ ℕ₀)
236	229, 235	eqeltrd 2837	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → 𝐼 ∈ ℕ₀)
237	198, 126	eleqtrd 2839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
238		ovelimab 7539	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐸 Fn (ℕ₀ × ℕ₀) ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ₀ × ℕ₀)) → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
239	129, 162, 238	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐼 ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞)))
240	237, 239	mpbid 232	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
241	236, 240	r19.29vva 3198	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐼 ∈ ℕ₀)
242	241	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐼 ∈ ℕ₀)
243	242	ad6antr 737	. . . . . . . . . . . . . . . . . . 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 42582	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) ∧ 𝑝 ∈ (0...𝐵)) ∧ 𝑞 ∈ (0...𝐵)) ∧ 𝐼 = (𝑝𝐸𝑞)) → (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
245	240	ad4antr 733	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → ∃𝑝 ∈ (0...𝐵)∃𝑞 ∈ (0...𝐵)𝐼 = (𝑝𝐸𝑞))
246	244, 245	r19.29vva 3198	. . . . . . . . . . . . . . . . 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 3198	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)))
249	29	eqcomd 2743	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀) = (𝐻‘𝑠))
250	249	oveq2d 7377	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐼(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝐺‘𝑠))‘𝑀)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
251	185, 248, 250	3eqtrd 2776	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐽(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
252	15, 16, 17, 18, 21, 72, 181, 74, 36, 242	evl1expd 22323	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠))))
253	252	simprd 495	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)))
254	253	eqcomd 2743	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐼(._g‘(mulGrp‘𝐾))(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
255	184, 251, 254	3eqtrd 2776	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
256	177, 255	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐽 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
257	73, 74, 80, 241, 174	mulgnn0cld 19065	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ↑ 𝑋) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
258	171	eleq2i 2829	. . . . . . . . . . . . . . . 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 2738	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)))
262	260, 261	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) = (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))))
263		eqid 2737	. . . . . . . . . . . . 13 ⊢ (-_g‘(Poly₁‘𝐾)) = (-_g‘(Poly₁‘𝐾))
264		eqid 2737	. . . . . . . . . . . . 13 ⊢ (-_g‘𝐾) = (-_g‘𝐾)
265	15, 16, 17, 18, 21, 72, 256, 262, 263, 264	evl1subd 22320	. . . . . . . . . . . 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 20222	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → 𝐾 ∈ Grp)
268	15, 16, 17, 18, 21, 72, 260	fveval1fvcl 22311	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾))
269		eqid 2737	. . . . . . . . . . . . 13 ⊢ (0_g‘𝐾) = (0_g‘𝐾)
270	17, 269, 264	grpsubid 18994	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Grp ∧ (((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠)) ∈ (Base‘𝐾)) → ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0_g‘𝐾))
271	267, 268, 270	syl2anc 585	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → ((((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))(-_g‘𝐾)(((eval₁‘𝐾)‘(𝐼 ↑ 𝑋))‘(𝐻‘𝑠))) = (0_g‘𝐾))
272	266, 271	eqtrd 2772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))‘(𝐻‘𝑠)) = (0_g‘𝐾))
273	14, 272	eqtrd 2772	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) = (0_g‘𝐾))
274		fvexd 6850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ V)
275		elsng 4582	. . . . . . . . . 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 20222	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Grp)
279	18, 263	grpsubcl 18990	. . . . . . . . . . . . . . . . 17 ⊢ (((Poly₁‘𝐾) ∈ Grp ∧ (𝐽 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (𝐼 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾))) → ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly₁‘𝐾)))
280	278, 176, 259, 279	syl3anc 1374	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)) ∈ (Base‘(Poly₁‘𝐾)))
281	11, 280	eqeltrid 2841	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆 ∈ (Base‘(Poly₁‘𝐾)))
282		eqid 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ↑_s (Base‘𝐾)) = (𝐾 ↑_s (Base‘𝐾))
283	15, 16, 282, 17	evl1rhm 22310	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ CRing → (eval₁‘𝐾) ∈ ((Poly₁‘𝐾) RingHom (𝐾 ↑_s (Base‘𝐾))))
284	20, 283	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (eval₁‘𝐾) ∈ ((Poly₁‘𝐾) RingHom (𝐾 ↑_s (Base‘𝐾))))
285		eqid 2737	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(𝐾 ↑_s (Base‘𝐾))) = (Base‘(𝐾 ↑_s (Base‘𝐾)))
286	18, 285	rhmf 20458	. . . . . . . . . . . . . . . . . 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 7031	. . . . . . . . . . . . . . . 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 6850	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
292	282, 17	pwsbas 17444	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Field ∧ (Base‘𝐾) ∈ V) → ((Base‘𝐾) ↑_m (Base‘𝐾)) = (Base‘(𝐾 ↑_s (Base‘𝐾))))
293	19, 291, 292	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((Base‘𝐾) ↑_m (Base‘𝐾)) = (Base‘(𝐾 ↑_s (Base‘𝐾))))
294	290, 293	eleqtrrd 2840	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑_m (Base‘𝐾)))
295	291, 291	elmapd 8781	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval₁‘𝐾)‘𝑆) ∈ ((Base‘𝐾) ↑_m (Base‘𝐾)) ↔ ((eval₁‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾)))
296	294, 295	mpbid 232	. . . . . . . . . . . 12 ⊢ (𝜑 → ((eval₁‘𝐾)‘𝑆):(Base‘𝐾)⟶(Base‘𝐾))
297		ffn 6663	. . . . . . . . . . . 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 6593	. . . . . . . . . 10 ⊢ (((eval₁‘𝐾)‘𝑆) Fn (Base‘𝐾) → Fun ((eval₁‘𝐾)‘𝑆))
301	299, 300	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → Fun ((eval₁‘𝐾)‘𝑆))
302		fndm 6596	. . . . . . . . . . . 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 2840	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (ℕ₀ ↑_m (0...𝐴))) → (𝐻‘𝑠) ∈ dom ((eval₁‘𝐾)‘𝑆))
306		fvimacnv 7000	. . . . . . . . 9 ⊢ ((Fun ((eval₁‘𝐾)‘𝑆) ∧ (𝐻‘𝑠) ∈ dom ((eval₁‘𝐾)‘𝑆)) → ((((eval₁‘𝐾)‘𝑆)‘(𝐻‘𝑠)) ∈ {(0_g‘𝐾)} ↔ (𝐻‘𝑠) ∈ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
307	301, 305, 306	syl2anc 585	. . . . . . . 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 6901	. . . . . 6 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ⊆ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}))
310	4, 309	ssexd 5262	. . . . 5 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ V)
311	11	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 = ((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋)))
312	311	fveq2d 6839	. . . . . . . . . 10 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))))
313		eqid 2737	. . . . . . . . . . 11 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
314		isfld 20711	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
315	314	biimpi 216	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ Field → (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
316	315	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ Field → 𝐾 ∈ DivRing)
317		drngnzr 20719	. . . . . . . . . . . . . . . 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 26099	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐼 ∈ ℕ₀) → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
321	319, 241, 320	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) = 𝐼)
322	321	eqcomd 2743	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 = ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)))
323	313, 16, 168, 77, 74	deg1pw 26099	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ NzRing ∧ 𝐽 ∈ ℕ₀) → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
324	319, 166, 323	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) = 𝐽)
325	324	eqcomd 2743	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
326	201, 322, 325	3brtr3d 5117	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐼 ↑ 𝑋)) < ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
327	16, 313, 167, 18, 263, 176, 259, 326	deg1sub 26086	. . . . . . . . . 10 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
328	312, 327	eqtrd 2772	. . . . . . . . 9 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)))
329	328, 324	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) = 𝐽)
330	329, 166	eqeltrd 2837	. . . . . . 7 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀)
331		eqid 2737	. . . . . . . 8 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
332		fldidom 20742	. . . . . . . . 9 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
333	19, 332	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ IDomn)
334	313, 16, 331, 18	deg1nn0clb 26068	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Ring ∧ 𝑆 ∈ (Base‘(Poly₁‘𝐾))) → (𝑆 ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀))
335	167, 281, 334	syl2anc 585	. . . . . . . . 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 26148	. . . . . . 7 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ ((deg₁‘𝐾)‘𝑆))
338		hashbnd 14292	. . . . . . 7 ⊢ (((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V ∧ ((deg₁‘𝐾)‘𝑆) ∈ ℕ₀ ∧ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ ((deg₁‘𝐾)‘𝑆)) → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin)
339	4, 330, 337, 338	syl3anc 1374	. . . . . 6 ⊢ (𝜑 → (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin)
340		hashcl 14312	. . . . . 6 ⊢ ((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ Fin → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀)
341	339, 340	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀)
342		hashss 14365	. . . . . 6 ⊢ (((^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}) ∈ V ∧ (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ⊆ (^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
343	4, 309, 342	syl2anc 585	. . . . 5 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})))
344		hashbnd 14292	. . . . 5 ⊢ (((𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ V ∧ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℕ₀ ∧ (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)}))) → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin)
345	310, 341, 343, 344	syl3anc 1374	. . . 4 ⊢ (𝜑 → (𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin)
346		hashcl 14312	. . . 4 ⊢ ((𝐻 “ (ℕ₀ ↑_m (0...𝐴))) ∈ Fin → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℕ₀)
347	345, 346	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℕ₀)
348	347	nn0red 12493	. 2 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ∈ ℝ)
349	341	nn0red 12493	. 2 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ∈ ℝ)
350	105, 148	nn0expcld 14202	. . 3 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℕ₀)
351	350	nn0red 12493	. 2 ⊢ (𝜑 → (𝑁↑𝐵) ∈ ℝ)
352	166	nn0red 12493	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ ℝ)
353	324, 352	eqeltrd 2837	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) ∈ ℝ)
354	327, 353	eqeltrd 2837	. . . 4 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) ∈ ℝ)
355	312, 354	eqeltrd 2837	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ∈ ℝ)
356	97	nnred 12183	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
357	47, 356	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑃 ∈ ℝ)
358	357	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
359	358	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℝ)
360	359, 92	reexpcld 14119	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ∈ ℝ)
361	110, 357, 104	redivcld 11977	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℝ)
362	361	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
363	362	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℝ)
364	363, 94	reexpcld 14119	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ∈ ℝ)
365	360, 364	remulcld 11169	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ∈ ℝ)
366	357, 148	reexpcld 14119	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃↑𝐵) ∈ ℝ)
367	366	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → (𝑃↑𝐵) ∈ ℝ)
368	361, 148	reexpcld 14119	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
369	368	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝐵) ∈ ℝ)
370	367, 369	remulcld 11169	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
371	370	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ∈ ℝ)
372	110, 148	reexpcld 14119	. . . . . . . . . . . . 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 11141	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ∈ ℝ)
378		1red 11139	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ∈ ℝ)
379		0le1 11667	. . . . . . . . . . . . . . . . 17 ⊢ 0 ≤ 1
380	379	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ≤ 1)
381		prmgt1 16661	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
382	47, 381	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 < 𝑃)
383	378, 357, 382	ltled 11288	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 1 ≤ 𝑃)
384	377, 378, 357, 380, 383	letrd 11297	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ 𝑃)
385	384	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ 𝑃)
386	385	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ 𝑃)
387	359, 92, 386	expge0d 14120	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑃↑𝑟))
388	113	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
389	388	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ (𝑁 / 𝑃))
390	363, 94, 389	expge0d 14120	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 0 ≤ ((𝑁 / 𝑃)↑𝑜))
391	98	nnge1d 12219	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ 𝑃)
392	391	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 1 ≤ 𝑃)
393	392	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 1 ≤ 𝑃)
394		elfzuz3 13469	. . . . . . . . . . . . . . 15 ⊢ (𝑟 ∈ (0...𝐵) → 𝐵 ∈ (ℤ_≥‘𝑟))
395	394	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑟))
396	395	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑟))
397	359, 393, 396	leexp2ad 14210	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑃↑𝑟) ≤ (𝑃↑𝐵))
398	357	recnd 11167	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑃 ∈ ℂ)
399	398	mullidd 11157	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 · 𝑃) = 𝑃)
400	98	nnzd 12544	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℤ)
401		dvdsle 16273	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
402	400, 50, 401	syl2anc 585	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑃 ∥ 𝑁 → 𝑃 ≤ 𝑁))
403	52, 402	mpd 15	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑃 ≤ 𝑁)
404	399, 403	eqbrtrd 5108	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 · 𝑃) ≤ 𝑁)
405	378, 110, 111	lemuldivd 13029	. . . . . . . . . . . . . . . 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 13469	. . . . . . . . . . . . . 14 ⊢ (𝑜 ∈ (0...𝐵) → 𝐵 ∈ (ℤ_≥‘𝑜))
410	409	adantl 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ (ℤ_≥‘𝑜))
411	363, 408, 410	leexp2ad 14210	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑁 / 𝑃)↑𝑜) ≤ ((𝑁 / 𝑃)↑𝐵))
412	360, 375, 364, 376, 387, 390, 397, 411	lemul12ad 12092	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
413	110	recnd 11167	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ ℂ)
414	413, 398, 104	divcan2d 11927	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑃 · (𝑁 / 𝑃)) = 𝑁)
415	414	eqcomd 2743	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
416	415	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑟 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
417	416	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑁 = (𝑃 · (𝑁 / 𝑃)))
418	417	oveq1d 7376	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) = ((𝑃 · (𝑁 / 𝑃))↑𝐵))
419	359	recnd 11167	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝑃 ∈ ℂ)
420	363	recnd 11167	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁 / 𝑃) ∈ ℂ)
421	148	ad2antrr 727	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → 𝐵 ∈ ℕ₀)
422	419, 420, 421	mulexpd 14117	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃 · (𝑁 / 𝑃))↑𝐵) = ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)))
423	418, 422	eqtr2d 2773	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) = (𝑁↑𝐵))
424	374	leidd 11710	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑁↑𝐵) ≤ (𝑁↑𝐵))
425	423, 424	eqbrtrd 5108	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝐵) · ((𝑁 / 𝑃)↑𝐵)) ≤ (𝑁↑𝐵))
426	365, 371, 374, 412, 425	letrd 11297	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → ((𝑃↑𝑟) · ((𝑁 / 𝑃)↑𝑜)) ≤ (𝑁↑𝐵))
427	96, 426	eqbrtrd 5108	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
428	427	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → (𝑟𝐸𝑜) ≤ (𝑁↑𝐵))
429	81, 428	eqbrtrd 5108	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (0...𝐵)) ∧ 𝑜 ∈ (0...𝐵)) ∧ 𝐽 = (𝑟𝐸𝑜)) → 𝐽 ≤ (𝑁↑𝐵))
430	429, 165	r19.29vva 3198	. . . . . 6 ⊢ (𝜑 → 𝐽 ≤ (𝑁↑𝐵))
431	324, 430	eqbrtrd 5108	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐽 ↑ 𝑋)) ≤ (𝑁↑𝐵))
432	327, 431	eqbrtrd 5108	. . . 4 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝐽 ↑ 𝑋)(-_g‘(Poly₁‘𝐾))(𝐼 ↑ 𝑋))) ≤ (𝑁↑𝐵))
433	312, 432	eqbrtrd 5108	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘𝑆) ≤ (𝑁↑𝐵))
434	349, 355, 351, 337, 433	letrd 11297	. 2 ⊢ (𝜑 → (♯‘(^◡((eval₁‘𝐾)‘𝑆) “ {(0_g‘𝐾)})) ≤ (𝑁↑𝐵))
435	348, 349, 351, 343, 434	letrd 11297	1 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ₀ ↑_m (0...𝐴)))) ≤ (𝑁↑𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 ∀wral 3052 ∃wrex 3062 Vcvv 3430 ⊆ wss 3890 ∅c0 4274 {csn 4568 class class class wbr 5086 {copab 5148 ↦ cmpt 5167 × cxp 5623 ^◡ccnv 5624 dom cdm 5625 “ cima 5628 Fun wfun 6487 Fn wfn 6488 ⟶wf 6489 ‘cfv 6493 (class class class)co 7361 ∈ cmpo 7363 ↑_m cmap 8767 Fincfn 8887 ℝcr 11031 0cc0 11032 1c1 11033 + caddc 11035 · cmul 11037 < clt 11173 ≤ cle 11174 / cdiv 11801 ℕcn 12168 ℕ₀cn0 12431 ℤcz 12518 ℤ_≥cuz 12782 ...cfz 13455 ⌊cfl 13743 ↑cexp 14017 ♯chash 14286 √csqrt 15189 ∥ cdvds 16215 gcd cgcd 16457 ℙcprime 16634 Basecbs 17173 +_gcplusg 17214 0_gc0g 17396 Σ_g cgsu 17397 ↑_s cpws 17403 Grpcgrp 18903 -_gcsg 18905 ._gcmg 19037 CMndccmn 19749 mulGrpcmgp 20115 Ringcrg 20208 CRingccrg 20209 RingHom crh 20443 RingIso crs 20444 NzRingcnzr 20483 IDomncidom 20664 DivRingcdr 20700 Fieldcfield 20701 ℤRHomczrh 21492 chrcchr 21494 ℤ/nℤczn 21495 algSccascl 21845 var₁cv1 22152 Poly₁cpl1 22153 eval₁ce1 22292 deg₁cdg1 26032 PrimRoots cprimroots 42547

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5213 ax-sep 5232 ax-nul 5242 ax-pow 5303 ax-pr 5371 ax-un 7683 ax-cnex 11088 ax-resscn 11089 ax-1cn 11090 ax-icn 11091 ax-addcl 11092 ax-addrcl 11093 ax-mulcl 11094 ax-mulrcl 11095 ax-mulcom 11096 ax-addass 11097 ax-mulass 11098 ax-distr 11099 ax-i2m1 11100 ax-1ne0 11101 ax-1rid 11102 ax-rnegex 11103 ax-rrecex 11104 ax-cnre 11105 ax-pre-lttri 11106 ax-pre-lttrn 11107 ax-pre-ltadd 11108 ax-pre-mulgt0 11109 ax-pre-sup 11110 ax-addf 11111 ax-mulf 11112

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-tp 4573 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-iin 4937 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6260 df-ord 6321 df-on 6322 df-lim 6323 df-suc 6324 df-iota 6449 df-fun 6495 df-fn 6496 df-f 6497 df-f1 6498 df-fo 6499 df-f1o 6500 df-fv 6501 df-isom 6502 df-riota 7318 df-ov 7364 df-oprab 7365 df-mpo 7366 df-of 7625 df-ofr 7626 df-om 7812 df-1st 7936 df-2nd 7937 df-supp 8105 df-tpos 8170 df-frecs 8225 df-wrecs 8256 df-recs 8305 df-rdg 8343 df-1o 8399 df-2o 8400 df-oadd 8403 df-er 8637 df-ec 8639 df-qs 8643 df-map 8769 df-pm 8770 df-ixp 8840 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-fsupp 9269 df-sup 9349 df-inf 9350 df-oi 9419 df-dju 9819 df-card 9857 df-pnf 11175 df-mnf 11176 df-xr 11177 df-ltxr 11178 df-le 11179 df-sub 11373 df-neg 11374 df-div 11802 df-nn 12169 df-2 12238 df-3 12239 df-4 12240 df-5 12241 df-6 12242 df-7 12243 df-8 12244 df-9 12245 df-n0 12432 df-xnn0 12505 df-z 12519 df-dec 12639 df-uz 12783 df-rp 12937 df-fz 13456 df-fzo 13603 df-fl 13745 df-mod 13823 df-seq 13958 df-exp 14018 df-fac 14230 df-bc 14259 df-hash 14287 df-cj 15055 df-re 15056 df-im 15057 df-sqrt 15191 df-abs 15192 df-dvds 16216 df-gcd 16458 df-prm 16635 df-phi 16730 df-struct 17111 df-sets 17128 df-slot 17146 df-ndx 17158 df-base 17174 df-ress 17195 df-plusg 17227 df-mulr 17228 df-starv 17229 df-sca 17230 df-vsca 17231 df-ip 17232 df-tset 17233 df-ple 17234 df-ds 17236 df-unif 17237 df-hom 17238 df-cco 17239 df-0g 17398 df-gsum 17399 df-prds 17404 df-pws 17406 df-imas 17466 df-qus 17467 df-mre 17542 df-mrc 17543 df-acs 17545 df-mgm 18602 df-sgrp 18681 df-mnd 18697 df-mhm 18745 df-submnd 18746 df-grp 18906 df-minusg 18907 df-sbg 18908 df-mulg 19038 df-subg 19093 df-nsg 19094 df-eqg 19095 df-ghm 19182 df-cntz 19286 df-od 19497 df-cmn 19751 df-abl 19752 df-mgp 20116 df-rng 20128 df-ur 20157 df-srg 20162 df-ring 20210 df-cring 20211 df-oppr 20311 df-dvdsr 20331 df-unit 20332 df-invr 20362 df-dvr 20375 df-rhm 20446 df-rim 20447 df-nzr 20484 df-subrng 20517 df-subrg 20541 df-rlreg 20665 df-domn 20666 df-idom 20667 df-drng 20702 df-field 20703 df-lmod 20851 df-lss 20921 df-lsp 20961 df-sra 21163 df-rgmod 21164 df-lidl 21201 df-rsp 21202 df-2idl 21243 df-cnfld 21348 df-zring 21440 df-zrh 21496 df-chr 21498 df-zn 21499 df-assa 21846 df-asp 21847 df-ascl 21848 df-psr 21902 df-mvr 21903 df-mpl 21904 df-opsr 21906 df-evls 22065 df-evl 22066 df-psr1 22156 df-vr1 22157 df-ply1 22158 df-coe1 22159 df-evl1 22294 df-mdeg 26033 df-deg1 26034 df-mon1 26109 df-uc1p 26110 df-q1p 26111 df-r1p 26112 df-primroots 42548

This theorem is referenced by: aks6d1c2 42586

W3C validator