Theorem aks6d1c6lem2 42425

Description: Every primitive root is root of G(u)-G(v). (Contributed by metakunt, 8-May-2025.)

Hypotheses

Ref	Expression
aks6d1c6.1	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))}
aks6d1c6.2	⊢ 𝑃 = (chr‘𝐾)
aks6d1c6.3	⊢ (𝜑 → 𝐾 ∈ Field)
aks6d1c6.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c6.5	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks6d1c6.6	⊢ (𝜑 → 𝑁 ∈ ℕ)
aks6d1c6.7	⊢ (𝜑 → 𝑃 ∥ 𝑁)
aks6d1c6.8	⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
aks6d1c6.9	⊢ (𝜑 → 𝐴 < 𝑃)
aks6d1c6.10	⊢ 𝐺 = (𝑔 ∈ (ℕ0 ↑m (0...𝐴)) ↦ ((mulGrp‘(Poly1‘𝐾)) Σg (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(.g‘(mulGrp‘(Poly1‘𝐾)))((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
aks6d1c6.11	⊢ (𝜑 → 𝐴 ∈ ℕ0)
aks6d1c6.12	⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
aks6d1c6.13	⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
aks6d1c6.14	⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
aks6d1c6.15	⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
aks6d1c6.16	⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
aks6d1c6.17	⊢ 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀))
aks6d1c6.18	⊢ 𝐷 = (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
aks6d1c6.19	⊢ 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)}
aks6d1c6lem2.1	⊢ (𝜑 → 𝑈 ∈ 𝑆)
aks6d1c6lem2.2	⊢ (𝜑 → 𝑉 ∈ 𝑆)
aks6d1c6lem2.3	⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = ((𝐻 ↾ 𝑆)‘𝑉))
aks6d1c6lem2.4	⊢ (𝜑 → 𝑈 ≠ 𝑉)
aks6d1c6lem2.5	⊢ 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀))
aks6d1c6lem2.6	⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(𝐽 “ (ℕ0 × ℕ0))))

Assertion

Ref	Expression
aks6d1c6lem2	⊢ (𝜑 → 𝐷 ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))

Distinct variable groups:   ∼ ,𝑎   𝐴,𝑎   𝐴,𝑔,𝑖   𝐴,ℎ   𝐴,𝑠   𝑥,𝐴   𝑒,𝐸,𝑓,𝑦   𝑗,𝐸   𝑒,𝐺,𝑓,𝑦   ℎ,𝐺   𝐾,𝑎   𝑒,𝐾,𝑓,𝑦   𝑔,𝐾,𝑖   ℎ,𝐾   𝑗,𝐾   𝑥,𝐾   ℎ,𝑀   𝑗,𝑀   𝑦,𝑀   𝑁,𝑎   𝑒,𝑁,𝑓   𝑘,𝑁,𝑙,𝑠   𝑥,𝑁   𝑃,𝑒,𝑓   𝑃,𝑘,𝑙,𝑠   𝑥,𝑃   𝑅,𝑒,𝑓,𝑦   𝑥,𝑅   𝑆,ℎ   𝑈,𝑒,𝑓,𝑦   𝑈,𝑔,𝑖   𝑈,ℎ   𝑒,𝑉,𝑓,𝑦   𝑔,𝑉,𝑖   ℎ,𝑉   𝜑,𝑎   𝜑,𝑔,𝑖   𝜑,ℎ   𝜑,𝑗   𝜑,𝑠   𝜑,𝑥

Allowed substitution hints:   𝜑(𝑦,𝑡,𝑒,𝑓,𝑘,𝑙)   𝐴(𝑦,𝑡,𝑒,𝑓,𝑗,𝑘,𝑙)   𝐷(𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝑃(𝑦,𝑡,𝑔,ℎ,𝑖,𝑗,𝑎)   ∼ (𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑙)   𝑅(𝑡,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝑆(𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝑈(𝑥,𝑡,𝑗,𝑘,𝑠,𝑎,𝑙)   𝐸(𝑥,𝑡,𝑔,ℎ,𝑖,𝑘,𝑠,𝑎,𝑙)   𝐺(𝑥,𝑡,𝑔,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝐻(𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝐽(𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝐾(𝑡,𝑘,𝑠,𝑙)   𝐿(𝑥,𝑦,𝑡,𝑒,𝑓,𝑔,ℎ,𝑖,𝑗,𝑘,𝑠,𝑎,𝑙)   𝑀(𝑥,𝑡,𝑒,𝑓,𝑔,𝑖,𝑘,𝑠,𝑎,𝑙)   𝑁(𝑦,𝑡,𝑔,ℎ,𝑖,𝑗)   𝑉(𝑥,𝑡,𝑗,𝑘,𝑠,𝑎,𝑙)

Proof of Theorem aks6d1c6lem2

Dummy variables 𝑤 𝑜 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		aks6d1c6.18	. . 3 ⊢ 𝐷 = (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
2		aks6d1c6.13	. . . . . 6 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
3		fvexd 6849	. . . . . 6 ⊢ (𝜑 → (ℤRHom‘(ℤ/nℤ‘𝑅)) ∈ V)
4	2, 3	eqeltrid 2840	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ V)
5	4	imaexd 7858	. . . 4 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V)
6		hashxrcl 14280	. . . 4 ⊢ ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
7	5, 6	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
8	1, 7	eqeltrid 2840	. 2 ⊢ (𝜑 → 𝐷 ∈ ℝ*)
9		aks6d1c6lem2.5	. . . . . 6 ⊢ 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀))
10	9	a1i 11	. . . . 5 ⊢ (𝜑 → 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)))
11		nn0ex 12407	. . . . . . . 8 ⊢ ℕ0 ∈ V
12	11	a1i 11	. . . . . . 7 ⊢ (𝜑 → ℕ0 ∈ V)
13	12, 12	xpexd 7696	. . . . . 6 ⊢ (𝜑 → (ℕ0 × ℕ0) ∈ V)
14	13	mptexd 7170	. . . . 5 ⊢ (𝜑 → (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
15	10, 14	eqeltrd 2836	. . . 4 ⊢ (𝜑 → 𝐽 ∈ V)
16	15	imaexd 7858	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ∈ V)
17		hashxrcl 14280	. . 3 ⊢ ((𝐽 “ (ℕ0 × ℕ0)) ∈ V → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
18	16, 17	syl 17	. 2 ⊢ (𝜑 → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
19		fvexd 6849	. . . . 5 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
20		cnvexg 7866	. . . . 5 ⊢ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
21	19, 20	syl 17	. . . 4 ⊢ (𝜑 → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
22	21	imaexd 7858	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
23		hashxrcl 14280	. . 3 ⊢ ((◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V → (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})) ∈ ℝ*)
24	22, 23	syl 17	. 2 ⊢ (𝜑 → (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})) ∈ ℝ*)
25	1	a1i 11	. . 3 ⊢ (𝜑 → 𝐷 = (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
26		aks6d1c6lem2.6	. . 3 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(𝐽 “ (ℕ0 × ℕ0))))
27	25, 26	eqbrtrd 5120	. 2 ⊢ (𝜑 → 𝐷 ≤ (♯‘(𝐽 “ (ℕ0 × ℕ0))))
28	22	elexd 3464	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
29		nfv 1915	. . . 4 ⊢ Ⅎ𝑤𝜑
30		ovexd 7393	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
31	30, 9	fmptd 7059	. . . . 5 ⊢ (𝜑 → 𝐽:(ℕ0 × ℕ0)⟶V)
32		ffun 6665	. . . . 5 ⊢ (𝐽:(ℕ0 × ℕ0)⟶V → Fun 𝐽)
33	31, 32	syl 17	. . . 4 ⊢ (𝜑 → Fun 𝐽)
34	9	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)))
35		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → 𝑗 = 𝑤)
36	35	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → (𝐸‘𝑗) = (𝐸‘𝑤))
37	36	oveq1d 7373	. . . . . 6 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
38		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑤 ∈ (ℕ0 × ℕ0))
39		ovexd 7393	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
40	34, 37, 38, 39	fvmptd 6948	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
41		eqid 2736	. . . . . . . . . 10 ⊢ (eval1‘𝐾) = (eval1‘𝐾)
42		eqid 2736	. . . . . . . . . 10 ⊢ (Poly1‘𝐾) = (Poly1‘𝐾)
43		eqid 2736	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
44		eqid 2736	. . . . . . . . . 10 ⊢ (Base‘(Poly1‘𝐾)) = (Base‘(Poly1‘𝐾))
45		aks6d1c6.3	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
46	45	fldcrngd 20675	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ CRing)
47	46	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ CRing)
48		eqid 2736	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
49	48, 43	mgpbas 20080	. . . . . . . . . . 11 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
50		eqid 2736	. . . . . . . . . . 11 ⊢ (.g‘(mulGrp‘𝐾)) = (.g‘(mulGrp‘𝐾))
51	46	crngringd 20181	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ Ring)
52	48	ringmgp 20174	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Ring → (mulGrp‘𝐾) ∈ Mnd)
53	51, 52	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ Mnd)
54	53	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (mulGrp‘𝐾) ∈ Mnd)
55		aks6d1c6.6	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
56		aks6d1c6.4	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∈ ℙ)
57		aks6d1c6.7	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
58		aks6d1c6.12	. . . . . . . . . . . . . 14 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
59	55, 56, 57, 58	aks6d1c2p1 42372	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
60	59	ffvelcdmda 7029	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ)
61	60	nnnn0d 12462	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ0)
62		aks6d1c6.16	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
63	48	crngmgp 20176	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
64	46, 63	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
65		aks6d1c6.5	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑅 ∈ ℕ)
66	65	nnnn0d 12462	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
67	64, 66, 50	isprimroot 42347	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅) ↔ (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) ∧ ∀𝑜 ∈ ℕ0 ((𝑜(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑜))))
68	62, 67	mpbid 232	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑀 ∈ (Base‘(mulGrp‘𝐾)) ∧ (𝑅(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) ∧ ∀𝑜 ∈ ℕ0 ((𝑜(.g‘(mulGrp‘𝐾))𝑀) = (0g‘(mulGrp‘𝐾)) → 𝑅 ∥ 𝑜)))
69	68	simp1d 1142	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (Base‘(mulGrp‘𝐾)))
70	69, 49	eleqtrrdi 2847	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ (Base‘𝐾))
71	70	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑀 ∈ (Base‘𝐾))
72	49, 50, 54, 61, 71	mulgnn0cld 19025	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (Base‘𝐾))
73		aks6d1c6.2	. . . . . . . . . . . . . 14 ⊢ 𝑃 = (chr‘𝐾)
74		aks6d1c6.11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
75		aks6d1c6.9	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 < 𝑃)
76		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (var1‘𝐾) = (var1‘𝐾)
77		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (.g‘(mulGrp‘(Poly1‘𝐾))) = (.g‘(mulGrp‘(Poly1‘𝐾)))
78		aks6d1c6.10	. . . . . . . . . . . . . 14 ⊢ 𝐺 = (𝑔 ∈ (ℕ0 ↑m (0...𝐴)) ↦ ((mulGrp‘(Poly1‘𝐾)) Σg (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(.g‘(mulGrp‘(Poly1‘𝐾)))((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
79	45, 56, 73, 74, 75, 76, 77, 78	aks6d1c5lem0 42389	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺:(ℕ0 ↑m (0...𝐴))⟶(Base‘(Poly1‘𝐾)))
80		aks6d1c6lem2.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ 𝑆)
81		aks6d1c6.19	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)}
82	81	eleq2i 2828	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ 𝑆 ↔ 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
83	80, 82	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
84		elrabi 3642	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} → 𝑈 ∈ (ℕ0 ↑m (0...𝐴)))
85	84	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} → 𝑈 ∈ (ℕ0 ↑m (0...𝐴))))
86	83, 85	mpd 15	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ (ℕ0 ↑m (0...𝐴)))
87	79, 86	ffvelcdmd 7030	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
88	87	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
89		eqidd 2737	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
90	88, 89	jca 511	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
91		aks6d1c6lem2.2	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 ∈ 𝑆)
92	81	eleq2i 2828	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ 𝑆 ↔ 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
93	91, 92	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
94		elrabi 3642	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} → 𝑉 ∈ (ℕ0 ↑m (0...𝐴)))
95	94	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} → 𝑉 ∈ (ℕ0 ↑m (0...𝐴))))
96	93, 95	mpd 15	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑉 ∈ (ℕ0 ↑m (0...𝐴)))
97	79, 96	ffvelcdmd 7030	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
98	97	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
99		eqidd 2737	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
100	98, 99	jca 511	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
101		eqid 2736	. . . . . . . . . 10 ⊢ (-g‘(Poly1‘𝐾)) = (-g‘(Poly1‘𝐾))
102		eqid 2736	. . . . . . . . . 10 ⊢ (-g‘𝐾) = (-g‘𝐾)
103	41, 42, 43, 44, 47, 72, 90, 100, 101, 102	evl1subd 22286	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)) ∈ (Base‘(Poly1‘𝐾)) ∧ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))(-g‘𝐾)(((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))))
104	103	simprd 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))(-g‘𝐾)(((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
105		fveq2 6834	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
106	105	oveq2d 7374	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)))
107		oveq2 7366	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
108	107	fveq2d 6838	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
109	106, 108	eqeq12d 2752	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
110		vex 3444	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑘 ∈ V
111		vex 3444	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑙 ∈ V
112	110, 111	op1std 7943	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑠) = 𝑘)
113	112	oveq2d 7374	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑠)) = (𝑃↑𝑘))
114	110, 111	op2ndd 7944	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑠) = 𝑙)
115	114	oveq2d 7374	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑𝑙))
116	113, 115	oveq12d 7376	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
117	116	mpompt 7472	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
118	58	eqcomi 2745	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = 𝐸
119	117, 118	eqtri 2759	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = 𝐸
120	119	eqcomi 2745	. . . . . . . . . . . . . . . . 17 ⊢ 𝐸 = (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))))
121	120	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐸 = (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))))
122		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → 𝑠 = 𝑤)
123	122	fveq2d 6838	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (1st ‘𝑠) = (1st ‘𝑤))
124	123	oveq2d 7374	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (𝑃↑(1st ‘𝑠)) = (𝑃↑(1st ‘𝑤)))
125	122	fveq2d 6838	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (2nd ‘𝑠) = (2nd ‘𝑤))
126	125	oveq2d 7374	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑(2nd ‘𝑤)))
127	124, 126	oveq12d 7376	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))))
128		ovexd 7393	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∈ V)
129	121, 127, 38, 128	fvmptd 6948	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) = ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))))
130		aks6d1c6.1	. . . . . . . . . . . . . . . 16 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))}
131	45	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ Field)
132	56	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℙ)
133	65	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑅 ∈ ℕ)
134	55	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑁 ∈ ℕ)
135	57	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑃 ∥ 𝑁)
136		aks6d1c6.8	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
137	136	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝑁 gcd 𝑅) = 1)
138		ovexd 7393	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (0...𝐴) ∈ V)
139	12, 138	elmapd 8777	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑈 ∈ (ℕ0 ↑m (0...𝐴)) ↔ 𝑈:(0...𝐴)⟶ℕ0))
140	86, 139	mpbid 232	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑈:(0...𝐴)⟶ℕ0)
141	140	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑈:(0...𝐴)⟶ℕ0)
142	74	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐴 ∈ ℕ0)
143		xp1st 7965	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (1st ‘𝑤) ∈ ℕ0)
144	143	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑤) ∈ ℕ0)
145		xp2nd 7966	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑤) ∈ ℕ0)
146	145	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑤) ∈ ℕ0)
147		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) = ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤)))
148		aks6d1c6.14	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
149	148	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
150		aks6d1c6.15	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
151	150	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
152	130, 73, 131, 132, 133, 134, 135, 137, 141, 78, 142, 144, 146, 147, 149, 151	aks6d1c1rh 42379	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑈))
153	129, 152	eqbrtrd 5120	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑈))
154	130, 88, 60	aks6d1c1p1 42361	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤) ∼ (𝐺‘𝑈) ↔ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦))))
155	153, 154	mpbid 232	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)))
156	62	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
157	109, 155, 156	rspcdva 3577	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
158	157	eqcomd 2742	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)))
159		aks6d1c6.17	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀))
160	159	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
161	160	reseq1d 5937	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆))
162	81	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
163		ssrab2 4032	. . . . . . . . . . . . . . . . . . . 20 ⊢ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} ⊆ (ℕ0 ↑m (0...𝐴))
164	163	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)} ⊆ (ℕ0 ↑m (0...𝐴)))
165	162, 164	eqsstrd 3968	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑆 ⊆ (ℕ0 ↑m (0...𝐴)))
166	165	resmptd 5999	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
167	161, 166	eqtrd 2771	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
168		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ℎ = 𝑈)
169	168	fveq2d 6838	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (𝐺‘ℎ) = (𝐺‘𝑈))
170	169	fveq2d 6838	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑈)))
171	170	fveq1d 6836	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
172		fvexd 6849	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) ∈ V)
173	167, 171, 80, 172	fvmptd 6948	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
174	173	eqcomd 2742	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = ((𝐻 ↾ 𝑆)‘𝑈))
175		aks6d1c6lem2.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = ((𝐻 ↾ 𝑆)‘𝑉))
176		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ℎ = 𝑉)
177	176	fveq2d 6838	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (𝐺‘ℎ) = (𝐺‘𝑉))
178	177	fveq2d 6838	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑉)))
179	178	fveq1d 6836	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
180		fvexd 6849	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀) ∈ V)
181	167, 179, 91, 180	fvmptd 6948	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑉) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
182	174, 175, 181	3eqtrd 2775	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
183	182	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
184	183	oveq2d 7374	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
185	158, 184	eqtrd 2771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
186		fveq2 6834	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
187	186	oveq2d 7374	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
188	107	fveq2d 6838	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
189	187, 188	eqeq12d 2752	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
190	12, 138	elmapd 8777	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑉 ∈ (ℕ0 ↑m (0...𝐴)) ↔ 𝑉:(0...𝐴)⟶ℕ0))
191	96, 190	mpbid 232	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉:(0...𝐴)⟶ℕ0)
192	191	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑉:(0...𝐴)⟶ℕ0)
193	130, 73, 131, 132, 133, 134, 135, 137, 192, 78, 142, 144, 146, 147, 149, 151	aks6d1c1rh 42379	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑉))
194	129, 193	eqbrtrd 5120	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑉))
195	130, 98, 60	aks6d1c1p1 42361	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤) ∼ (𝐺‘𝑉) ↔ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦))))
196	194, 195	mpbid 232	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)))
197	189, 196, 156	rspcdva 3577	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
198	185, 197	eqtrd 2771	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
199	46	crnggrpd 20182	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ Grp)
200	199	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ Grp)
201	41, 42, 43, 44, 47, 72, 88	fveval1fvcl 22277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
202	41, 42, 43, 44, 47, 72, 98	fveval1fvcl 22277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
203		eqid 2736	. . . . . . . . . . 11 ⊢ (0g‘𝐾) = (0g‘𝐾)
204	43, 203, 102	grpsubeq0 18956	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Grp ∧ (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾) ∧ (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾)) → (((((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))(-g‘𝐾)(((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))) = (0g‘𝐾) ↔ (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
205	200, 201, 202, 204	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))(-g‘𝐾)(((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))) = (0g‘𝐾) ↔ (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
206	198, 205	mpbird 257	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))(-g‘𝐾)(((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))) = (0g‘𝐾))
207	104, 206	eqtrd 2771	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (0g‘𝐾))
208		fvexd 6849	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
209		elsng 4594	. . . . . . . 8 ⊢ ((((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V → ((((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ {(0g‘𝐾)} ↔ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (0g‘𝐾)))
210	208, 209	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ {(0g‘𝐾)} ↔ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (0g‘𝐾)))
211	207, 210	mpbird 257	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ {(0g‘𝐾)})
212		eqid 2736	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ↑s (Base‘𝐾)) = (𝐾 ↑s (Base‘𝐾))
213	41, 42, 212, 43	evl1rhm 22276	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ CRing → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
214	46, 213	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
215		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (Base‘(𝐾 ↑s (Base‘𝐾))) = (Base‘(𝐾 ↑s (Base‘𝐾)))
216	44, 215	rhmf 20420	. . . . . . . . . . . . 13 ⊢ ((eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))) → (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶(Base‘(𝐾 ↑s (Base‘𝐾))))
217	214, 216	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶(Base‘(𝐾 ↑s (Base‘𝐾))))
218		fvexd 6849	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
219	212, 43	pwsbas 17407	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Field ∧ (Base‘𝐾) ∈ V) → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
220	45, 218, 219	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
221	220	feq3d 6647	. . . . . . . . . . . 12 ⊢ (𝜑 → ((eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶((Base‘𝐾) ↑m (Base‘𝐾)) ↔ (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶(Base‘(𝐾 ↑s (Base‘𝐾)))))
222	217, 221	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → (eval1‘𝐾):(Base‘(Poly1‘𝐾))⟶((Base‘𝐾) ↑m (Base‘𝐾)))
223	42	ply1ring 22188	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (Poly1‘𝐾) ∈ Ring)
224	51, 223	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Ring)
225		ringgrp 20173	. . . . . . . . . . . . 13 ⊢ ((Poly1‘𝐾) ∈ Ring → (Poly1‘𝐾) ∈ Grp)
226	224, 225	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Grp)
227	44, 101	grpsubcl 18950	. . . . . . . . . . . 12 ⊢ (((Poly1‘𝐾) ∈ Grp ∧ (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)) ∧ (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾))) → ((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)) ∈ (Base‘(Poly1‘𝐾)))
228	226, 87, 97, 227	syl3anc 1373	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)) ∈ (Base‘(Poly1‘𝐾)))
229	222, 228	ffvelcdmd 7030	. . . . . . . . . 10 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)))
230	218, 218	elmapd 8777	. . . . . . . . . 10 ⊢ (𝜑 → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)) ↔ ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))):(Base‘𝐾)⟶(Base‘𝐾)))
231	229, 230	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))):(Base‘𝐾)⟶(Base‘𝐾))
232	231	ffund 6666	. . . . . . . 8 ⊢ (𝜑 → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
233	232	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
234	231	ffnd 6663	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
235	234	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
236	235	fndmd 6597	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) = (Base‘𝐾))
237	236	eqcomd 2742	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (Base‘𝐾) = dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
238	72, 237	eleqtrd 2838	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
239		fvimacnv 6998	. . . . . . 7 ⊢ ((Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∧ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))) → ((((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ {(0g‘𝐾)} ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
240	233, 238, 239	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ {(0g‘𝐾)} ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
241	211, 240	mpbid 232	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
242	40, 241	eqeltrd 2836	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
243	29, 33, 242	funimassd 6900	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ⊆ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
244		hashss 14332	. . 3 ⊢ (((◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V ∧ (𝐽 “ (ℕ0 × ℕ0)) ⊆ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})) → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
245	28, 243, 244	syl2anc 584	. 2 ⊢ (𝜑 → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
246	8, 18, 24, 27, 245	xrletrd 13076	1 ⊢ (𝜑 → 𝐷 ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ≠ wne 2932  ∀wral 3051  {crab 3399  Vcvv 3440   ⊆ wss 3901  {csn 4580  ⟨cop 4586   class class class wbr 5098  {copab 5160   ↦ cmpt 5179   × cxp 5622  ^◡ccnv 5623  dom cdm 5624   ↾ cres 5626   “ cima 5627  Fun wfun 6486   Fn wfn 6487  ⟶wf 6488  ‘cfv 6492  (class class class)co 7358   ∈ cmpo 7360  1^st c1st 7931  2^nd c2nd 7932   ↑_m cmap 8763  0cc0 11026  1c1 11027   · cmul 11031  ℝ^*cxr 11165   < clt 11166   ≤ cle 11167   − cmin 11364   / cdiv 11794  ℕcn 12145  ℕ₀cn0 12401  ...cfz 13423  ↑cexp 13984  ♯chash 14253  Σcsu 15609   ∥ cdvds 16179   gcd cgcd 16421  ℙcprime 16598  Basecbs 17136  +_gcplusg 17177  0_gc0g 17359   Σ_g cgsu 17360   ↑_s cpws 17366  Mndcmnd 18659  Grpcgrp 18863  -_gcsg 18865  ._gcmg 18997  CMndccmn 19709  mulGrpcmgp 20075  Ringcrg 20168  CRingccrg 20169   RingHom crh 20405   RingIso crs 20406  Fieldcfield 20663  ℤRHomczrh 21454  chrcchr 21456  ℤ/nℤczn 21457  algSccascl 21807  var₁cv1 22116  Poly₁cpl1 22117  eval₁ce1 22258   PrimRoots cprimroots 42345

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-rep 5224  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680  ax-cnex 11082  ax-resscn 11083  ax-1cn 11084  ax-icn 11085  ax-addcl 11086  ax-addrcl 11087  ax-mulcl 11088  ax-mulrcl 11089  ax-mulcom 11090  ax-addass 11091  ax-mulass 11092  ax-distr 11093  ax-i2m1 11094  ax-1ne0 11095  ax-1rid 11096  ax-rnegex 11097  ax-rrecex 11098  ax-cnre 11099  ax-pre-lttri 11100  ax-pre-lttrn 11101  ax-pre-ltadd 11102  ax-pre-mulgt0 11103  ax-pre-sup 11104  ax-addf 11105  ax-mulf 11106

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-tp 4585  df-op 4587  df-uni 4864  df-int 4903  df-iun 4948  df-iin 4949  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-ofr 7623  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8103  df-tpos 8168  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-2o 8398  df-oadd 8401  df-er 8635  df-map 8765  df-pm 8766  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-sup 9345  df-inf 9346  df-oi 9415  df-dju 9813  df-card 9851  df-pnf 11168  df-mnf 11169  df-xr 11170  df-ltxr 11171  df-le 11172  df-sub 11366  df-neg 11367  df-div 11795  df-nn 12146  df-2 12208  df-3 12209  df-4 12210  df-5 12211  df-6 12212  df-7 12213  df-8 12214  df-9 12215  df-n0 12402  df-xnn0 12475  df-z 12489  df-dec 12608  df-uz 12752  df-rp 12906  df-fz 13424  df-fzo 13571  df-fl 13712  df-mod 13790  df-seq 13925  df-exp 13985  df-fac 14197  df-bc 14226  df-hash 14254  df-cj 15022  df-re 15023  df-im 15024  df-sqrt 15158  df-abs 15159  df-dvds 16180  df-gcd 16422  df-prm 16599  df-phi 16693  df-struct 17074  df-sets 17091  df-slot 17109  df-ndx 17121  df-base 17137  df-ress 17158  df-plusg 17190  df-mulr 17191  df-starv 17192  df-sca 17193  df-vsca 17194  df-ip 17195  df-tset 17196  df-ple 17197  df-ds 17199  df-unif 17200  df-hom 17201  df-cco 17202  df-0g 17361  df-gsum 17362  df-prds 17367  df-pws 17369  df-mre 17505  df-mrc 17506  df-acs 17508  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-mhm 18708  df-submnd 18709  df-grp 18866  df-minusg 18867  df-sbg 18868  df-mulg 18998  df-subg 19053  df-ghm 19142  df-cntz 19246  df-od 19457  df-cmn 19711  df-abl 19712  df-mgp 20076  df-rng 20088  df-ur 20117  df-srg 20122  df-ring 20170  df-cring 20171  df-oppr 20273  df-dvdsr 20293  df-unit 20294  df-invr 20324  df-dvr 20337  df-rhm 20408  df-rim 20409  df-subrng 20479  df-subrg 20503  df-drng 20664  df-field 20665  df-lmod 20813  df-lss 20883  df-lsp 20923  df-cnfld 21310  df-zring 21402  df-zrh 21458  df-chr 21460  df-assa 21808  df-asp 21809  df-ascl 21810  df-psr 21865  df-mvr 21866  df-mpl 21867  df-opsr 21869  df-evls 22029  df-evl 22030  df-psr1 22120  df-vr1 22121  df-ply1 22122  df-coe1 22123  df-evl1 22260  df-primroots 42346

This theorem is referenced by:  aks6d1c6lem3  42426