Theorem mplcoe5 22075

Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 22076), 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 21954	. . . . . . . . . 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 6976	. . . . . 6 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
9		iftrue 4536	. . . . . . . . 9 ⊢ (𝑖 ∈ (◡𝑌 “ ℕ) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
10	9	adantl 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
11		eldif 3972	. . . . . . . . . 10 ⊢ (𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)))
12		fcdmnn0supp 12580	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌:𝐼⟶ℕ0) → (𝑌 supp 0) = (◡𝑌 “ ℕ))
13	2, 7, 12	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 supp 0) = (◡𝑌 “ ℕ))
14		eqimss 4053	. . . . . . . . . . . . . 14 ⊢ ((𝑌 supp 0) = (◡𝑌 “ ℕ) → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
15	13, 14	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
16		c0ex 11252	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
17	16	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ V)
18	7, 15, 2, 17	suppssr 8218	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑖) = 0)
19	18	ifeq2d 4550	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
20		ifid 4570	. . . . . . . . . . 11 ⊢ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = (𝑌‘𝑖)
21	19, 20	eqtr3di 2789	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
22	11, 21	sylan2br 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
23	22	anassrs 467	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
24	10, 23	pm2.61dan 813	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
25	24	mpteq2dva 5247	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
26	8, 25	eqtr4d 2777	. . . . 5 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
27	26	eqeq2d 2745	. . . 4 ⊢ (𝜑 → (𝑦 = 𝑌 ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
28	27	ifbid 4553	. . 3 ⊢ (𝜑 → if(𝑦 = 𝑌, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
29	28	mpteq2dv 5249	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
30		cnvimass 6101	. . . . 5 ⊢ (◡𝑌 “ ℕ) ⊆ dom 𝑌
31	30, 7	fssdm 6755	. . . 4 ⊢ (𝜑 → (◡𝑌 “ ℕ) ⊆ 𝐼)
32	6	simprd 495	. . . . 5 ⊢ (𝜑 → (◡𝑌 “ ℕ) ∈ Fin)
33		sseq1 4020	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐼 ↔ ∅ ⊆ 𝐼))
34		noel 4343	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑖 ∈ ∅
35		eleq2 2827	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ ∅))
36	34, 35	mtbiri 327	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = ∅ → ¬ 𝑖 ∈ 𝑤)
37	36	iffalsed 4541	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ∅ → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = 0)
38	37	mpteq2dv 5249	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
39		fconstmpt 5750	. . . . . . . . . . . . 13 ⊢ (𝐼 × {0}) = (𝑖 ∈ 𝐼 ↦ 0)
40	38, 39	eqtr4di 2792	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝐼 × {0}))
41	40	eqeq2d 2745	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝐼 × {0})))
42	41	ifbid 4553	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝐼 × {0}), 1 , 0 ))
43	42	mpteq2dv 5249	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
44		mpteq1 5240	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
45		mpt0 6710	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅
46	44, 45	eqtrdi 2790	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅)
47	46	oveq2d 7446	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg ∅))
48		mplcoe2.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (mulGrp‘𝑃)
49		eqid 2734	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (1r‘𝑃)
50	48, 49	ringidval 20200	. . . . . . . . . . 11 ⊢ (1r‘𝑃) = (0g‘𝐺)
51	50	gsum0 18709	. . . . . . . . . 10 ⊢ (𝐺 Σg ∅) = (1r‘𝑃)
52	47, 51	eqtrdi 2790	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (1r‘𝑃))
53	43, 52	eqeq12d 2750	. . . . . . . 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 4020	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐼 ↔ 𝑥 ⊆ 𝐼))
57		eleq2 2827	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ 𝑥))
58	57	ifbid 4553	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑥 → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
59	58	mpteq2dv 5249	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
60	59	eqeq2d 2745	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))))
61	60	ifbid 4553	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))
62	61	mpteq2dv 5249	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )))
63		mpteq1 5240	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
64	63	oveq2d 7446	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
65	62, 64	eqeq12d 2750	. . . . . . . 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 4020	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
69		eleq2 2827	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (𝑥 ∪ {𝑧})))
70	69	ifbid 4553	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
71	70	mpteq2dv 5249	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
72	71	eqeq2d 2745	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
73	72	ifbid 4553	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
74	73	mpteq2dv 5249	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
75		mpteq1 5240	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
76	75	oveq2d 7446	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
77	74, 76	eqeq12d 2750	. . . . . . . 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 4020	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑤 ⊆ 𝐼 ↔ (◡𝑌 “ ℕ) ⊆ 𝐼))
81		eleq2 2827	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (◡𝑌 “ ℕ)))
82	81	ifbid 4553	. . . . . . . . . . . . 13 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
83	82	mpteq2dv 5249	. . . . . . . . . . . 12 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
84	83	eqeq2d 2745	. . . . . . . . . . 11 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
85	84	ifbid 4553	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
86	85	mpteq2dv 5249	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
87		mpteq1 5240	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
88	87	oveq2d 7446	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
89	86, 88	eqeq12d 2750	. . . . . . . 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 22049	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑃) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
97	96, 49	eqtr3di 2789	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))
98	97	a1d 25	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
99		ssun1 4187	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
100		sstr2 4001	. . . . . . . . . . 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 7437	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
104		eqid 2734	. . . . . . . . . . . . . . 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 7103	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑖) ∈ ℕ0)
109		0nn0 12538	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℕ0
110		ifcl 4575	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑌‘𝑖) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
111	108, 109, 110	sylancl 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
112	111	fmpttd 7134	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0)
113		fcdmnn0supp 12580	. . . . . . . . . . . . . . . . . 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 779	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
116		eldifn 4141	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (𝐼 ∖ 𝑥) → ¬ 𝑖 ∈ 𝑥)
117	116	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → ¬ 𝑖 ∈ 𝑥)
118	117	iffalsed 4541	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
119	118, 105	suppss2 8223	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥)
120	115, 119	ssfid 9298	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
121	114, 120	eqeltrrd 2839	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)
122	3	psrbag 21954	. . . . . . . . . . . . . . . . 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 2734	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
126		ssun2 4188	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ⊆ (𝑥 ∪ {𝑧})
127		simprr 773	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑥 ∪ {𝑧}) ⊆ 𝐼)
128	126, 127	sstrid 4006	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → {𝑧} ⊆ 𝐼)
129		vex 3481	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑧 ∈ V
130	129	snss 4789	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐼 ↔ {𝑧} ⊆ 𝐼)
131	128, 130	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧 ∈ 𝐼)
132	107, 131	ffvelcdmd 7104	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑌‘𝑧) ∈ ℕ0)
133	3	snifpsrbag 21957	. . . . . . . . . . . . . . . 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 22071	. . . . . . . . . . . . . 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 22073	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 )) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
139	138	oveq2d 7446	. . . . . . . . . . . . . 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 4575	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑌‘𝑧) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
142	140, 109, 141	sylancl 586	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
143		eqidd 2735	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
144		eqidd 2735	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)))
145	105, 111, 142, 143, 144	offval2 7716	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))))
146	108	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℕ0)
147	146	nn0cnd 12586	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℂ)
148	147	addlidd 11459	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (0 + (𝑌‘𝑖)) = (𝑌‘𝑖))
149		elsni 4647	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ {𝑧} → 𝑖 = 𝑧)
150	149	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 = 𝑧)
151		simprlr 780	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ¬ 𝑧 ∈ 𝑥)
152	151	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
153	150, 152	eqneltrd 2858	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ 𝑥)
154	153	iffalsed 4541	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
155	150	iftrued 4538	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑧))
156	150	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) = (𝑌‘𝑧))
157	155, 156	eqtr4d 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑖))
158	154, 157	oveq12d 7448	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (0 + (𝑌‘𝑖)))
159		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ {𝑧})
160	126, 159	sselid 3992	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ (𝑥 ∪ {𝑧}))
161	160	iftrued 4538	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
162	148, 158, 161	3eqtr4d 2784	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
163	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
164	163	nn0cnd 12586	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℂ)
165	164	addridd 11458	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
166		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ {𝑧})
167		velsn 4646	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
168	166, 167	sylnib 328	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 = 𝑧)
169	168	iffalsed 4541	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = 0)
170	169	oveq2d 7446	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0))
171		elun 4162	. . . . . . . . . . . . . . . . . . . . . . . . 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 4553	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
178	165, 170, 177	3eqtr4d 2784	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
179	162, 178	pm2.61dan 813	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
180	179	mpteq2dva 5247	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
181	145, 180	eqtrd 2774	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
182	181	eqeq2d 2745	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
183	182	ifbid 4553	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
184	183	mpteq2dv 5249	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
185	135, 139, 184	3eqtr3rd 2783	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
186	48, 104	mgpbas 20157	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝐺)
187	48, 125	mgpplusg 20155	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑃) = (+g‘𝐺)
188		eqid 2734	. . . . . . . . . . . . . 14 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
189		eqid 2734	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
190	92, 2, 95	mplringd 22060	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
191	48	ringmgp 20256	. . . . . . . . . . . . . . . 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 6906	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑉‘𝑥) = (𝑉‘𝑎))
197	196	oveq2d 7446	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)))
198	196	oveq1d 7445	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)))
199	197, 198	eqeq12d 2750	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦))))
200		fveq2 6906	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑏 → (𝑉‘𝑦) = (𝑉‘𝑏))
201	200	oveq1d 7445	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)))
202	200	oveq2d 7446	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
203	201, 202	eqeq12d 2750	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏))))
204	199, 203	cbvral2vw 3238	. . . . . . . . . . . . . . . . 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 22074	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
208	99, 127	sstrid 4006	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ⊆ 𝐼)
209	208	sselda 3994	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐼)
210	192	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐺 ∈ Mnd)
211	7	ffvelcdmda 7103	. . . . . . . . . . . . . . . . 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 22029	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑉‘𝑘) ∈ (Base‘𝑃))
216	186, 136, 210, 211, 215	mulgnn0cld 19125	. . . . . . . . . . . . . . . 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 22029	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑉‘𝑧) ∈ (Base‘𝑃))
220	186, 136, 193, 132, 219	mulgnn0cld 19125	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
221		fveq2 6906	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑌‘𝑘) = (𝑌‘𝑧))
222		fveq2 6906	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑉‘𝑘) = (𝑉‘𝑧))
223	221, 222	oveq12d 7448	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
224	223	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 = 𝑧) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
225	186, 187, 188, 189, 193, 115, 207, 218, 131, 151, 220, 224	gsumzunsnd 19988	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
226	185, 225	eqeq12d 2750	. . . . . . . . . . . 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 9203	. . . . 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 6059	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ)) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
237	236	oveq2d 7446	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
238	216	fmpttd 7134	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))):𝐼⟶(Base‘𝑃))
239		ssidd 4018	. . . . 5 ⊢ (𝜑 → 𝐼 ⊆ 𝐼)
240	92, 3, 93, 94, 2, 48, 136, 137, 95, 1, 195, 239	mplcoe5lem 22074	. . . 4 ⊢ (𝜑 → ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
241	7, 15, 2, 17	suppssr 8218	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑘) = 0)
242	241	oveq1d 7445	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (0 ↑ (𝑉‘𝑘)))
243		eldifi 4140	. . . . . . . 8 ⊢ (𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) → 𝑘 ∈ 𝐼)
244	243, 215	sylan2 593	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑉‘𝑘) ∈ (Base‘𝑃))
245	186, 50, 136	mulg0 19104	. . . . . . 7 ⊢ ((𝑉‘𝑘) ∈ (Base‘𝑃) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
246	244, 245	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
247	242, 246	eqtrd 2774	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (1r‘𝑃))
248	247, 2	suppss2 8223	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))
249	2	mptexd 7243	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
250		funmpt 6605	. . . . . 6 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
251	250	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
252		fvexd 6921	. . . . 5 ⊢ (𝜑 → (1r‘𝑃) ∈ V)
253		suppssfifsupp 9417	. . . . 5 ⊢ ((((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V ∧ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∧ (1r‘𝑃) ∈ V) ∧ ((◡𝑌 “ ℕ) ∈ Fin ∧ ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))) → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
254	249, 251, 252, 32, 248, 253	syl32anc 1377	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
255	186, 50, 188, 192, 2, 238, 240, 248, 254	gsumzres 19941	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
256	235, 237, 255	3eqtr2d 2780	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
257	29, 256	eqtrd 2774	1 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1536   ∈ wcel 2105  ∀wral 3058  {crab 3432  Vcvv 3477   ∖ cdif 3959   ∪ cun 3960   ⊆ wss 3962  ∅c0 4338  ifcif 4530  {csn 4630   class class class wbr 5147   ↦ cmpt 5230   × cxp 5686  ^◡ccnv 5687   ↾ cres 5690   “ cima 5691  Fun wfun 6556  ⟶wf 6558  ‘cfv 6562  (class class class)co 7430   ∘_f cof 7694   supp csupp 8183   ↑_m cmap 8864  Fincfn 8983   finSupp cfsupp 9398  0cc0 11152   + caddc 11155  ℕcn 12263  ℕ₀cn0 12523  Basecbs 17244  +_gcplusg 17297  ._rcmulr 17298  0_gc0g 17485   Σ_g cgsu 17486  Mndcmnd 18759  ._gcmg 19097  Cntzccntz 19345  mulGrpcmgp 20151  1_rcur 20198  Ringcrg 20250   mVar cmvr 21942   mPoly cmpl 21943

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4912  df-int 4951  df-iun 4997  df-iin 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-se 5641  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-isom 6571  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-of 7696  df-ofr 7697  df-om 7887  df-1st 8012  df-2nd 8013  df-supp 8184  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-2o 8505  df-er 8743  df-map 8866  df-pm 8867  df-ixp 8936  df-en 8984  df-dom 8985  df-sdom 8986  df-fin 8987  df-fsupp 9399  df-sup 9479  df-oi 9547  df-card 9976  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-nn 12264  df-2 12326  df-3 12327  df-4 12328  df-5 12329  df-6 12330  df-7 12331  df-8 12332  df-9 12333  df-n0 12524  df-z 12611  df-dec 12731  df-uz 12876  df-fz 13544  df-fzo 13691  df-seq 14039  df-hash 14366  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-ress 17274  df-plusg 17310  df-mulr 17311  df-sca 17313  df-vsca 17314  df-ip 17315  df-tset 17316  df-ple 17317  df-ds 17319  df-hom 17321  df-cco 17322  df-0g 17487  df-gsum 17488  df-prds 17493  df-pws 17495  df-mre 17630  df-mrc 17631  df-acs 17633  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-mhm 18808  df-submnd 18809  df-grp 18966  df-minusg 18967  df-mulg 19098  df-subg 19153  df-ghm 19243  df-cntz 19347  df-cmn 19814  df-abl 19815  df-mgp 20152  df-rng 20170  df-ur 20199  df-srg 20204  df-ring 20252  df-subrng 20562  df-subrg 20586  df-psr 21946  df-mvr 21947  df-mpl 21948

This theorem is referenced by:  mplcoe2  22076  ply1coe  22317