Theorem mplcoe5 21985

Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 21986), it is sufficient that 𝑅 is a ring and all the variables of the multivariate polynomial commute. (Contributed by AV, 7-Oct-2019.)

Hypotheses

Ref	Expression
mplcoe1.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
mplcoe1.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
mplcoe1.z	⊢ 0 = (0g‘𝑅)
mplcoe1.o	⊢ 1 = (1r‘𝑅)
mplcoe1.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
mplcoe2.g	⊢ 𝐺 = (mulGrp‘𝑃)
mplcoe2.m	⊢ ↑ = (.g‘𝐺)
mplcoe2.v	⊢ 𝑉 = (𝐼 mVar 𝑅)
mplcoe5.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mplcoe5.y	⊢ (𝜑 → 𝑌 ∈ 𝐷)
mplcoe5.c	⊢ (𝜑 → ∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)))

Assertion

Ref	Expression
mplcoe5	⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

Distinct variable groups:   𝑥,𝑘, ↑ ,𝑦   1 ,𝑘   𝑥,𝑦, 1   𝑘,𝐺,𝑥   𝑓,𝑘,𝑥,𝑦,𝐼   𝜑,𝑘,𝑥,𝑦   𝑅,𝑓,𝑦   𝐷,𝑘,𝑥,𝑦   𝑃,𝑘,𝑥   𝑘,𝑉,𝑥   0 ,𝑓,𝑘,𝑥,𝑦   𝑓,𝑌,𝑘,𝑥,𝑦   𝑘,𝑊,𝑦   𝑦,𝐺   𝑦,𝑉   𝑦, ↑

Allowed substitution hints:   𝜑(𝑓)   𝐷(𝑓)   𝑃(𝑦,𝑓)   𝑅(𝑥,𝑘)   1 (𝑓)   ↑ (𝑓)   𝐺(𝑓)   𝑉(𝑓)   𝑊(𝑥,𝑓)

Proof of Theorem mplcoe5

Dummy variables 𝑖 𝑤 𝑧 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplcoe5.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
2		mplcoe1.i	. . . . . . . . . 10 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
3		mplcoe1.d	. . . . . . . . . . 11 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
4	3	psrbag 21864	. . . . . . . . . 10 ⊢ (𝐼 ∈ 𝑊 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
5	2, 4	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
6	1, 5	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin))
7	6	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
8	7	feqmptd 6899	. . . . . 6 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
9		iftrue 4482	. . . . . . . . 9 ⊢ (𝑖 ∈ (◡𝑌 “ ℕ) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
10	9	adantl 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
11		eldif 3909	. . . . . . . . . 10 ⊢ (𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)))
12		fcdmnn0supp 12448	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌:𝐼⟶ℕ0) → (𝑌 supp 0) = (◡𝑌 “ ℕ))
13	2, 7, 12	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 supp 0) = (◡𝑌 “ ℕ))
14		eqimss 3990	. . . . . . . . . . . . . 14 ⊢ ((𝑌 supp 0) = (◡𝑌 “ ℕ) → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
15	13, 14	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
16		c0ex 11116	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
17	16	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ V)
18	7, 15, 2, 17	suppssr 8134	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑖) = 0)
19	18	ifeq2d 4497	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
20		ifid 4517	. . . . . . . . . . 11 ⊢ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = (𝑌‘𝑖)
21	19, 20	eqtr3di 2783	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
22	11, 21	sylan2br 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
23	22	anassrs 467	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
24	10, 23	pm2.61dan 812	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
25	24	mpteq2dva 5188	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
26	8, 25	eqtr4d 2771	. . . . 5 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
27	26	eqeq2d 2744	. . . 4 ⊢ (𝜑 → (𝑦 = 𝑌 ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
28	27	ifbid 4500	. . 3 ⊢ (𝜑 → if(𝑦 = 𝑌, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
29	28	mpteq2dv 5189	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
30		cnvimass 6038	. . . . 5 ⊢ (◡𝑌 “ ℕ) ⊆ dom 𝑌
31	30, 7	fssdm 6678	. . . 4 ⊢ (𝜑 → (◡𝑌 “ ℕ) ⊆ 𝐼)
32	6	simprd 495	. . . . 5 ⊢ (𝜑 → (◡𝑌 “ ℕ) ∈ Fin)
33		sseq1 3957	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐼 ↔ ∅ ⊆ 𝐼))
34		noel 4289	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑖 ∈ ∅
35		eleq2 2822	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ ∅))
36	34, 35	mtbiri 327	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = ∅ → ¬ 𝑖 ∈ 𝑤)
37	36	iffalsed 4487	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ∅ → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = 0)
38	37	mpteq2dv 5189	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
39		fconstmpt 5683	. . . . . . . . . . . . 13 ⊢ (𝐼 × {0}) = (𝑖 ∈ 𝐼 ↦ 0)
40	38, 39	eqtr4di 2786	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝐼 × {0}))
41	40	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝐼 × {0})))
42	41	ifbid 4500	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝐼 × {0}), 1 , 0 ))
43	42	mpteq2dv 5189	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
44		mpteq1 5184	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
45		mpt0 6631	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅
46	44, 45	eqtrdi 2784	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅)
47	46	oveq2d 7371	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg ∅))
48		mplcoe2.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (mulGrp‘𝑃)
49		eqid 2733	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (1r‘𝑃)
50	48, 49	ringidval 20111	. . . . . . . . . . 11 ⊢ (1r‘𝑃) = (0g‘𝐺)
51	50	gsum0 18602	. . . . . . . . . 10 ⊢ (𝐺 Σg ∅) = (1r‘𝑃)
52	47, 51	eqtrdi 2784	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (1r‘𝑃))
53	43, 52	eqeq12d 2749	. . . . . . . 8 ⊢ (𝑤 = ∅ → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
54	33, 53	imbi12d 344	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))))
55	54	imbi2d 340	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))))
56		sseq1 3957	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐼 ↔ 𝑥 ⊆ 𝐼))
57		eleq2 2822	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ 𝑥))
58	57	ifbid 4500	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑥 → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
59	58	mpteq2dv 5189	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
60	59	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))))
61	60	ifbid 4500	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))
62	61	mpteq2dv 5189	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )))
63		mpteq1 5184	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
64	63	oveq2d 7371	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
65	62, 64	eqeq12d 2749	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
66	56, 65	imbi12d 344	. . . . . . 7 ⊢ (𝑤 = 𝑥 → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
67	66	imbi2d 340	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
68		sseq1 3957	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
69		eleq2 2822	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (𝑥 ∪ {𝑧})))
70	69	ifbid 4500	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
71	70	mpteq2dv 5189	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
72	71	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
73	72	ifbid 4500	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
74	73	mpteq2dv 5189	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
75		mpteq1 5184	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
76	75	oveq2d 7371	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
77	74, 76	eqeq12d 2749	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
78	68, 77	imbi12d 344	. . . . . . 7 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
79	78	imbi2d 340	. . . . . 6 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
80		sseq1 3957	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑤 ⊆ 𝐼 ↔ (◡𝑌 “ ℕ) ⊆ 𝐼))
81		eleq2 2822	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (◡𝑌 “ ℕ)))
82	81	ifbid 4500	. . . . . . . . . . . . 13 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
83	82	mpteq2dv 5189	. . . . . . . . . . . 12 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
84	83	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
85	84	ifbid 4500	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
86	85	mpteq2dv 5189	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
87		mpteq1 5184	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
88	87	oveq2d 7371	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
89	86, 88	eqeq12d 2749	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
90	80, 89	imbi12d 344	. . . . . . 7 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
91	90	imbi2d 340	. . . . . 6 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
92		mplcoe1.p	. . . . . . . . 9 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
93		mplcoe1.z	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
94		mplcoe1.o	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
95		mplcoe5.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Ring)
96	92, 3, 93, 94, 49, 2, 95	mpl1 21959	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑃) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
97	96, 49	eqtr3di 2783	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))
98	97	a1d 25	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
99		ssun1 4129	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
100		sstr2 3938	. . . . . . . . . . 11 ⊢ (𝑥 ⊆ (𝑥 ∪ {𝑧}) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼))
101	99, 100	ax-mp 5	. . . . . . . . . 10 ⊢ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼)
102	101	imim1i 63	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
103		oveq1 7362	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
104		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑃) = (Base‘𝑃)
105	2	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ 𝑊)
106	95	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ Ring)
107	7	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌:𝐼⟶ℕ0)
108	107	ffvelcdmda 7026	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑖) ∈ ℕ0)
109		0nn0 12406	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℕ0
110		ifcl 4522	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑌‘𝑖) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
111	108, 109, 110	sylancl 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
112	111	fmpttd 7057	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0)
113		fcdmnn0supp 12448	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
114	105, 112, 113	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
115		simprll 778	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
116		eldifn 4083	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (𝐼 ∖ 𝑥) → ¬ 𝑖 ∈ 𝑥)
117	116	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → ¬ 𝑖 ∈ 𝑥)
118	117	iffalsed 4487	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
119	118, 105	suppss2 8139	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥)
120	115, 119	ssfid 9163	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
121	114, 120	eqeltrrd 2834	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)
122	3	psrbag 21864	. . . . . . . . . . . . . . . . 17 ⊢ (𝐼 ∈ 𝑊 → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
123	105, 122	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
124	112, 121, 123	mpbir2and 713	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷)
125		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
126		ssun2 4130	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ⊆ (𝑥 ∪ {𝑧})
127		simprr 772	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑥 ∪ {𝑧}) ⊆ 𝐼)
128	126, 127	sstrid 3943	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → {𝑧} ⊆ 𝐼)
129		vex 3442	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑧 ∈ V
130	129	snss 4738	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐼 ↔ {𝑧} ⊆ 𝐼)
131	128, 130	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧 ∈ 𝐼)
132	107, 131	ffvelcdmd 7027	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑌‘𝑧) ∈ ℕ0)
133	3	snifpsrbag 21867	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
134	105, 132, 133	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
135	92, 104, 93, 94, 3, 105, 106, 124, 125, 134	mplmonmul 21981	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )))
136		mplcoe2.m	. . . . . . . . . . . . . . . 16 ⊢ ↑ = (.g‘𝐺)
137		mplcoe2.v	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 = (𝐼 mVar 𝑅)
138	92, 3, 93, 94, 105, 48, 136, 137, 106, 131, 132	mplcoe3 21983	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 )) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
139	138	oveq2d 7371	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
140	132	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
141		ifcl 4522	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑌‘𝑧) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
142	140, 109, 141	sylancl 586	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
143		eqidd 2734	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
144		eqidd 2734	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)))
145	105, 111, 142, 143, 144	offval2 7639	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))))
146	108	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℕ0)
147	146	nn0cnd 12454	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℂ)
148	147	addlidd 11324	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (0 + (𝑌‘𝑖)) = (𝑌‘𝑖))
149		elsni 4594	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ {𝑧} → 𝑖 = 𝑧)
150	149	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 = 𝑧)
151		simprlr 779	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ¬ 𝑧 ∈ 𝑥)
152	151	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
153	150, 152	eqneltrd 2853	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ 𝑥)
154	153	iffalsed 4487	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
155	150	iftrued 4484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑧))
156	150	fveq2d 6835	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) = (𝑌‘𝑧))
157	155, 156	eqtr4d 2771	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑖))
158	154, 157	oveq12d 7373	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (0 + (𝑌‘𝑖)))
159		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ {𝑧})
160	126, 159	sselid 3929	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ (𝑥 ∪ {𝑧}))
161	160	iftrued 4484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
162	148, 158, 161	3eqtr4d 2778	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
163	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
164	163	nn0cnd 12454	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℂ)
165	164	addridd 11323	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
166		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ {𝑧})
167		velsn 4593	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
168	166, 167	sylnib 328	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 = 𝑧)
169	168	iffalsed 4487	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = 0)
170	169	oveq2d 7371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0))
171		elun 4104	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}))
172		orcom 870	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
173	171, 172	bitri 275	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
174		biorf 936	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ 𝑥 ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥)))
175	173, 174	bitr4id 290	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
176	175	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
177	176	ifbid 4500	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
178	165, 170, 177	3eqtr4d 2778	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
179	162, 178	pm2.61dan 812	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
180	179	mpteq2dva 5188	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
181	145, 180	eqtrd 2768	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
182	181	eqeq2d 2744	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
183	182	ifbid 4500	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
184	183	mpteq2dv 5189	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
185	135, 139, 184	3eqtr3rd 2777	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
186	48, 104	mgpbas 20073	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝐺)
187	48, 125	mgpplusg 20072	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑃) = (+g‘𝐺)
188		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
189		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
190	92, 2, 95	mplringd 21970	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
191	48	ringmgp 20167	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ Ring → 𝐺 ∈ Mnd)
192	190, 191	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ Mnd)
193	192	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐺 ∈ Mnd)
194	1	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌 ∈ 𝐷)
195		mplcoe5.c	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)))
196		fveq2 6831	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑉‘𝑥) = (𝑉‘𝑎))
197	196	oveq2d 7371	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)))
198	196	oveq1d 7370	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)))
199	197, 198	eqeq12d 2749	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦))))
200		fveq2 6831	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑏 → (𝑉‘𝑦) = (𝑉‘𝑏))
201	200	oveq1d 7370	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)))
202	200	oveq2d 7371	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
203	201, 202	eqeq12d 2749	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏))))
204	199, 203	cbvral2vw 3216	. . . . . . . . . . . . . . . . 17 ⊢ (∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
205	195, 204	sylib 218	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
206	205	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
207	92, 3, 93, 94, 105, 48, 136, 137, 106, 194, 206, 127	mplcoe5lem 21984	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
208	99, 127	sstrid 3943	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ⊆ 𝐼)
209	208	sselda 3931	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐼)
210	192	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐺 ∈ Mnd)
211	7	ffvelcdmda 7026	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑌‘𝑘) ∈ ℕ0)
212	2	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐼 ∈ 𝑊)
213	95	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ Ring)
214		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
215	92, 137, 104, 212, 213, 214	mvrcl 21939	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑉‘𝑘) ∈ (Base‘𝑃))
216	186, 136, 210, 211, 215	mulgnn0cld 19018	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
217	216	adantlr 715	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
218	209, 217	syldan 591	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
219	92, 137, 104, 105, 106, 131	mvrcl 21939	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑉‘𝑧) ∈ (Base‘𝑃))
220	186, 136, 193, 132, 219	mulgnn0cld 19018	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
221		fveq2 6831	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑌‘𝑘) = (𝑌‘𝑧))
222		fveq2 6831	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑉‘𝑘) = (𝑉‘𝑧))
223	221, 222	oveq12d 7373	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
224	223	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 = 𝑧) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
225	186, 187, 188, 189, 193, 115, 207, 218, 131, 151, 220, 224	gsumzunsnd 19878	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
226	185, 225	eqeq12d 2749	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧)))))
227	103, 226	imbitrrid 246	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
228	227	expr 456	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
229	228	a2d 29	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
230	102, 229	syl5 34	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
231	230	expcom 413	. . . . . . 7 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → (𝜑 → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
232	231	a2d 29	. . . . . 6 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → ((𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
233	55, 67, 79, 91, 98, 232	findcard2s 9085	. . . . 5 ⊢ ((◡𝑌 “ ℕ) ∈ Fin → (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
234	32, 233	mpcom 38	. . . 4 ⊢ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
235	31, 234	mpd 15	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
236	31	resmptd 5996	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ)) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
237	236	oveq2d 7371	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
238	216	fmpttd 7057	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))):𝐼⟶(Base‘𝑃))
239		ssidd 3955	. . . . 5 ⊢ (𝜑 → 𝐼 ⊆ 𝐼)
240	92, 3, 93, 94, 2, 48, 136, 137, 95, 1, 195, 239	mplcoe5lem 21984	. . . 4 ⊢ (𝜑 → ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
241	7, 15, 2, 17	suppssr 8134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑘) = 0)
242	241	oveq1d 7370	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (0 ↑ (𝑉‘𝑘)))
243		eldifi 4082	. . . . . . . 8 ⊢ (𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) → 𝑘 ∈ 𝐼)
244	243, 215	sylan2 593	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑉‘𝑘) ∈ (Base‘𝑃))
245	186, 50, 136	mulg0 18997	. . . . . . 7 ⊢ ((𝑉‘𝑘) ∈ (Base‘𝑃) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
246	244, 245	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
247	242, 246	eqtrd 2768	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (1r‘𝑃))
248	247, 2	suppss2 8139	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))
249	2	mptexd 7167	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
250		funmpt 6527	. . . . . 6 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
251	250	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
252		fvexd 6846	. . . . 5 ⊢ (𝜑 → (1r‘𝑃) ∈ V)
253		suppssfifsupp 9274	. . . . 5 ⊢ ((((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V ∧ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∧ (1r‘𝑃) ∈ V) ∧ ((◡𝑌 “ ℕ) ∈ Fin ∧ ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))) → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
254	249, 251, 252, 32, 248, 253	syl32anc 1380	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
255	186, 50, 188, 192, 2, 238, 240, 248, 254	gsumzres 19831	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
256	235, 237, 255	3eqtr2d 2774	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
257	29, 256	eqtrd 2768	1 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1541   ∈ wcel 2113  ∀wral 3049  {crab 3397  Vcvv 3438   ∖ cdif 3896   ∪ cun 3897   ⊆ wss 3899  ∅c0 4284  ifcif 4476  {csn 4577   class class class wbr 5095   ↦ cmpt 5176   × cxp 5619  ^◡ccnv 5620   ↾ cres 5623   “ cima 5624  Fun wfun 6483  ⟶wf 6485  ‘cfv 6489  (class class class)co 7355   ∘_f cof 7617   supp csupp 8099   ↑_m cmap 8759  Fincfn 8878   finSupp cfsupp 9255  0cc0 11016   + caddc 11019  ℕcn 12135  ℕ₀cn0 12391  Basecbs 17130  +_gcplusg 17171  ._rcmulr 17172  0_gc0g 17353   Σ_g cgsu 17354  Mndcmnd 18652  ._gcmg 18990  Cntzccntz 19237  mulGrpcmgp 20068  1_rcur 20109  Ringcrg 20161   mVar cmvr 21852   mPoly cmpl 21853

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677  ax-cnex 11072  ax-resscn 11073  ax-1cn 11074  ax-icn 11075  ax-addcl 11076  ax-addrcl 11077  ax-mulcl 11078  ax-mulrcl 11079  ax-mulcom 11080  ax-addass 11081  ax-mulass 11082  ax-distr 11083  ax-i2m1 11084  ax-1ne0 11085  ax-1rid 11086  ax-rnegex 11087  ax-rrecex 11088  ax-cnre 11089  ax-pre-lttri 11090  ax-pre-lttrn 11091  ax-pre-ltadd 11092  ax-pre-mulgt0 11093

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-uni 4861  df-int 4900  df-iun 4945  df-iin 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7312  df-ov 7358  df-oprab 7359  df-mpo 7360  df-of 7619  df-ofr 7620  df-om 7806  df-1st 7930  df-2nd 7931  df-supp 8100  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-rdg 8338  df-1o 8394  df-2o 8395  df-er 8631  df-map 8761  df-pm 8762  df-ixp 8831  df-en 8879  df-dom 8880  df-sdom 8881  df-fin 8882  df-fsupp 9256  df-sup 9336  df-oi 9406  df-card 9842  df-pnf 11158  df-mnf 11159  df-xr 11160  df-ltxr 11161  df-le 11162  df-sub 11356  df-neg 11357  df-nn 12136  df-2 12198  df-3 12199  df-4 12200  df-5 12201  df-6 12202  df-7 12203  df-8 12204  df-9 12205  df-n0 12392  df-z 12479  df-dec 12599  df-uz 12743  df-fz 13418  df-fzo 13565  df-seq 13919  df-hash 14248  df-struct 17068  df-sets 17085  df-slot 17103  df-ndx 17115  df-base 17131  df-ress 17152  df-plusg 17184  df-mulr 17185  df-sca 17187  df-vsca 17188  df-ip 17189  df-tset 17190  df-ple 17191  df-ds 17193  df-hom 17195  df-cco 17196  df-0g 17355  df-gsum 17356  df-prds 17361  df-pws 17363  df-mre 17498  df-mrc 17499  df-acs 17501  df-mgm 18558  df-sgrp 18637  df-mnd 18653  df-mhm 18701  df-submnd 18702  df-grp 18859  df-minusg 18860  df-mulg 18991  df-subg 19046  df-ghm 19135  df-cntz 19239  df-cmn 19704  df-abl 19705  df-mgp 20069  df-rng 20081  df-ur 20110  df-srg 20115  df-ring 20163  df-subrng 20471  df-subrg 20495  df-psr 21856  df-mvr 21857  df-mpl 21858

This theorem is referenced by:  mplcoe2  21986  ply1coe  22223