aks6d1c6lem1 - Mathbox for metakunt

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

Theorem aks6d1c6lem1 42283

Description: Lemma for claim 6, deduce exact degree of the polynomial. (Contributed by metakunt, 7-May-2025.)

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

**Assertion**
Ref	Expression
aks6d1c6lem1	⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))

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

**Proof of Theorem aks6d1c6lem1**
Step	Hyp	Ref	Expression
1		aks6d1c6.10	. . . . 5 ⊢ 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
2	1	a1i 11	. . . 4 ⊢ (𝜑 → 𝐺 = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
3	2	fveq1d 6830	. . 3 ⊢ (𝜑 → (𝐺‘𝑈) = ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈))
4	3	fveq2d 6832	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)))
5		eqidd 2734	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = (𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
6		simplr 768	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → 𝑔 = 𝑈)
7	6	fveq1d 6830	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → (𝑔‘𝑖) = (𝑈‘𝑖))
8	7	oveq1d 7367	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))
9	8	mpteq2dva 5186	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝑈) → (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
10	9	oveq2d 7368	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 = 𝑈) → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) = ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
11		aks6d1c6lem1.1	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ (ℕ₀ ↑_m (0...𝐴)))
12		ovexd 7387	. . . . 5 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ V)
13	5, 10, 11, 12	fvmptd 6942	. . . 4 ⊢ (𝜑 → ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈) = ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
14	13	fveq2d 6832	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)) = ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))))
15		aks6d1c6.3	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Field)
16		fldidom 20688	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
17	15, 16	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
18		fzfid 13882	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
19		eqid 2733	. . . . . . . . . 10 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
20		eqid 2733	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
21	19, 20	mgpbas 20065	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
22		eqid 2733	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘(Poly₁‘𝐾))) = (._g‘(mulGrp‘(Poly₁‘𝐾)))
23	15	fldcrngd 20659	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ CRing)
24		crngring 20165	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
25	23, 24	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Ring)
26		eqid 2733	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
27	26	ply1ring 22161	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Ring → (Poly₁‘𝐾) ∈ Ring)
28	25, 27	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
29	19	ringmgp 20159	. . . . . . . . . . 11 ⊢ ((Poly₁‘𝐾) ∈ Ring → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
30	28, 29	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
31	30	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
32		nn0ex 12394	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
33	32	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℕ₀ ∈ V)
34		ovexd 7387	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...𝐴) ∈ V)
35	33, 34	elmapd 8770	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑈:(0...𝐴)⟶ℕ₀))
36	11, 35	mpbid 232	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈:(0...𝐴)⟶ℕ₀)
37	36	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑈:(0...𝐴)⟶ℕ₀)
38		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑖 ∈ (0...𝐴))
39	37, 38	ffvelcdmd 7024	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑈‘𝑖) ∈ ℕ₀)
40		2fveq3 6833	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑖 → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))
41	40	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑖 → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))
42	41	eleq1d 2818	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾))))
43		ringmnd 20163	. . . . . . . . . . . . . . 15 ⊢ ((Poly₁‘𝐾) ∈ Ring → (Poly₁‘𝐾) ∈ Mnd)
44	28, 43	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Mnd)
45	44	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ Mnd)
46	25	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ Ring)
47		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (var₁‘𝐾) = (var₁‘𝐾)
48	47, 26, 20	vr1cl 22131	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
49	46, 48	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
50		eqid 2733	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
51	50	zrhrhm 21450	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
52	25, 51	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
53		zringbas 21392	. . . . . . . . . . . . . . . . . 18 ⊢ ℤ = (Base‘ℤ_ring)
54		eqid 2733	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐾) = (Base‘𝐾)
55	53, 54	rhmf 20404	. . . . . . . . . . . . . . . . 17 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
56	52, 55	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
57	56	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
58		elfzelz 13426	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (0...𝐴) → 𝑡 ∈ ℤ)
59	58	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ ℤ)
60	57, 59	ffvelcdmd 7024	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾))
61		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
62	26, 61, 54, 20	ply1sclcl 22201	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
63	46, 60, 62	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
64		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
65	20, 64	mndcl 18652	. . . . . . . . . . . . 13 ⊢ (((Poly₁‘𝐾) ∈ Mnd ∧ (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)) ∧ ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾))) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
66	45, 49, 63, 65	syl3anc 1373	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
67	66	ralrimiva 3125	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
68	67	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
69	42, 68, 38	rspcdva 3574	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
70	21, 22, 31, 39, 69	mulgnn0cld 19010	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
71	26	ply1idom 26058	. . . . . . . . . . 11 ⊢ (𝐾 ∈ IDomn → (Poly₁‘𝐾) ∈ IDomn)
72	17, 71	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ IDomn)
73	72	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ IDomn)
74	41	neeq1d 2988	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾))))
75		eqid 2733	. . . . . . . . . . . . . . . 16 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
76	75, 26, 20	deg1xrcl 26015	. . . . . . . . . . . . . . . . . . 19 ⊢ (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
77	63, 76	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
78		0xr 11166	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℝ^*
79	78	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 ∈ ℝ^*)
80		1xr 11178	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 ∈ ℝ^*
81	80	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℝ^*)
82	75, 26, 54, 61	deg1sclle 26045	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
83	46, 60, 82	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
84		0lt1 11646	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 1
85	84	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 < 1)
86	77, 79, 81, 83, 85	xrlelttrd 13061	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < 1)
87	21, 22	mulg1 18996	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)) → (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)) = (var₁‘𝐾))
88	49, 87	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)) = (var₁‘𝐾))
89	88	eqcomd 2739	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) = (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)))
90	89	fveq2d 6832	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))))
91		isfld 20657	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
92		drngnzr 20665	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐾 ∈ DivRing → 𝐾 ∈ NzRing)
93	92	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing) → 𝐾 ∈ NzRing)
94	91, 93	sylbi 217	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐾 ∈ Field → 𝐾 ∈ NzRing)
95	15, 94	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐾 ∈ NzRing)
96	95	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ NzRing)
97		1nn0 12404	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
98	97	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℕ₀)
99	75, 26, 47, 19, 22	deg1pw 26054	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ NzRing ∧ 1 ∈ ℕ₀) → ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))) = 1)
100	96, 98, 99	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))) = 1)
101	90, 100	eqtr2d 2769	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 = ((deg₁‘𝐾)‘(var₁‘𝐾)))
102	86, 101	breqtrd 5119	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < ((deg₁‘𝐾)‘(var₁‘𝐾)))
103	26, 75, 46, 20, 64, 49, 63, 102	deg1add 26036	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = ((deg₁‘𝐾)‘(var₁‘𝐾)))
104	90, 100	eqtrd 2768	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = 1)
105	103, 104	eqtrd 2768	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = 1)
106	105, 98	eqeltrd 2833	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀)
107		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
108	75, 26, 107, 20	deg1nn0clb 26023	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Ring ∧ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾))) → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀))
109	46, 66, 108	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀))
110	106, 109	mpbird 257	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
111	110	ralrimiva 3125	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
112	111	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
113	74, 112, 38	rspcdva 3574	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾)))
114	73, 69, 113, 39, 22	idomnnzpownz 42245	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ≠ (0_g‘(Poly₁‘𝐾)))
115	70, 114	jca 511	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ≠ (0_g‘(Poly₁‘𝐾))))
116	115	ralrimiva 3125	. . . . . 6 ⊢ (𝜑 → ∀𝑖 ∈ (0...𝐴)(((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)) ∧ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ≠ (0_g‘(Poly₁‘𝐾))))
117	17, 18, 116	deg1gprod 42253	. . . . 5 ⊢ (𝜑 → (((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) ∧ 0 ≤ ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))))
118	117	simpld 494	. . . 4 ⊢ (𝜑 → ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)))
119		eqidd 2734	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
120		simpr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → 𝑖 = 𝑡)
121	120	fveq2d 6832	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → (𝑈‘𝑖) = (𝑈‘𝑡))
122	120	fveq2d 6832	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((ℤRHom‘𝐾)‘𝑖) = ((ℤRHom‘𝐾)‘𝑡))
123	122	fveq2d 6832	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))
124	123	oveq2d 7368	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))
125	121, 124	oveq12d 7370	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
126		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ (0...𝐴))
127		ovexd 7387	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ V)
128	119, 125, 126, 127	fvmptd 6942	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
129	128	fveq2d 6832	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
130	17	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ IDomn)
131	36	ffvelcdmda 7023	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℕ₀)
132	130, 66, 110, 131, 22, 75	deg1pow 42254	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
133	105	oveq2d 7368	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · 1))
134	131	nn0cnd 12451	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℂ)
135	134	mulridd 11136	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · 1) = (𝑈‘𝑡))
136	133, 135	eqtrd 2768	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
137	132, 136	eqtrd 2768	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
138	129, 137	eqtrd 2768	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = (𝑈‘𝑡))
139	138	sumeq2dv 15611	. . . 4 ⊢ (𝜑 → Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
140	118, 139	eqtrd 2768	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
141	14, 140	eqtrd 2768	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
142	4, 141	eqtrd 2768	1 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ≠ wne 2929 ∀wral 3048 {crab 3396 Vcvv 3437 class class class wbr 5093 {copab 5155 ↦ cmpt 5174 × cxp 5617 “ cima 5622 ⟶wf 6482 ‘cfv 6486 (class class class)co 7352 ∈ cmpo 7354 ↑_m cmap 8756 0cc0 11013 1c1 11014 · cmul 11018 ℝ^*cxr 11152 < clt 11153 ≤ cle 11154 − cmin 11351 / cdiv 11781 ℕcn 12132 ℕ₀cn0 12388 ℤcz 12475 ...cfz 13409 ↑cexp 13970 ♯chash 14239 Σcsu 15595 ∥ cdvds 16165 gcd cgcd 16407 ℙcprime 16584 Basecbs 17122 +_gcplusg 17163 0_gc0g 17345 Σ_g cgsu 17346 Mndcmnd 18644 ._gcmg 18982 mulGrpcmgp 20060 Ringcrg 20153 CRingccrg 20154 RingHom crh 20389 RingIso crs 20390 NzRingcnzr 20429 IDomncidom 20610 DivRingcdr 20646 Fieldcfield 20647 ℤ_ringczring 21385 ℤRHomczrh 21438 chrcchr 21440 ℤ/nℤczn 21441 algSccascl 21791 var₁cv1 22089 Poly₁cpl1 22090 eval₁ce1 22230 deg₁cdg1 25987 PrimRoots cprimroots 42204

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 5219 ax-sep 5236 ax-nul 5246 ax-pow 5305 ax-pr 5372 ax-un 7674 ax-inf2 9538 ax-cnex 11069 ax-resscn 11070 ax-1cn 11071 ax-icn 11072 ax-addcl 11073 ax-addrcl 11074 ax-mulcl 11075 ax-mulrcl 11076 ax-mulcom 11077 ax-addass 11078 ax-mulass 11079 ax-distr 11080 ax-i2m1 11081 ax-1ne0 11082 ax-1rid 11083 ax-rnegex 11084 ax-rrecex 11085 ax-cnre 11086 ax-pre-lttri 11087 ax-pre-lttrn 11088 ax-pre-ltadd 11089 ax-pre-mulgt0 11090 ax-pre-sup 11091 ax-addf 11092 ax-mulf 11093

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 4475 df-pw 4551 df-sn 4576 df-pr 4578 df-tp 4580 df-op 4582 df-uni 4859 df-int 4898 df-iun 4943 df-iin 4944 df-br 5094 df-opab 5156 df-mpt 5175 df-tr 5201 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7309 df-ov 7355 df-oprab 7356 df-mpo 7357 df-of 7616 df-ofr 7617 df-om 7803 df-1st 7927 df-2nd 7928 df-supp 8097 df-tpos 8162 df-frecs 8217 df-wrecs 8248 df-recs 8297 df-rdg 8335 df-1o 8391 df-2o 8392 df-er 8628 df-map 8758 df-pm 8759 df-ixp 8828 df-en 8876 df-dom 8877 df-sdom 8878 df-fin 8879 df-fsupp 9253 df-sup 9333 df-oi 9403 df-card 9839 df-pnf 11155 df-mnf 11156 df-xr 11157 df-ltxr 11158 df-le 11159 df-sub 11353 df-neg 11354 df-div 11782 df-nn 12133 df-2 12195 df-3 12196 df-4 12197 df-5 12198 df-6 12199 df-7 12200 df-8 12201 df-9 12202 df-n0 12389 df-z 12476 df-dec 12595 df-uz 12739 df-rp 12893 df-fz 13410 df-fzo 13557 df-seq 13911 df-exp 13971 df-hash 14240 df-cj 15008 df-re 15009 df-im 15010 df-sqrt 15144 df-abs 15145 df-clim 15397 df-sum 15596 df-struct 17060 df-sets 17077 df-slot 17095 df-ndx 17107 df-base 17123 df-ress 17144 df-plusg 17176 df-mulr 17177 df-starv 17178 df-sca 17179 df-vsca 17180 df-ip 17181 df-tset 17182 df-ple 17183 df-ds 17185 df-unif 17186 df-hom 17187 df-cco 17188 df-0g 17347 df-gsum 17348 df-prds 17353 df-pws 17355 df-mre 17490 df-mrc 17491 df-acs 17493 df-mgm 18550 df-sgrp 18629 df-mnd 18645 df-mhm 18693 df-submnd 18694 df-grp 18851 df-minusg 18852 df-sbg 18853 df-mulg 18983 df-subg 19038 df-ghm 19127 df-cntz 19231 df-cmn 19696 df-abl 19697 df-mgp 20061 df-rng 20073 df-ur 20102 df-ring 20155 df-cring 20156 df-oppr 20257 df-dvdsr 20277 df-unit 20278 df-invr 20308 df-rhm 20392 df-nzr 20430 df-subrng 20463 df-subrg 20487 df-rlreg 20611 df-domn 20612 df-idom 20613 df-drng 20648 df-field 20649 df-lmod 20797 df-lss 20867 df-cnfld 21294 df-zring 21386 df-zrh 21442 df-ascl 21794 df-psr 21848 df-mvr 21849 df-mpl 21850 df-opsr 21852 df-psr1 22093 df-vr1 22094 df-ply1 22095 df-coe1 22096 df-mdeg 25988 df-deg1 25989

This theorem is referenced by: aks6d1c6lem3 42285

W3C validator