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 22523

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 2760	. . 3 ⊢ (1_o mPoly 𝑅) = (1_o mPoly 𝑅)
2		psr1baslem 22410	. . 3 ⊢ (ℕ₀ ↑_m 1_o) = {𝑑 ∈ (ℕ₀ ↑_m 1_o) ∣ (^◡𝑑 “ ℕ) ∈ Fin}
3		eqid 2760	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
4		eqid 2760	. . 3 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
5		1onn 8628	. . . 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 22420	. . 3 ⊢ 𝐵 = (Base‘(1_o mPoly 𝑅))
10		ply1coe.n	. . . 4 ⊢ · = ( ·_𝑠 ‘𝑃)
11	7, 1, 10	ply1vsca 22449	. . 3 ⊢ · = ( ·_𝑠 ‘(1_o mPoly 𝑅))
12		simpl 488	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑅 ∈ Ring)
13		simpr 490	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 ∈ 𝐵)
14	1, 2, 3, 4, 6, 9, 11, 12, 13	mplcoe1 22253	. 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 22432	. . . . . 6 ⊢ ((𝐾 ∈ 𝐵 ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
17	16	adantll 727	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝐾‘𝑎) = (𝐴‘(𝑎‘∅)))
18	5	a1i 11	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 1_o ∈ ω)
19		eqid 2760	. . . . . . 7 ⊢ (mulGrp‘(1_o mPoly 𝑅)) = (mulGrp‘(1_o mPoly 𝑅))
20		eqid 2760	. . . . . . 7 ⊢ (._g‘(mulGrp‘(1_o mPoly 𝑅))) = (._g‘(mulGrp‘(1_o mPoly 𝑅)))
21		eqid 2760	. . . . . . 7 ⊢ (1_o mVar 𝑅) = (1_o mVar 𝑅)
22		simpll 779	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑅 ∈ Ring)
23		simpr 490	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑎 ∈ (ℕ₀ ↑_m 1_o))
24		eqidd 2761	. . . . . . . . . 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 5264	. . . . . . . . . . 11 ⊢ ∅ ∈ V
26		fveq2 6878	. . . . . . . . . . . . 13 ⊢ (𝑏 = ∅ → ((1_o mVar 𝑅)‘𝑏) = ((1_o mVar 𝑅)‘∅))
27	26	oveq1d 7428	. . . . . . . . . . . 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 7429	. . . . . . . . . . . 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 2776	. . . . . . . . . . 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 4642	. . . . . . . . . 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 237	. . . . . . . . 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 6878	. . . . . . . . . . . . 13 ⊢ (𝑥 = ∅ → ((1_o mVar 𝑅)‘𝑥) = ((1_o mVar 𝑅)‘∅))
33	32	oveq2d 7429	. . . . . . . . . . . 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 7428	. . . . . . . . . . . 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 2776	. . . . . . . . . . 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 3185	. . . . . . . . . 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 4642	. . . . . . . . 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 237	. . . . . . . 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 8462	. . . . . . . . 9 ⊢ 1_o = {∅}
40	39	raleqi 3317	. . . . . . . . 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 3332	. . . . . . . 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 237	. . . . . . 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 22256	. . . . . 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 5196	. . . . . . . 8 ⊢ (𝑐 ∈ 1_o ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐))) = (𝑐 ∈ {∅} ↦ ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)))
45	44	oveq2i 7424	. . . . . . 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 22233	. . . . . . . . . . 11 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ Ring)
47	5, 46	mpan 703	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → (1_o mPoly 𝑅) ∈ Ring)
48	19	ringmgp 20378	. . . . . . . . . 10 ⊢ ((1_o mPoly 𝑅) ∈ Ring → (mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd)
49	47, 48	syl 18	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (mulGrp‘(1_o mPoly 𝑅)) ∈ Mnd)
50	49	ad2antrr 739	. . . . . . . 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 20278	. . . . . . . . . . . . 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 20278	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
57	56	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 = (Base‘𝑀))
58		ssv 3955	. . . . . . . . . . . . 13 ⊢ 𝐵 ⊆ V
59	58	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐵 ⊆ V)
60		ovexd 7448	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → (𝑎(+_g‘(mulGrp‘(1_o mPoly 𝑅)))𝑏) ∈ V)
61		eqid 2760	. . . . . . . . . . . . . . . . 17 ⊢ (._r‘𝑃) = (._r‘𝑃)
62	7, 1, 61	ply1mulr 22450	. . . . . . . . . . . . . . . 16 ⊢ (._r‘𝑃) = (._r‘(1_o mPoly 𝑅))
63	19, 62	mgpplusg 20277	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘(mulGrp‘(1_o mPoly 𝑅)))
64	55, 61	mgpplusg 20277	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝑃) = (+_g‘𝑀)
65	63, 64	eqtr3i 2785	. . . . . . . . . . . . . 14 ⊢ (+_g‘(mulGrp‘(1_o mPoly 𝑅))) = (+_g‘𝑀)
66	65	oveqi 7426	. . . . . . . . . . . . 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 19239	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (._g‘(mulGrp‘(1_o mPoly 𝑅))) = ↑ )
69	68	oveqd 7430	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
70	69	adantr 486	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) = ((𝑎‘∅) ↑ 𝑋))
71	7	ply1ring 22472	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
72	55	ringmgp 20378	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ Ring → 𝑀 ∈ Mnd)
73	71, 72	syl 18	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
74	73	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑀 ∈ Mnd)
75		elmapi 8848	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → 𝑎:1_o⟶ℕ₀)
76		0lt1o 8491	. . . . . . . . . . . 12 ⊢ ∅ ∈ 1_o
77		ffvelcdm 7074	. . . . . . . . . . . 12 ⊢ ((𝑎:1_o⟶ℕ₀ ∧ ∅ ∈ 1_o) → (𝑎‘∅) ∈ ℕ₀)
78	75, 76, 77	sylancl 598	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) → (𝑎‘∅) ∈ ℕ₀)
79	78	adantl 487	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑎‘∅) ∈ ℕ₀)
80		ply1coe.x	. . . . . . . . . . . 12 ⊢ 𝑋 = (var₁‘𝑅)
81	80, 7, 8	vr1cl 22442	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ 𝐵)
82	81	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → 𝑋 ∈ 𝐵)
83	56, 52, 74, 79, 82	mulgnn0cld 19218	. . . . . . . . 9 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅) ↑ 𝑋) ∈ 𝐵)
84	70, 83	eqeltrd 2860	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋) ∈ 𝐵)
85		fveq2 6878	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → (𝑎‘𝑐) = (𝑎‘∅))
86		fveq2 6878	. . . . . . . . . . 11 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = ((1_o mVar 𝑅)‘∅))
87	80	vr1val 22417	. . . . . . . . . . 11 ⊢ 𝑋 = ((1_o mVar 𝑅)‘∅)
88	86, 87	eqtr4di 2813	. . . . . . . . . 10 ⊢ (𝑐 = ∅ → ((1_o mVar 𝑅)‘𝑐) = 𝑋)
89	85, 88	oveq12d 7431	. . . . . . . . 9 ⊢ (𝑐 = ∅ → ((𝑎‘𝑐)(._g‘(mulGrp‘(1_o mPoly 𝑅)))((1_o mVar 𝑅)‘𝑐)) = ((𝑎‘∅)(._g‘(mulGrp‘(1_o mPoly 𝑅)))𝑋))
90	53, 89	gsumsn 20081	. . . . . . . 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 1398	. . . . . . 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 2807	. . . . . 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 2799	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))) = ((𝑎‘∅) ↑ 𝑋))
94	17, 93	oveq12d 7431	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ₀ ↑_m 1_o)) → ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅)))) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
95	94	mpteq2dva 5198	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐾‘𝑎) · (𝑏 ∈ (ℕ₀ ↑_m 1_o) ↦ if(𝑏 = 𝑎, (1_r‘𝑅), (0_g‘𝑅))))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
96	95	oveq2d 7429	. 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 12534	. . . . . 6 ⊢ ℕ₀ ∈ V
98	97	mptex 7222	. . . . 5 ⊢ (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V
99	98	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∈ V)
100	7	fvexi 6892	. . . . 5 ⊢ 𝑃 ∈ V
101	100	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝑃 ∈ V)
102		ovexd 7448	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ V)
103	8, 9	eqtr3i 2785	. . . . 5 ⊢ (Base‘𝑃) = (Base‘(1_o mPoly 𝑅))
104	103	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (Base‘𝑃) = (Base‘(1_o mPoly 𝑅)))
105		eqid 2760	. . . . . 6 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
106	7, 1, 105	ply1plusg 22448	. . . . 5 ⊢ (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅))
107	106	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (+_g‘𝑃) = (+_g‘(1_o mPoly 𝑅)))
108	99, 101, 102, 104, 107	gsumpropd 18780	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
109		eqid 2760	. . . . 5 ⊢ (0_g‘𝑃) = (0_g‘𝑃)
110	1, 7, 109	ply1mpl0 22481	. . . 4 ⊢ (0_g‘𝑃) = (0_g‘(1_o mPoly 𝑅))
111	1	mpllmod 22232	. . . . . 6 ⊢ ((1_o ∈ ω ∧ 𝑅 ∈ Ring) → (1_o mPoly 𝑅) ∈ LMod)
112	5, 12, 111	sylancr 599	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ LMod)
113		lmodcmn 21094	. . . . 5 ⊢ ((1_o mPoly 𝑅) ∈ LMod → (1_o mPoly 𝑅) ∈ CMnd)
114	112, 113	syl 18	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (1_o mPoly 𝑅) ∈ CMnd)
115	97	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ℕ₀ ∈ V)
116	7	ply1lmod 22476	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ LMod)
117	116	ad2antrr 739	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑃 ∈ LMod)
118		eqid 2760	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
119	15, 8, 7, 118	coe1f 22436	. . . . . . . . 9 ⊢ (𝐾 ∈ 𝐵 → 𝐴:ℕ₀⟶(Base‘𝑅))
120	119	adantl 487	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐴:ℕ₀⟶(Base‘𝑅))
121	120	ffvelcdmda 7077	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘𝑅))
122	7	ply1sca 22477	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
123	122	eqcomd 2766	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (Scalar‘𝑃) = 𝑅)
124	123	ad2antrr 739	. . . . . . . 8 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Scalar‘𝑃) = 𝑅)
125	124	fveq2d 6882	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
126	121, 125	eleqtrrd 2863	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)))
127	73	ad2antrr 739	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑀 ∈ Mnd)
128		simpr 490	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
129	81	ad2antrr 739	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → 𝑋 ∈ 𝐵)
130	56, 52, 127, 128, 129	mulgnn0cld 19218	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ 𝑋) ∈ 𝐵)
131		eqid 2760	. . . . . . 7 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
132		eqid 2760	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
133	8, 131, 10, 132	lmodvscl 21062	. . . . . 6 ⊢ ((𝑃 ∈ LMod ∧ (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑘 ↑ 𝑋) ∈ 𝐵) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
134	117, 126, 130, 133	syl3anc 1398	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) ∧ 𝑘 ∈ ℕ₀) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵)
135	134	fmpttd 7108	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))):ℕ₀⟶𝐵)
136	7, 80, 8, 10, 55, 52, 15	ply1coefsupp 22522	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) finSupp (0_g‘𝑃))
137		eqid 2760	. . . . . 6 ⊢ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))
138	39, 97, 25, 137	mapsnf1o2 8901	. . . . 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 20043	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))))
141		eqidd 2761	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))
142		eqidd 2761	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))
143		fveq2 6878	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝐴‘𝑘) = (𝐴‘(𝑎‘∅)))
144		oveq1 7420	. . . . . 6 ⊢ (𝑘 = (𝑎‘∅) → (𝑘 ↑ 𝑋) = ((𝑎‘∅) ↑ 𝑋))
145	143, 144	oveq12d 7431	. . . . 5 ⊢ (𝑘 = (𝑎‘∅) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) = ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))
146	79, 141, 142, 145	fmptco 7123	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅))) = (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋))))
147	146	oveq2d 7429	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g ((𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) ∘ (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ (𝑎‘∅)))) = ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))))
148	108, 140, 147	3eqtrrd 2800	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → ((1_o mPoly 𝑅) Σ_g (𝑎 ∈ (ℕ₀ ↑_m 1_o) ↦ ((𝐴‘(𝑎‘∅)) · ((𝑎‘∅) ↑ 𝑋)))) = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))
149	14, 96, 148	3eqtrd 2799	1 ⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = (𝑃 Σ_g (𝑘 ∈ ℕ₀ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ∀wral 3076 Vcvv 3450 ⊆ wss 3899 ∅c0 4279 ifcif 4482 {csn 4584 ↦ cmpt 5186 ∘ ccom 5659 ⟶wf 6529 –1-1-onto→wf1o 6532 ‘cfv 6533 (class class class)co 7413 ωcom 7862 1_oc1o 8448 ↑_m cmap 8826 ℕ₀cn0 12528 Basecbs 17301 +_gcplusg 17342 ._rcmulr 17343 Scalarcsca 17345 ·_𝑠 cvsca 17346 0_gc0g 17524 Σ_g cgsu 17525 Mndcmnd 18836 ._gcmg 19190 CMndccmn 19907 mulGrpcmgp 20273 1_rcur 20320 Ringcrg 20372 LModclmod 21044 mVar cmvr 22120 mPoly cmpl 22121 var₁cv1 22401 Poly₁cpl1 22402 coe₁cco1 22403

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7736 ax-cnex 11180 ax-resscn 11181 ax-1cn 11182 ax-icn 11183 ax-addcl 11184 ax-addrcl 11185 ax-mulcl 11186 ax-mulrcl 11187 ax-mulcom 11188 ax-addass 11189 ax-mulass 11190 ax-distr 11191 ax-i2m1 11192 ax-1ne0 11193 ax-1rid 11194 ax-rnegex 11195 ax-rrecex 11196 ax-cnre 11197 ax-pre-lttri 11198 ax-pre-lttrn 11199 ax-pre-ltadd 11200 ax-pre-mulgt0 11201

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7370 df-ov 7416 df-oprab 7417 df-mpo 7418 df-of 7678 df-ofr 7679 df-om 7863 df-1st 7986 df-2nd 7987 df-supp 8159 df-frecs 8280 df-wrecs 8311 df-recs 8360 df-rdg 8399 df-1o 8455 df-2o 8456 df-er 8696 df-map 8828 df-pm 8829 df-ixp 8905 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-fsupp 9332 df-sup 9412 df-oi 9482 df-card 9944 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11467 df-neg 11468 df-nn 12258 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12529 df-z 12616 df-dec 12737 df-uz 12888 df-fz 13562 df-fzo 13710 df-seq 14066 df-hash 14395 df-struct 17239 df-sets 17256 df-slot 17274 df-ndx 17286 df-base 17302 df-ress 17323 df-plusg 17355 df-mulr 17356 df-sca 17358 df-vsca 17359 df-ip 17360 df-tset 17361 df-ple 17362 df-ds 17364 df-hom 17366 df-cco 17367 df-0g 17526 df-gsum 17527 df-prds 17532 df-pws 17534 df-mre 17670 df-mrc 17671 df-acs 17673 df-mgm 18730 df-sgrp 18821 df-mnd 18837 df-mhm 18891 df-submnd 18892 df-grp 19060 df-minusg 19061 df-sbg 19062 df-mulg 19191 df-subg 19246 df-ghm 19341 df-cntz 19444 df-cmn 19909 df-abl 19910 df-mgp 20274 df-rng 20288 df-ur 20321 df-srg 20326 df-ring 20374 df-subrng 20708 df-subrg 20732 df-lmod 21046 df-lss 21116 df-psr 22124 df-mvr 22125 df-mpl 22126 df-opsr 22128 df-psr1 22405 df-vr1 22406 df-ply1 22407 df-coe1 22408

This theorem is used by: eqcoe1ply1eq 22524 evls1fpws 22594 pmatcollpw1lem2 23000 mp2pm2mp 23036 plypf1 26438 ply1coedeg 33999 ply1degltdimlem 34132

W3C validator