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 22276

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 2737	. . 3 ⊢ (1_o mPoly 𝑅) = (1_o mPoly 𝑅)
2		psr1baslem 22161	. . 3 ⊢ (ℕ₀ ↑_m 1_o) = {𝑑 ∈ (ℕ₀ ↑_m 1_o) ∣ (^◡𝑑 “ ℕ) ∈ Fin}
3		eqid 2737	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
4		eqid 2737	. . 3 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
5		1onn 8570	. . . 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 22171	. . 3 ⊢ 𝐵 = (Base‘(1_o mPoly 𝑅))
10		ply1coe.n	. . . 4 ⊢ · = ( ·_𝑠 ‘𝑃)
11	7, 1, 10	ply1vsca 22201	. . 3 ⊢ · = ( ·_𝑠 ‘(1_o mPoly 𝑅))
12		simpl 482	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑅 ∈ Ring)
13		simpr 484	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 ∈ 𝐵)
14	1, 2, 3, 4, 6, 9, 11, 12, 13	mplcoe1 22028	. 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 22184	. . . . . 6 ⊢ ((𝐾 ∈ 𝐵 ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
17	16	adantll 715	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
18	5	a1i 11	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 1_o ∈ ω)
19		eqid 2737	. . . . . . 7 ⊢ (mulGrp‘(1_o mPoly 𝑅)) = (mulGrp‘(1_o mPoly 𝑅))
20		eqid 2737	. . . . . . 7 ⊢ (._g‘(mulGrp‘(1_o mPoly 𝑅))) = (._g‘(mulGrp‘(1_o mPoly 𝑅)))
21		eqid 2737	. . . . . . 7 ⊢ (1_o mVar 𝑅) = (1_o mVar 𝑅)
22		simpll 767	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑅 ∈ Ring)
23		simpr 484	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑎 ∈ (ℕ₀ ↑_m 1_o))
24		eqidd 2738	. . . . . . . . . 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 5243	. . . . . . . . . . 11 ⊢ ∅ ∈ V
26		fveq2 6835	. . . . . . . . . . . . 13 ⊢ (𝑏 = ∅ → ((1_o mVar 𝑅)‘𝑏) = ((1_o mVar 𝑅)‘∅))
27	26	oveq1d 7376	. . . . . . . . . . . 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 7377	. . . . . . . . . . . 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 2753	. . . . . . . . . . 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 4626	. . . . . . . . . 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 234	. . . . . . . . 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 6835	. . . . . . . . . . . . 13 ⊢ (𝑥 = ∅ → ((1_o mVar 𝑅)‘𝑥) = ((1_o mVar 𝑅)‘∅))
33	32	oveq2d 7377	. . . . . . . . . . . 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 7376	. . . . . . . . . . . 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 2753	. . . . . . . . . . 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 3161	. . . . . . . . . 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 4626	. . . . . . . . 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 234	. . . . . . . 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 8406	. . . . . . . . 9 ⊢ 1_o = {∅}
40	39	raleqi 3294	. . . . . . . . 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 3310	. . . . . . . 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 234	. . . . . . 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 22031	. . . . . 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 5177	. . . . . . . 8 ⊢ (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐))) = (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))
45	44	oveq2i 7372	. . . . . . 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 22010	. . . . . . . . . . 11 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ Ring)
47	5, 46	mpan 691	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → (1_o mPoly 𝑅) ∈ Ring)
48	19	ringmgp 20214	. . . . . . . . . 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 727	. . . . . . . 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 20120	. . . . . . . . . . . . 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 20120	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
57	56	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 = (Base‘𝑀))
58		ssv 3947	. . . . . . . . . . . . 13 ⊢ 𝐵 ⊆ V
59	58	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 ⊆ V)
60		ovexd 7396	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → (𝑎(+_g‘(mulGrp‘(1_o mPoly 𝑅)))𝑏) ∈ V)
61		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (._r‘𝑃) = (._r‘𝑃)
62	7, 1, 61	ply1mulr 22202	. . . . . . . . . . . . . . . 16 ⊢ (._r‘𝑃) = (._r‘(1_o mPoly 𝑅))
63	19, 62	mgpplusg 20119	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘(mulGrp‘(1_o mPoly 𝑅)))
64	55, 61	mgpplusg 20119	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘𝑀)
65	63, 64	eqtr3i 2762	. . . . . . . . . . . . . 14 ⊢ (+_g‘(mulGrp‘(1_o mPoly 𝑅))) = (+_g‘𝑀)
66	65	oveqi 7374	. . . . . . . . . . . . 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 19086	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (._g‘(mulGrp‘(1_o mPoly 𝑅))) = ↑ )
69	68	oveqd 7378	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
70	69	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
71	7	ply1ring 22224	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
72	55	ringmgp 20214	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ Ring → 𝑀 ∈ Mnd)
73	71, 72	syl 17	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
74	73	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑀 ∈ Mnd)
75		elmapi 8790	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → 𝑎:1_o⟶ℕ₀)
76		0lt1o 8433	. . . . . . . . . . . 12 ⊢ ∅ ∈ 1_o
77		ffvelcdm 7028	. . . . . . . . . . . 12 ⊢ ((𝑎:1_o⟶ℕ₀ ∧ ∅ ∈ 1_o) → (𝑎‘∅) ∈ ℕ₀)
78	75, 76, 77	sylancl 587	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → (𝑎‘∅) ∈ ℕ₀)
79	78	adantl 481	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑎‘∅) ∈ ℕ₀)
80		ply1coe.x	. . . . . . . . . . . 12 ⊢ 𝑋 = (var₁‘𝑅)
81	80, 7, 8	vr1cl 22194	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ 𝐵)
82	81	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑋 ∈ 𝐵)
83	56, 52, 74, 79, 82	mulgnn0cld 19065	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅) ↑ 𝑋) ∈ 𝐵)
84	70, 83	eqeltrd 2837	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) ∈ 𝐵)
85		fveq2 6835	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → (𝑎‘𝑐) = (𝑎‘∅))
86		fveq2 6835	. . . . . . . . . . 11 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = ((1_o mVar 𝑅)‘∅))
87	80	vr1val 22168	. . . . . . . . . . 11 ⊢ 𝑋 = ((1_o mVar 𝑅)‘∅)
88	86, 87	eqtr4di 2790	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = 𝑋)
89	85, 88	oveq12d 7379	. . . . . . . . 9 ⊢ (𝑐 = ∅ → ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
90	53, 89	gsumsn 19923	. . . . . . . 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 1374	. . . . . . 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 2784	. . . . . 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 2776	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))) = ((𝑎‘∅) ↑ 𝑋))
94	17, 93	oveq12d 7379	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅)))) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
95	94	mpteq2dva 5179	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
96	95	oveq2d 7377	. 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 12437	. . . . . 6 ⊢ ℕ₀ ∈ V
98	97	mptex 7172	. . . . 5 ⊢ (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V
99	98	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V)
100	7	fvexi 6849	. . . . 5 ⊢ 𝑃 ∈ V
101	100	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑃 ∈ V)
102		ovexd 7396	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ V)
103	8, 9	eqtr3i 2762	. . . . 5 ⊢ (Base‘𝑃) = (Base‘(1_o mPoly 𝑅))
104	103	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (Base‘𝑃) = (Base‘(1_o mPoly 𝑅)))
105		eqid 2737	. . . . . 6 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
106	7, 1, 105	ply1plusg 22200	. . . . 5 ⊢ (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅))
107	106	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅)))
108	99, 101, 102, 104, 107	gsumpropd 18640	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
109		eqid 2737	. . . . 5 ⊢ (0_g‘𝑃) = (0_g‘𝑃)
110	1, 7, 109	ply1mpl0 22233	. . . 4 ⊢ (0_g‘𝑃) = (0_g‘(1_o mPoly 𝑅))
111	1	mpllmod 22009	. . . . . 6 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ LMod)
112	5, 12, 111	sylancr 588	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ LMod)
113		lmodcmn 20899	. . . . 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 22228	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ LMod)
117	116	ad2antrr 727	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑃 ∈ LMod)
118		eqid 2737	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
119	15, 8, 7, 118	coe1f 22188	. . . . . . . . 9 ⊢ (𝐾 ∈ 𝐵 → 𝐴:ℕ₀⟶(Base‘𝑅))
120	119	adantl 481	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐴:ℕ₀⟶(Base‘𝑅))
121	120	ffvelcdmda 7031	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘𝑅))
122	7	ply1sca 22229	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
123	122	eqcomd 2743	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (Scalar‘𝑃) = 𝑅)
124	123	ad2antrr 727	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Scalar‘𝑃) = 𝑅)
125	124	fveq2d 6839	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
126	121, 125	eleqtrrd 2840	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)))
127	73	ad2antrr 727	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑀 ∈ Mnd)
128		simpr 484	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
129	81	ad2antrr 727	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑋 ∈ 𝐵)
130	56, 52, 127, 128, 129	mulgnn0cld 19065	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐵)
131		eqid 2737	. . . . . . 7 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
132		eqid 2737	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
133	8, 131, 10, 132	lmodvscl 20867	. . . . . 6 ⊢ ((𝑃 ∈ LMod ∧ (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑘 ↑ 𝑋) ∈ 𝐵) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
134	117, 126, 130, 133	syl3anc 1374	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
135	134	fmpttd 7062	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))):ℕ₀⟶𝐵)
136	7, 80, 8, 10, 55, 52, 15	ply1coefsupp 22275	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑃))
137		eqid 2737	. . . . . 6 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))
138	39, 97, 25, 137	mapsnf1o2 8836	. . . . 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 19885	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))))
141		eqidd 2738	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))
142		eqidd 2738	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))
143		fveq2 6835	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝐴‘𝑘) = (𝐴‘(𝑎‘∅)))
144		oveq1 7368	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝑘 ↑ 𝑋) = ((𝑎‘∅) ↑ 𝑋))
145	143, 144	oveq12d 7379	. . . . 5 ⊢ (𝑘 = (𝑎‘∅) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
146	79, 141, 142, 145	fmptco 7077	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
147	146	oveq2d 7377	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))) = ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))))
148	108, 140, 147	3eqtrrd 2777	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))) = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
149	14, 96, 148	3eqtrd 2776	1 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1542 ∈ wcel 2114 ∀wral 3052 Vcvv 3430 ⊆ wss 3890 ∅c0 4274 ifcif 4467 {csn 4568 ↦ cmpt 5167 ∘ ccom 5629 ⟶wf 6489 –1-1-onto→wf1o 6492 ‘cfv 6493 (class class class)co 7361 ωcom 7811 1_oc1o 8392 ↑_m cmap 8767 ℕ₀cn0 12431 Basecbs 17173 +_gcplusg 17214 ._rcmulr 17215 Scalarcsca 17217 ·_𝑠 cvsca 17218 0_gc0g 17396 Σ_g cgsu 17397 Mndcmnd 18696 ._gcmg 19037 CMndccmn 19749 mulGrpcmgp 20115 1_rcur 20156 Ringcrg 20208 LModclmod 20849 mVar cmvr 21898 mPoly cmpl 21899 var₁cv1 22152 Poly₁cpl1 22153 coe₁cco1 22154

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5213 ax-sep 5232 ax-nul 5242 ax-pow 5303 ax-pr 5371 ax-un 7683 ax-cnex 11088 ax-resscn 11089 ax-1cn 11090 ax-icn 11091 ax-addcl 11092 ax-addrcl 11093 ax-mulcl 11094 ax-mulrcl 11095 ax-mulcom 11096 ax-addass 11097 ax-mulass 11098 ax-distr 11099 ax-i2m1 11100 ax-1ne0 11101 ax-1rid 11102 ax-rnegex 11103 ax-rrecex 11104 ax-cnre 11105 ax-pre-lttri 11106 ax-pre-lttrn 11107 ax-pre-ltadd 11108 ax-pre-mulgt0 11109

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-tp 4573 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-iin 4937 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6260 df-ord 6321 df-on 6322 df-lim 6323 df-suc 6324 df-iota 6449 df-fun 6495 df-fn 6496 df-f 6497 df-f1 6498 df-fo 6499 df-f1o 6500 df-fv 6501 df-isom 6502 df-riota 7318 df-ov 7364 df-oprab 7365 df-mpo 7366 df-of 7625 df-ofr 7626 df-om 7812 df-1st 7936 df-2nd 7937 df-supp 8105 df-frecs 8225 df-wrecs 8256 df-recs 8305 df-rdg 8343 df-1o 8399 df-2o 8400 df-er 8637 df-map 8769 df-pm 8770 df-ixp 8840 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-fsupp 9269 df-sup 9349 df-oi 9419 df-card 9857 df-pnf 11175 df-mnf 11176 df-xr 11177 df-ltxr 11178 df-le 11179 df-sub 11373 df-neg 11374 df-nn 12169 df-2 12238 df-3 12239 df-4 12240 df-5 12241 df-6 12242 df-7 12243 df-8 12244 df-9 12245 df-n0 12432 df-z 12519 df-dec 12639 df-uz 12783 df-fz 13456 df-fzo 13603 df-seq 13958 df-hash 14287 df-struct 17111 df-sets 17128 df-slot 17146 df-ndx 17158 df-base 17174 df-ress 17195 df-plusg 17227 df-mulr 17228 df-sca 17230 df-vsca 17231 df-ip 17232 df-tset 17233 df-ple 17234 df-ds 17236 df-hom 17238 df-cco 17239 df-0g 17398 df-gsum 17399 df-prds 17404 df-pws 17406 df-mre 17542 df-mrc 17543 df-acs 17545 df-mgm 18602 df-sgrp 18681 df-mnd 18697 df-mhm 18745 df-submnd 18746 df-grp 18906 df-minusg 18907 df-sbg 18908 df-mulg 19038 df-subg 19093 df-ghm 19182 df-cntz 19286 df-cmn 19751 df-abl 19752 df-mgp 20116 df-rng 20128 df-ur 20157 df-srg 20162 df-ring 20210 df-subrng 20517 df-subrg 20541 df-lmod 20851 df-lss 20921 df-psr 21902 df-mvr 21903 df-mpl 21904 df-opsr 21906 df-psr1 22156 df-vr1 22157 df-ply1 22158 df-coe1 22159

This theorem is referenced by: eqcoe1ply1eq 22277 evls1fpws 22347 pmatcollpw1lem2 22753 mp2pm2mp 22789 plypf1 26190 ply1coedeg 33667 ply1degltdimlem 33785

W3C validator