aks6d1c5lem2 - Mathbox for metakunt

	Mathbox for metakunt		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > aks6d1c5lem2		Structured version Visualization version GIF version

Theorem aks6d1c5lem2 43447

Description: Lemma for Claim 5, contradiction of different evaluations that map to the same. (Contributed by metakunt, 5-May-2025.)

**Hypotheses**
Ref	Expression
aks6d1p5.1	⊢ (𝜑 → 𝐾 ∈ Field)
aks6d1p5.2	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c5.3	⊢ 𝑃 = (chr‘𝐾)
aks6d1c5.4	⊢ (𝜑 → 𝐴 ∈ ℕ₀)
aks6d1c5.5	⊢ (𝜑 → 𝐴 < 𝑃)
aks6d1c5.6	⊢ 𝑋 = (var₁‘𝐾)
aks6d1c5.7	⊢ ↑ = (._g‘(mulGrp‘(Poly₁‘𝐾)))
aks6d1c5.8	⊢ 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
aks6d1c5p2.1	⊢ (𝜑 → 𝑌 ∈ (ℕ₀ ↑_m (0...𝐴)))
aks6d1c5p2.2	⊢ (𝜑 → 𝑍 ∈ (ℕ₀ ↑_m (0...𝐴)))
aks6d1c5p2.3	⊢ (𝜑 → (𝐺‘𝑌) = (𝐺‘𝑍))
aks6d1c5p2.4	⊢ (𝜑 → 𝑊 ∈ (0...𝐴))
aks6d1c5p2.5	⊢ (𝜑 → (𝑌‘𝑊) < (𝑍‘𝑊))

**Assertion**
Ref	Expression
aks6d1c5lem2	⊢ (𝜑 → (0_g‘𝐾) ≠ (0_g‘𝐾))

Distinct variable groups: ↑ ,𝑔,𝑖 𝐴,𝑔,𝑖 𝑔,𝐾,𝑖 𝑖,𝑊 𝑔,𝑋,𝑖 𝑔,𝑌,𝑖 𝑔,𝑍,𝑖 𝜑,𝑔,𝑖 Allowed substitution hints: 𝑃(𝑔, 𝑖) 𝐺(𝑔, 𝑖) 𝑊(𝑔)

**Proof of Theorem aks6d1c5lem2**
Step	Hyp	Ref	Expression
1		eqid 2763	. . . . . 6 ⊢ (eval₁‘𝐾) = (eval₁‘𝐾)
2		eqid 2763	. . . . . 6 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
3		eqid 2763	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
4		eqid 2763	. . . . . 6 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
5		aks6d1p5.1	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Field)
6		isfld 21035	. . . . . . . 8 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
7	6	simprbi 503	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ CRing)
8	5, 7	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ CRing)
9	8	crngringd 20515	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Ring)
10		eqid 2763	. . . . . . . . . 10 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
11	10	zrhrhm 21861	. . . . . . . . 9 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
12	9, 11	syl 18	. . . . . . . 8 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
13		zringbas 21803	. . . . . . . . 9 ⊢ ℤ = (Base‘ℤ_ring)
14	13, 3	rhmf 20757	. . . . . . . 8 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
15	12, 14	syl 18	. . . . . . 7 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
16		0zd 12743	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℤ)
17		aks6d1c5p2.4	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ (0...𝐴))
18	17	elfzelzd 13695	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ ℤ)
19	16, 18	zsubcld 12846	. . . . . . 7 ⊢ (𝜑 → (0 − 𝑊) ∈ ℤ)
20	15, 19	ffvelcdmd 7115	. . . . . 6 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘(0 − 𝑊)) ∈ (Base‘𝐾))
21		eqid 2763	. . . . . . . . 9 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
22	21, 4	mgpbas 20407	. . . . . . . 8 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
23		aks6d1c5.7	. . . . . . . 8 ⊢ ↑ = (._g‘(mulGrp‘(Poly₁‘𝐾)))
24	2	ply1crng 22560	. . . . . . . . . . 11 ⊢ (𝐾 ∈ CRing → (Poly₁‘𝐾) ∈ CRing)
25	8, 24	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ CRing)
26	21	crngmgp 20509	. . . . . . . . . 10 ⊢ ((Poly₁‘𝐾) ∈ CRing → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
27	25, 26	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ CMnd)
28	27	cmnmndd 20060	. . . . . . . 8 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
29		aks6d1c5p2.1	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑌 ∈ (ℕ₀ ↑_m (0...𝐴)))
30		nn0ex 12650	. . . . . . . . . . . . . . . 16 ⊢ ℕ₀ ∈ V
31	30	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ℕ₀ ∈ V)
32		ovexd 7484	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0...𝐴) ∈ V)
33		elmapg 8895	. . . . . . . . . . . . . . 15 ⊢ ((ℕ₀ ∈ V ∧ (0...𝐴) ∈ V) → (𝑌 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑌:(0...𝐴)⟶ℕ₀))
34	31, 32, 33	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑌:(0...𝐴)⟶ℕ₀))
35	29, 34	mpbid 235	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌:(0...𝐴)⟶ℕ₀)
36	35, 17	ffvelcdmd 7115	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌‘𝑊) ∈ ℕ₀)
37	36	nn0zd 12756	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌‘𝑊) ∈ ℤ)
38	37, 37	zsubcld 12846	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑌‘𝑊) − (𝑌‘𝑊)) ∈ ℤ)
39		0red 11348	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ∈ ℝ)
40	39	leidd 11920	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ 0)
41	36	nn0red 12706	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌‘𝑊) ∈ ℝ)
42	41	recnd 11374	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌‘𝑊) ∈ ℂ)
43	42	subidd 11694	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌‘𝑊) − (𝑌‘𝑊)) = 0)
44	43	eqcomd 2769	. . . . . . . . . . 11 ⊢ (𝜑 → 0 = ((𝑌‘𝑊) − (𝑌‘𝑊)))
45	40, 44	breqtrd 5135	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ ((𝑌‘𝑊) − (𝑌‘𝑊)))
46	38, 45	jca 521	. . . . . . . . 9 ⊢ (𝜑 → (((𝑌‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 ≤ ((𝑌‘𝑊) − (𝑌‘𝑊))))
47		elnn0z 12744	. . . . . . . . 9 ⊢ (((𝑌‘𝑊) − (𝑌‘𝑊)) ∈ ℕ₀ ↔ (((𝑌‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 ≤ ((𝑌‘𝑊) − (𝑌‘𝑊))))
48	46, 47	sylibr 237	. . . . . . . 8 ⊢ (𝜑 → ((𝑌‘𝑊) − (𝑌‘𝑊)) ∈ ℕ₀)
49		aks6d1c5.6	. . . . . . . . . . 11 ⊢ 𝑋 = (var₁‘𝐾)
50	1, 49, 3, 2, 4, 8, 20	evl1vard 22699	. . . . . . . . . 10 ⊢ (𝜑 → (𝑋 ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘𝑋)‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((ℤRHom‘𝐾)‘(0 − 𝑊))))
51		eqid 2763	. . . . . . . . . . 11 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
52	15, 18	ffvelcdmd 7115	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘𝑊) ∈ (Base‘𝐾))
53	1, 2, 3, 51, 4, 8, 52, 20	evl1scad 22697	. . . . . . . . . 10 ⊢ (𝜑 → (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((ℤRHom‘𝐾)‘𝑊)))
54		eqid 2763	. . . . . . . . . 10 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
55		eqid 2763	. . . . . . . . . 10 ⊢ (+_g‘𝐾) = (+_g‘𝐾)
56	1, 2, 3, 4, 8, 20, 50, 53, 54, 55	evl1addd 22703	. . . . . . . . 9 ⊢ (𝜑 → ((𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊))))
57	56	simpld 500	. . . . . . . 8 ⊢ (𝜑 → (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))) ∈ (Base‘(Poly₁‘𝐾)))
58	22, 23, 28, 48, 57	mulgnn0cld 19346	. . . . . . 7 ⊢ (𝜑 → (((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) ∈ (Base‘(Poly₁‘𝐾)))
59	43	oveq1d 7464	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) = (0 ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))
60		eqid 2763	. . . . . . . . . . . . 13 ⊢ (0_g‘(mulGrp‘(Poly₁‘𝐾))) = (0_g‘(mulGrp‘(Poly₁‘𝐾)))
61	22, 60, 23	mulg0 19325	. . . . . . . . . . . 12 ⊢ ((𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))) ∈ (Base‘(Poly₁‘𝐾)) → (0 ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) = (0_g‘(mulGrp‘(Poly₁‘𝐾))))
62	57, 61	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (0 ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) = (0_g‘(mulGrp‘(Poly₁‘𝐾))))
63	59, 62	eqtrd 2798	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) = (0_g‘(mulGrp‘(Poly₁‘𝐾))))
64	63	fveq2d 6918	. . . . . . . . 9 ⊢ (𝜑 → ((eval₁‘𝐾)‘(((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))) = ((eval₁‘𝐾)‘(0_g‘(mulGrp‘(Poly₁‘𝐾)))))
65	64	fveq1d 6916	. . . . . . . 8 ⊢ (𝜑 → (((eval₁‘𝐾)‘(((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘(0_g‘(mulGrp‘(Poly₁‘𝐾))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
66		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (1_r‘(Poly₁‘𝐾)) = (1_r‘(Poly₁‘𝐾))
67	21, 66	ringidval 20451	. . . . . . . . . . . . 13 ⊢ (1_r‘(Poly₁‘𝐾)) = (0_g‘(mulGrp‘(Poly₁‘𝐾)))
68	67	eqcomi 2772	. . . . . . . . . . . 12 ⊢ (0_g‘(mulGrp‘(Poly₁‘𝐾))) = (1_r‘(Poly₁‘𝐾))
69	68	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘(mulGrp‘(Poly₁‘𝐾))) = (1_r‘(Poly₁‘𝐾)))
70	69	fveq2d 6918	. . . . . . . . . 10 ⊢ (𝜑 → ((eval₁‘𝐾)‘(0_g‘(mulGrp‘(Poly₁‘𝐾)))) = ((eval₁‘𝐾)‘(1_r‘(Poly₁‘𝐾))))
71	70	fveq1d 6916	. . . . . . . . 9 ⊢ (𝜑 → (((eval₁‘𝐾)‘(0_g‘(mulGrp‘(Poly₁‘𝐾))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘(1_r‘(Poly₁‘𝐾)))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
72	2, 49, 21, 23	ply1idvr1 22657	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (0 ↑ 𝑋) = (1_r‘(Poly₁‘𝐾)))
73	72	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Ring → (1_r‘(Poly₁‘𝐾)) = (0 ↑ 𝑋))
74	9, 73	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (1_r‘(Poly₁‘𝐾)) = (0 ↑ 𝑋))
75	74	fveq2d 6918	. . . . . . . . . . 11 ⊢ (𝜑 → ((eval₁‘𝐾)‘(1_r‘(Poly₁‘𝐾))) = ((eval₁‘𝐾)‘(0 ↑ 𝑋)))
76	75	fveq1d 6916	. . . . . . . . . 10 ⊢ (𝜑 → (((eval₁‘𝐾)‘(1_r‘(Poly₁‘𝐾)))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘(0 ↑ 𝑋))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
77		eqid 2763	. . . . . . . . . . . . 13 ⊢ (._g‘(mulGrp‘𝐾)) = (._g‘(mulGrp‘𝐾))
78	44, 48	eqeltrd 2864	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ ℕ₀)
79	1, 2, 3, 4, 8, 20, 50, 23, 77, 78	evl1expd 22707	. . . . . . . . . . . 12 ⊢ (𝜑 → ((0 ↑ 𝑋) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(0 ↑ 𝑋))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0(._g‘(mulGrp‘𝐾))((ℤRHom‘𝐾)‘(0 − 𝑊)))))
80	79	simprd 501	. . . . . . . . . . 11 ⊢ (𝜑 → (((eval₁‘𝐾)‘(0 ↑ 𝑋))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0(._g‘(mulGrp‘𝐾))((ℤRHom‘𝐾)‘(0 − 𝑊))))
81		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
82	81, 3	mgpbas 20407	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
83	82	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(mulGrp‘𝐾)))
84	20, 83	eleqtrd 2866	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘(0 − 𝑊)) ∈ (Base‘(mulGrp‘𝐾)))
85		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (Base‘(mulGrp‘𝐾)) = (Base‘(mulGrp‘𝐾))
86		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (0_g‘(mulGrp‘𝐾)) = (0_g‘(mulGrp‘𝐾))
87	85, 86, 77	mulg0 19325	. . . . . . . . . . . . 13 ⊢ (((ℤRHom‘𝐾)‘(0 − 𝑊)) ∈ (Base‘(mulGrp‘𝐾)) → (0(._g‘(mulGrp‘𝐾))((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘(mulGrp‘𝐾)))
88	84, 87	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (0(._g‘(mulGrp‘𝐾))((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘(mulGrp‘𝐾)))
89		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (1_r‘𝐾) = (1_r‘𝐾)
90	81, 89	ringidval 20451	. . . . . . . . . . . . . 14 ⊢ (1_r‘𝐾) = (0_g‘(mulGrp‘𝐾))
91	90	eqcomi 2772	. . . . . . . . . . . . 13 ⊢ (0_g‘(mulGrp‘𝐾)) = (1_r‘𝐾)
92	91	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (0_g‘(mulGrp‘𝐾)) = (1_r‘𝐾))
93	88, 92	eqtrd 2798	. . . . . . . . . . 11 ⊢ (𝜑 → (0(._g‘(mulGrp‘𝐾))((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾))
94	80, 93	eqtrd 2798	. . . . . . . . . 10 ⊢ (𝜑 → (((eval₁‘𝐾)‘(0 ↑ 𝑋))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾))
95	76, 94	eqtrd 2798	. . . . . . . . 9 ⊢ (𝜑 → (((eval₁‘𝐾)‘(1_r‘(Poly₁‘𝐾)))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾))
96	71, 95	eqtrd 2798	. . . . . . . 8 ⊢ (𝜑 → (((eval₁‘𝐾)‘(0_g‘(mulGrp‘(Poly₁‘𝐾))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾))
97	65, 96	eqtrd 2798	. . . . . . 7 ⊢ (𝜑 → (((eval₁‘𝐾)‘(((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾))
98	58, 97	jca 521	. . . . . 6 ⊢ (𝜑 → ((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (1_r‘𝐾)))
99		fzfid 14154	. . . . . . . . 9 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
100		diffi 9226	. . . . . . . . 9 ⊢ ((0...𝐴) ∈ Fin → ((0...𝐴) ∖ {𝑊}) ∈ Fin)
101	99, 100	syl 18	. . . . . . . 8 ⊢ (𝜑 → ((0...𝐴) ∖ {𝑊}) ∈ Fin)
102	28	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
103	35	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑌:(0...𝐴)⟶ℕ₀)
104		eldifi 4070	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) → 𝑖 ∈ (0...𝐴))
105	104	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑖 ∈ (0...𝐴))
106	103, 105	ffvelcdmd 7115	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑌‘𝑖) ∈ ℕ₀)
107	25	crngringd 20515	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
108		ringcmn 20553	. . . . . . . . . . . . . 14 ⊢ ((Poly₁‘𝐾) ∈ Ring → (Poly₁‘𝐾) ∈ CMnd)
109	107, 108	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ CMnd)
110		cmnmnd 20053	. . . . . . . . . . . . 13 ⊢ ((Poly₁‘𝐾) ∈ CMnd → (Poly₁‘𝐾) ∈ Mnd)
111	109, 110	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Mnd)
112	111	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (Poly₁‘𝐾) ∈ Mnd)
113	50	simpld 500	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
114	113	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑋 ∈ (Base‘(Poly₁‘𝐾)))
115	9	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐾 ∈ Ring)
116	115, 11, 14	3syl 19	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
117	105	elfzelzd 13695	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑖 ∈ ℤ)
118	116, 117	ffvelcdmd 7115	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((ℤRHom‘𝐾)‘𝑖) ∈ (Base‘𝐾))
119	2, 51, 3, 4	ply1sclcl 22649	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑖) ∈ (Base‘𝐾)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) ∈ (Base‘(Poly₁‘𝐾)))
120	115, 118, 119	syl2anc 596	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) ∈ (Base‘(Poly₁‘𝐾)))
121	4, 54	mndcl 18972	. . . . . . . . . . 11 ⊢ (((Poly₁‘𝐾) ∈ Mnd ∧ 𝑋 ∈ (Base‘(Poly₁‘𝐾)) ∧ ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) ∈ (Base‘(Poly₁‘𝐾))) → (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
122	112, 114, 120, 121	syl3anc 1399	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
123	22, 23, 102, 106, 122	mulgnn0cld 19346	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
124	123	ralrimiva 3158	. . . . . . . 8 ⊢ (𝜑 → ∀𝑖 ∈ ((0...𝐴) ∖ {𝑊})((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
125	22, 27, 101, 124	gsummptcl 20223	. . . . . . 7 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ (Base‘(Poly₁‘𝐾)))
126	124	r19.21bi 3258	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
127	126	ralrimiva 3158	. . . . . . . 8 ⊢ (𝜑 → ∀𝑖 ∈ ((0...𝐴) ∖ {𝑊})((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
128	1, 2, 21, 3, 4, 81, 8, 20, 127, 101	evl1gprodd 43426	. . . . . . 7 ⊢ (𝜑 → (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))))
129	125, 128	jca 521	. . . . . 6 ⊢ (𝜑 → (((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))))
130		eqid 2763	. . . . . . . 8 ⊢ (._r‘(Poly₁‘𝐾)) = (._r‘(Poly₁‘𝐾))
131	21, 130	mgpplusg 20406	. . . . . . 7 ⊢ (._r‘(Poly₁‘𝐾)) = (+_g‘(mulGrp‘(Poly₁‘𝐾)))
132	131	eqcomi 2772	. . . . . 6 ⊢ (+_g‘(mulGrp‘(Poly₁‘𝐾))) = (._r‘(Poly₁‘𝐾))
133		eqid 2763	. . . . . 6 ⊢ (._r‘𝐾) = (._r‘𝐾)
134	1, 2, 3, 4, 8, 20, 98, 129, 132, 133	evl1muld 22705	. . . . 5 ⊢ (𝜑 → (((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((1_r‘𝐾)(._r‘𝐾)((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))))))
135	134	simprd 501	. . . 4 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((1_r‘𝐾)(._r‘𝐾)((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))))
136		fldidom 21071	. . . . . . . 8 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
137	5, 136	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ IDomn)
138		isidom 21018	. . . . . . 7 ⊢ (𝐾 ∈ IDomn ↔ (𝐾 ∈ CRing ∧ 𝐾 ∈ Domn))
139	137, 138	sylib 221	. . . . . 6 ⊢ (𝜑 → (𝐾 ∈ CRing ∧ 𝐾 ∈ Domn))
140	139	simprd 501	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ Domn)
141	90	a1i 11	. . . . . . 7 ⊢ (𝜑 → (1_r‘𝐾) = (0_g‘(mulGrp‘𝐾)))
142	81	ringmgp 20507	. . . . . . . . 9 ⊢ (𝐾 ∈ Ring → (mulGrp‘𝐾) ∈ Mnd)
143	9, 142	syl 18	. . . . . . . 8 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ Mnd)
144	82, 86	mndidcl 18980	. . . . . . . 8 ⊢ ((mulGrp‘𝐾) ∈ Mnd → (0_g‘(mulGrp‘𝐾)) ∈ (Base‘𝐾))
145	143, 144	syl 18	. . . . . . 7 ⊢ (𝜑 → (0_g‘(mulGrp‘𝐾)) ∈ (Base‘𝐾))
146	141, 145	eqeltrd 2864	. . . . . 6 ⊢ (𝜑 → (1_r‘𝐾) ∈ (Base‘𝐾))
147	5	flddrngd 21036	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ DivRing)
148		eqid 2763	. . . . . . . 8 ⊢ (0_g‘𝐾) = (0_g‘𝐾)
149	148, 89	drngunz 21043	. . . . . . 7 ⊢ (𝐾 ∈ DivRing → (1_r‘𝐾) ≠ (0_g‘𝐾))
150	147, 149	syl 18	. . . . . 6 ⊢ (𝜑 → (1_r‘𝐾) ≠ (0_g‘𝐾))
151	146, 150	jca 521	. . . . 5 ⊢ (𝜑 → ((1_r‘𝐾) ∈ (Base‘𝐾) ∧ (1_r‘𝐾) ≠ (0_g‘𝐾)))
152	81	crngmgp 20509	. . . . . . . 8 ⊢ (𝐾 ∈ CRing → (mulGrp‘𝐾) ∈ CMnd)
153	8, 152	syl 18	. . . . . . 7 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ CMnd)
154	8	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐾 ∈ CRing)
155	20	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((ℤRHom‘𝐾)‘(0 − 𝑊)) ∈ (Base‘𝐾))
156	1, 2, 3, 4, 154, 155, 123	fveval1fvcl 22695	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ∈ (Base‘𝐾))
157	156	ralrimiva 3158	. . . . . . 7 ⊢ (𝜑 → ∀𝑖 ∈ ((0...𝐴) ∖ {𝑊})(((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ∈ (Base‘𝐾))
158	82, 153, 101, 157	gsummptcl 20223	. . . . . 6 ⊢ (𝜑 → ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ∈ (Base‘𝐾))
159	22	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾))))
160	122, 159	eleqtrd 2866	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
161	22	eqcomi 2772	. . . . . . . . . . . . 13 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(Poly₁‘𝐾))
162	161	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(Poly₁‘𝐾)))
163	160, 162	eleqtrd 2866	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
164		eqidd 2764	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
165	163, 164	jca 521	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))
166	1, 2, 3, 4, 154, 155, 165, 23, 77, 106	evl1expd 22707	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((𝑌‘𝑖)(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))))
167	166	simprd 501	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((𝑌‘𝑖)(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))
168	137	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐾 ∈ IDomn)
169	1, 2, 3, 4, 154, 155, 163	fveval1fvcl 22695	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ∈ (Base‘𝐾))
170		eldifsni 4753	. . . . . . . . . . 11 ⊢ (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) → 𝑖 ≠ 𝑊)
171	170	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑖 ≠ 𝑊)
172	5	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐾 ∈ Field)
173		aks6d1p5.2	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℙ)
174	173	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑃 ∈ ℙ)
175		aks6d1c5.3	. . . . . . . . . . . 12 ⊢ 𝑃 = (chr‘𝐾)
176		aks6d1c5.4	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
177	176	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐴 ∈ ℕ₀)
178		aks6d1c5.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 < 𝑃)
179	178	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝐴 < 𝑃)
180		aks6d1c5.8	. . . . . . . . . . . 12 ⊢ 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
181	17	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑊 ∈ (0...𝐴))
182	172, 174, 175, 177, 179, 49, 23, 180, 105, 181	aks6d1c5lem1 43445	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑖 = 𝑊 ↔ (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘𝐾)))
183	182	necon3bid 3003	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑖 ≠ 𝑊 ↔ (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ≠ (0_g‘𝐾)))
184	171, 183	mpbid 235	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ≠ (0_g‘𝐾))
185	168, 169, 184, 106, 77	idomnnzpownz 43441	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑌‘𝑖)(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘(𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))) ≠ (0_g‘𝐾))
186	167, 185	eqnetrd 3026	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ≠ (0_g‘𝐾))
187	81, 137, 101, 156, 186	idomnnzgmulnz 43442	. . . . . 6 ⊢ (𝜑 → ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ≠ (0_g‘𝐾))
188	158, 187	jca 521	. . . . 5 ⊢ (𝜑 → (((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ∈ (Base‘𝐾) ∧ ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ≠ (0_g‘𝐾)))
189	3, 133, 148	domnmuln0 21003	. . . . 5 ⊢ ((𝐾 ∈ Domn ∧ ((1_r‘𝐾) ∈ (Base‘𝐾) ∧ (1_r‘𝐾) ≠ (0_g‘𝐾)) ∧ (((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ∈ (Base‘𝐾) ∧ ((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))) ≠ (0_g‘𝐾))) → ((1_r‘𝐾)(._r‘𝐾)((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))) ≠ (0_g‘𝐾))
190	140, 151, 188, 189	syl3anc 1399	. . . 4 ⊢ (𝜑 → ((1_r‘𝐾)(._r‘𝐾)((mulGrp‘𝐾) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ (((eval₁‘𝐾)‘((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))) ≠ (0_g‘𝐾))
191	135, 190	eqnetrd 3026	. . 3 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ≠ (0_g‘𝐾))
192	191	necomd 3014	. 2 ⊢ (𝜑 → (0_g‘𝐾) ≠ (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
193	41	leidd 11920	. . . . . . . 8 ⊢ (𝜑 → (𝑌‘𝑊) ≤ (𝑌‘𝑊))
194		eqid 2763	. . . . . . . 8 ⊢ (quot_1p‘𝐾) = (quot_1p‘𝐾)
195	5, 173, 175, 176, 178, 49, 23, 180, 29, 17, 36, 193, 194, 51, 21	aks6d1c5lem3 43446	. . . . . . 7 ⊢ (𝜑 → ((𝐺‘𝑌)(quot_1p‘𝐾)((𝑌‘𝑊) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))) = ((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
196	195	eqcomd 2769	. . . . . 6 ⊢ (𝜑 → ((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = ((𝐺‘𝑌)(quot_1p‘𝐾)((𝑌‘𝑊) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))))
197		aks6d1c5p2.3	. . . . . . 7 ⊢ (𝜑 → (𝐺‘𝑌) = (𝐺‘𝑍))
198	197	oveq1d 7464	. . . . . 6 ⊢ (𝜑 → ((𝐺‘𝑌)(quot_1p‘𝐾)((𝑌‘𝑊) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))) = ((𝐺‘𝑍)(quot_1p‘𝐾)((𝑌‘𝑊) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))))
199		aks6d1c5p2.2	. . . . . . 7 ⊢ (𝜑 → 𝑍 ∈ (ℕ₀ ↑_m (0...𝐴)))
200		elmapg 8895	. . . . . . . . . . . 12 ⊢ ((ℕ₀ ∈ V ∧ (0...𝐴) ∈ V) → (𝑍 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑍:(0...𝐴)⟶ℕ₀))
201	31, 32, 200	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑍 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑍:(0...𝐴)⟶ℕ₀))
202	199, 201	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍:(0...𝐴)⟶ℕ₀)
203	202, 17	ffvelcdmd 7115	. . . . . . . . 9 ⊢ (𝜑 → (𝑍‘𝑊) ∈ ℕ₀)
204	203	nn0red 12706	. . . . . . . 8 ⊢ (𝜑 → (𝑍‘𝑊) ∈ ℝ)
205		aks6d1c5p2.5	. . . . . . . 8 ⊢ (𝜑 → (𝑌‘𝑊) < (𝑍‘𝑊))
206	41, 204, 205	ltled 11495	. . . . . . 7 ⊢ (𝜑 → (𝑌‘𝑊) ≤ (𝑍‘𝑊))
207	5, 173, 175, 176, 178, 49, 23, 180, 199, 17, 36, 206, 194, 51, 21	aks6d1c5lem3 43446	. . . . . 6 ⊢ (𝜑 → ((𝐺‘𝑍)(quot_1p‘𝐾)((𝑌‘𝑊) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))) = ((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
208	196, 198, 207	3eqtrd 2802	. . . . 5 ⊢ (𝜑 → ((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = ((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
209	208	fveq2d 6918	. . . 4 ⊢ (𝜑 → ((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))) = ((eval₁‘𝐾)‘((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))))
210	209	fveq1d 6916	. . 3 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
211	203	nn0zd 12756	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑍‘𝑊) ∈ ℤ)
212	211, 37	zsubcld 12846	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ)
213	204, 41	resubcld 11781	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℝ)
214	41, 204	posdifd 11941	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑌‘𝑊) < (𝑍‘𝑊) ↔ 0 < ((𝑍‘𝑊) − (𝑌‘𝑊))))
215	205, 214	mpbid 235	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < ((𝑍‘𝑊) − (𝑌‘𝑊)))
216	39, 213, 215	ltled 11495	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ ((𝑍‘𝑊) − (𝑌‘𝑊)))
217	212, 216	jca 521	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 ≤ ((𝑍‘𝑊) − (𝑌‘𝑊))))
218		elnn0z 12744	. . . . . . . . . 10 ⊢ (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℕ₀ ↔ (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 ≤ ((𝑍‘𝑊) − (𝑌‘𝑊))))
219	217, 218	sylibr 237	. . . . . . . . 9 ⊢ (𝜑 → ((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℕ₀)
220	1, 2, 3, 4, 8, 20, 56, 23, 77, 219	evl1expd 22707	. . . . . . . 8 ⊢ (𝜑 → ((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊)))))
221	220	simpld 500	. . . . . . 7 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) ∈ (Base‘(Poly₁‘𝐾)))
222	220	simprd 501	. . . . . . . 8 ⊢ (𝜑 → (((eval₁‘𝐾)‘(((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊))))
223		rhmghm 20756	. . . . . . . . . . . . 13 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾) ∈ (ℤ_ring GrpHom 𝐾))
224	12, 223	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring GrpHom 𝐾))
225	19, 13	eleqtrdi 2874	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 − 𝑊) ∈ (Base‘ℤ_ring))
226	18, 13	eleqtrdi 2874	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊 ∈ (Base‘ℤ_ring))
227		eqid 2763	. . . . . . . . . . . . 13 ⊢ (Base‘ℤ_ring) = (Base‘ℤ_ring)
228		eqid 2763	. . . . . . . . . . . . 13 ⊢ (+_g‘ℤ_ring) = (+_g‘ℤ_ring)
229	227, 228, 55	ghmlin 19476	. . . . . . . . . . . 12 ⊢ (((ℤRHom‘𝐾) ∈ (ℤ_ring GrpHom 𝐾) ∧ (0 − 𝑊) ∈ (Base‘ℤ_ring) ∧ 𝑊 ∈ (Base‘ℤ_ring)) → ((ℤRHom‘𝐾)‘((0 − 𝑊)(+_g‘ℤ_ring)𝑊)) = (((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊)))
230	224, 225, 226, 229	syl3anc 1399	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘((0 − 𝑊)(+_g‘ℤ_ring)𝑊)) = (((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊)))
231		zringplusg 21804	. . . . . . . . . . . . . . . . 17 ⊢ + = (+_g‘ℤ_ring)
232	231	eqcomi 2772	. . . . . . . . . . . . . . . 16 ⊢ (+_g‘ℤ_ring) = +
233	232	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (+_g‘ℤ_ring) = + )
234	233	oveqd 7466	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((0 − 𝑊)(+_g‘ℤ_ring)𝑊) = ((0 − 𝑊) + 𝑊))
235	234	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘((0 − 𝑊)(+_g‘ℤ_ring)𝑊)) = ((ℤRHom‘𝐾)‘((0 − 𝑊) + 𝑊)))
236		0cnd 11336	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ∈ ℂ)
237	18	zcnd 12842	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑊 ∈ ℂ)
238	236, 237	npcand 11710	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((0 − 𝑊) + 𝑊) = 0)
239	238	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘((0 − 𝑊) + 𝑊)) = ((ℤRHom‘𝐾)‘0))
240	235, 239	eqtrd 2798	. . . . . . . . . . . 12 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘((0 − 𝑊)(+_g‘ℤ_ring)𝑊)) = ((ℤRHom‘𝐾)‘0))
241	10, 148	zrh0 21863	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Ring → ((ℤRHom‘𝐾)‘0) = (0_g‘𝐾))
242	9, 241	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘0) = (0_g‘𝐾))
243	240, 242	eqtrd 2798	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘((0 − 𝑊)(+_g‘ℤ_ring)𝑊)) = (0_g‘𝐾))
244	230, 243	eqtr3d 2800	. . . . . . . . . 10 ⊢ (𝜑 → (((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊)) = (0_g‘𝐾))
245	244	oveq2d 7465	. . . . . . . . 9 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊))) = (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(0_g‘𝐾)))
246	219	nn0zd 12756	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ)
247	246, 215	jca 521	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 < ((𝑍‘𝑊) − (𝑌‘𝑊))))
248		elnnz 12741	. . . . . . . . . . 11 ⊢ (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℕ ↔ (((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℤ ∧ 0 < ((𝑍‘𝑊) − (𝑌‘𝑊))))
249	247, 248	sylibr 237	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑍‘𝑊) − (𝑌‘𝑊)) ∈ ℕ)
250	9, 249, 77	ringexp0nn 43443	. . . . . . . . 9 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(0_g‘𝐾)) = (0_g‘𝐾))
251	245, 250	eqtrd 2798	. . . . . . . 8 ⊢ (𝜑 → (((𝑍‘𝑊) − (𝑌‘𝑊))(._g‘(mulGrp‘𝐾))(((ℤRHom‘𝐾)‘(0 − 𝑊))(+_g‘𝐾)((ℤRHom‘𝐾)‘𝑊))) = (0_g‘𝐾))
252	222, 251	eqtrd 2798	. . . . . . 7 ⊢ (𝜑 → (((eval₁‘𝐾)‘(((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘𝐾))
253	221, 252	jca 521	. . . . . 6 ⊢ (𝜑 → ((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘(((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊)))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘𝐾)))
254		eqid 2763	. . . . . . . . . . 11 ⊢ (Base‘(mulGrp‘(Poly₁‘𝐾))) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
255	202	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → 𝑍:(0...𝐴)⟶ℕ₀)
256	255, 105	ffvelcdmd 7115	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → (𝑍‘𝑖) ∈ ℕ₀)
257	254, 23, 102, 256, 160	mulgnn0cld 19346	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(mulGrp‘(Poly₁‘𝐾))))
258	257, 162	eleqtrd 2866	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((0...𝐴) ∖ {𝑊})) → ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
259	258	ralrimiva 3158	. . . . . . . 8 ⊢ (𝜑 → ∀𝑖 ∈ ((0...𝐴) ∖ {𝑊})((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
260	22, 27, 101, 259	gsummptcl 20223	. . . . . . 7 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ (Base‘(Poly₁‘𝐾)))
261		eqidd 2764	. . . . . . 7 ⊢ (𝜑 → (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))
262	260, 261	jca 521	. . . . . 6 ⊢ (𝜑 → (((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))
263	1, 2, 3, 4, 8, 20, 253, 262, 132, 133	evl1muld 22705	. . . . 5 ⊢ (𝜑 → (((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) ∈ (Base‘(Poly₁‘𝐾)) ∧ (((eval₁‘𝐾)‘((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((0_g‘𝐾)(._r‘𝐾)(((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))))))
264	263	simprd 501	. . . 4 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = ((0_g‘𝐾)(._r‘𝐾)(((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))))
265	1, 2, 3, 4, 8, 20, 260	fveval1fvcl 22695	. . . . 5 ⊢ (𝜑 → (((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) ∈ (Base‘𝐾))
266	3, 133, 148, 9, 265	ringlzd 20568	. . . 4 ⊢ (𝜑 → ((0_g‘𝐾)(._r‘𝐾)(((eval₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊)))) = (0_g‘𝐾))
267	264, 266	eqtrd 2798	. . 3 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑍‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑍‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘𝐾))
268	210, 267	eqtrd 2798	. 2 ⊢ (𝜑 → (((eval₁‘𝐾)‘((((𝑌‘𝑊) − (𝑌‘𝑊)) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑊))))(+_g‘(mulGrp‘(Poly₁‘𝐾)))((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ ((0...𝐴) ∖ {𝑊}) ↦ ((𝑌‘𝑖) ↑ (𝑋(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))‘((ℤRHom‘𝐾)‘(0 − 𝑊))) = (0_g‘𝐾))
269	192, 268	neeqtrd 3028	1 ⊢ (𝜑 → (0_g‘𝐾) ≠ (0_g‘𝐾))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2147 ≠ wne 2959 Vcvv 3454 ∖ cdif 4048 {csn 4588 class class class wbr 5106 ↦ cmpt 5190 ⟶wf 6560 ‘cfv 6564 (class class class)co 7449 ↑_m cmap 8883 Fincfn 9009 0cc0 11237 + caddc 11240 < clt 11380 ≤ cle 11381 − cmin 11578 ℕcn 12373 ℕ₀cn0 12644 ℤcz 12731 ...cfz 13677 ℙcprime 16887 Basecbs 17428 +_gcplusg 17469 ._rcmulr 17470 0_gc0g 17651 Σ_g cgsu 17652 Mndcmnd 18964 ._gcmg 19318 GrpHom cghm 19468 CMndccmn 20036 mulGrpcmgp 20402 1_rcur 20449 Ringcrg 20501 CRingccrg 20502 RingHom crh 20741 Domncdomn 20986 IDomncidom 20987 DivRingcdr 21022 Fieldcfield 21023 ℤ_ringczring 21796 ℤRHomczrh 21849 chrcchr 21851 algSccascl 22204 var₁cv1 22538 Poly₁cpl1 22539 eval₁ce1 22676 quot_1pcq1p 26490

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-rep 5236 ax-sep 5253 ax-nul 5264 ax-pow 5332 ax-pr 5396 ax-un 7781 ax-cnex 11293 ax-resscn 11294 ax-1cn 11295 ax-icn 11296 ax-addcl 11297 ax-addrcl 11298 ax-mulcl 11299 ax-mulrcl 11300 ax-mulcom 11301 ax-addass 11302 ax-mulass 11303 ax-distr 11304 ax-i2m1 11305 ax-1ne0 11306 ax-1rid 11307 ax-rnegex 11308 ax-rrecex 11309 ax-cnre 11310 ax-pre-lttri 11311 ax-pre-lttrn 11312 ax-pre-ltadd 11313 ax-pre-mulgt0 11314 ax-pre-sup 11315 ax-addf 11316 ax-mulf 11317

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4839 df-uni 4871 df-int 4911 df-iun 4956 df-iin 4957 df-br 5107 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5551 df-eprel 5556 df-po 5564 df-so 5565 df-fr 5609 df-se 5610 df-we 5611 df-xp 5662 df-rel 5663 df-cnv 5664 df-co 5665 df-dm 5666 df-rn 5667 df-res 5668 df-ima 5669 df-pred 6328 df-ord 6389 df-on 6390 df-lim 6391 df-suc 6392 df-iota 6518 df-fun 6566 df-fn 6567 df-f 6568 df-f1 6569 df-fo 6570 df-f1o 6571 df-fv 6572 df-isom 6573 df-riota 7406 df-ov 7452 df-oprab 7453 df-mpo 7454 df-of 7723 df-ofr 7724 df-om 7910 df-1st 8033 df-2nd 8034 df-supp 8213 df-tpos 8279 df-frecs 8335 df-wrecs 8366 df-recs 8415 df-rdg 8454 df-1o 8512 df-2o 8513 df-er 8753 df-map 8885 df-pm 8886 df-ixp 8962 df-en 9010 df-dom 9011 df-sdom 9012 df-fin 9013 df-fsupp 9390 df-sup 9469 df-inf 9470 df-oi 9539 df-card 10055 df-pnf 11382 df-mnf 11383 df-xr 11384 df-ltxr 11385 df-le 11386 df-sub 11580 df-neg 11581 df-div 12012 df-nn 12374 df-2 12443 df-3 12444 df-4 12445 df-5 12446 df-6 12447 df-7 12448 df-8 12449 df-9 12450 df-n0 12645 df-z 12732 df-dec 12853 df-uz 13004 df-rp 13159 df-fz 13678 df-fzo 13827 df-fl 13970 df-mod 14048 df-seq 14183 df-exp 14243 df-hash 14514 df-cj 15307 df-re 15308 df-im 15309 df-sqrt 15443 df-abs 15444 df-dvds 16464 df-prm 16888 df-struct 17366 df-sets 17383 df-slot 17401 df-ndx 17413 df-base 17429 df-ress 17450 df-plusg 17482 df-mulr 17483 df-starv 17484 df-sca 17485 df-vsca 17486 df-ip 17487 df-tset 17488 df-ple 17489 df-ds 17491 df-unif 17492 df-hom 17493 df-cco 17494 df-0g 17653 df-gsum 17654 df-prds 17659 df-pws 17661 df-mre 17797 df-mrc 17798 df-acs 17800 df-mgm 18857 df-sgrp 18949 df-mnd 18965 df-mhm 19019 df-submnd 19020 df-grp 19188 df-minusg 19189 df-sbg 19190 df-mulg 19319 df-subg 19374 df-ghm 19469 df-cntz 19573 df-od 19784 df-cmn 20038 df-abl 20039 df-mgp 20403 df-rng 20417 df-ur 20450 df-srg 20455 df-ring 20503 df-cring 20504 df-oppr 20609 df-dvdsr 20629 df-unit 20630 df-invr 20660 df-rhm 20744 df-nzr 20805 df-subrng 20840 df-subrg 20864 df-rlreg 20988 df-domn 20989 df-idom 20990 df-drng 21024 df-field 21025 df-lmod 21179 df-lss 21249 df-lsp 21289 df-cnfld 21721 df-zring 21797 df-zrh 21853 df-chr 21855 df-assa 22205 df-asp 22206 df-ascl 22207 df-psr 22261 df-mvr 22262 df-mpl 22263 df-opsr 22265 df-evls 22427 df-evl 22428 df-psr1 22542 df-vr1 22543 df-ply1 22544 df-coe1 22545 df-evl1 22678 df-mdeg 26417 df-deg1 26418 df-uc1p 26494 df-q1p 26495

This theorem is used by: aks6d1c5 43448

W3C validator