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 43220

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 6887	. . 3 ⊢ (𝜑 → (𝐺‘𝑈) = ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈))
4	3	fveq2d 6889	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘(𝐺‘𝑈)) = ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)))
5		eqidd 2762	. . . . 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 6887	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → (𝑔‘𝑖) = (𝑈‘𝑖))
8	7	oveq1d 7435	. . . . . . 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 7436	. . . . 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 7455	. . . . 5 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ V)
13	5, 10, 11, 12	fvmptd 7001	. . . 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 6889	. . 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 21029	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
17	15, 16	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
18		fzfid 14116	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
19		eqid 2761	. . . . . . . . . 10 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
20		eqid 2761	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
21	19, 20	mgpbas 20365	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
22		eqid 2761	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘(Poly₁‘𝐾))) = (._g‘(mulGrp‘(Poly₁‘𝐾)))
23	15	fldcrngd 20995	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ CRing)
24		crngring 20472	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
25	23, 24	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Ring)
26		eqid 2761	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
27	26	ply1ring 22565	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Ring → (Poly₁‘𝐾) ∈ Ring)
28	25, 27	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
29	19	ringmgp 20465	. . . . . . . . . . 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 12612	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
33	32	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℕ₀ ∈ V)
34		ovexd 7455	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...𝐴) ∈ V)
35	33, 34	elmapd 8860	. . . . . . . . . . . 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 7085	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑈‘𝑖) ∈ ℕ₀)
40		2fveq3 6890	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑖 → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))
41	40	oveq2d 7436	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑖 → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))
42	41	eleq1d 2846	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ (Base‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾))))
43		ringmnd 20470	. . . . . . . . . . . . . . 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 2761	. . . . . . . . . . . . . . 15 ⊢ (var₁‘𝐾) = (var₁‘𝐾)
48	47, 26, 20	vr1cl 22535	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
49	46, 48	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
50		eqid 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
51	50	zrhrhm 21817	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
52	25, 51	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
53		zringbas 21759	. . . . . . . . . . . . . . . . . 18 ⊢ ℤ = (Base‘ℤ_ring)
54		eqid 2761	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐾) = (Base‘𝐾)
55	53, 54	rhmf 20715	. . . . . . . . . . . . . . . . 17 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
56	52, 55	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
57	56	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
58		elfzelz 13656	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (0...𝐴) → 𝑡 ∈ ℤ)
59	58	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ ℤ)
60	57, 59	ffvelcdmd 7085	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾))
61		eqid 2761	. . . . . . . . . . . . . . 15 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
62	26, 61, 54, 20	ply1sclcl 22605	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
63	46, 60, 62	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)))
64		eqid 2761	. . . . . . . . . . . . . 14 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
65	20, 64	mndcl 18931	. . . . . . . . . . . . 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 3155	. . . . . . . . . . 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 3578	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
70	21, 22, 31, 39, 69	mulgnn0cld 19305	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
71	26	ply1idom 26443	. . . . . . . . . . 11 ⊢ (𝐾 ∈ IDomn → (Poly₁‘𝐾) ∈ IDomn)
72	17, 71	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ IDomn)
73	72	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (Poly₁‘𝐾) ∈ IDomn)
74	41	neeq1d 3015	. . . . . . . . . 10 ⊢ (𝑡 = 𝑖 → (((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≠ (0_g‘(Poly₁‘𝐾)) ↔ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾))))
75		eqid 2761	. . . . . . . . . . . . . . . 16 ⊢ (deg₁‘𝐾) = (deg₁‘𝐾)
76	75, 26, 20	deg1xrcl 26400	. . . . . . . . . . . . . . . . . . 19 ⊢ (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
77	63, 76	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
78		0xr 11356	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℝ^*
79	78	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 ∈ ℝ^*)
80		1xr 11368	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 ∈ ℝ^*
81	80	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℝ^*)
82	75, 26, 54, 61	deg1sclle 26430	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
83	46, 60, 82	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
84		0lt1 11838	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 1
85	84	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 < 1)
86	77, 79, 81, 83, 85	xrlelttrd 13289	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < 1)
87	21, 22	mulg1 19291	. . . . . . . . . . . . . . . . . . . . 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 2767	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) = (1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾)))
90	89	fveq2d 6889	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))))
91		isfld 20993	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
92		drngnzr 21002	. . . . . . . . . . . . . . . . . . . . . . 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 12622	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
98	97	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℕ₀)
99	75, 26, 47, 19, 22	deg1pw 26439	. . . . . . . . . . . . . . . . . . 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 2797	. . . . . . . . . . . . . . . . 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 26421	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = ((deg₁‘𝐾)‘(var₁‘𝐾)))
104	90, 100	eqtrd 2796	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = 1)
105	103, 104	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) = 1)
106	105, 98	eqeltrd 2861	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ ℕ₀)
107		eqid 2761	. . . . . . . . . . . . . . 15 ⊢ (0_g‘(Poly₁‘𝐾)) = (0_g‘(Poly₁‘𝐾))
108	75, 26, 107, 20	deg1nn0clb 26408	. . . . . . . . . . . . . 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 3155	. . . . . . . . . . 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 3578	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾)))
114	73, 69, 113, 39, 22	idomnnzpownz 43182	. . . . . . . 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 3155	. . . . . 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 43190	. . . . 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 2762	. . . . . . . 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 6889	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → (𝑈‘𝑖) = (𝑈‘𝑡))
122	120	fveq2d 6889	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((ℤRHom‘𝐾)‘𝑖) = ((ℤRHom‘𝐾)‘𝑡))
123	122	fveq2d 6889	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))
124	123	oveq2d 7436	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))
125	121, 124	oveq12d 7438	. . . . . . . 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 7455	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ V)
128	119, 125, 126, 127	fvmptd 7001	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
129	128	fveq2d 6889	. . . . . 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 7084	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℕ₀)
132	130, 66, 110, 131, 22, 75	deg1pow 43191	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
133	105	oveq2d 7436	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · 1))
134	131	nn0cnd 12669	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℂ)
135	134	mulridd 11326	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · 1) = (𝑈‘𝑡))
136	133, 135	eqtrd 2796	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
137	132, 136	eqtrd 2796	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = (𝑈‘𝑡))
138	129, 137	eqtrd 2796	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = (𝑈‘𝑡))
139	138	sumeq2dv 15869	. . . 4 ⊢ (𝜑 → Σ𝑡 ∈ (0...𝐴)((deg₁‘𝐾)‘((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
140	118, 139	eqtrd 2796	. . 3 ⊢ (𝜑 → ((deg₁‘𝐾)‘((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
141	14, 140	eqtrd 2796	. 2 ⊢ (𝜑 → ((deg₁‘𝐾)‘((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈)) = Σ𝑡 ∈ (0...𝐴)(𝑈‘𝑡))
142	4, 141	eqtrd 2796	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 2956 ∀wral 3077 {crab 3413 Vcvv 3451 class class class wbr 5103 {copab 5167 ↦ cmpt 5186 × cxp 5649 “ cima 5654 ⟶wf 6534 ‘cfv 6538 (class class class)co 7420 ∈ cmpo 7422 ↑_m cmap 8847 0cc0 11200 1c1 11201 · cmul 11205 ℝ^*cxr 11342 < clt 11343 ≤ cle 11344 − cmin 11541 / cdiv 11973 ℕcn 12335 ℕ₀cn0 12606 ℤcz 12693 ...cfz 13639 ↑cexp 14204 ♯chash 14474 Σcsu 15853 ∥ cdvds 16422 gcd cgcd 16664 ℙcprime 16846 Basecbs 17387 +_gcplusg 17428 0_gc0g 17610 Σ_g cgsu 17611 Mndcmnd 18923 ._gcmg 19277 mulGrpcmgp 20360 Ringcrg 20459 CRingccrg 20460 RingHom crh 20699 RingIso crs 20700 NzRingcnzr 20762 IDomncidom 20945 DivRingcdr 20980 Fieldcfield 20981 ℤ_ringczring 21752 ℤRHomczrh 21805 chrcchr 21807 ℤ/nℤczn 21808 algSccascl 22160 var₁cv1 22494 Poly₁cpl1 22495 eval₁ce1 22632 deg₁cdg1 26372 PrimRoots cprimroots 43141

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 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7751 ax-inf2 9642 ax-cnex 11256 ax-resscn 11257 ax-1cn 11258 ax-icn 11259 ax-addcl 11260 ax-addrcl 11261 ax-mulcl 11262 ax-mulrcl 11263 ax-mulcom 11264 ax-addass 11265 ax-mulass 11266 ax-distr 11267 ax-i2m1 11268 ax-1ne0 11269 ax-1rid 11270 ax-rnegex 11271 ax-rrecex 11272 ax-cnre 11273 ax-pre-lttri 11274 ax-pre-lttrn 11275 ax-pre-ltadd 11276 ax-pre-mulgt0 11277 ax-pre-sup 11278 ax-addf 11279 ax-mulf 11280

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 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 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 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-isom 6547 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-ofr 7694 df-om 7878 df-1st 8001 df-2nd 8002 df-supp 8178 df-tpos 8243 df-frecs 8299 df-wrecs 8330 df-recs 8379 df-rdg 8418 df-1o 8476 df-2o 8477 df-er 8717 df-map 8849 df-pm 8850 df-ixp 8926 df-en 8974 df-dom 8975 df-sdom 8976 df-fin 8977 df-fsupp 9354 df-sup 9434 df-oi 9504 df-card 10020 df-pnf 11345 df-mnf 11346 df-xr 11347 df-ltxr 11348 df-le 11349 df-sub 11543 df-neg 11544 df-div 11974 df-nn 12336 df-2 12405 df-3 12406 df-4 12407 df-5 12408 df-6 12409 df-7 12410 df-8 12411 df-9 12412 df-n0 12607 df-z 12694 df-dec 12815 df-uz 12966 df-rp 13121 df-fz 13640 df-fzo 13789 df-seq 14145 df-exp 14205 df-hash 14475 df-cj 15266 df-re 15267 df-im 15268 df-sqrt 15402 df-abs 15403 df-clim 15655 df-sum 15854 df-struct 17325 df-sets 17342 df-slot 17360 df-ndx 17372 df-base 17388 df-ress 17409 df-plusg 17441 df-mulr 17442 df-starv 17443 df-sca 17444 df-vsca 17445 df-ip 17446 df-tset 17447 df-ple 17448 df-ds 17450 df-unif 17451 df-hom 17452 df-cco 17453 df-0g 17612 df-gsum 17613 df-prds 17618 df-pws 17620 df-mre 17756 df-mrc 17757 df-acs 17759 df-mgm 18816 df-sgrp 18908 df-mnd 18924 df-mhm 18978 df-submnd 18979 df-grp 19147 df-minusg 19148 df-sbg 19149 df-mulg 19278 df-subg 19333 df-ghm 19428 df-cntz 19531 df-cmn 19996 df-abl 19997 df-mgp 20361 df-rng 20375 df-ur 20408 df-ring 20461 df-cring 20462 df-oppr 20567 df-dvdsr 20587 df-unit 20588 df-invr 20618 df-rhm 20702 df-nzr 20763 df-subrng 20798 df-subrg 20822 df-rlreg 20946 df-domn 20947 df-idom 20948 df-drng 20982 df-field 20983 df-lmod 21137 df-lss 21207 df-cnfld 21679 df-zring 21753 df-zrh 21809 df-ascl 22163 df-psr 22217 df-mvr 22218 df-mpl 22219 df-opsr 22221 df-psr1 22498 df-vr1 22499 df-ply1 22500 df-coe1 22501 df-mdeg 26373 df-deg1 26374

This theorem is used by: aks6d1c6lem3 43222

W3C validator