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 42158

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 6860	. . 3 ⊢ (𝜑 → (𝐺‘𝑈) = ((𝑔 ∈ (ℕ₀ ↑_m (0...𝐴)) ↦ ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))‘𝑈))
4	3	fveq2d 6862	. 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 6860	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → (𝑔‘𝑖) = (𝑈‘𝑖))
8	7	oveq1d 7402	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 = 𝑈) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) = ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))
9	8	mpteq2dva 5200	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝑈) → (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))) = (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))))))
10	9	oveq2d 7403	. . . . 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 7422	. . . . 5 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝐾)) Σ_g (𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))) ∈ V)
13	5, 10, 11, 12	fvmptd 6975	. . . 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 6862	. . 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 20680	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
17	15, 16	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
18		fzfid 13938	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
19		eqid 2729	. . . . . . . . . 10 ⊢ (mulGrp‘(Poly₁‘𝐾)) = (mulGrp‘(Poly₁‘𝐾))
20		eqid 2729	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
21	19, 20	mgpbas 20054	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(mulGrp‘(Poly₁‘𝐾)))
22		eqid 2729	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘(Poly₁‘𝐾))) = (._g‘(mulGrp‘(Poly₁‘𝐾)))
23	15	fldcrngd 20651	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ CRing)
24		crngring 20154	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
25	23, 24	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Ring)
26		eqid 2729	. . . . . . . . . . . . 13 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
27	26	ply1ring 22132	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Ring → (Poly₁‘𝐾) ∈ Ring)
28	25, 27	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ Ring)
29	19	ringmgp 20148	. . . . . . . . . . 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 12448	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
33	32	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℕ₀ ∈ V)
34		ovexd 7422	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...𝐴) ∈ V)
35	33, 34	elmapd 8813	. . . . . . . . . . . 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 7057	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑈‘𝑖) ∈ ℕ₀)
40		2fveq3 6863	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑖 → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))
41	40	oveq2d 7403	. . . . . . . . . . 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 20152	. . . . . . . . . . . . . . 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 22102	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
49	46, 48	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
50		eqid 2729	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
51	50	zrhrhm 21421	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
52	25, 51	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
53		zringbas 21363	. . . . . . . . . . . . . . . . . 18 ⊢ ℤ = (Base‘ℤ_ring)
54		eqid 2729	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐾) = (Base‘𝐾)
55	53, 54	rhmf 20394	. . . . . . . . . . . . . . . . 17 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
56	52, 55	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
57	56	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
58		elfzelz 13485	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (0...𝐴) → 𝑡 ∈ ℤ)
59	58	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 𝑡 ∈ ℤ)
60	57, 59	ffvelcdmd 7057	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾))
61		eqid 2729	. . . . . . . . . . . . . . 15 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
62	26, 61, 54, 20	ply1sclcl 22172	. . . . . . . . . . . . . 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 18669	. . . . . . . . . . . . 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 3589	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ∈ (Base‘(Poly₁‘𝐾)))
70	21, 22, 31, 39, 69	mulgnn0cld 19027	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))) ∈ (Base‘(Poly₁‘𝐾)))
71	26	ply1idom 26030	. . . . . . . . . . 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 25987	. . . . . . . . . . . . . . . . . . 19 ⊢ (((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)) ∈ (Base‘(Poly₁‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
77	63, 76	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ∈ ℝ^*)
78		0xr 11221	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 ∈ ℝ^*
79	78	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 ∈ ℝ^*)
80		1xr 11233	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 ∈ ℝ^*
81	80	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℝ^*)
82	75, 26, 54, 61	deg1sclle 26017	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝑡) ∈ (Base‘𝐾)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
83	46, 60, 82	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) ≤ 0)
84		0lt1 11700	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 1
85	84	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 0 < 1)
86	77, 79, 81, 83, 85	xrlelttrd 13120	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < 1)
87	21, 22	mulg1 19013	. . . . . . . . . . . . . . . . . . . . 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 6862	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘(var₁‘𝐾)) = ((deg₁‘𝐾)‘(1(._g‘(mulGrp‘(Poly₁‘𝐾)))(var₁‘𝐾))))
91		isfld 20649	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
92		drngnzr 20657	. . . . . . . . . . . . . . . . . . . . . . 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 12458	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ∈ ℕ₀
98	97	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → 1 ∈ ℕ₀)
99	75, 26, 47, 19, 22	deg1pw 26026	. . . . . . . . . . . . . . . . . . 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 5133	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))) < ((deg₁‘𝐾)‘(var₁‘𝐾)))
103	26, 75, 46, 20, 64, 49, 63, 102	deg1add 26008	. . . . . . . . . . . . . . 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 25995	. . . . . . . . . . . . . 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 3589	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) ≠ (0_g‘(Poly₁‘𝐾)))
114	73, 69, 113, 39, 22	idomnnzpownz 42120	. . . . . . . 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 42128	. . . . 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 6862	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → (𝑈‘𝑖) = (𝑈‘𝑡))
122	120	fveq2d 6862	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((ℤRHom‘𝐾)‘𝑖) = ((ℤRHom‘𝐾)‘𝑡))
123	122	fveq2d 6862	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)) = ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))
124	123	oveq2d 7403	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑡 ∈ (0...𝐴)) ∧ 𝑖 = 𝑡) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))
125	121, 124	oveq12d 7405	. . . . . . . 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 7422	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))) ∈ V)
128	119, 125, 126, 127	fvmptd 6975	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑖 ∈ (0...𝐴) ↦ ((𝑈‘𝑖)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))‘𝑡) = ((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡)))))
129	128	fveq2d 6862	. . . . . 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 7056	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℕ₀)
132	130, 66, 110, 131, 22, 75	deg1pow 42129	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((deg₁‘𝐾)‘((𝑈‘𝑡)(._g‘(mulGrp‘(Poly₁‘𝐾)))((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))))
133	105	oveq2d 7403	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → ((𝑈‘𝑡) · ((deg₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑡))))) = ((𝑈‘𝑡) · 1))
134	131	nn0cnd 12505	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ (0...𝐴)) → (𝑈‘𝑡) ∈ ℂ)
135	134	mulridd 11191	. . . . . . . 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 15668	. . . 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 3405 Vcvv 3447 class class class wbr 5107 {copab 5169 ↦ cmpt 5188 × cxp 5636 “ cima 5641 ⟶wf 6507 ‘cfv 6511 (class class class)co 7387 ∈ cmpo 7389 ↑_m cmap 8799 0cc0 11068 1c1 11069 · cmul 11073 ℝ^*cxr 11207 < clt 11208 ≤ cle 11209 − cmin 11405 / cdiv 11835 ℕcn 12186 ℕ₀cn0 12442 ℤcz 12529 ...cfz 13468 ↑cexp 14026 ♯chash 14295 Σcsu 15652 ∥ cdvds 16222 gcd cgcd 16464 ℙcprime 16641 Basecbs 17179 +_gcplusg 17220 0_gc0g 17402 Σ_g cgsu 17403 Mndcmnd 18661 ._gcmg 18999 mulGrpcmgp 20049 Ringcrg 20142 CRingccrg 20143 RingHom crh 20378 RingIso crs 20379 NzRingcnzr 20421 IDomncidom 20602 DivRingcdr 20638 Fieldcfield 20639 ℤ_ringczring 21356 ℤRHomczrh 21409 chrcchr 21411 ℤ/nℤczn 21412 algSccascl 21761 var₁cv1 22060 Poly₁cpl1 22061 eval₁ce1 22201 deg₁cdg1 25959 PrimRoots cprimroots 42079

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 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-inf2 9594 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145 ax-pre-sup 11146 ax-addf 11147 ax-mulf 11148

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 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-iin 4958 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-se 5592 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-isom 6520 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-of 7653 df-ofr 7654 df-om 7843 df-1st 7968 df-2nd 7969 df-supp 8140 df-tpos 8205 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-2o 8435 df-er 8671 df-map 8801 df-pm 8802 df-ixp 8871 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-fsupp 9313 df-sup 9393 df-oi 9463 df-card 9892 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-div 11836 df-nn 12187 df-2 12249 df-3 12250 df-4 12251 df-5 12252 df-6 12253 df-7 12254 df-8 12255 df-9 12256 df-n0 12443 df-z 12530 df-dec 12650 df-uz 12794 df-rp 12952 df-fz 13469 df-fzo 13616 df-seq 13967 df-exp 14027 df-hash 14296 df-cj 15065 df-re 15066 df-im 15067 df-sqrt 15201 df-abs 15202 df-clim 15454 df-sum 15653 df-struct 17117 df-sets 17134 df-slot 17152 df-ndx 17164 df-base 17180 df-ress 17201 df-plusg 17233 df-mulr 17234 df-starv 17235 df-sca 17236 df-vsca 17237 df-ip 17238 df-tset 17239 df-ple 17240 df-ds 17242 df-unif 17243 df-hom 17244 df-cco 17245 df-0g 17404 df-gsum 17405 df-prds 17410 df-pws 17412 df-mre 17547 df-mrc 17548 df-acs 17550 df-mgm 18567 df-sgrp 18646 df-mnd 18662 df-mhm 18710 df-submnd 18711 df-grp 18868 df-minusg 18869 df-sbg 18870 df-mulg 19000 df-subg 19055 df-ghm 19145 df-cntz 19249 df-cmn 19712 df-abl 19713 df-mgp 20050 df-rng 20062 df-ur 20091 df-ring 20144 df-cring 20145 df-oppr 20246 df-dvdsr 20266 df-unit 20267 df-invr 20297 df-rhm 20381 df-nzr 20422 df-subrng 20455 df-subrg 20479 df-rlreg 20603 df-domn 20604 df-idom 20605 df-drng 20640 df-field 20641 df-lmod 20768 df-lss 20838 df-cnfld 21265 df-zring 21357 df-zrh 21413 df-ascl 21764 df-psr 21818 df-mvr 21819 df-mpl 21820 df-opsr 21822 df-psr1 22064 df-vr1 22065 df-ply1 22066 df-coe1 22067 df-mdeg 25960 df-deg1 25961

This theorem is referenced by: aks6d1c6lem3 42160

W3C validator