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 42143

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 6824	. . 3 ⊢ (𝜑 → (𝐺‘𝑈) = ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈))
4	3	fveq2d 6826	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)))
5		eqidd 2730	. . . . 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 6824	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → (𝑔‘𝑖) = (𝑈‘𝑖))
8	7	oveq1d 7364	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))
9	8	mpteq2dva 5185	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝑈) → (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
10	9	oveq2d 7365	. . . . 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 7384	. . . . 5 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ V)
13	5, 10, 11, 12	fvmptd 6937	. . . 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 6826	. . 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 20656	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
17	15, 16	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
18		fzfid 13880	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
19		eqid 2729	. . . . . . . . . 10 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
20		eqid 2729	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
21	19, 20	mgpbas 20030	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
22		eqid 2729	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘(Poly₁‘𝐾))) = (._g‘(mulGrp‘(Poly₁‘𝐾)))
23	15	fldcrngd 20627	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ CRing)
24		crngring 20130	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
25	23, 24	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Ring)
26		eqid 2729	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
27	26	ply1ring 22130	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Ring → (Poly₁‘𝐾) ∈ Ring)
28	25, 27	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
29	19	ringmgp 20124	. . . . . . . . . . 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 12390	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
33	32	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℕ₀ ∈ V)
34		ovexd 7384	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...𝐴) ∈ V)
35	33, 34	elmapd 8767	. . . . . . . . . . . 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 7019	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑈‘𝑖) ∈ ℕ₀)
40		2fveq3 6827	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑖 → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))
41	40	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑖 → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))
42	41	eleq1d 2813	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾))))
43		ringmnd 20128	. . . . . . . . . . . . . . 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 2729	. . . . . . . . . . . . . . 15 ⊢ (var₁‘𝐾) = (var₁‘𝐾)
48	47, 26, 20	vr1cl 22100	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
49	46, 48	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
50		eqid 2729	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
51	50	zrhrhm 21418	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
52	25, 51	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
53		zringbas 21360	. . . . . . . . . . . . . . . . . 18 ⊢ ℤ = (Base‘ℤ_ring)
54		eqid 2729	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐾) = (Base‘𝐾)
55	53, 54	rhmf 20370	. . . . . . . . . . . . . . . . 17 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
56	52, 55	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
57	56	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
58		elfzelz 13427	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (0...𝐴) → 𝑡 ∈ ℤ)
59	58	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ ℤ)
60	57, 59	ffvelcdmd 7019	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾))
61		eqid 2729	. . . . . . . . . . . . . . 15 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
62	26, 61, 54, 20	ply1sclcl 22170	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
63	46, 60, 62	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
64		eqid 2729	. . . . . . . . . . . . . 14 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
65	20, 64	mndcl 18616	. . . . . . . . . . . . 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 3121	. . . . . . . . . . 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 3578	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
70	21, 22, 31, 39, 69	mulgnn0cld 18974	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
71	26	ply1idom 26028	. . . . . . . . . . 11 ⊢ (𝐾 ∈ IDomn → (Poly₁‘𝐾) ∈ IDomn)
72	17, 71	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ IDomn)
73	72	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ IDomn)
74	41	neeq1d 2984	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾))))
75		eqid 2729	. . . . . . . . . . . . . . . 16 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
76	75, 26, 20	deg1xrcl 25985	. . . . . . . . . . . . . . . . . . 19 ⊢ (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
77	63, 76	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
78		0xr 11162	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℝ^*
79	78	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 ∈ ℝ^*)
80		1xr 11174	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 ∈ ℝ^*
81	80	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℝ^*)
82	75, 26, 54, 61	deg1sclle 26015	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
83	46, 60, 82	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
84		0lt1 11642	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 1
85	84	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 < 1)
86	77, 79, 81, 83, 85	xrlelttrd 13062	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < 1)
87	21, 22	mulg1 18960	. . . . . . . . . . . . . . . . . . . . 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 2735	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) = (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)))
90	89	fveq2d 6826	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))))
91		isfld 20625	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
92		drngnzr 20633	. . . . . . . . . . . . . . . . . . . . . . 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 12400	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
98	97	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℕ₀)
99	75, 26, 47, 19, 22	deg1pw 26024	. . . . . . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 = ((deg₁‘𝐾)‘(var₁‘𝐾)))
102	86, 101	breqtrd 5118	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < ((deg₁‘𝐾)‘(var₁‘𝐾)))
103	26, 75, 46, 20, 64, 49, 63, 102	deg1add 26006	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = ((deg₁‘𝐾)‘(var₁‘𝐾)))
104	90, 100	eqtrd 2764	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = 1)
105	103, 104	eqtrd 2764	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = 1)
106	105, 98	eqeltrd 2828	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀)
107		eqid 2729	. . . . . . . . . . . . . . 15 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
108	75, 26, 107, 20	deg1nn0clb 25993	. . . . . . . . . . . . . 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 3121	. . . . . . . . . . 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 3578	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾)))
114	73, 69, 113, 39, 22	idomnnzpownz 42105	. . . . . . . 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 3121	. . . . . 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 42113	. . . . 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 2730	. . . . . . . 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 6826	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → (𝑈‘𝑖) = (𝑈‘𝑡))
122	120	fveq2d 6826	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((ℤRHom‘𝐾)‘𝑖) = ((ℤRHom‘𝐾)‘𝑡))
123	122	fveq2d 6826	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))
124	123	oveq2d 7365	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))
125	121, 124	oveq12d 7367	. . . . . . . 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 7384	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ V)
128	119, 125, 126, 127	fvmptd 6937	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
129	128	fveq2d 6826	. . . . . 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 7018	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℕ₀)
132	130, 66, 110, 131, 22, 75	deg1pow 42114	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
133	105	oveq2d 7365	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · 1))
134	131	nn0cnd 12447	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℂ)
135	134	mulridd 11132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · 1) = (𝑈‘𝑡))
136	133, 135	eqtrd 2764	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
137	132, 136	eqtrd 2764	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
138	129, 137	eqtrd 2764	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = (𝑈‘𝑡))
139	138	sumeq2dv 15609	. . . 4 ⊢ (𝜑 → Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
140	118, 139	eqtrd 2764	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
141	14, 140	eqtrd 2764	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
142	4, 141	eqtrd 2764	1 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 {crab 3394 Vcvv 3436 class class class wbr 5092 {copab 5154 ↦ cmpt 5173 × cxp 5617 “ cima 5622 ⟶wf 6478 ‘cfv 6482 (class class class)co 7349 ∈ cmpo 7351 ↑_m cmap 8753 0cc0 11009 1c1 11010 · cmul 11014 ℝ^*cxr 11148 < clt 11149 ≤ cle 11150 − cmin 11347 / cdiv 11777 ℕcn 12128 ℕ₀cn0 12384 ℤcz 12471 ...cfz 13410 ↑cexp 13968 ♯chash 14237 Σcsu 15593 ∥ cdvds 16163 gcd cgcd 16405 ℙcprime 16582 Basecbs 17120 +_gcplusg 17161 0_gc0g 17343 Σ_g cgsu 17344 Mndcmnd 18608 ._gcmg 18946 mulGrpcmgp 20025 Ringcrg 20118 CRingccrg 20119 RingHom crh 20354 RingIso crs 20355 NzRingcnzr 20397 IDomncidom 20578 DivRingcdr 20614 Fieldcfield 20615 ℤ_ringczring 21353 ℤRHomczrh 21406 chrcchr 21408 ℤ/nℤczn 21409 algSccascl 21759 var₁cv1 22058 Poly₁cpl1 22059 eval₁ce1 22199 deg₁cdg1 25957 PrimRoots cprimroots 42064

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-inf2 9537 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-pre-sup 11087 ax-addf 11088 ax-mulf 11089

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4859 df-int 4897 df-iun 4943 df-iin 4944 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 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 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-of 7613 df-ofr 7614 df-om 7800 df-1st 7924 df-2nd 7925 df-supp 8094 df-tpos 8159 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-2o 8389 df-er 8625 df-map 8755 df-pm 8756 df-ixp 8825 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-fsupp 9252 df-sup 9332 df-oi 9402 df-card 9835 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-div 11778 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-7 12196 df-8 12197 df-9 12198 df-n0 12385 df-z 12472 df-dec 12592 df-uz 12736 df-rp 12894 df-fz 13411 df-fzo 13558 df-seq 13909 df-exp 13969 df-hash 14238 df-cj 15006 df-re 15007 df-im 15008 df-sqrt 15142 df-abs 15143 df-clim 15395 df-sum 15594 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-hom 17185 df-cco 17186 df-0g 17345 df-gsum 17346 df-prds 17351 df-pws 17353 df-mre 17488 df-mrc 17489 df-acs 17491 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-mhm 18657 df-submnd 18658 df-grp 18815 df-minusg 18816 df-sbg 18817 df-mulg 18947 df-subg 19002 df-ghm 19092 df-cntz 19196 df-cmn 19661 df-abl 19662 df-mgp 20026 df-rng 20038 df-ur 20067 df-ring 20120 df-cring 20121 df-oppr 20222 df-dvdsr 20242 df-unit 20243 df-invr 20273 df-rhm 20357 df-nzr 20398 df-subrng 20431 df-subrg 20455 df-rlreg 20579 df-domn 20580 df-idom 20581 df-drng 20616 df-field 20617 df-lmod 20765 df-lss 20835 df-cnfld 21262 df-zring 21354 df-zrh 21410 df-ascl 21762 df-psr 21816 df-mvr 21817 df-mpl 21818 df-opsr 21820 df-psr1 22062 df-vr1 22063 df-ply1 22064 df-coe1 22065 df-mdeg 25958 df-deg1 25959

This theorem is referenced by: aks6d1c6lem3 42145

W3C validator