Theorem aks6d1c6lem2 42337

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 6846	. . . . . 6 ⊢ (𝜑 → (ℤRHom‘(ℤ/nℤ‘𝑅)) ∈ V)
4	2, 3	eqeltrid 2837	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ V)
5	4	imaexd 7855	. . . 4 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V)
6		hashxrcl 14271	. . . 4 ⊢ ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
7	5, 6	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
8	1, 7	eqeltrid 2837	. 2 ⊢ (𝜑 → 𝐷 ∈ ℝ*)
9		aks6d1c6lem2.5	. . . . . 6 ⊢ 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀))
10	9	a1i 11	. . . . 5 ⊢ (𝜑 → 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)))
11		nn0ex 12398	. . . . . . . 8 ⊢ ℕ0 ∈ V
12	11	a1i 11	. . . . . . 7 ⊢ (𝜑 → ℕ0 ∈ V)
13	12, 12	xpexd 7693	. . . . . 6 ⊢ (𝜑 → (ℕ0 × ℕ0) ∈ V)
14	13	mptexd 7167	. . . . 5 ⊢ (𝜑 → (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
15	10, 14	eqeltrd 2833	. . . 4 ⊢ (𝜑 → 𝐽 ∈ V)
16	15	imaexd 7855	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ∈ V)
17		hashxrcl 14271	. . 3 ⊢ ((𝐽 “ (ℕ0 × ℕ0)) ∈ V → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
18	16, 17	syl 17	. 2 ⊢ (𝜑 → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
19		fvexd 6846	. . . . 5 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
20		cnvexg 7863	. . . . 5 ⊢ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
21	19, 20	syl 17	. . . 4 ⊢ (𝜑 → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
22	21	imaexd 7855	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
23		hashxrcl 14271	. . 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 5117	. 2 ⊢ (𝜑 → 𝐷 ≤ (♯‘(𝐽 “ (ℕ0 × ℕ0))))
28	22	elexd 3461	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
29		nfv 1915	. . . 4 ⊢ Ⅎ𝑤𝜑
30		ovexd 7390	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
31	30, 9	fmptd 7056	. . . . 5 ⊢ (𝜑 → 𝐽:(ℕ0 × ℕ0)⟶V)
32		ffun 6662	. . . . 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 6835	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → (𝐸‘𝑗) = (𝐸‘𝑤))
37	36	oveq1d 7370	. . . . . 6 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
38		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑤 ∈ (ℕ0 × ℕ0))
39		ovexd 7390	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
40	34, 37, 38, 39	fvmptd 6945	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
41		eqid 2733	. . . . . . . . . 10 ⊢ (eval1‘𝐾) = (eval1‘𝐾)
42		eqid 2733	. . . . . . . . . 10 ⊢ (Poly1‘𝐾) = (Poly1‘𝐾)
43		eqid 2733	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
44		eqid 2733	. . . . . . . . . 10 ⊢ (Base‘(Poly1‘𝐾)) = (Base‘(Poly1‘𝐾))
45		aks6d1c6.3	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
46	45	fldcrngd 20666	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ CRing)
47	46	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ CRing)
48		eqid 2733	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
49	48, 43	mgpbas 20071	. . . . . . . . . . 11 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
50		eqid 2733	. . . . . . . . . . 11 ⊢ (.g‘(mulGrp‘𝐾)) = (.g‘(mulGrp‘𝐾))
51	46	crngringd 20172	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ Ring)
52	48	ringmgp 20165	. . . . . . . . . . . . 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 42284	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
60	59	ffvelcdmda 7026	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ)
61	60	nnnn0d 12453	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ0)
62		aks6d1c6.16	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
63	48	crngmgp 20167	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
64	46, 63	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
65		aks6d1c6.5	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑅 ∈ ℕ)
66	65	nnnn0d 12453	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
67	64, 66, 50	isprimroot 42259	. . . . . . . . . . . . . . 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 2844	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ (Base‘𝐾))
71	70	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑀 ∈ (Base‘𝐾))
72	49, 50, 54, 61, 71	mulgnn0cld 19016	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (Base‘𝐾))
73		aks6d1c6.2	. . . . . . . . . . . . . 14 ⊢ 𝑃 = (chr‘𝐾)
74		aks6d1c6.11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
75		aks6d1c6.9	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 < 𝑃)
76		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (var1‘𝐾) = (var1‘𝐾)
77		eqid 2733	. . . . . . . . . . . . . 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 42301	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺:(ℕ0 ↑m (0...𝐴))⟶(Base‘(Poly1‘𝐾)))
80		aks6d1c6lem2.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ 𝑆)
81		aks6d1c6.19	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)}
82	81	eleq2i 2825	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ 𝑆 ↔ 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
83	80, 82	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
84		elrabi 3639	. . . . . . . . . . . . . . 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 7027	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
88	87	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
89		eqidd 2734	. . . . . . . . . . 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 2825	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ 𝑆 ↔ 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
93	91, 92	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
94		elrabi 3639	. . . . . . . . . . . . . . 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 7027	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
98	97	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
99		eqidd 2734	. . . . . . . . . . 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 2733	. . . . . . . . . 10 ⊢ (-g‘(Poly1‘𝐾)) = (-g‘(Poly1‘𝐾))
102		eqid 2733	. . . . . . . . . 10 ⊢ (-g‘𝐾) = (-g‘𝐾)
103	41, 42, 43, 44, 47, 72, 90, 100, 101, 102	evl1subd 22277	. . . . . . . . 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 6831	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
106	105	oveq2d 7371	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)))
107		oveq2 7363	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
108	107	fveq2d 6835	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
109	106, 108	eqeq12d 2749	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
110		vex 3441	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑘 ∈ V
111		vex 3441	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑙 ∈ V
112	110, 111	op1std 7940	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑠) = 𝑘)
113	112	oveq2d 7371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑠)) = (𝑃↑𝑘))
114	110, 111	op2ndd 7941	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑠) = 𝑙)
115	114	oveq2d 7371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑𝑙))
116	113, 115	oveq12d 7373	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
117	116	mpompt 7469	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
118	58	eqcomi 2742	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = 𝐸
119	117, 118	eqtri 2756	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = 𝐸
120	119	eqcomi 2742	. . . . . . . . . . . . . . . . 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 6835	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (1st ‘𝑠) = (1st ‘𝑤))
124	123	oveq2d 7371	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (𝑃↑(1st ‘𝑠)) = (𝑃↑(1st ‘𝑤)))
125	122	fveq2d 6835	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (2nd ‘𝑠) = (2nd ‘𝑤))
126	125	oveq2d 7371	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑(2nd ‘𝑤)))
127	124, 126	oveq12d 7373	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))))
128		ovexd 7390	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∈ V)
129	121, 127, 38, 128	fvmptd 6945	. . . . . . . . . . . . . . 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 7390	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (0...𝐴) ∈ V)
139	12, 138	elmapd 8773	. . . . . . . . . . . . . . . . . 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 7962	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (1st ‘𝑤) ∈ ℕ0)
144	143	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑤) ∈ ℕ0)
145		xp2nd 7963	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑤) ∈ ℕ0)
146	145	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑤) ∈ ℕ0)
147		eqid 2733	. . . . . . . . . . . . . . . 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 42291	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑈))
153	129, 152	eqbrtrd 5117	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑈))
154	130, 88, 60	aks6d1c1p1 42273	. . . . . . . . . . . . . 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 3574	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
158	157	eqcomd 2739	. . . . . . . . . . 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 5934	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆))
162	81	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
163		ssrab2 4029	. . . . . . . . . . . . . . . . . . . 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 3965	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑆 ⊆ (ℕ0 ↑m (0...𝐴)))
166	165	resmptd 5996	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
167	161, 166	eqtrd 2768	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
168		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ℎ = 𝑈)
169	168	fveq2d 6835	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (𝐺‘ℎ) = (𝐺‘𝑈))
170	169	fveq2d 6835	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑈)))
171	170	fveq1d 6833	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
172		fvexd 6846	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) ∈ V)
173	167, 171, 80, 172	fvmptd 6945	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
174	173	eqcomd 2739	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = ((𝐻 ↾ 𝑆)‘𝑈))
175		aks6d1c6lem2.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = ((𝐻 ↾ 𝑆)‘𝑉))
176		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ℎ = 𝑉)
177	176	fveq2d 6835	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (𝐺‘ℎ) = (𝐺‘𝑉))
178	177	fveq2d 6835	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑉)))
179	178	fveq1d 6833	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
180		fvexd 6846	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀) ∈ V)
181	167, 179, 91, 180	fvmptd 6945	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑉) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
182	174, 175, 181	3eqtrd 2772	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
183	182	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
184	183	oveq2d 7371	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
185	158, 184	eqtrd 2768	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
186		fveq2 6831	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
187	186	oveq2d 7371	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
188	107	fveq2d 6835	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
189	187, 188	eqeq12d 2749	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
190	12, 138	elmapd 8773	. . . . . . . . . . . . . . . 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 42291	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑉))
194	129, 193	eqbrtrd 5117	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑉))
195	130, 98, 60	aks6d1c1p1 42273	. . . . . . . . . . . 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 3574	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
198	185, 197	eqtrd 2768	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
199	46	crnggrpd 20173	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ Grp)
200	199	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ Grp)
201	41, 42, 43, 44, 47, 72, 88	fveval1fvcl 22268	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
202	41, 42, 43, 44, 47, 72, 98	fveval1fvcl 22268	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
203		eqid 2733	. . . . . . . . . . 11 ⊢ (0g‘𝐾) = (0g‘𝐾)
204	43, 203, 102	grpsubeq0 18947	. . . . . . . . . 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 2768	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (0g‘𝐾))
208		fvexd 6846	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
209		elsng 4591	. . . . . . . 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 2733	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ↑s (Base‘𝐾)) = (𝐾 ↑s (Base‘𝐾))
213	41, 42, 212, 43	evl1rhm 22267	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ CRing → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
214	46, 213	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
215		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (Base‘(𝐾 ↑s (Base‘𝐾))) = (Base‘(𝐾 ↑s (Base‘𝐾)))
216	44, 215	rhmf 20411	. . . . . . . . . . . . 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 6846	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
219	212, 43	pwsbas 17398	. . . . . . . . . . . . . 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 6644	. . . . . . . . . . . 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 22179	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (Poly1‘𝐾) ∈ Ring)
224	51, 223	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Ring)
225		ringgrp 20164	. . . . . . . . . . . . 13 ⊢ ((Poly1‘𝐾) ∈ Ring → (Poly1‘𝐾) ∈ Grp)
226	224, 225	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Grp)
227	44, 101	grpsubcl 18941	. . . . . . . . . . . 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 7027	. . . . . . . . . 10 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)))
230	218, 218	elmapd 8773	. . . . . . . . . 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 6663	. . . . . . . 8 ⊢ (𝜑 → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
233	232	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
234	231	ffnd 6660	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
235	234	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
236	235	fndmd 6594	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) = (Base‘𝐾))
237	236	eqcomd 2739	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (Base‘𝐾) = dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
238	72, 237	eleqtrd 2835	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
239		fvimacnv 6995	. . . . . . 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 2833	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
243	29, 33, 242	funimassd 6897	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ⊆ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
244		hashss 14323	. . 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 13067	1 ⊢ (𝜑 → 𝐷 ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ≠ wne 2929  ∀wral 3048  {crab 3396  Vcvv 3437   ⊆ wss 3898  {csn 4577  ⟨cop 4583   class class class wbr 5095  {copab 5157   ↦ cmpt 5176   × cxp 5619  ^◡ccnv 5620  dom cdm 5621   ↾ cres 5623   “ cima 5624  Fun wfun 6483   Fn wfn 6484  ⟶wf 6485  ‘cfv 6489  (class class class)co 7355   ∈ cmpo 7357  1^st c1st 7928  2^nd c2nd 7929   ↑_m cmap 8759  0cc0 11017  1c1 11018   · cmul 11022  ℝ^*cxr 11156   < clt 11157   ≤ cle 11158   − cmin 11355   / cdiv 11785  ℕcn 12136  ℕ₀cn0 12392  ...cfz 13414  ↑cexp 13975  ♯chash 14244  Σcsu 15600   ∥ cdvds 16170   gcd cgcd 16412  ℙcprime 16589  Basecbs 17127  +_gcplusg 17168  0_gc0g 17350   Σ_g cgsu 17351   ↑_s cpws 17357  Mndcmnd 18650  Grpcgrp 18854  -_gcsg 18856  ._gcmg 18988  CMndccmn 19700  mulGrpcmgp 20066  Ringcrg 20159  CRingccrg 20160   RingHom crh 20396   RingIso crs 20397  Fieldcfield 20654  ℤRHomczrh 21445  chrcchr 21447  ℤ/nℤczn 21448  algSccascl 21798  var₁cv1 22107  Poly₁cpl1 22108  eval₁ce1 22249   PrimRoots cprimroots 42257

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 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677  ax-cnex 11073  ax-resscn 11074  ax-1cn 11075  ax-icn 11076  ax-addcl 11077  ax-addrcl 11078  ax-mulcl 11079  ax-mulrcl 11080  ax-mulcom 11081  ax-addass 11082  ax-mulass 11083  ax-distr 11084  ax-i2m1 11085  ax-1ne0 11086  ax-1rid 11087  ax-rnegex 11088  ax-rrecex 11089  ax-cnre 11090  ax-pre-lttri 11091  ax-pre-lttrn 11092  ax-pre-ltadd 11093  ax-pre-mulgt0 11094  ax-pre-sup 11095  ax-addf 11096  ax-mulf 11097

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 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-uni 4861  df-int 4900  df-iun 4945  df-iin 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7312  df-ov 7358  df-oprab 7359  df-mpo 7360  df-of 7619  df-ofr 7620  df-om 7806  df-1st 7930  df-2nd 7931  df-supp 8100  df-tpos 8165  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-rdg 8338  df-1o 8394  df-2o 8395  df-oadd 8398  df-er 8631  df-map 8761  df-pm 8762  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9257  df-sup 9337  df-inf 9338  df-oi 9407  df-dju 9805  df-card 9843  df-pnf 11159  df-mnf 11160  df-xr 11161  df-ltxr 11162  df-le 11163  df-sub 11357  df-neg 11358  df-div 11786  df-nn 12137  df-2 12199  df-3 12200  df-4 12201  df-5 12202  df-6 12203  df-7 12204  df-8 12205  df-9 12206  df-n0 12393  df-xnn0 12466  df-z 12480  df-dec 12599  df-uz 12743  df-rp 12897  df-fz 13415  df-fzo 13562  df-fl 13703  df-mod 13781  df-seq 13916  df-exp 13976  df-fac 14188  df-bc 14217  df-hash 14245  df-cj 15013  df-re 15014  df-im 15015  df-sqrt 15149  df-abs 15150  df-dvds 16171  df-gcd 16413  df-prm 16590  df-phi 16684  df-struct 17065  df-sets 17082  df-slot 17100  df-ndx 17112  df-base 17128  df-ress 17149  df-plusg 17181  df-mulr 17182  df-starv 17183  df-sca 17184  df-vsca 17185  df-ip 17186  df-tset 17187  df-ple 17188  df-ds 17190  df-unif 17191  df-hom 17192  df-cco 17193  df-0g 17352  df-gsum 17353  df-prds 17358  df-pws 17360  df-mre 17496  df-mrc 17497  df-acs 17499  df-mgm 18556  df-sgrp 18635  df-mnd 18651  df-mhm 18699  df-submnd 18700  df-grp 18857  df-minusg 18858  df-sbg 18859  df-mulg 18989  df-subg 19044  df-ghm 19133  df-cntz 19237  df-od 19448  df-cmn 19702  df-abl 19703  df-mgp 20067  df-rng 20079  df-ur 20108  df-srg 20113  df-ring 20161  df-cring 20162  df-oppr 20264  df-dvdsr 20284  df-unit 20285  df-invr 20315  df-dvr 20328  df-rhm 20399  df-rim 20400  df-subrng 20470  df-subrg 20494  df-drng 20655  df-field 20656  df-lmod 20804  df-lss 20874  df-lsp 20914  df-cnfld 21301  df-zring 21393  df-zrh 21449  df-chr 21451  df-assa 21799  df-asp 21800  df-ascl 21801  df-psr 21856  df-mvr 21857  df-mpl 21858  df-opsr 21860  df-evls 22020  df-evl 22021  df-psr1 22111  df-vr1 22112  df-ply1 22113  df-coe1 22114  df-evl1 22251  df-primroots 42258

This theorem is referenced by:  aks6d1c6lem3  42338