ply1coe - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ply1coe		Structured version Visualization version GIF version

Theorem ply1coe 22284

Description: Decompose a univariate polynomial as a sum of powers. (Contributed by Stefan O'Rear, 21-Mar-2015.) (Revised by AV, 7-Oct-2019.)

**Hypotheses**
Ref	Expression
ply1coe.p	⊢ 𝑃 = (Poly₁‘𝑅)
ply1coe.x	⊢ 𝑋 = (var₁‘𝑅)
ply1coe.b	⊢ 𝐵 = (Base‘𝑃)
ply1coe.n	⊢ · = ( ·_𝑠 ‘𝑃)
ply1coe.m	⊢ 𝑀 = (mulGrp‘𝑃)
ply1coe.e	⊢ ↑ = (._g‘𝑀)
ply1coe.a	⊢ 𝐴 = (coe₁‘𝐾)

**Assertion**
Ref	Expression
ply1coe	⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))

Distinct variable groups: 𝐴,𝑘 𝐵,𝑘 𝑘,𝐾 𝑘,𝑋 ↑ ,𝑘 𝑅,𝑘 · ,𝑘 𝑃,𝑘 Allowed substitution hint: 𝑀(𝑘)

Proof of Theorem ply1coe Dummy variables 𝑎 𝑏 𝑐 𝑥 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2739	. . 3 ⊢ (1_o mPoly 𝑅) = (1_o mPoly 𝑅)
2		psr1baslem 22170	. . 3 ⊢ (ℕ₀ ↑_m 1_o) = {𝑑 ∈ (ℕ₀ ↑_m 1_o) ∣ (^◡𝑑 “ ℕ) ∈ Fin}
3		eqid 2739	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
4		eqid 2739	. . 3 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
5		1onn 8566	. . . 4 ⊢ 1_o ∈ ω
6	5	a1i 11	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 1_o ∈ ω)
7		ply1coe.p	. . . 4 ⊢ 𝑃 = (Poly₁‘𝑅)
8		ply1coe.b	. . . 4 ⊢ 𝐵 = (Base‘𝑃)
9	7, 8	ply1bas 22180	. . 3 ⊢ 𝐵 = (Base‘(1_o mPoly 𝑅))
10		ply1coe.n	. . . 4 ⊢ · = ( ·_𝑠 ‘𝑃)
11	7, 1, 10	ply1vsca 22209	. . 3 ⊢ · = ( ·_𝑠 ‘(1_o mPoly 𝑅))
12		simpl 483	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑅 ∈ Ring)
13		simpr 485	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 ∈ 𝐵)
14	1, 2, 3, 4, 6, 9, 11, 12, 13	mplcoe1 22013	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅)))))))
15		ply1coe.a	. . . . . . 7 ⊢ 𝐴 = (coe₁‘𝐾)
16	15	fvcoe1 22192	. . . . . 6 ⊢ ((𝐾 ∈ 𝐵 ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
17	16	adantll 720	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
18	5	a1i 11	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 1_o ∈ ω)
19		eqid 2739	. . . . . . 7 ⊢ (mulGrp‘(1_o mPoly 𝑅)) = (mulGrp‘(1_o mPoly 𝑅))
20		eqid 2739	. . . . . . 7 ⊢ (._g‘(mulGrp‘(1_o mPoly 𝑅))) = (._g‘(mulGrp‘(1_o mPoly 𝑅)))
21		eqid 2739	. . . . . . 7 ⊢ (1_o mVar 𝑅) = (1_o mVar 𝑅)
22		simpll 772	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑅 ∈ Ring)
23		simpr 485	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑎 ∈ (ℕ₀ ↑_m 1_o))
24		eqidd 2740	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)))
25		0ex 5229	. . . . . . . . . . 11 ⊢ ∅ ∈ V
26		fveq2 6827	. . . . . . . . . . . . 13 ⊢ (𝑏 = ∅ → ((1_o mVar 𝑅)‘𝑏) = ((1_o mVar 𝑅)‘∅))
27	26	oveq1d 7371	. . . . . . . . . . . 12 ⊢ (𝑏 = ∅ → (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)))
28	26	oveq2d 7372	. . . . . . . . . . . 12 ⊢ (𝑏 = ∅ → (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)))
29	27, 28	eqeq12d 2755	. . . . . . . . . . 11 ⊢ (𝑏 = ∅ → ((((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅))))
30	25, 29	ralsn 4613	. . . . . . . . . 10 ⊢ (∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)))
31	24, 30	sylibr 235	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
32		fveq2 6827	. . . . . . . . . . . . 13 ⊢ (𝑥 = ∅ → ((1_o mVar 𝑅)‘𝑥) = ((1_o mVar 𝑅)‘∅))
33	32	oveq2d 7372	. . . . . . . . . . . 12 ⊢ (𝑥 = ∅ → (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)))
34	32	oveq1d 7371	. . . . . . . . . . . 12 ⊢ (𝑥 = ∅ → (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
35	33, 34	eqeq12d 2755	. . . . . . . . . . 11 ⊢ (𝑥 = ∅ → ((((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏))))
36	35	ralbidv 3162	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → (∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ ∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏))))
37	25, 36	ralsn 4613	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {∅}∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ ∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘∅)) = (((1_o mVar 𝑅)‘∅)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
38	31, 37	sylibr 235	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ∀𝑥 ∈ {∅}∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
39		df1o2 8402	. . . . . . . . 9 ⊢ 1_o = {∅}
40	39	raleqi 3295	. . . . . . . . 9 ⊢ (∀𝑏 ∈ 1_o (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ ∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
41	39, 40	raleqbii 3311	. . . . . . . 8 ⊢ (∀𝑥 ∈ 1_o ∀𝑏 ∈ 1_o (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)) ↔ ∀𝑥 ∈ {∅}∀𝑏 ∈ {∅} (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
42	38, 41	sylibr 235	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ∀𝑥 ∈ 1_o ∀𝑏 ∈ 1_o (((1_o mVar 𝑅)‘𝑏)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑥)) = (((1_o mVar 𝑅)‘𝑥)(+_g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑏)))
43	1, 2, 3, 4, 18, 19, 20, 21, 22, 23, 42	mplcoe5 22016	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))) = ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))))
44	39	mpteq1i 5163	. . . . . . . 8 ⊢ (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐))) = (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))
45	44	oveq2i 7367	. . . . . . 7 ⊢ ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))) = ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐))))
46	1	mplring 21993	. . . . . . . . . . 11 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ Ring)
47	5, 46	mpan 696	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → (1_o mPoly 𝑅) ∈ Ring)
48	19	ringmgp 20211	. . . . . . . . . 10 ⊢ ((1_o mPoly 𝑅) ∈ Ring → (mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd)
49	47, 48	syl 17	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd)
50	49	ad2antrr 732	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd)
51	25	a1i 11	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ∅ ∈ V)
52		ply1coe.e	. . . . . . . . . . . 12 ⊢ ↑ = (._g‘𝑀)
53	19, 9	mgpbas 20117	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘(mulGrp‘(1_o mPoly 𝑅)))
54	53	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 = (Base‘(mulGrp‘(1_o mPoly 𝑅))))
55		ply1coe.m	. . . . . . . . . . . . . 14 ⊢ 𝑀 = (mulGrp‘𝑃)
56	55, 8	mgpbas 20117	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
57	56	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 = (Base‘𝑀))
58		ssv 3939	. . . . . . . . . . . . 13 ⊢ 𝐵 ⊆ V
59	58	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 ⊆ V)
60		ovexd 7391	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → (𝑎(+_g‘(mulGrp‘(1_o mPoly 𝑅)))𝑏) ∈ V)
61		eqid 2739	. . . . . . . . . . . . . . . . 17 ⊢ (._r‘𝑃) = (._r‘𝑃)
62	7, 1, 61	ply1mulr 22210	. . . . . . . . . . . . . . . 16 ⊢ (._r‘𝑃) = (._r‘(1_o mPoly 𝑅))
63	19, 62	mgpplusg 20116	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘(mulGrp‘(1_o mPoly 𝑅)))
64	55, 61	mgpplusg 20116	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘𝑀)
65	63, 64	eqtr3i 2764	. . . . . . . . . . . . . 14 ⊢ (+_g‘(mulGrp‘(1_o mPoly 𝑅))) = (+_g‘𝑀)
66	65	oveqi 7369	. . . . . . . . . . . . 13 ⊢ (𝑎(+_g‘(mulGrp‘(1_o mPoly 𝑅)))𝑏) = (𝑎(+_g‘𝑀)𝑏)
67	66	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → (𝑎(+_g‘(mulGrp‘(1_o mPoly 𝑅)))𝑏) = (𝑎(+_g‘𝑀)𝑏))
68	20, 52, 54, 57, 59, 60, 67	mulgpropd 19083	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (._g‘(mulGrp‘(1_o mPoly 𝑅))) = ↑ )
69	68	oveqd 7373	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
70	69	adantr 481	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
71	7	ply1ring 22232	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
72	55	ringmgp 20211	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ Ring → 𝑀 ∈ Mnd)
73	71, 72	syl 17	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
74	73	ad2antrr 732	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑀 ∈ Mnd)
75		elmapi 8786	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → 𝑎:1_o⟶ℕ₀)
76		0lt1o 8429	. . . . . . . . . . . 12 ⊢ ∅ ∈ 1_o
77		ffvelcdm 7022	. . . . . . . . . . . 12 ⊢ ((𝑎:1_o⟶ℕ₀ ∧ ∅ ∈ 1_o) → (𝑎‘∅) ∈ ℕ₀)
78	75, 76, 77	sylancl 592	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → (𝑎‘∅) ∈ ℕ₀)
79	78	adantl 482	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑎‘∅) ∈ ℕ₀)
80		ply1coe.x	. . . . . . . . . . . 12 ⊢ 𝑋 = (var₁‘𝑅)
81	80, 7, 8	vr1cl 22202	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ 𝐵)
82	81	ad2antrr 732	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑋 ∈ 𝐵)
83	56, 52, 74, 79, 82	mulgnn0cld 19062	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅) ↑ 𝑋) ∈ 𝐵)
84	70, 83	eqeltrd 2839	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) ∈ 𝐵)
85		fveq2 6827	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → (𝑎‘𝑐) = (𝑎‘∅))
86		fveq2 6827	. . . . . . . . . . 11 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = ((1_o mVar 𝑅)‘∅))
87	80	vr1val 22177	. . . . . . . . . . 11 ⊢ 𝑋 = ((1_o mVar 𝑅)‘∅)
88	86, 87	eqtr4di 2792	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = 𝑋)
89	85, 88	oveq12d 7374	. . . . . . . . 9 ⊢ (𝑐 = ∅ → ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
90	53, 89	gsumsn 19920	. . . . . . . 8 ⊢ (((mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd ∧ ∅ ∈ V ∧ ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) ∈ 𝐵) → ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
91	50, 51, 84, 90	syl3anc 1379	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
92	45, 91	eqtrid 2786	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((mulGrp‘(1_o mPoly 𝑅)) Σ_g (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
93	43, 92, 70	3eqtrd 2778	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))) = ((𝑎‘∅) ↑ 𝑋))
94	17, 93	oveq12d 7374	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅)))) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
95	94	mpteq2dva 5165	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
96	95	oveq2d 7372	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅)))))) = ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))))
97		nn0ex 12434	. . . . . 6 ⊢ ℕ₀ ∈ V
98	97	mptex 7167	. . . . 5 ⊢ (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V
99	98	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V)
100	7	fvexi 6841	. . . . 5 ⊢ 𝑃 ∈ V
101	100	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑃 ∈ V)
102		ovexd 7391	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ V)
103	8, 9	eqtr3i 2764	. . . . 5 ⊢ (Base‘𝑃) = (Base‘(1_o mPoly 𝑅))
104	103	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (Base‘𝑃) = (Base‘(1_o mPoly 𝑅)))
105		eqid 2739	. . . . . 6 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
106	7, 1, 105	ply1plusg 22208	. . . . 5 ⊢ (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅))
107	106	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅)))
108	99, 101, 102, 104, 107	gsumpropd 18637	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
109		eqid 2739	. . . . 5 ⊢ (0_g‘𝑃) = (0_g‘𝑃)
110	1, 7, 109	ply1mpl0 22241	. . . 4 ⊢ (0_g‘𝑃) = (0_g‘(1_o mPoly 𝑅))
111	1	mpllmod 21992	. . . . . 6 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ LMod)
112	5, 12, 111	sylancr 593	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ LMod)
113		lmodcmn 20900	. . . . 5 ⊢ ((1_o mPoly 𝑅) ∈ LMod → (1_o mPoly 𝑅) ∈ CMnd)
114	112, 113	syl 17	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ CMnd)
115	97	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ℕ₀ ∈ V)
116	7	ply1lmod 22236	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ LMod)
117	116	ad2antrr 732	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑃 ∈ LMod)
118		eqid 2739	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
119	15, 8, 7, 118	coe1f 22196	. . . . . . . . 9 ⊢ (𝐾 ∈ 𝐵 → 𝐴:ℕ₀⟶(Base‘𝑅))
120	119	adantl 482	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐴:ℕ₀⟶(Base‘𝑅))
121	120	ffvelcdmda 7025	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘𝑅))
122	7	ply1sca 22237	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
123	122	eqcomd 2745	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (Scalar‘𝑃) = 𝑅)
124	123	ad2antrr 732	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Scalar‘𝑃) = 𝑅)
125	124	fveq2d 6831	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
126	121, 125	eleqtrrd 2842	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)))
127	73	ad2antrr 732	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑀 ∈ Mnd)
128		simpr 485	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
129	81	ad2antrr 732	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑋 ∈ 𝐵)
130	56, 52, 127, 128, 129	mulgnn0cld 19062	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐵)
131		eqid 2739	. . . . . . 7 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
132		eqid 2739	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
133	8, 131, 10, 132	lmodvscl 20868	. . . . . 6 ⊢ ((𝑃 ∈ LMod ∧ (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑘 ↑ 𝑋) ∈ 𝐵) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
134	117, 126, 130, 133	syl3anc 1379	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
135	134	fmpttd 7056	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))):ℕ₀⟶𝐵)
136	7, 80, 8, 10, 55, 52, 15	ply1coefsupp 22283	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑃))
137		eqid 2739	. . . . . 6 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))
138	39, 97, 25, 137	mapsnf1o2 8832	. . . . 5 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)):(ℕ₀ ↑_m 1_o)–1-1-onto→ℕ₀
139	138	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)):(ℕ₀ ↑_m 1_o)–1-1-onto→ℕ₀)
140	9, 110, 114, 115, 135, 136, 139	gsumf1o 19882	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))))
141		eqidd 2740	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))
142		eqidd 2740	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))
143		fveq2 6827	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝐴‘𝑘) = (𝐴‘(𝑎‘∅)))
144		oveq1 7363	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝑘 ↑ 𝑋) = ((𝑎‘∅) ↑ 𝑋))
145	143, 144	oveq12d 7374	. . . . 5 ⊢ (𝑘 = (𝑎‘∅) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
146	79, 141, 142, 145	fmptco 7071	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
147	146	oveq2d 7372	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))) = ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))))
148	108, 140, 147	3eqtrrd 2779	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))) = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
149	14, 96, 148	3eqtrd 2778	1 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 = wceq 1547 ∈ wcel 2119 ∀wral 3053 Vcvv 3431 ⊆ wss 3883 ∅c0 4261 ifcif 4454 {csn 4555 ↦ cmpt 5153 ∘ ccom 5622 ⟶wf 6481 –1-1-onto→wf1o 6484 ‘cfv 6485 (class class class)co 7356 ωcom 7806 1_oc1o 8388 ↑_m cmap 8763 ℕ₀cn0 12428 Basecbs 17170 +_gcplusg 17211 ._rcmulr 17212 Scalarcsca 17214 ·_𝑠 cvsca 17215 0_gc0g 17393 Σ_g cgsu 17394 Mndcmnd 18693 ._gcmg 19034 CMndccmn 19746 mulGrpcmgp 20112 1_rcur 20153 Ringcrg 20205 LModclmod 20850 mVar cmvr 21880 mPoly cmpl 21881 var₁cv1 22161 Poly₁cpl1 22162 coe₁cco1 22163

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2711 ax-rep 5199 ax-sep 5218 ax-nul 5228 ax-pow 5294 ax-pr 5362 ax-un 7678 ax-cnex 11085 ax-resscn 11086 ax-1cn 11087 ax-icn 11088 ax-addcl 11089 ax-addrcl 11090 ax-mulcl 11091 ax-mulrcl 11092 ax-mulcom 11093 ax-addass 11094 ax-mulass 11095 ax-distr 11096 ax-i2m1 11097 ax-1ne0 11098 ax-1rid 11099 ax-rnegex 11100 ax-rrecex 11101 ax-cnre 11102 ax-pre-lttri 11103 ax-pre-lttrn 11104 ax-pre-ltadd 11105 ax-pre-mulgt0 11106

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2718 df-cleq 2731 df-clel 2814 df-nfc 2888 df-ne 2935 df-nel 3039 df-ral 3054 df-rex 3064 df-rmo 3344 df-reu 3345 df-rab 3392 df-v 3433 df-sbc 3724 df-csb 3832 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3903 df-nul 4262 df-if 4455 df-pw 4531 df-sn 4556 df-pr 4558 df-tp 4560 df-op 4562 df-uni 4839 df-int 4878 df-iun 4923 df-iin 4924 df-br 5073 df-opab 5135 df-mpt 5154 df-tr 5180 df-id 5513 df-eprel 5518 df-po 5526 df-so 5527 df-fr 5571 df-se 5572 df-we 5573 df-xp 5624 df-rel 5625 df-cnv 5626 df-co 5627 df-dm 5628 df-rn 5629 df-res 5630 df-ima 5631 df-pred 6252 df-ord 6313 df-on 6314 df-lim 6315 df-suc 6316 df-iota 6441 df-fun 6487 df-fn 6488 df-f 6489 df-f1 6490 df-fo 6491 df-f1o 6492 df-fv 6493 df-isom 6494 df-riota 7313 df-ov 7359 df-oprab 7360 df-mpo 7361 df-of 7620 df-ofr 7621 df-om 7807 df-1st 7931 df-2nd 7932 df-supp 8101 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-1o 8395 df-2o 8396 df-er 8633 df-map 8765 df-pm 8766 df-ixp 8836 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-fsupp 9265 df-sup 9345 df-oi 9415 df-card 9854 df-pnf 11172 df-mnf 11173 df-xr 11174 df-ltxr 11175 df-le 11176 df-sub 11370 df-neg 11371 df-nn 12166 df-2 12235 df-3 12236 df-4 12237 df-5 12238 df-6 12239 df-7 12240 df-8 12241 df-9 12242 df-n0 12429 df-z 12516 df-dec 12636 df-uz 12780 df-fz 13453 df-fzo 13600 df-seq 13955 df-hash 14284 df-struct 17108 df-sets 17125 df-slot 17143 df-ndx 17155 df-base 17171 df-ress 17192 df-plusg 17224 df-mulr 17225 df-sca 17227 df-vsca 17228 df-ip 17229 df-tset 17230 df-ple 17231 df-ds 17233 df-hom 17235 df-cco 17236 df-0g 17395 df-gsum 17396 df-prds 17401 df-pws 17403 df-mre 17539 df-mrc 17540 df-acs 17542 df-mgm 18599 df-sgrp 18678 df-mnd 18694 df-mhm 18742 df-submnd 18743 df-grp 18903 df-minusg 18904 df-sbg 18905 df-mulg 19035 df-subg 19090 df-ghm 19179 df-cntz 19283 df-cmn 19748 df-abl 19749 df-mgp 20113 df-rng 20125 df-ur 20154 df-srg 20159 df-ring 20207 df-subrng 20518 df-subrg 20542 df-lmod 20852 df-lss 20922 df-psr 21884 df-mvr 21885 df-mpl 21886 df-opsr 21888 df-psr1 22165 df-vr1 22166 df-ply1 22167 df-coe1 22168

This theorem is referenced by: eqcoe1ply1eq 22285 evls1fpws 22355 pmatcollpw1lem2 22758 mp2pm2mp 22794 plypf1 26195 ply1coedeg 33672 ply1degltdimlem 33806

W3C validator