Theorem aks6d1c6lem2 42128

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 6935	. . . . . 6 ⊢ (𝜑 → (ℤRHom‘(ℤ/nℤ‘𝑅)) ∈ V)
4	2, 3	eqeltrid 2848	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ V)
5	4	imaexd 7956	. . . 4 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V)
6		hashxrcl 14406	. . . 4 ⊢ ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
7	5, 6	syl 17	. . 3 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ*)
8	1, 7	eqeltrid 2848	. 2 ⊢ (𝜑 → 𝐷 ∈ ℝ*)
9		aks6d1c6lem2.5	. . . . . 6 ⊢ 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀))
10	9	a1i 11	. . . . 5 ⊢ (𝜑 → 𝐽 = (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)))
11		nn0ex 12559	. . . . . . . 8 ⊢ ℕ0 ∈ V
12	11	a1i 11	. . . . . . 7 ⊢ (𝜑 → ℕ0 ∈ V)
13	12, 12	xpexd 7786	. . . . . 6 ⊢ (𝜑 → (ℕ0 × ℕ0) ∈ V)
14	13	mptexd 7261	. . . . 5 ⊢ (𝜑 → (𝑗 ∈ (ℕ0 × ℕ0) ↦ ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
15	10, 14	eqeltrd 2844	. . . 4 ⊢ (𝜑 → 𝐽 ∈ V)
16	15	imaexd 7956	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ∈ V)
17		hashxrcl 14406	. . 3 ⊢ ((𝐽 “ (ℕ0 × ℕ0)) ∈ V → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
18	16, 17	syl 17	. 2 ⊢ (𝜑 → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ∈ ℝ*)
19		fvexd 6935	. . . . 5 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
20		cnvexg 7964	. . . . 5 ⊢ (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
21	19, 20	syl 17	. . . 4 ⊢ (𝜑 → ◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ V)
22	21	imaexd 7956	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
23		hashxrcl 14406	. . 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 5188	. 2 ⊢ (𝜑 → 𝐷 ≤ (♯‘(𝐽 “ (ℕ0 × ℕ0))))
28	22	elexd 3512	. . 3 ⊢ (𝜑 → (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V)
29		nfv 1913	. . . 4 ⊢ Ⅎ𝑤𝜑
30		ovexd 7483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
31	30, 9	fmptd 7148	. . . . 5 ⊢ (𝜑 → 𝐽:(ℕ0 × ℕ0)⟶V)
32		ffun 6750	. . . . 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 6924	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → (𝐸‘𝑗) = (𝐸‘𝑤))
37	36	oveq1d 7463	. . . . . 6 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑗 = 𝑤) → ((𝐸‘𝑗)(.g‘(mulGrp‘𝐾))𝑀) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
38		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑤 ∈ (ℕ0 × ℕ0))
39		ovexd 7483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ V)
40	34, 37, 38, 39	fvmptd 7036	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
41		eqid 2740	. . . . . . . . . 10 ⊢ (eval1‘𝐾) = (eval1‘𝐾)
42		eqid 2740	. . . . . . . . . 10 ⊢ (Poly1‘𝐾) = (Poly1‘𝐾)
43		eqid 2740	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
44		eqid 2740	. . . . . . . . . 10 ⊢ (Base‘(Poly1‘𝐾)) = (Base‘(Poly1‘𝐾))
45		aks6d1c6.3	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
46	45	fldcrngd 20764	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ CRing)
47	46	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ CRing)
48		eqid 2740	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
49	48, 43	mgpbas 20167	. . . . . . . . . . 11 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
50		eqid 2740	. . . . . . . . . . 11 ⊢ (.g‘(mulGrp‘𝐾)) = (.g‘(mulGrp‘𝐾))
51	46	crngringd 20273	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ Ring)
52	48	ringmgp 20266	. . . . . . . . . . . . 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 42075	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
60	59	ffvelcdmda 7118	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ)
61	60	nnnn0d 12613	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∈ ℕ0)
62		aks6d1c6.16	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
63	48	crngmgp 20268	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
64	46, 63	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
65		aks6d1c6.5	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑅 ∈ ℕ)
66	65	nnnn0d 12613	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
67	64, 66, 50	isprimroot 42050	. . . . . . . . . . . . . . 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 2855	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ (Base‘𝐾))
71	70	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝑀 ∈ (Base‘𝐾))
72	49, 50, 54, 61, 71	mulgnn0cld 19135	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ (Base‘𝐾))
73		aks6d1c6.2	. . . . . . . . . . . . . 14 ⊢ 𝑃 = (chr‘𝐾)
74		aks6d1c6.11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
75		aks6d1c6.9	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 < 𝑃)
76		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (var1‘𝐾) = (var1‘𝐾)
77		eqid 2740	. . . . . . . . . . . . . 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 42092	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺:(ℕ0 ↑m (0...𝐴))⟶(Base‘(Poly1‘𝐾)))
80		aks6d1c6lem2.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ 𝑆)
81		aks6d1c6.19	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)}
82	81	eleq2i 2836	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ 𝑆 ↔ 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
83	80, 82	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
84		elrabi 3703	. . . . . . . . . . . . . . 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 7119	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
88	87	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)))
89		eqidd 2741	. . . . . . . . . . 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 2836	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ 𝑆 ↔ 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
93	91, 92	sylib 218	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ∈ {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
94		elrabi 3703	. . . . . . . . . . . . . . 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 7119	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
98	97	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾)))
99		eqidd 2741	. . . . . . . . . . 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 2740	. . . . . . . . . 10 ⊢ (-g‘(Poly1‘𝐾)) = (-g‘(Poly1‘𝐾))
102		eqid 2740	. . . . . . . . . 10 ⊢ (-g‘𝐾) = (-g‘𝐾)
103	41, 42, 43, 44, 47, 72, 90, 100, 101, 102	evl1subd 22367	. . . . . . . . 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 6920	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
106	105	oveq2d 7464	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)))
107		oveq2 7456	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))
108	107	fveq2d 6924	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
109	106, 108	eqeq12d 2756	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
110		vex 3492	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑘 ∈ V
111		vex 3492	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑙 ∈ V
112	110, 111	op1std 8040	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑠) = 𝑘)
113	112	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑠)) = (𝑃↑𝑘))
114	110, 111	op2ndd 8041	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑠) = 𝑙)
115	114	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑𝑙))
116	113, 115	oveq12d 7466	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
117	116	mpompt 7564	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
118	58	eqcomi 2749	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = 𝐸
119	117, 118	eqtri 2768	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠)))) = 𝐸
120	119	eqcomi 2749	. . . . . . . . . . . . . . . . 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 6924	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (1st ‘𝑠) = (1st ‘𝑤))
124	123	oveq2d 7464	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (𝑃↑(1st ‘𝑠)) = (𝑃↑(1st ‘𝑤)))
125	122	fveq2d 6924	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → (2nd ‘𝑠) = (2nd ‘𝑤))
126	125	oveq2d 7464	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑁 / 𝑃)↑(2nd ‘𝑠)) = ((𝑁 / 𝑃)↑(2nd ‘𝑤)))
127	124, 126	oveq12d 7466	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) ∧ 𝑠 = 𝑤) → ((𝑃↑(1st ‘𝑠)) · ((𝑁 / 𝑃)↑(2nd ‘𝑠))) = ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))))
128		ovexd 7483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∈ V)
129	121, 127, 38, 128	fvmptd 7036	. . . . . . . . . . . . . . 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 7483	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (0...𝐴) ∈ V)
139	12, 138	elmapd 8898	. . . . . . . . . . . . . . . . . 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 8062	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (1st ‘𝑤) ∈ ℕ0)
144	143	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑤) ∈ ℕ0)
145		xp2nd 8063	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑤) ∈ ℕ0)
146	145	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑤) ∈ ℕ0)
147		eqid 2740	. . . . . . . . . . . . . . . 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 42082	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑈))
153	129, 152	eqbrtrd 5188	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑈))
154	130, 88, 60	aks6d1c1p1 42064	. . . . . . . . . . . . . 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 3636	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
158	157	eqcomd 2746	. . . . . . . . . . 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 6008	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆))
162	81	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑆 = {𝑠 ∈ (ℕ0 ↑m (0...𝐴)) ∣ Σ𝑡 ∈ (0...𝐴)(𝑠‘𝑡) ≤ (𝐷 − 1)})
163		ssrab2 4103	. . . . . . . . . . . . . . . . . . . 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 4047	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑆 ⊆ (ℕ0 ↑m (0...𝐴)))
166	165	resmptd 6069	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)) ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
167	161, 166	eqtrd 2780	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐻 ↾ 𝑆) = (ℎ ∈ 𝑆 ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀)))
168		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ℎ = 𝑈)
169	168	fveq2d 6924	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (𝐺‘ℎ) = (𝐺‘𝑈))
170	169	fveq2d 6924	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑈) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑈)))
171	170	fveq1d 6922	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑈) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
172		fvexd 6935	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) ∈ V)
173	167, 171, 80, 172	fvmptd 7036	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀))
174	173	eqcomd 2746	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = ((𝐻 ↾ 𝑆)‘𝑈))
175		aks6d1c6lem2.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑈) = ((𝐻 ↾ 𝑆)‘𝑉))
176		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ℎ = 𝑉)
177	176	fveq2d 6924	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (𝐺‘ℎ) = (𝐺‘𝑉))
178	177	fveq2d 6924	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ℎ = 𝑉) → ((eval1‘𝐾)‘(𝐺‘ℎ)) = ((eval1‘𝐾)‘(𝐺‘𝑉)))
179	178	fveq1d 6922	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ℎ = 𝑉) → (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
180		fvexd 6935	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀) ∈ V)
181	167, 179, 91, 180	fvmptd 7036	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 ↾ 𝑆)‘𝑉) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
182	174, 175, 181	3eqtrd 2784	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
183	182	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
184	183	oveq2d 7464	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑈))‘𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
185	158, 184	eqtrd 2780	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
186		fveq2 6920	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀))
187	186	oveq2d 7464	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)))
188	107	fveq2d 6924	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
189	187, 188	eqeq12d 2756	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → (((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑦)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑦)) ↔ ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀))))
190	12, 138	elmapd 8898	. . . . . . . . . . . . . . . 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 42082	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑤)) · ((𝑁 / 𝑃)↑(2nd ‘𝑤))) ∼ (𝐺‘𝑉))
194	129, 193	eqbrtrd 5188	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑤) ∼ (𝐺‘𝑉))
195	130, 98, 60	aks6d1c1p1 42064	. . . . . . . . . . . 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 3636	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘(𝐺‘𝑉))‘𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
198	185, 197	eqtrd 2780	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)))
199	46	crnggrpd 20274	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ Grp)
200	199	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → 𝐾 ∈ Grp)
201	41, 42, 43, 44, 47, 72, 88	fveval1fvcl 22358	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑈))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
202	41, 42, 43, 44, 47, 72, 98	fveval1fvcl 22358	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘(𝐺‘𝑉))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ (Base‘𝐾))
203		eqid 2740	. . . . . . . . . . 11 ⊢ (0g‘𝐾) = (0g‘𝐾)
204	43, 203, 102	grpsubeq0 19066	. . . . . . . . . 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 1371	. . . . . . . . 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 2780	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) = (0g‘𝐾))
208		fvexd 6935	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)))‘((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀)) ∈ V)
209		elsng 4662	. . . . . . . 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 2740	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ↑s (Base‘𝐾)) = (𝐾 ↑s (Base‘𝐾))
213	41, 42, 212, 43	evl1rhm 22357	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ CRing → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
214	46, 213	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (eval1‘𝐾) ∈ ((Poly1‘𝐾) RingHom (𝐾 ↑s (Base‘𝐾))))
215		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (Base‘(𝐾 ↑s (Base‘𝐾))) = (Base‘(𝐾 ↑s (Base‘𝐾)))
216	44, 215	rhmf 20511	. . . . . . . . . . . . 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 6935	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐾) ∈ V)
219	212, 43	pwsbas 17547	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Field ∧ (Base‘𝐾) ∈ V) → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
220	45, 218, 219	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((Base‘𝐾) ↑m (Base‘𝐾)) = (Base‘(𝐾 ↑s (Base‘𝐾))))
221	220	feq3d 6734	. . . . . . . . . . . 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 22270	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (Poly1‘𝐾) ∈ Ring)
224	51, 223	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Ring)
225		ringgrp 20265	. . . . . . . . . . . . 13 ⊢ ((Poly1‘𝐾) ∈ Ring → (Poly1‘𝐾) ∈ Grp)
226	224, 225	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (Poly1‘𝐾) ∈ Grp)
227	44, 101	grpsubcl 19060	. . . . . . . . . . . 12 ⊢ (((Poly1‘𝐾) ∈ Grp ∧ (𝐺‘𝑈) ∈ (Base‘(Poly1‘𝐾)) ∧ (𝐺‘𝑉) ∈ (Base‘(Poly1‘𝐾))) → ((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)) ∈ (Base‘(Poly1‘𝐾)))
228	226, 87, 97, 227	syl3anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉)) ∈ (Base‘(Poly1‘𝐾)))
229	222, 228	ffvelcdmd 7119	. . . . . . . . . 10 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) ∈ ((Base‘𝐾) ↑m (Base‘𝐾)))
230	218, 218	elmapd 8898	. . . . . . . . . 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 6751	. . . . . . . 8 ⊢ (𝜑 → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
233	232	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → Fun ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
234	231	ffnd 6748	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
235	234	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) Fn (Base‘𝐾))
236	235	fndmd 6684	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) = (Base‘𝐾))
237	236	eqcomd 2746	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (Base‘𝐾) = dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
238	72, 237	eleqtrd 2846	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑤)(.g‘(mulGrp‘𝐾))𝑀) ∈ dom ((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))))
239		fvimacnv 7086	. . . . . . 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 583	. . . . . 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 2844	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ (ℕ0 × ℕ0)) → (𝐽‘𝑤) ∈ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
243	29, 33, 242	funimassd 6988	. . 3 ⊢ (𝜑 → (𝐽 “ (ℕ0 × ℕ0)) ⊆ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}))
244		hashss 14458	. . 3 ⊢ (((◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)}) ∈ V ∧ (𝐽 “ (ℕ0 × ℕ0)) ⊆ (◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})) → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
245	28, 243, 244	syl2anc 583	. 2 ⊢ (𝜑 → (♯‘(𝐽 “ (ℕ0 × ℕ0))) ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))
246	8, 18, 24, 27, 245	xrletrd 13224	1 ⊢ (𝜑 → 𝐷 ≤ (♯‘(◡((eval1‘𝐾)‘((𝐺‘𝑈)(-g‘(Poly1‘𝐾))(𝐺‘𝑉))) “ {(0g‘𝐾)})))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∀wral 3067  {crab 3443  Vcvv 3488   ⊆ wss 3976  {csn 4648  ⟨cop 4654   class class class wbr 5166  {copab 5228   ↦ cmpt 5249   × cxp 5698  ^◡ccnv 5699  dom cdm 5700   ↾ cres 5702   “ cima 5703  Fun wfun 6567   Fn wfn 6568  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448   ∈ cmpo 7450  1^st c1st 8028  2^nd c2nd 8029   ↑_m cmap 8884  0cc0 11184  1c1 11185   · cmul 11189  ℝ^*cxr 11323   < clt 11324   ≤ cle 11325   − cmin 11520   / cdiv 11947  ℕcn 12293  ℕ₀cn0 12553  ...cfz 13567  ↑cexp 14112  ♯chash 14379  Σcsu 15734   ∥ cdvds 16302   gcd cgcd 16540  ℙcprime 16718  Basecbs 17258  +_gcplusg 17311  0_gc0g 17499   Σ_g cgsu 17500   ↑_s cpws 17506  Mndcmnd 18772  Grpcgrp 18973  -_gcsg 18975  ._gcmg 19107  CMndccmn 19822  mulGrpcmgp 20161  Ringcrg 20260  CRingccrg 20261   RingHom crh 20495   RingIso crs 20496  Fieldcfield 20752  ℤRHomczrh 21533  chrcchr 21535  ℤ/nℤczn 21536  algSccascl 21895  var₁cv1 22198  Poly₁cpl1 22199  eval₁ce1 22339   PrimRoots cprimroots 42048

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263  ax-mulf 11264

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-ofr 7715  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-tpos 8267  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-oadd 8526  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-inf 9512  df-oi 9579  df-dju 9970  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-xnn0 12626  df-z 12640  df-dec 12759  df-uz 12904  df-rp 13058  df-fz 13568  df-fzo 13712  df-fl 13843  df-mod 13921  df-seq 14053  df-exp 14113  df-fac 14323  df-bc 14352  df-hash 14380  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-dvds 16303  df-gcd 16541  df-prm 16719  df-phi 16813  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17501  df-gsum 17502  df-prds 17507  df-pws 17509  df-mre 17644  df-mrc 17645  df-acs 17647  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-submnd 18819  df-grp 18976  df-minusg 18977  df-sbg 18978  df-mulg 19108  df-subg 19163  df-ghm 19253  df-cntz 19357  df-od 19570  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-srg 20214  df-ring 20262  df-cring 20263  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-invr 20414  df-dvr 20427  df-rhm 20498  df-rim 20499  df-subrng 20572  df-subrg 20597  df-drng 20753  df-field 20754  df-lmod 20882  df-lss 20953  df-lsp 20993  df-cnfld 21388  df-zring 21481  df-zrh 21537  df-chr 21539  df-assa 21896  df-asp 21897  df-ascl 21898  df-psr 21952  df-mvr 21953  df-mpl 21954  df-opsr 21956  df-evls 22121  df-evl 22122  df-psr1 22202  df-vr1 22203  df-ply1 22204  df-coe1 22205  df-evl1 22341  df-primroots 42049

This theorem is referenced by:  aks6d1c6lem3  42129