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 43037

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 6881	. . 3 ⊢ (𝜑 → (𝐺‘𝑈) = ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈))
4	3	fveq2d 6883	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)))
5		eqidd 2761	. . . . 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 781	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → 𝑔 = 𝑈)
7	6	fveq1d 6881	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → (𝑔‘𝑖) = (𝑈‘𝑖))
8	7	oveq1d 7429	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))
9	8	mpteq2dva 5198	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝑈) → (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
10	9	oveq2d 7430	. . . . 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 7449	. . . . 5 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ V)
13	5, 10, 11, 12	fvmptd 6995	. . . 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 6883	. . 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 20939	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
17	15, 16	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
18		fzfid 14038	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
19		eqid 2760	. . . . . . . . . 10 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
20		eqid 2760	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
21	19, 20	mgpbas 20279	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
22		eqid 2760	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘(Poly₁‘𝐾))) = (._g‘(mulGrp‘(Poly₁‘𝐾)))
23	15	fldcrngd 20906	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ CRing)
24		crngring 20385	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
25	23, 24	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Ring)
26		eqid 2760	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
27	26	ply1ring 22473	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Ring → (Poly₁‘𝐾) ∈ Ring)
28	25, 27	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
29	19	ringmgp 20379	. . . . . . . . . . 11 ⊢ ((Poly₁‘𝐾) ∈ Ring → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
30	28, 29	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
31	30	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (mulGrp‘(Poly₁‘𝐾)) ∈ Mnd)
32		nn0ex 12535	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
33	32	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℕ₀ ∈ V)
34		ovexd 7449	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...𝐴) ∈ V)
35	33, 34	elmapd 8840	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈 ∈ (ℕ₀ ↑_m (0...𝐴)) ↔ 𝑈:(0...𝐴)⟶ℕ₀))
36	11, 35	mpbid 235	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈:(0...𝐴)⟶ℕ₀)
37	36	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑈:(0...𝐴)⟶ℕ₀)
38		simpr 490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑖 ∈ (0...𝐴))
39	37, 38	ffvelcdmd 7079	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑈‘𝑖) ∈ ℕ₀)
40		2fveq3 6884	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑖 → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))
41	40	oveq2d 7430	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑖 → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))
42	41	eleq1d 2845	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾))))
43		ringmnd 20383	. . . . . . . . . . . . . . 15 ⊢ ((Poly₁‘𝐾) ∈ Ring → (Poly₁‘𝐾) ∈ Mnd)
44	28, 43	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Mnd)
45	44	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ Mnd)
46	25	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ Ring)
47		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (var₁‘𝐾) = (var₁‘𝐾)
48	47, 26, 20	vr1cl 22443	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
49	46, 48	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
50		eqid 2760	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
51	50	zrhrhm 21725	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
52	25, 51	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
53		zringbas 21667	. . . . . . . . . . . . . . . . . 18 ⊢ ℤ = (Base‘ℤ_ring)
54		eqid 2760	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐾) = (Base‘𝐾)
55	53, 54	rhmf 20627	. . . . . . . . . . . . . . . . 17 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
56	52, 55	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
57	56	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
58		elfzelz 13579	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (0...𝐴) → 𝑡 ∈ ℤ)
59	58	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ ℤ)
60	57, 59	ffvelcdmd 7079	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾))
61		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
62	26, 61, 54, 20	ply1sclcl 22513	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
63	46, 60, 62	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
64		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
65	20, 64	mndcl 18845	. . . . . . . . . . . . 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 1398	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
67	66	ralrimiva 3154	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
68	67	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)))
69	42, 68, 38	rspcdva 3577	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
70	21, 22, 31, 39, 69	mulgnn0cld 19219	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
71	26	ply1idom 26351	. . . . . . . . . . 11 ⊢ (𝐾 ∈ IDomn → (Poly₁‘𝐾) ∈ IDomn)
72	17, 71	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ IDomn)
73	72	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ IDomn)
74	41	neeq1d 3014	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾))))
75		eqid 2760	. . . . . . . . . . . . . . . 16 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
76	75, 26, 20	deg1xrcl 26308	. . . . . . . . . . . . . . . . . . 19 ⊢ (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
77	63, 76	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
78		0xr 11281	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℝ^*
79	78	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 ∈ ℝ^*)
80		1xr 11293	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 ∈ ℝ^*
81	80	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℝ^*)
82	75, 26, 54, 61	deg1sclle 26338	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
83	46, 60, 82	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
84		0lt1 11761	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 1
85	84	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 < 1)
86	77, 79, 81, 83, 85	xrlelttrd 13212	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < 1)
87	21, 22	mulg1 19205	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)) → (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)) = (var₁‘𝐾))
88	49, 87	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)) = (var₁‘𝐾))
89	88	eqcomd 2766	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) = (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)))
90	89	fveq2d 6883	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))))
91		isfld 20904	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
92		drngnzr 20912	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐾 ∈ DivRing → 𝐾 ∈ NzRing)
93	92	adantr 486	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing) → 𝐾 ∈ NzRing)
94	91, 93	sylbi 220	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐾 ∈ Field → 𝐾 ∈ NzRing)
95	15, 94	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐾 ∈ NzRing)
96	95	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ NzRing)
97		1nn0 12545	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
98	97	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℕ₀)
99	75, 26, 47, 19, 22	deg1pw 26347	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ NzRing ∧ 1 ∈ ℕ₀) → ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))) = 1)
100	96, 98, 99	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))) = 1)
101	90, 100	eqtr2d 2796	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 = ((deg₁‘𝐾)‘(var₁‘𝐾)))
102	86, 101	breqtrd 5131	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < ((deg₁‘𝐾)‘(var₁‘𝐾)))
103	26, 75, 46, 20, 64, 49, 63, 102	deg1add 26329	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = ((deg₁‘𝐾)‘(var₁‘𝐾)))
104	90, 100	eqtrd 2795	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = 1)
105	103, 104	eqtrd 2795	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = 1)
106	105, 98	eqeltrd 2860	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀)
107		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
108	75, 26, 107, 20	deg1nn0clb 26316	. . . . . . . . . . . . . 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 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀))
110	106, 109	mpbird 260	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
111	110	ralrimiva 3154	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
112	111	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ∀𝑡 ∈ (0...𝐴)((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)))
113	74, 112, 38	rspcdva 3577	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾)))
114	73, 69, 113, 39, 22	idomnnzpownz 42999	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ≠ (0_g‘(Poly₁‘𝐾)))
115	70, 114	jca 521	. . . . . . 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 3154	. . . . . 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 43007	. . . . 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 500	. . . 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 2761	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
120		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → 𝑖 = 𝑡)
121	120	fveq2d 6883	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → (𝑈‘𝑖) = (𝑈‘𝑡))
122	120	fveq2d 6883	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((ℤRHom‘𝐾)‘𝑖) = ((ℤRHom‘𝐾)‘𝑡))
123	122	fveq2d 6883	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))
124	123	oveq2d 7430	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))
125	121, 124	oveq12d 7432	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
126		simpr 490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ (0...𝐴))
127		ovexd 7449	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ V)
128	119, 125, 126, 127	fvmptd 6995	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
129	128	fveq2d 6883	. . . . . 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 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝐾 ∈ IDomn)
131	36	ffvelcdmda 7078	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℕ₀)
132	130, 66, 110, 131, 22, 75	deg1pow 43008	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
133	105	oveq2d 7430	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · 1))
134	131	nn0cnd 12592	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℂ)
135	134	mulridd 11251	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · 1) = (𝑈‘𝑡))
136	133, 135	eqtrd 2795	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
137	132, 136	eqtrd 2795	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
138	129, 137	eqtrd 2795	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = (𝑈‘𝑡))
139	138	sumeq2dv 15790	. . . 4 ⊢ (𝜑 → Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
140	118, 139	eqtrd 2795	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
141	14, 140	eqtrd 2795	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
142	4, 141	eqtrd 2795	1 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2955 ∀wral 3076 {crab 3412 Vcvv 3450 class class class wbr 5103 {copab 5167 ↦ cmpt 5186 × cxp 5653 “ cima 5658 ⟶wf 6529 ‘cfv 6533 (class class class)co 7414 ∈ cmpo 7416 ↑_m cmap 8827 0cc0 11125 1c1 11126 · cmul 11130 ℝ^*cxr 11267 < clt 11268 ≤ cle 11269 − cmin 11466 / cdiv 11896 ℕcn 12258 ℕ₀cn0 12529 ℤcz 12616 ...cfz 13562 ↑cexp 14126 ♯chash 14395 Σcsu 15774 ∥ cdvds 16343 gcd cgcd 16585 ℙcprime 16762 Basecbs 17302 +_gcplusg 17343 0_gc0g 17525 Σ_g cgsu 17526 Mndcmnd 18837 ._gcmg 19191 mulGrpcmgp 20274 Ringcrg 20373 CRingccrg 20374 RingHom crh 20611 RingIso crs 20612 NzRingcnzr 20673 IDomncidom 20856 DivRingcdr 20891 Fieldcfield 20892 ℤ_ringczring 21660 ℤRHomczrh 21713 chrcchr 21715 ℤ/nℤczn 21716 algSccascl 22068 var₁cv1 22402 Poly₁cpl1 22403 eval₁ce1 22540 deg₁cdg1 26280 PrimRoots cprimroots 42958

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 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7737 ax-inf2 9621 ax-cnex 11181 ax-resscn 11182 ax-1cn 11183 ax-icn 11184 ax-addcl 11185 ax-addrcl 11186 ax-mulcl 11187 ax-mulrcl 11188 ax-mulcom 11189 ax-addass 11190 ax-mulass 11191 ax-distr 11192 ax-i2m1 11193 ax-1ne0 11194 ax-1rid 11195 ax-rnegex 11196 ax-rrecex 11197 ax-cnre 11198 ax-pre-lttri 11199 ax-pre-lttrn 11200 ax-pre-ltadd 11201 ax-pre-mulgt0 11202 ax-pre-sup 11203 ax-addf 11204 ax-mulf 11205

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 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7371 df-ov 7417 df-oprab 7418 df-mpo 7419 df-of 7679 df-ofr 7680 df-om 7864 df-1st 7987 df-2nd 7988 df-supp 8160 df-tpos 8225 df-frecs 8281 df-wrecs 8312 df-recs 8361 df-rdg 8400 df-1o 8456 df-2o 8457 df-er 8697 df-map 8829 df-pm 8830 df-ixp 8906 df-en 8954 df-dom 8955 df-sdom 8956 df-fin 8957 df-fsupp 9333 df-sup 9413 df-oi 9483 df-card 9945 df-pnf 11270 df-mnf 11271 df-xr 11272 df-ltxr 11273 df-le 11274 df-sub 11468 df-neg 11469 df-div 11897 df-nn 12259 df-2 12328 df-3 12329 df-4 12330 df-5 12331 df-6 12332 df-7 12333 df-8 12334 df-9 12335 df-n0 12530 df-z 12617 df-dec 12738 df-uz 12889 df-rp 13044 df-fz 13563 df-fzo 13711 df-seq 14067 df-exp 14127 df-hash 14396 df-cj 15187 df-re 15188 df-im 15189 df-sqrt 15323 df-abs 15324 df-clim 15576 df-sum 15775 df-struct 17240 df-sets 17257 df-slot 17275 df-ndx 17287 df-base 17303 df-ress 17324 df-plusg 17356 df-mulr 17357 df-starv 17358 df-sca 17359 df-vsca 17360 df-ip 17361 df-tset 17362 df-ple 17363 df-ds 17365 df-unif 17366 df-hom 17367 df-cco 17368 df-0g 17527 df-gsum 17528 df-prds 17533 df-pws 17535 df-mre 17671 df-mrc 17672 df-acs 17674 df-mgm 18731 df-sgrp 18822 df-mnd 18838 df-mhm 18892 df-submnd 18893 df-grp 19061 df-minusg 19062 df-sbg 19063 df-mulg 19192 df-subg 19247 df-ghm 19342 df-cntz 19445 df-cmn 19910 df-abl 19911 df-mgp 20275 df-rng 20289 df-ur 20322 df-ring 20375 df-cring 20376 df-oppr 20479 df-dvdsr 20499 df-unit 20500 df-invr 20530 df-rhm 20614 df-nzr 20674 df-subrng 20709 df-subrg 20733 df-rlreg 20857 df-domn 20858 df-idom 20859 df-drng 20893 df-field 20894 df-lmod 21047 df-lss 21117 df-cnfld 21587 df-zring 21661 df-zrh 21717 df-ascl 22071 df-psr 22125 df-mvr 22126 df-mpl 22127 df-opsr 22129 df-psr1 22406 df-vr1 22407 df-ply1 22408 df-coe1 22409 df-mdeg 26281 df-deg1 26282

This theorem is used by: aks6d1c6lem3 43039

W3C validator