deg1gprod - Mathbox for metakunt

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

Theorem deg1gprod 42927

Description: Degree multiplication is a homomorphism. (Contributed by metakunt, 6-May-2025.)

**Hypotheses**
Ref	Expression
deg1gprod.1	⊢ (𝜑 → 𝑅 ∈ IDomn)
deg1gprod.2	⊢ (𝜑 → 𝑁 ∈ Fin)
deg1gprod.3	⊢ (𝜑 → ∀𝑥 ∈ 𝑁 (𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ 𝐶 ≠ (0_g‘(Poly₁‘𝑅))))

**Assertion**
Ref	Expression
deg1gprod	⊢ (𝜑 → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))) = Σ𝑛 ∈ 𝑁 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶)))))

Distinct variable groups: 𝐶,𝑛 𝑛,𝑁,𝑥 𝑅,𝑛,𝑥 𝜑,𝑛 Allowed substitution hints: 𝜑(𝑥) 𝐶(𝑥)

Proof of Theorem deg1gprod Dummy variables 𝑎 𝑏 𝑐 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mpteq1 5200	. . . . . 6 ⊢ (𝑎 = ∅ → (𝑥 ∈ 𝑎 ↦ 𝐶) = (𝑥 ∈ ∅ ↦ 𝐶))
2	1	oveq2d 7426	. . . . 5 ⊢ (𝑎 = ∅ → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶)))
3	2	fveq2d 6885	. . . 4 ⊢ (𝑎 = ∅ → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))))
4		sumeq1 15736	. . . 4 ⊢ (𝑎 = ∅ → Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
5	3, 4	eqeq12d 2779	. . 3 ⊢ (𝑎 = ∅ → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ↔ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛))))
6	3	breq2d 5121	. . 3 ⊢ (𝑎 = ∅ → (0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) ↔ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶)))))
7	5, 6	anbi12d 643	. 2 ⊢ (𝑎 = ∅ → ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)))) ↔ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))))))
8		mpteq1 5200	. . . . . 6 ⊢ (𝑎 = 𝑏 → (𝑥 ∈ 𝑎 ↦ 𝐶) = (𝑥 ∈ 𝑏 ↦ 𝐶))
9	8	oveq2d 7426	. . . . 5 ⊢ (𝑎 = 𝑏 → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶)))
10	9	fveq2d 6885	. . . 4 ⊢ (𝑎 = 𝑏 → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))
11		sumeq1 15736	. . . 4 ⊢ (𝑎 = 𝑏 → Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
12	10, 11	eqeq12d 2779	. . 3 ⊢ (𝑎 = 𝑏 → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ↔ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛))))
13	10	breq2d 5121	. . 3 ⊢ (𝑎 = 𝑏 → (0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) ↔ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶)))))
14	12, 13	anbi12d 643	. 2 ⊢ (𝑎 = 𝑏 → ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)))) ↔ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))))
15		mpteq1 5200	. . . . . 6 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (𝑥 ∈ 𝑎 ↦ 𝐶) = (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))
16	15	oveq2d 7426	. . . . 5 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)))
17	16	fveq2d 6885	. . . 4 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))))
18		sumeq1 15736	. . . 4 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
19	17, 18	eqeq12d 2779	. . 3 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ↔ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛))))
20	17	breq2d 5121	. . 3 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) ↔ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)))))
21	19, 20	anbi12d 643	. 2 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)))) ↔ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))))))
22		mpteq1 5200	. . . . . 6 ⊢ (𝑎 = 𝑁 → (𝑥 ∈ 𝑎 ↦ 𝐶) = (𝑥 ∈ 𝑁 ↦ 𝐶))
23	22	oveq2d 7426	. . . . 5 ⊢ (𝑎 = 𝑁 → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶)))
24	23	fveq2d 6885	. . . 4 ⊢ (𝑎 = 𝑁 → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))))
25		sumeq1 15736	. . . 4 ⊢ (𝑎 = 𝑁 → Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = Σ𝑛 ∈ 𝑁 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
26	24, 25	eqeq12d 2779	. . 3 ⊢ (𝑎 = 𝑁 → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ↔ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))) = Σ𝑛 ∈ 𝑁 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛))))
27	24	breq2d 5121	. . 3 ⊢ (𝑎 = 𝑁 → (0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) ↔ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶)))))
28	26, 27	anbi12d 643	. 2 ⊢ (𝑎 = 𝑁 → ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶))) = Σ𝑛 ∈ 𝑎 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑎 ↦ 𝐶)))) ↔ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))) = Σ𝑛 ∈ 𝑁 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))))))
29		mpt0 6677	. . . . . . . . 9 ⊢ (𝑥 ∈ ∅ ↦ 𝐶) = ∅
30	29	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ ∅ ↦ 𝐶) = ∅)
31	30	oveq2d 7426	. . . . . . 7 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g ∅))
32		eqid 2763	. . . . . . . . 9 ⊢ (0_g‘(mulGrp‘(Poly₁‘𝑅))) = (0_g‘(mulGrp‘(Poly₁‘𝑅)))
33	32	gsum0 18737	. . . . . . . 8 ⊢ ((mulGrp‘(Poly₁‘𝑅)) Σ_g ∅) = (0_g‘(mulGrp‘(Poly₁‘𝑅)))
34	33	a1i 11	. . . . . . 7 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝑅)) Σ_g ∅) = (0_g‘(mulGrp‘(Poly₁‘𝑅))))
35	31, 34	eqtrd 2798	. . . . . 6 ⊢ (𝜑 → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶)) = (0_g‘(mulGrp‘(Poly₁‘𝑅))))
36	35	fveq2d 6885	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = ((deg₁‘𝑅)‘(0_g‘(mulGrp‘(Poly₁‘𝑅)))))
37		deg1gprod.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ IDomn)
38	37	idomringd 20826	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Ring)
39		eqid 2763	. . . . . . . . . 10 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
40		eqid 2763	. . . . . . . . . 10 ⊢ (algSc‘(Poly₁‘𝑅)) = (algSc‘(Poly₁‘𝑅))
41		eqid 2763	. . . . . . . . . 10 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
42		eqid 2763	. . . . . . . . . . . 12 ⊢ (mulGrp‘(Poly₁‘𝑅)) = (mulGrp‘(Poly₁‘𝑅))
43		eqid 2763	. . . . . . . . . . . 12 ⊢ (1_r‘(Poly₁‘𝑅)) = (1_r‘(Poly₁‘𝑅))
44	42, 43	ringidval 20260	. . . . . . . . . . 11 ⊢ (1_r‘(Poly₁‘𝑅)) = (0_g‘(mulGrp‘(Poly₁‘𝑅)))
45	44	eqcomi 2772	. . . . . . . . . 10 ⊢ (0_g‘(mulGrp‘(Poly₁‘𝑅))) = (1_r‘(Poly₁‘𝑅))
46	39, 40, 41, 45	ply1scl1 22453	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → ((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅)) = (0_g‘(mulGrp‘(Poly₁‘𝑅))))
47	38, 46	syl 18	. . . . . . . 8 ⊢ (𝜑 → ((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅)) = (0_g‘(mulGrp‘(Poly₁‘𝑅))))
48	47	eqcomd 2769	. . . . . . 7 ⊢ (𝜑 → (0_g‘(mulGrp‘(Poly₁‘𝑅))) = ((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅)))
49	48	fveq2d 6885	. . . . . 6 ⊢ (𝜑 → ((deg₁‘𝑅)‘(0_g‘(mulGrp‘(Poly₁‘𝑅)))) = ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅))))
50		eqid 2763	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
51	50, 41	ringidcl 20344	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (1_r‘𝑅) ∈ (Base‘𝑅))
52	38, 51	syl 18	. . . . . . 7 ⊢ (𝜑 → (1_r‘𝑅) ∈ (Base‘𝑅))
53	37	idomdomd 20824	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Domn)
54		domnnzr 20805	. . . . . . . . 9 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
55	53, 54	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ NzRing)
56		eqid 2763	. . . . . . . . 9 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
57	41, 56	nzrnz 20612	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing → (1_r‘𝑅) ≠ (0_g‘𝑅))
58	55, 57	syl 18	. . . . . . 7 ⊢ (𝜑 → (1_r‘𝑅) ≠ (0_g‘𝑅))
59		eqid 2763	. . . . . . . 8 ⊢ (deg₁‘𝑅) = (deg₁‘𝑅)
60	59, 39, 50, 40, 56	deg1scl 26270	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (1_r‘𝑅) ∈ (Base‘𝑅) ∧ (1_r‘𝑅) ≠ (0_g‘𝑅)) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅))) = 0)
61	38, 52, 58, 60	syl3anc 1398	. . . . . 6 ⊢ (𝜑 → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘(1_r‘𝑅))) = 0)
62	49, 61	eqtrd 2798	. . . . 5 ⊢ (𝜑 → ((deg₁‘𝑅)‘(0_g‘(mulGrp‘(Poly₁‘𝑅)))) = 0)
63	36, 62	eqtrd 2798	. . . 4 ⊢ (𝜑 → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = 0)
64		sum0 15768	. . . . . 6 ⊢ Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = 0
65	64	eqcomi 2772	. . . . 5 ⊢ 0 = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛))
66	65	a1i 11	. . . 4 ⊢ (𝜑 → 0 = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
67	63, 66	eqtrd 2798	. . 3 ⊢ (𝜑 → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
68		0red 11206	. . . . 5 ⊢ (𝜑 → 0 ∈ ℝ)
69	68	leidd 11775	. . . 4 ⊢ (𝜑 → 0 ≤ 0)
70	63	eqcomd 2769	. . . 4 ⊢ (𝜑 → 0 = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))))
71	69, 70	breqtrd 5137	. . 3 ⊢ (𝜑 → 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))))
72	67, 71	jca 520	. 2 ⊢ (𝜑 → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶))) = Σ𝑛 ∈ ∅ ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ ∅ ↦ 𝐶)))))
73		nfcv 2925	. . . . . . . . 9 ⊢ Ⅎ𝑦𝐶
74		nfcsb1v 3877	. . . . . . . . 9 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐶
75		csbeq1a 3867	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → 𝐶 = ⦋𝑦 / 𝑥⦌𝐶)
76	73, 74, 75	cbvmpt 5213	. . . . . . . 8 ⊢ (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶) = (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶)
77	76	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶) = (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶))
78	77	oveq2d 7426	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶)))
79	78	fveq2d 6885	. . . . 5 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶))))
80		eqid 2763	. . . . . . . 8 ⊢ (Base‘(mulGrp‘(Poly₁‘𝑅))) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
81		eqid 2763	. . . . . . . 8 ⊢ (+_g‘(mulGrp‘(Poly₁‘𝑅))) = (+_g‘(mulGrp‘(Poly₁‘𝑅)))
82		isidom 20823	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
83	37, 82	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
84	83	simpld 499	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ CRing)
85	39	ply1crng 22358	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → (Poly₁‘𝑅) ∈ CRing)
86	84, 85	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝑅) ∈ CRing)
87	42	crngmgp 20318	. . . . . . . . . . 11 ⊢ ((Poly₁‘𝑅) ∈ CRing → (mulGrp‘(Poly₁‘𝑅)) ∈ CMnd)
88	86, 87	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (mulGrp‘(Poly₁‘𝑅)) ∈ CMnd)
89	88	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → (mulGrp‘(Poly₁‘𝑅)) ∈ CMnd)
90	89	adantr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (mulGrp‘(Poly₁‘𝑅)) ∈ CMnd)
91		deg1gprod.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ Fin)
92	91	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑁 ∈ Fin)
93		simplrl 788	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑏 ⊆ 𝑁)
94	92, 93	ssfid 9225	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑏 ∈ Fin)
95	93	sselda 3937	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → 𝑦 ∈ 𝑁)
96		deg1gprod.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑥 ∈ 𝑁 (𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ 𝐶 ≠ (0_g‘(Poly₁‘𝑅))))
97		r19.26 3125	. . . . . . . . . . . . . 14 ⊢ (∀𝑥 ∈ 𝑁 (𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ 𝐶 ≠ (0_g‘(Poly₁‘𝑅))) ↔ (∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))))
98	97	biimpi 219	. . . . . . . . . . . . 13 ⊢ (∀𝑥 ∈ 𝑁 (𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ 𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → (∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))))
99	96, 98	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))))
100	99	simpld 499	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
101	100	ad3antrrr 742	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
102		rspcsbela 4403	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅))) → ⦋𝑦 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
103	95, 101, 102	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → ⦋𝑦 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
104		eqid 2763	. . . . . . . . . 10 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(Poly₁‘𝑅))
105	42, 104	mgpbas 20216	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
106	103, 105	eleqtrdi 2873	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → ⦋𝑦 / 𝑥⦌𝐶 ∈ (Base‘(mulGrp‘(Poly₁‘𝑅))))
107		eldifi 4085	. . . . . . . . . . 11 ⊢ (𝑐 ∈ (𝑁 ∖ 𝑏) → 𝑐 ∈ 𝑁)
108	107	adantl 486	. . . . . . . . . 10 ⊢ ((𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏)) → 𝑐 ∈ 𝑁)
109	108	adantl 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑐 ∈ 𝑁)
110	109	adantr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑐 ∈ 𝑁)
111		eldifn 4086	. . . . . . . . . . 11 ⊢ (𝑐 ∈ (𝑁 ∖ 𝑏) → ¬ 𝑐 ∈ 𝑏)
112	111	adantl 486	. . . . . . . . . 10 ⊢ ((𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏)) → ¬ 𝑐 ∈ 𝑏)
113	112	adantl 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ¬ 𝑐 ∈ 𝑏)
114	113	adantr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ¬ 𝑐 ∈ 𝑏)
115	100	ad2antrr 738	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
116		rspcsbela 4403	. . . . . . . . . 10 ⊢ ((𝑐 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅))) → ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
117	110, 115, 116	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
118	117, 105	eleqtrdi 2873	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(mulGrp‘(Poly₁‘𝑅))))
119		csbeq1 3856	. . . . . . . 8 ⊢ (𝑦 = 𝑐 → ⦋𝑦 / 𝑥⦌𝐶 = ⦋𝑐 / 𝑥⦌𝐶)
120	80, 81, 90, 94, 106, 110, 114, 118, 119	gsumunsn 20025	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶)) = (((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))(+_g‘(mulGrp‘(Poly₁‘𝑅)))⦋𝑐 / 𝑥⦌𝐶))
121	120	fveq2d 6885	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶))) = ((deg₁‘𝑅)‘(((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))(+_g‘(mulGrp‘(Poly₁‘𝑅)))⦋𝑐 / 𝑥⦌𝐶)))
122		eqid 2763	. . . . . . . . . 10 ⊢ (._r‘(Poly₁‘𝑅)) = (._r‘(Poly₁‘𝑅))
123	42, 122	mgpplusg 20215	. . . . . . . . 9 ⊢ (._r‘(Poly₁‘𝑅)) = (+_g‘(mulGrp‘(Poly₁‘𝑅)))
124	123	eqcomi 2772	. . . . . . . 8 ⊢ (+_g‘(mulGrp‘(Poly₁‘𝑅))) = (._r‘(Poly₁‘𝑅))
125		eqid 2763	. . . . . . . 8 ⊢ (0_g‘(Poly₁‘𝑅)) = (0_g‘(Poly₁‘𝑅))
126	53	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑅 ∈ Domn)
127	126	adantr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑅 ∈ Domn)
128	103	ralrimiva 3157	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ∀𝑦 ∈ 𝑏 ⦋𝑦 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
129	105, 90, 94, 128	gsummptcl 20032	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶)) ∈ (Base‘(Poly₁‘𝑅)))
130	39	ply1idom 26282	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ IDomn → (Poly₁‘𝑅) ∈ IDomn)
131	37, 130	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (Poly₁‘𝑅) ∈ IDomn)
132	131	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → (Poly₁‘𝑅) ∈ IDomn)
133	132	adantr 485	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (Poly₁‘𝑅) ∈ IDomn)
134	99	simprd 500	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
135	134	ad3antrrr 742	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
136		rspcsbnea 42918	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → ⦋𝑦 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
137	95, 135, 136	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) ∧ 𝑦 ∈ 𝑏) → ⦋𝑦 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
138	42, 133, 94, 103, 137	idomnnzgmulnz 42920	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶)) ≠ (0_g‘(Poly₁‘𝑅)))
139	134	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
140		rspcsbnea 42918	. . . . . . . . 9 ⊢ ((𝑐 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → ⦋𝑐 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
141	110, 139, 140	syl2anc 595	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ⦋𝑐 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
142	59, 39, 104, 124, 125, 127, 129, 138, 117, 141	deg1mul 26272	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘(((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))(+_g‘(mulGrp‘(Poly₁‘𝑅)))⦋𝑐 / 𝑥⦌𝐶)) = (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)))
143	73, 74, 75	cbvmpt 5213	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑏 ↦ 𝐶) = (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶)
144	143	eqcomi 2772	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶) = (𝑥 ∈ 𝑏 ↦ 𝐶)
145	144	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶) = (𝑥 ∈ 𝑏 ↦ 𝐶))
146	145	oveq2d 7426	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶)))
147	146	fveq2d 6885	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))) = ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))
148	147	oveq1d 7425	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)) = (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)))
149		simpl 487	. . . . . . . . . . 11 ⊢ ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶)))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
150	149	adantl 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
151	150	oveq1d 7425	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)) = (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)))
152		nfv 1944	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛(𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏)))
153		nfcv 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐))
154	91	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑁 ∈ Fin)
155		simprl 782	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑏 ⊆ 𝑁)
156	154, 155	ssfid 9225	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑏 ∈ Fin)
157	73, 74, 75	cbvmpt 5213	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ 𝑁 ↦ 𝐶) = (𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)
158	157	fveq1i 6882	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛) = ((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛)
159	158	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛) = ((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛))
160	159	fveq2d 6885	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = ((deg₁‘𝑅)‘((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛)))
161		eqidd 2764	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → (𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶) = (𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶))
162		simpr 489	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) ∧ 𝑦 = 𝑛) → 𝑦 = 𝑛)
163	162	csbeq1d 3857	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) ∧ 𝑦 = 𝑛) → ⦋𝑦 / 𝑥⦌𝐶 = ⦋𝑛 / 𝑥⦌𝐶)
164	155	sselda 3937	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → 𝑛 ∈ 𝑁)
165	100	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
166	165	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
167		rspcsbela 4403	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅))) → ⦋𝑛 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
168	164, 166, 167	syl2anc 595	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ⦋𝑛 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
169	161, 163, 164, 168	fvmptd 6997	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛) = ⦋𝑛 / 𝑥⦌𝐶)
170	169	fveq2d 6885	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛)) = ((deg₁‘𝑅)‘⦋𝑛 / 𝑥⦌𝐶))
171	38	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → 𝑅 ∈ Ring)
172	171	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → 𝑅 ∈ Ring)
173	134	ad2antrr 738	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
174		rspcsbnea 42918	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ 𝑁 ∧ ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → ⦋𝑛 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
175	164, 173, 174	syl2anc 595	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ⦋𝑛 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
176	59, 39, 125, 104	deg1nn0cl 26245	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ Ring ∧ ⦋𝑛 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ ⦋𝑛 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → ((deg₁‘𝑅)‘⦋𝑛 / 𝑥⦌𝐶) ∈ ℕ₀)
177	172, 168, 175, 176	syl3anc 1398	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘⦋𝑛 / 𝑥⦌𝐶) ∈ ℕ₀)
178	170, 177	eqeltrd 2863	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘((𝑦 ∈ 𝑁 ↦ ⦋𝑦 / 𝑥⦌𝐶)‘𝑛)) ∈ ℕ₀)
179	160, 178	eqeltrd 2863	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∈ ℕ₀)
180	179	nn0cnd 12562	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑛 ∈ 𝑏) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∈ ℂ)
181		2fveq3 6886	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑐 → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐)))
182	109, 165, 116	syl2anc 595	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
183		eqid 2763	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ 𝑁 ↦ 𝐶) = (𝑥 ∈ 𝑁 ↦ 𝐶)
184	183	fvmpts 6993	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 ∈ 𝑁 ∧ ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅))) → ((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐) = ⦋𝑐 / 𝑥⦌𝐶)
185	109, 182, 184	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐) = ⦋𝑐 / 𝑥⦌𝐶)
186	185	fveq2d 6885	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐)) = ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶))
187	108, 134, 140	syl2anr 608	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ⦋𝑐 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
188	59, 39, 125, 104	deg1nn0cl 26245	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ ⦋𝑐 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)) ∧ ⦋𝑐 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅))) → ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶) ∈ ℕ₀)
189	171, 182, 187, 188	syl3anc 1398	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶) ∈ ℕ₀)
190	186, 189	eqeltrd 2863	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐)) ∈ ℕ₀)
191	190	nn0cnd 12562	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐)) ∈ ℂ)
192	152, 153, 156, 109, 113, 180, 181, 191	fsumsplitsn 15791	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐))))
193	192	adantr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐))))
194	185	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐) = ⦋𝑐 / 𝑥⦌𝐶)
195	194	fveq2d 6885	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐)) = ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶))
196	195	oveq2d 7426	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑐))) = (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)))
197	193, 196	eqtrd 2798	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) = (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)))
198	197	eqcomd 2769	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
199	151, 198	eqtrd 2798	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
200	148, 199	eqtrd 2798	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))) + ((deg₁‘𝑅)‘⦋𝑐 / 𝑥⦌𝐶)) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
201	142, 200	eqtrd 2798	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘(((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ 𝑏 ↦ ⦋𝑦 / 𝑥⦌𝐶))(+_g‘(mulGrp‘(Poly₁‘𝑅)))⦋𝑐 / 𝑥⦌𝐶)) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
202	121, 201	eqtrd 2798	. . . . 5 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
203	79, 202	eqtrd 2798	. . . 4 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)))
204	171	adantr 485	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 𝑅 ∈ Ring)
205	110	snssd 4752	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → {𝑐} ⊆ 𝑁)
206	93, 205	unssd 4145	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (𝑏 ∪ {𝑐}) ⊆ 𝑁)
207	92, 206	ssfid 9225	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (𝑏 ∪ {𝑐}) ∈ Fin)
208	165	adantr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
209		ssralv 4006	. . . . . . . . 9 ⊢ ((𝑏 ∪ {𝑐}) ⊆ 𝑁 → (∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)) → ∀𝑥 ∈ (𝑏 ∪ {𝑐})𝐶 ∈ (Base‘(Poly₁‘𝑅))))
210	206, 209	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)) → ∀𝑥 ∈ (𝑏 ∪ {𝑐})𝐶 ∈ (Base‘(Poly₁‘𝑅))))
211	208, 210	mpd 16	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ∀𝑥 ∈ (𝑏 ∪ {𝑐})𝐶 ∈ (Base‘(Poly₁‘𝑅)))
212	105, 90, 207, 211	gsummptcl 20032	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) ∈ (Base‘(Poly₁‘𝑅)))
213	76	oveq2i 7421	. . . . . . . . 9 ⊢ ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶))
214	213	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) = ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶)))
215	109	snssd 4752	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → {𝑐} ⊆ 𝑁)
216	155, 215	unssd 4145	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → (𝑏 ∪ {𝑐}) ⊆ 𝑁)
217	154, 216	ssfid 9225	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → (𝑏 ∪ {𝑐}) ∈ Fin)
218	216	sselda 3937	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑦 ∈ (𝑏 ∪ {𝑐})) → 𝑦 ∈ 𝑁)
219	165	adantr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑦 ∈ (𝑏 ∪ {𝑐})) → ∀𝑥 ∈ 𝑁 𝐶 ∈ (Base‘(Poly₁‘𝑅)))
220	218, 219, 102	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑦 ∈ (𝑏 ∪ {𝑐})) → ⦋𝑦 / 𝑥⦌𝐶 ∈ (Base‘(Poly₁‘𝑅)))
221	134	ad2antrr 738	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑦 ∈ (𝑏 ∪ {𝑐})) → ∀𝑥 ∈ 𝑁 𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
222	218, 221, 136	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ 𝑦 ∈ (𝑏 ∪ {𝑐})) → ⦋𝑦 / 𝑥⦌𝐶 ≠ (0_g‘(Poly₁‘𝑅)))
223	42, 132, 217, 220, 222	idomnnzgmulnz 42920	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑦 ∈ (𝑏 ∪ {𝑐}) ↦ ⦋𝑦 / 𝑥⦌𝐶)) ≠ (0_g‘(Poly₁‘𝑅)))
224	214, 223	eqnetrd 3025	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) ≠ (0_g‘(Poly₁‘𝑅)))
225	224	adantr 485	. . . . . 6 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) ≠ (0_g‘(Poly₁‘𝑅)))
226	59, 39, 125, 104	deg1nn0cl 26245	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) ∈ (Base‘(Poly₁‘𝑅)) ∧ ((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)) ≠ (0_g‘(Poly₁‘𝑅))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) ∈ ℕ₀)
227	204, 212, 225, 226	syl3anc 1398	. . . . 5 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) ∈ ℕ₀)
228	227	nn0ge0d 12563	. . . 4 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))))
229	203, 228	jca 520	. . 3 ⊢ (((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) ∧ (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶)))))
230	229	ex 417	. 2 ⊢ ((𝜑 ∧ (𝑏 ⊆ 𝑁 ∧ 𝑐 ∈ (𝑁 ∖ 𝑏))) → ((((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶))) = Σ𝑛 ∈ 𝑏 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑏 ↦ 𝐶)))) → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))) = Σ𝑛 ∈ (𝑏 ∪ {𝑐})((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ (𝑏 ∪ {𝑐}) ↦ 𝐶))))))
231	7, 14, 21, 28, 72, 230, 91	findcard2d 9147	1 ⊢ (𝜑 → (((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶))) = Σ𝑛 ∈ 𝑁 ((deg₁‘𝑅)‘((𝑥 ∈ 𝑁 ↦ 𝐶)‘𝑛)) ∧ 0 ≤ ((deg₁‘𝑅)‘((mulGrp‘(Poly₁‘𝑅)) Σ_g (𝑥 ∈ 𝑁 ↦ 𝐶)))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 400 = wceq 1570 ∈ wcel 2143 ≠ wne 2958 ∀wral 3079 ⦋csb 3853 ∖ cdif 3902 ∪ cun 3903 ⊆ wss 3905 ∅c0 4286 {csn 4589 class class class wbr 5109 ↦ cmpt 5192 ‘cfv 6536 (class class class)co 7410 Fincfn 8939 0cc0 11095 + caddc 11098 ≤ cle 11239 ℕ₀cn0 12499 Σcsu 15733 Basecbs 17264 +_gcplusg 17305 ._rcmulr 17306 0_gc0g 17487 Σ_g cgsu 17488 CMndccmn 19845 mulGrpcmgp 20211 1_rcur 20258 Ringcrg 20310 CRingccrg 20311 NzRingcnzr 20609 Domncdomn 20791 IDomncidom 20792 algSccascl 22002 Poly₁cpl1 22337 deg₁cdg1 26211

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-inf2 9606 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172 ax-pre-sup 11173 ax-addf 11174

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-se 5615 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-of 7674 df-ofr 7675 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-er 8690 df-map 8822 df-pm 8823 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-sup 9398 df-oi 9468 df-card 9921 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-div 11867 df-nn 12229 df-2 12298 df-3 12299 df-4 12300 df-5 12301 df-6 12302 df-7 12303 df-8 12304 df-9 12305 df-n0 12500 df-z 12587 df-dec 12707 df-uz 12858 df-rp 13012 df-fz 13531 df-fzo 13679 df-seq 14034 df-exp 14094 df-hash 14363 df-cj 15146 df-re 15147 df-im 15148 df-sqrt 15282 df-abs 15283 df-clim 15535 df-sum 15734 df-struct 17202 df-sets 17219 df-slot 17237 df-ndx 17249 df-base 17265 df-ress 17286 df-plusg 17318 df-mulr 17319 df-starv 17320 df-sca 17321 df-vsca 17322 df-ip 17323 df-tset 17324 df-ple 17325 df-ds 17327 df-unif 17328 df-hom 17329 df-cco 17330 df-0g 17489 df-gsum 17490 df-prds 17495 df-pws 17497 df-mre 17633 df-mrc 17634 df-acs 17636 df-mgm 18693 df-sgrp 18772 df-mnd 18788 df-mhm 18836 df-submnd 18837 df-grp 18998 df-minusg 18999 df-sbg 19000 df-mulg 19129 df-subg 19184 df-ghm 19279 df-cntz 19382 df-cmn 19847 df-abl 19848 df-mgp 20212 df-rng 20226 df-ur 20259 df-ring 20312 df-cring 20313 df-nzr 20610 df-subrng 20645 df-subrg 20669 df-rlreg 20793 df-domn 20794 df-idom 20795 df-lmod 20983 df-lss 21053 df-cnfld 21523 df-ascl 22005 df-psr 22059 df-mvr 22060 df-mpl 22061 df-opsr 22063 df-psr1 22340 df-vr1 22341 df-ply1 22342 df-coe1 22343 df-mdeg 26212 df-deg1 26213

This theorem is referenced by: aks6d1c6lem1 42957

W3C validator