mplcoe1 - Metamath Proof Explorer

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

Theorem mplcoe1 22199

Description: Decompose a polynomial into a finite sum of monomials. (Contributed by Mario Carneiro, 9-Jan-2015.)

**Hypotheses**
Ref	Expression
mplcoe1.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
mplcoe1.d	⊢ 𝐷 = {𝑓 ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡𝑓 “ ℕ) ∈ Fin}
mplcoe1.z	⊢ 0 = (0_g‘𝑅)
mplcoe1.o	⊢ 1 = (1_r‘𝑅)
mplcoe1.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
mplcoe1.b	⊢ 𝐵 = (Base‘𝑃)
mplcoe1.n	⊢ · = ( ·_𝑠 ‘𝑃)
mplcoe1.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mplcoe1.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)

**Assertion**
Ref	Expression
mplcoe1	⊢ (𝜑 → 𝑋 = (𝑃 Σ_g (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))

Distinct variable groups: 𝑦,𝑘, 1 𝐵,𝑘 𝑓,𝑘,𝑦,𝐼 𝜑,𝑘,𝑦 𝑅,𝑓,𝑦 𝐷,𝑘,𝑦 𝑃,𝑘 0 ,𝑓,𝑘,𝑦 𝑓,𝑋,𝑘,𝑦 𝑘,𝑊,𝑦 · ,𝑘 Allowed substitution hints: 𝜑(𝑓) 𝐵(𝑦, 𝑓) 𝐷(𝑓) 𝑃(𝑦, 𝑓) 𝑅(𝑘) · (𝑦, 𝑓) 1 (𝑓) 𝑊(𝑓)

Proof of Theorem mplcoe1 Dummy variables 𝑤 𝑥 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplcoe1.p	. . . . . 6 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
2		eqid 2762	. . . . . 6 ⊢ (Base‘𝑅) = (Base‘𝑅)
3		mplcoe1.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑃)
4		mplcoe1.d	. . . . . 6 ⊢ 𝐷 = {𝑓 ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡𝑓 “ ℕ) ∈ Fin}
5		mplcoe1.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6	1, 2, 3, 4, 5	mplelf 22158	. . . . 5 ⊢ (𝜑 → 𝑋:𝐷⟶(Base‘𝑅))
7	6	feqmptd 6949	. . . 4 ⊢ (𝜑 → 𝑋 = (𝑦 ∈ 𝐷 ↦ (𝑋‘𝑦)))
8		iftrue 4492	. . . . . . 7 ⊢ (𝑦 ∈ (𝑋 supp 0 ) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
9	8	adantl 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ (𝑋 supp 0 )) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
10		eldif 3914	. . . . . . . 8 ⊢ (𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 )) ↔ (𝑦 ∈ 𝐷 ∧ ¬ 𝑦 ∈ (𝑋 supp 0 )))
11		ssidd 3959	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 supp 0 ) ⊆ (𝑋 supp 0 ))
12		ovex 7445	. . . . . . . . . . . . 13 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
13	4, 12	rabex2 5310	. . . . . . . . . . . 12 ⊢ 𝐷 ∈ V
14	13	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ V)
15		mplcoe1.z	. . . . . . . . . . . . 13 ⊢ 0 = (0_g‘𝑅)
16	15	fvexi 6895	. . . . . . . . . . . 12 ⊢ 0 ∈ V
17	16	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ V)
18	6, 11, 14, 17	suppssr 8189	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → (𝑋‘𝑦) = 0 )
19	18	ifeq2d 4507	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), (𝑋‘𝑦)) = if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ))
20		ifid 4527	. . . . . . . . 9 ⊢ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), (𝑋‘𝑦)) = (𝑋‘𝑦)
21	19, 20	eqtr3di 2812	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
22	10, 21	sylan2br 606	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐷 ∧ ¬ 𝑦 ∈ (𝑋 supp 0 ))) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
23	22	anassrs 472	. . . . . 6 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ (𝑋 supp 0 )) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
24	9, 23	pm2.61dan 824	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
25	24	mpteq2dva 5203	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ (𝑋‘𝑦)))
26	7, 25	eqtr4d 2800	. . 3 ⊢ (𝜑 → 𝑋 = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )))
27		suppssdm 8171	. . . . 5 ⊢ (𝑋 supp 0 ) ⊆ dom 𝑋
28	27, 6	fssdm 6725	. . . 4 ⊢ (𝜑 → (𝑋 supp 0 ) ⊆ 𝐷)
29		eqid 2762	. . . . . . . . 9 ⊢ (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅)
30		eqid 2762	. . . . . . . . 9 ⊢ (Base‘(𝐼 mPwSer 𝑅)) = (Base‘(𝐼 mPwSer 𝑅))
31	1, 29, 30, 15, 3	mplelbas 22151	. . . . . . . 8 ⊢ (𝑋 ∈ 𝐵 ↔ (𝑋 ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ 𝑋 finSupp 0 ))
32	31	simprbi 502	. . . . . . 7 ⊢ (𝑋 ∈ 𝐵 → 𝑋 finSupp 0 )
33	5, 32	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑋 finSupp 0 )
34	33	fsuppimpd 9327	. . . . 5 ⊢ (𝜑 → (𝑋 supp 0 ) ∈ Fin)
35		sseq1 3961	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐷 ↔ ∅ ⊆ 𝐷))
36		mpteq1 5199	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ ∅ ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
37		mpt0 6677	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = ∅
38	36, 37	eqtrdi 2813	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = ∅)
39	38	oveq2d 7428	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σ_g ∅))
40		eqid 2762	. . . . . . . . . . 11 ⊢ (0_g‘𝑃) = (0_g‘𝑃)
41	40	gsum0 18748	. . . . . . . . . 10 ⊢ (𝑃 Σ_g ∅) = (0_g‘𝑃)
42	39, 41	eqtrdi 2813	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (0_g‘𝑃))
43		noel 4290	. . . . . . . . . . . 12 ⊢ ¬ 𝑦 ∈ ∅
44		eleq2 2851	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ ∅))
45	43, 44	mtbiri 330	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → ¬ 𝑦 ∈ 𝑤)
46	45	iffalsed 4497	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ) = 0 )
47	46	mpteq2dv 5204	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ 0 ))
48	42, 47	eqeq12d 2778	. . . . . . . 8 ⊢ (𝑤 = ∅ → ((𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) ↔ (0_g‘𝑃) = (𝑦 ∈ 𝐷 ↦ 0 )))
49	35, 48	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ))) ↔ (∅ ⊆ 𝐷 → (0_g‘𝑃) = (𝑦 ∈ 𝐷 ↦ 0 ))))
50	49	imbi2d 343	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝜑 → (𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )))) ↔ (𝜑 → (∅ ⊆ 𝐷 → (0_g‘𝑃) = (𝑦 ∈ 𝐷 ↦ 0 )))))
51		sseq1 3961	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐷 ↔ 𝑥 ⊆ 𝐷))
52		mpteq1 5199	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
53	52	oveq2d 7428	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
54		eleq2 2851	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ 𝑥))
55	54	ifbid 4510	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ) = if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
56	55	mpteq2dv 5204	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )))
57	53, 56	eqeq12d 2778	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ((𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) ↔ (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))))
58	51, 57	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = 𝑥 → ((𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ))) ↔ (𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )))))
59	58	imbi2d 343	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝜑 → (𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )))) ↔ (𝜑 → (𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))))))
60		sseq1 3961	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐷 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐷))
61		mpteq1 5199	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
62	61	oveq2d 7428	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
63		eleq2 2851	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ (𝑥 ∪ {𝑧})))
64	63	ifbid 4510	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))
65	64	mpteq2dv 5204	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))
66	62, 65	eqeq12d 2778	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) ↔ (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))))
67	60, 66	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))))
68	67	imbi2d 343	. . . . . 6 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))))))
69		sseq1 3961	. . . . . . . 8 ⊢ (𝑤 = (𝑋 supp 0 ) → (𝑤 ⊆ 𝐷 ↔ (𝑋 supp 0 ) ⊆ 𝐷))
70		mpteq1 5199	. . . . . . . . . 10 ⊢ (𝑤 = (𝑋 supp 0 ) → (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) = (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
71	70	oveq2d 7428	. . . . . . . . 9 ⊢ (𝑤 = (𝑋 supp 0 ) → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
72		eleq2 2851	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑋 supp 0 ) → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ (𝑋 supp 0 )))
73	72	ifbid 4510	. . . . . . . . . 10 ⊢ (𝑤 = (𝑋 supp 0 ) → if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ) = if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ))
74	73	mpteq2dv 5204	. . . . . . . . 9 ⊢ (𝑤 = (𝑋 supp 0 ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )))
75	71, 74	eqeq12d 2778	. . . . . . . 8 ⊢ (𝑤 = (𝑋 supp 0 ) → ((𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )) ↔ (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ))))
76	69, 75	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = (𝑋 supp 0 ) → ((𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 ))) ↔ ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )))))
77	76	imbi2d 343	. . . . . 6 ⊢ (𝑤 = (𝑋 supp 0 ) → ((𝜑 → (𝑤 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑤 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑤, (𝑋‘𝑦), 0 )))) ↔ (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ))))))
78		mplcoe1.i	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
79		mplcoe1.r	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ Ring)
80		ringgrp 20326	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
81	79, 80	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Grp)
82	1, 4, 15, 40, 78, 81	mpl0 22166	. . . . . . . 8 ⊢ (𝜑 → (0_g‘𝑃) = (𝐷 × { 0 }))
83		fconstmpt 5722	. . . . . . . 8 ⊢ (𝐷 × { 0 }) = (𝑦 ∈ 𝐷 ↦ 0 )
84	82, 83	eqtrdi 2813	. . . . . . 7 ⊢ (𝜑 → (0_g‘𝑃) = (𝑦 ∈ 𝐷 ↦ 0 ))
85	84	a1d 26	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐷 → (0_g‘𝑃) = (𝑦 ∈ 𝐷 ↦ 0 )))
86		ssun1 4130	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
87		sstr2 3943	. . . . . . . . . . 11 ⊢ (𝑥 ⊆ (𝑥 ∪ {𝑧}) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → 𝑥 ⊆ 𝐷))
88	86, 87	ax-mp 5	. . . . . . . . . 10 ⊢ ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → 𝑥 ⊆ 𝐷)
89	88	imim1i 64	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))))
90		oveq1 7419	. . . . . . . . . . . 12 ⊢ ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) → ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
91		eqid 2762	. . . . . . . . . . . . . 14 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
92	1, 78, 79	mplringd 22183	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
93		ringcmn 20372	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ Ring → 𝑃 ∈ CMnd)
94	92, 93	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑃 ∈ CMnd)
95	94	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑃 ∈ CMnd)
96		simprll 790	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑥 ∈ Fin)
97		simprr 784	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑥 ∪ {𝑧}) ⊆ 𝐷)
98	97	unssad 4145	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑥 ⊆ 𝐷)
99	98	sselda 3936	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐷)
100	78	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐼 ∈ 𝑊)
101	79	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ Ring)
102	1, 100, 101	mpllmodd 22185	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑃 ∈ LMod)
103	6	ffvelcdmda 7079	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋‘𝑘) ∈ (Base‘𝑅))
104	1, 78, 79	mplsca 22173	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑅 = (Scalar‘𝑃))
105	104	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 = (Scalar‘𝑃))
106	105	fveq2d 6885	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (Base‘𝑅) = (Base‘(Scalar‘𝑃)))
107	103, 106	eleqtrd 2864	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋‘𝑘) ∈ (Base‘(Scalar‘𝑃)))
108		mplcoe1.o	. . . . . . . . . . . . . . . . . 18 ⊢ 1 = (1_r‘𝑅)
109		simpr 489	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑘 ∈ 𝐷)
110	1, 3, 15, 108, 4, 100, 101, 109	mplmon 22197	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵)
111		eqid 2762	. . . . . . . . . . . . . . . . . 18 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
112		mplcoe1.n	. . . . . . . . . . . . . . . . . 18 ⊢ · = ( ·_𝑠 ‘𝑃)
113		eqid 2762	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
114	3, 111, 112, 113	lmodvscl 21010	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ LMod ∧ (𝑋‘𝑘) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
115	102, 107, 110, 114	syl3anc 1397	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
116	115	adantlr 727	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘 ∈ 𝐷) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
117	99, 116	syldan 602	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑘 ∈ 𝑥) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) ∈ 𝐵)
118		vex 3458	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
119	118	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑧 ∈ V)
120		simprlr 791	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ¬ 𝑧 ∈ 𝑥)
121	1, 78, 79	mpllmodd 22185	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ LMod)
122	121	adantr 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑃 ∈ LMod)
123	6	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑋:𝐷⟶(Base‘𝑅))
124	97	unssbd 4146	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → {𝑧} ⊆ 𝐷)
125	118	snss 4749	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐷 ↔ {𝑧} ⊆ 𝐷)
126	124, 125	sylibr 237	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑧 ∈ 𝐷)
127	123, 126	ffvelcdmd 7080	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑋‘𝑧) ∈ (Base‘𝑅))
128	104	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 = (Scalar‘𝑃))
129	128	fveq2d 6885	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (Base‘𝑅) = (Base‘(Scalar‘𝑃)))
130	127, 129	eleqtrd 2864	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑋‘𝑧) ∈ (Base‘(Scalar‘𝑃)))
131	78	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝐼 ∈ 𝑊)
132	79	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 ∈ Ring)
133	1, 3, 15, 108, 4, 131, 132, 126	mplmon 22197	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) ∈ 𝐵)
134	3, 111, 112, 113	lmodvscl 21010	. . . . . . . . . . . . . . 15 ⊢ ((𝑃 ∈ LMod ∧ (𝑋‘𝑧) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) ∈ 𝐵) → ((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) ∈ 𝐵)
135	122, 130, 133, 134	syl3anc 1397	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) ∈ 𝐵)
136		fveq2 6881	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → (𝑋‘𝑘) = (𝑋‘𝑧))
137		equequ2 2055	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑧 → (𝑦 = 𝑘 ↔ 𝑦 = 𝑧))
138	137	ifbid 4510	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → if(𝑦 = 𝑘, 1 , 0 ) = if(𝑦 = 𝑧, 1 , 0 ))
139	138	mpteq2dv 5204	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))
140	136, 139	oveq12d 7430	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑧 → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))
141	3, 91, 95, 96, 117, 119, 120, 135, 140	gsumunsn 20036	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
142		eqid 2762	. . . . . . . . . . . . . . 15 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
143	123	ffvelcdmda 7079	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → (𝑋‘𝑦) ∈ (Base‘𝑅))
144	2, 15	ring0cl 20357	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
145	79, 144	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 0 ∈ (Base‘𝑅))
146	145	ad2antrr 738	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → 0 ∈ (Base‘𝑅))
147	143, 146	ifcld 4533	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ) ∈ (Base‘𝑅))
148	147	fmpttd 7110	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )):𝐷⟶(Base‘𝑅))
149		fvex 6894	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘𝑅) ∈ V
150	149, 13	elmap 8867	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ ((Base‘𝑅) ↑_m 𝐷) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )):𝐷⟶(Base‘𝑅))
151	148, 150	sylibr 237	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ ((Base‘𝑅) ↑_m 𝐷))
152	29, 2, 4, 30, 131	psrbas 22095	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (Base‘(𝐼 mPwSer 𝑅)) = ((Base‘𝑅) ↑_m 𝐷))
153	151, 152	eleqtrrd 2865	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ (Base‘(𝐼 mPwSer 𝑅)))
154	13	mptex 7221	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ V
155		funmpt 6574	. . . . . . . . . . . . . . . . . . 19 ⊢ Fun (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
156	154, 155, 16	3pm3.2i 1357	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ V ∧ Fun (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∧ 0 ∈ V)
157	156	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ V ∧ Fun (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∧ 0 ∈ V))
158		eldifn 4085	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 ∈ (𝐷 ∖ 𝑥) → ¬ 𝑦 ∈ 𝑥)
159	158	adantl 486	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ (𝐷 ∖ 𝑥)) → ¬ 𝑦 ∈ 𝑥)
160	159	iffalsed 4497	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ (𝐷 ∖ 𝑥)) → if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ) = 0 )
161	13	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝐷 ∈ V)
162	160, 161	suppss2 8194	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) supp 0 ) ⊆ 𝑥)
163		suppssfifsupp 9338	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ V ∧ Fun (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∧ 0 ∈ V) ∧ (𝑥 ∈ Fin ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) supp 0 ) ⊆ 𝑥)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) finSupp 0 )
164	157, 96, 162, 163	syl12anc 849	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) finSupp 0 )
165	1, 29, 30, 15, 3	mplelbas 22151	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ 𝐵 ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) finSupp 0 ))
166	153, 164, 165	sylanbrc 594	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∈ 𝐵)
167	1, 3, 142, 91, 166, 135	mpladd 22169	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∘_f (+_g‘𝑅)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
168		ovexd 7447	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )) ∈ V)
169		eqidd 2763	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )))
170		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (._r‘𝑅) = (._r‘𝑅)
171	1, 112, 2, 3, 170, 4, 127, 133	mplvsca 22175	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = ((𝐷 × {(𝑋‘𝑧)}) ∘_f (._r‘𝑅)(𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))
172	127	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → (𝑋‘𝑧) ∈ (Base‘𝑅))
173	2, 108	ringidcl 20355	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
174	173, 144	ifcld 4533	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ Ring → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
175	79, 174	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
176	175	ad2antrr 738	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → if(𝑦 = 𝑧, 1 , 0 ) ∈ (Base‘𝑅))
177		fconstmpt 5722	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐷 × {(𝑋‘𝑧)}) = (𝑦 ∈ 𝐷 ↦ (𝑋‘𝑧))
178	177	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝐷 × {(𝑋‘𝑧)}) = (𝑦 ∈ 𝐷 ↦ (𝑋‘𝑧)))
179		eqidd 2763	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))
180	161, 172, 176, 178, 179	offval2 7696	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝐷 × {(𝑋‘𝑧)}) ∘_f (._r‘𝑅)(𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))))
181	171, 180	eqtrd 2797	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))))
182	161, 147, 168, 169, 181	offval2 7696	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) ∘_f (+_g‘𝑅)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = (𝑦 ∈ 𝐷 ↦ (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )))))
183	132, 80	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → 𝑅 ∈ Grp)
184	2, 142, 15	grplid 19040	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Grp ∧ (𝑋‘𝑧) ∈ (Base‘𝑅)) → ( 0 (+_g‘𝑅)(𝑋‘𝑧)) = (𝑋‘𝑧))
185	183, 127, 184	syl2anc 595	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ( 0 (+_g‘𝑅)(𝑋‘𝑧)) = (𝑋‘𝑧))
186	185	ad2antrr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ( 0 (+_g‘𝑅)(𝑋‘𝑧)) = (𝑋‘𝑧))
187		velsn 4604	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 ∈ {𝑧} ↔ 𝑦 = 𝑧)
188	187	bilani 509	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → 𝑦 = 𝑧)
189	188	fveq2d 6885	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → (𝑋‘𝑦) = (𝑋‘𝑧))
190	186, 189	eqtr4d 2800	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ( 0 (+_g‘𝑅)(𝑋‘𝑧)) = (𝑋‘𝑦))
191	120	ad2antrr 738	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
192	188, 191	eqneltrd 2882	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ¬ 𝑦 ∈ 𝑥)
193	192	iffalsed 4497	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ) = 0 )
194	188	iftrued 4494	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦 = 𝑧, 1 , 0 ) = 1 )
195	194	oveq2d 7428	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )) = ((𝑋‘𝑧)(._r‘𝑅) 1 ))
196	2, 170, 108	ringridm 20360	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑧) ∈ (Base‘𝑅)) → ((𝑋‘𝑧)(._r‘𝑅) 1 ) = (𝑋‘𝑧))
197	132, 127, 196	syl2anc 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋‘𝑧)(._r‘𝑅) 1 ) = (𝑋‘𝑧))
198	197	ad2antrr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅) 1 ) = (𝑋‘𝑧))
199	195, 198	eqtrd 2797	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )) = (𝑋‘𝑧))
200	193, 199	oveq12d 7430	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = ( 0 (+_g‘𝑅)(𝑋‘𝑧)))
201		elun2 4135	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 ∈ {𝑧} → 𝑦 ∈ (𝑥 ∪ {𝑧}))
202	201	adantl 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → 𝑦 ∈ (𝑥 ∪ {𝑧}))
203	202	iftrued 4494	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ) = (𝑋‘𝑦))
204	190, 200, 203	3eqtr4d 2807	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ 𝑦 ∈ {𝑧}) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))
205	81	ad2antrr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → 𝑅 ∈ Grp)
206	2, 142, 15	grprid 19041	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ Grp ∧ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ) ∈ (Base‘𝑅)) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅) 0 ) = if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
207	205, 147, 206	syl2anc 595	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅) 0 ) = if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
208	207	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅) 0 ) = if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
209		simpr 489	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ¬ 𝑦 ∈ {𝑧})
210	209, 187	sylnib 331	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ¬ 𝑦 = 𝑧)
211	210	iffalsed 4497	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → if(𝑦 = 𝑧, 1 , 0 ) = 0 )
212	211	oveq2d 7428	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )) = ((𝑋‘𝑧)(._r‘𝑅) 0 ))
213	2, 170, 15	ringrz 20384	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑧) ∈ (Base‘𝑅)) → ((𝑋‘𝑧)(._r‘𝑅) 0 ) = 0 )
214	132, 127, 213	syl2anc 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑋‘𝑧)(._r‘𝑅) 0 ) = 0 )
215	214	ad2antrr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅) 0 ) = 0 )
216	212, 215	eqtrd 2797	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → ((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )) = 0 )
217	216	oveq2d 7428	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅) 0 ))
218		elun 4106	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑦 ∈ 𝑥 ∨ 𝑦 ∈ {𝑧}))
219		orcom 883	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑦 ∈ 𝑥 ∨ 𝑦 ∈ {𝑧}) ↔ (𝑦 ∈ {𝑧} ∨ 𝑦 ∈ 𝑥))
220	218, 219	bitri 278	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑦 ∈ {𝑧} ∨ 𝑦 ∈ 𝑥))
221		biorf 949	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑦 ∈ {𝑧} → (𝑦 ∈ 𝑥 ↔ (𝑦 ∈ {𝑧} ∨ 𝑦 ∈ 𝑥)))
222	220, 221	bitr4id 293	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑦 ∈ {𝑧} → (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑦 ∈ 𝑥))
223	222	adantl 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (𝑦 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑦 ∈ 𝑥))
224	223	ifbid 4510	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ) = if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))
225	208, 217, 224	3eqtr4d 2807	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) ∧ ¬ 𝑦 ∈ {𝑧}) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))
226	204, 225	pm2.61dan 824	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) ∧ 𝑦 ∈ 𝐷) → (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 ))) = if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))
227	226	mpteq2dva 5203	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ (if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )(+_g‘𝑅)((𝑋‘𝑧)(._r‘𝑅)if(𝑦 = 𝑧, 1 , 0 )))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))
228	167, 182, 227	3eqtrrd 2802	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))))
229	141, 228	eqeq12d 2778	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )) ↔ ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 )))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))(+_g‘𝑃)((𝑋‘𝑧) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑧, 1 , 0 ))))))
230	90, 229	imbitrrid 249	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐷)) → ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))))
231	230	expr 461	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → ((𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )) → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))))
232	231	a2d 30	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))))
233	89, 232	syl5 35	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 )))))
234	233	expcom 418	. . . . . . 7 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → (𝜑 → ((𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 ))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))))))
235	234	a2d 30	. . . . . 6 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → ((𝜑 → (𝑥 ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ 𝑥 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ 𝑥, (𝑋‘𝑦), 0 )))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑥 ∪ {𝑧}), (𝑋‘𝑦), 0 ))))))
236	50, 59, 68, 77, 85, 235	findcard2s 9148	. . . . 5 ⊢ ((𝑋 supp 0 ) ∈ Fin → (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )))))
237	34, 236	mpcom 39	. . . 4 ⊢ (𝜑 → ((𝑋 supp 0 ) ⊆ 𝐷 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 ))))
238	28, 237	mpd 16	. . 3 ⊢ (𝜑 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 ∈ (𝑋 supp 0 ), (𝑋‘𝑦), 0 )))
239	26, 238	eqtr4d 2800	. 2 ⊢ (𝜑 → 𝑋 = (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
240	28	resmptd 6041	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 )) = (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))))
241	240	oveq2d 7428	. . 3 ⊢ (𝜑 → (𝑃 Σ_g ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 ))) = (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
242	115	fmpttd 7110	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))):𝐷⟶𝐵)
243	6, 11, 14, 17	suppssr 8189	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → (𝑋‘𝑘) = 0 )
244	243	oveq1d 7427	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ( 0 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
245		eldifi 4084	. . . . . . 7 ⊢ (𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 )) → 𝑘 ∈ 𝐷)
246	105	fveq2d 6885	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (0_g‘𝑅) = (0_g‘(Scalar‘𝑃)))
247	15, 246	eqtrid 2809	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 0 = (0_g‘(Scalar‘𝑃)))
248	247	oveq1d 7427	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ( 0 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = ((0_g‘(Scalar‘𝑃)) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
249		eqid 2762	. . . . . . . . . 10 ⊢ (0_g‘(Scalar‘𝑃)) = (0_g‘(Scalar‘𝑃))
250	3, 111, 112, 249, 40	lmod0vs 21027	. . . . . . . . 9 ⊢ ((𝑃 ∈ LMod ∧ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )) ∈ 𝐵) → ((0_g‘(Scalar‘𝑃)) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0_g‘𝑃))
251	102, 110, 250	syl2anc 595	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((0_g‘(Scalar‘𝑃)) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0_g‘𝑃))
252	248, 251	eqtrd 2797	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ( 0 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0_g‘𝑃))
253	245, 252	sylan2 604	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ( 0 · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0_g‘𝑃))
254	244, 253	eqtrd 2797	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐷 ∖ (𝑋 supp 0 ))) → ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))) = (0_g‘𝑃))
255	254, 14	suppss2 8194	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) supp (0_g‘𝑃)) ⊆ (𝑋 supp 0 ))
256	13	mptex 7221	. . . . . . 7 ⊢ (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V
257		funmpt 6574	. . . . . . 7 ⊢ Fun (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))
258		fvex 6894	. . . . . . 7 ⊢ (0_g‘𝑃) ∈ V
259	256, 257, 258	3pm3.2i 1357	. . . . . 6 ⊢ ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0_g‘𝑃) ∈ V)
260	259	a1i 11	. . . . 5 ⊢ (𝜑 → ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0_g‘𝑃) ∈ V))
261		suppssfifsupp 9338	. . . . 5 ⊢ ((((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∈ V ∧ Fun (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ∧ (0_g‘𝑃) ∈ V) ∧ ((𝑋 supp 0 ) ∈ Fin ∧ ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) supp (0_g‘𝑃)) ⊆ (𝑋 supp 0 ))) → (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) finSupp (0_g‘𝑃))
262	260, 34, 255, 261	syl12anc 849	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) finSupp (0_g‘𝑃))
263	3, 40, 94, 14, 242, 255, 262	gsumres 19989	. . 3 ⊢ (𝜑 → (𝑃 Σ_g ((𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 )))) ↾ (𝑋 supp 0 ))) = (𝑃 Σ_g (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
264	241, 263	eqtr3d 2799	. 2 ⊢ (𝜑 → (𝑃 Σ_g (𝑘 ∈ (𝑋 supp 0 ) ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))) = (𝑃 Σ_g (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))
265	239, 264	eqtrd 2797	1 ⊢ (𝜑 → 𝑋 = (𝑃 Σ_g (𝑘 ∈ 𝐷 ↦ ((𝑋‘𝑘) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑘, 1 , 0 ))))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 400 ∨ wo 860 ∧ w3a 1102 = wceq 1569 ∈ wcel 2142 {crab 3415 Vcvv 3454 ∖ cdif 3901 ∪ cun 3902 ⊆ wss 3904 ∅c0 4285 ifcif 4486 {csn 4588 class class class wbr 5108 ↦ cmpt 5191 × cxp 5658 ^◡ccnv 5659 ↾ cres 5662 “ cima 5663 Fun wfun 6530 ⟶wf 6532 ‘cfv 6536 (class class class)co 7412 ∘_f cof 7674 supp csupp 8154 ↑_m cmap 8822 Fincfn 8941 finSupp cfsupp 9319 ℕcn 12239 ℕ₀cn0 12510 Basecbs 17275 +_gcplusg 17316 ._rcmulr 17317 Scalarcsca 17319 ·_𝑠 cvsca 17320 0_gc0g 17498 Σ_g cgsu 17499 Grpcgrp 19006 CMndccmn 19856 1_rcur 20269 Ringcrg 20321 LModclmod 20992 mPwSer cmps 22065 mPoly cmpl 22067

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1824 ax-4 1838 ax-5 1939 ax-6 1996 ax-7 2037 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5237 ax-sep 5256 ax-nul 5268 ax-pow 5335 ax-pr 5403 ax-un 7734 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This proof depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1103 df-3an 1104 df-tru 1572 df-fal 1582 df-ex 1809 df-nf 1813 df-sb 2096 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3368 df-reu 3369 df-rab 3416 df-v 3456 df-sbc 3744 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4487 df-pw 4563 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4595 df-uni 4872 df-int 4912 df-iun 4957 df-iin 4958 df-br 5109 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5555 df-eprel 5560 df-po 5568 df-so 5569 df-fr 5613 df-se 5614 df-we 5615 df-xp 5666 df-rel 5667 df-cnv 5668 df-co 5669 df-dm 5670 df-rn 5671 df-res 5672 df-ima 5673 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 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-of 7676 df-ofr 7677 df-om 7861 df-1st 7984 df-2nd 7985 df-supp 8155 df-frecs 8276 df-wrecs 8307 df-recs 8356 df-rdg 8395 df-1o 8451 df-2o 8452 df-er 8692 df-map 8824 df-pm 8825 df-ixp 8894 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-fsupp 9320 df-sup 9400 df-oi 9470 df-card 9932 df-pnf 11251 df-mnf 11252 df-xr 11253 df-ltxr 11254 df-le 11255 df-sub 11449 df-neg 11450 df-nn 12240 df-2 12309 df-3 12310 df-4 12311 df-5 12312 df-6 12313 df-7 12314 df-8 12315 df-9 12316 df-n0 12511 df-z 12598 df-dec 12718 df-uz 12869 df-fz 13542 df-fzo 13690 df-seq 14045 df-hash 14374 df-struct 17213 df-sets 17230 df-slot 17248 df-ndx 17260 df-base 17276 df-ress 17297 df-plusg 17329 df-mulr 17330 df-sca 17332 df-vsca 17333 df-ip 17334 df-tset 17335 df-ple 17336 df-ds 17338 df-hom 17340 df-cco 17341 df-0g 17500 df-gsum 17501 df-prds 17506 df-pws 17508 df-mre 17644 df-mrc 17645 df-acs 17647 df-mgm 18704 df-sgrp 18783 df-mnd 18799 df-mhm 18847 df-submnd 18848 df-grp 19009 df-minusg 19010 df-sbg 19011 df-mulg 19140 df-subg 19195 df-ghm 19290 df-cntz 19393 df-cmn 19858 df-abl 19859 df-mgp 20223 df-rng 20237 df-ur 20270 df-ring 20323 df-subrng 20656 df-subrg 20680 df-lmod 20994 df-lss 21064 df-psr 22070 df-mpl 22072

This theorem is used by: mplbas2 22204 mplcoe4 22233 ply1coe 22469

W3C validator