Theorem mplcoe5 22311

Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 22312), 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 22187	. . . . . . . . . 10 ⊢ (𝐼 ∈ 𝑊 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
5	2, 4	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
6	1, 5	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin))
7	6	simpld 500	. . . . . . 7 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
8	7	feqmptd 6941	. . . . . 6 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
9		iftrue 4487	. . . . . . . . 9 ⊢ (𝑖 ∈ (◡𝑌 “ ℕ) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
10	9	adantl 487	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
11		eldif 3908	. . . . . . . . . 10 ⊢ (𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)))
12		fcdmnn0supp 12633	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌:𝐼⟶ℕ0) → (𝑌 supp 0) = (◡𝑌 “ ℕ))
13	2, 7, 12	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 supp 0) = (◡𝑌 “ ℕ))
14		eqimss 3988	. . . . . . . . . . . . . 14 ⊢ ((𝑌 supp 0) = (◡𝑌 “ ℕ) → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
15	13, 14	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
16		c0ex 11272	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
17	16	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ V)
18	7, 15, 2, 17	suppssr 8190	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑖) = 0)
19	18	ifeq2d 4502	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
20		ifid 4522	. . . . . . . . . . 11 ⊢ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = (𝑌‘𝑖)
21	19, 20	eqtr3di 2810	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
22	11, 21	sylan2br 607	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
23	22	anassrs 473	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
24	10, 23	pm2.61dan 825	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
25	24	mpteq2dva 5197	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
26	8, 25	eqtr4d 2798	. . . . 5 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
27	26	eqeq2d 2771	. . . 4 ⊢ (𝜑 → (𝑦 = 𝑌 ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
28	27	ifbid 4505	. . 3 ⊢ (𝜑 → if(𝑦 = 𝑌, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
29	28	mpteq2dv 5198	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
30		cnvimass 6072	. . . . 5 ⊢ (◡𝑌 “ ℕ) ⊆ dom 𝑌
31	30, 7	fssdm 6717	. . . 4 ⊢ (𝜑 → (◡𝑌 “ ℕ) ⊆ 𝐼)
32	6	simprd 501	. . . . 5 ⊢ (𝜑 → (◡𝑌 “ ℕ) ∈ Fin)
33		sseq1 3955	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐼 ↔ ∅ ⊆ 𝐼))
34		noel 4283	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑖 ∈ ∅
35		eleq2 2849	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ ∅))
36	34, 35	mtbiri 330	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = ∅ → ¬ 𝑖 ∈ 𝑤)
37	36	iffalsed 4492	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ∅ → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = 0)
38	37	mpteq2dv 5198	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
39		fconstmpt 5709	. . . . . . . . . . . . 13 ⊢ (𝐼 × {0}) = (𝑖 ∈ 𝐼 ↦ 0)
40	38, 39	eqtr4di 2813	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝐼 × {0}))
41	40	eqeq2d 2771	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝐼 × {0})))
42	41	ifbid 4505	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝐼 × {0}), 1 , 0 ))
43	42	mpteq2dv 5198	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
44		mpteq1 5193	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
45		mpt0 6669	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅
46	44, 45	eqtrdi 2811	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅)
47	46	oveq2d 7424	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg ∅))
48		mplcoe2.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (mulGrp‘𝑃)
49		eqid 2760	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (1r‘𝑃)
50	48, 49	ringidval 20371	. . . . . . . . . . 11 ⊢ (1r‘𝑃) = (0g‘𝐺)
51	50	gsum0 18835	. . . . . . . . . 10 ⊢ (𝐺 Σg ∅) = (1r‘𝑃)
52	47, 51	eqtrdi 2811	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (1r‘𝑃))
53	43, 52	eqeq12d 2776	. . . . . . . 8 ⊢ (𝑤 = ∅ → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
54	33, 53	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))))
55	54	imbi2d 343	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))))
56		sseq1 3955	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐼 ↔ 𝑥 ⊆ 𝐼))
57		eleq2 2849	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ 𝑥))
58	57	ifbid 4505	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑥 → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
59	58	mpteq2dv 5198	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
60	59	eqeq2d 2771	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))))
61	60	ifbid 4505	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))
62	61	mpteq2dv 5198	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )))
63		mpteq1 5193	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
64	63	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
65	62, 64	eqeq12d 2776	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
66	56, 65	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = 𝑥 → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
67	66	imbi2d 343	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
68		sseq1 3955	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
69		eleq2 2849	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (𝑥 ∪ {𝑧})))
70	69	ifbid 4505	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
71	70	mpteq2dv 5198	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
72	71	eqeq2d 2771	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
73	72	ifbid 4505	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
74	73	mpteq2dv 5198	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
75		mpteq1 5193	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
76	75	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
77	74, 76	eqeq12d 2776	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
78	68, 77	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
79	78	imbi2d 343	. . . . . 6 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
80		sseq1 3955	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑤 ⊆ 𝐼 ↔ (◡𝑌 “ ℕ) ⊆ 𝐼))
81		eleq2 2849	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (◡𝑌 “ ℕ)))
82	81	ifbid 4505	. . . . . . . . . . . . 13 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
83	82	mpteq2dv 5198	. . . . . . . . . . . 12 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
84	83	eqeq2d 2771	. . . . . . . . . . 11 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
85	84	ifbid 4505	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
86	85	mpteq2dv 5198	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
87		mpteq1 5193	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
88	87	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
89	86, 88	eqeq12d 2776	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
90	80, 89	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
91	90	imbi2d 343	. . . . . 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 22281	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑃) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
97	96, 49	eqtr3di 2810	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))
98	97	a1d 26	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
99		ssun1 4123	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
100		sstr2 3937	. . . . . . . . . . 11 ⊢ (𝑥 ⊆ (𝑥 ∪ {𝑧}) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼))
101	99, 100	ax-mp 5	. . . . . . . . . 10 ⊢ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼)
102	101	imim1i 64	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
103		oveq1 7415	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
104		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑃) = (Base‘𝑃)
105	2	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ 𝑊)
106	95	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ Ring)
107	7	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌:𝐼⟶ℕ0)
108	107	ffvelcdmda 7072	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑖) ∈ ℕ0)
109		0nn0 12591	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℕ0
110		ifcl 4527	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑌‘𝑖) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
111	108, 109, 110	sylancl 598	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
112	111	fmpttd 7103	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0)
113		fcdmnn0supp 12633	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
114	105, 112, 113	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
115		simprll 791	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
116		eldifn 4078	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (𝐼 ∖ 𝑥) → ¬ 𝑖 ∈ 𝑥)
117	116	adantl 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → ¬ 𝑖 ∈ 𝑥)
118	117	iffalsed 4492	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
119	118, 105	suppss2 8195	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥)
120	115, 119	ssfid 9238	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
121	114, 120	eqeltrrd 2861	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)
122	3	psrbag 22187	. . . . . . . . . . . . . . . . 17 ⊢ (𝐼 ∈ 𝑊 → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
123	105, 122	syl 18	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
124	112, 121, 123	mpbir2and 726	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷)
125		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
126		ssun2 4124	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ⊆ (𝑥 ∪ {𝑧})
127		simprr 785	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑥 ∪ {𝑧}) ⊆ 𝐼)
128	126, 127	sstrid 3941	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → {𝑧} ⊆ 𝐼)
129		vex 3454	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑧 ∈ V
130	129	snss 4744	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐼 ↔ {𝑧} ⊆ 𝐼)
131	128, 130	sylibr 237	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧 ∈ 𝐼)
132	107, 131	ffvelcdmd 7073	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑌‘𝑧) ∈ ℕ0)
133	3	snifpsrbag 22190	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
134	105, 132, 133	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
135	92, 104, 93, 94, 3, 105, 106, 124, 125, 134	mplmonmul 22307	. . . . . . . . . . . . . 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 22309	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 )) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
139	138	oveq2d 7424	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
140	132	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
141		ifcl 4527	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑌‘𝑧) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
142	140, 109, 141	sylancl 598	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
143		eqidd 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
144		eqidd 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)))
145	105, 111, 142, 143, 144	offval2 7696	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))))
146	108	adantr 486	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℕ0)
147	146	nn0cnd 12639	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℂ)
148	147	addlidd 11483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (0 + (𝑌‘𝑖)) = (𝑌‘𝑖))
149		elsni 4600	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ {𝑧} → 𝑖 = 𝑧)
150	149	adantl 487	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 = 𝑧)
151		simprlr 792	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ¬ 𝑧 ∈ 𝑥)
152	151	ad2antrr 739	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
153	150, 152	eqneltrd 2880	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ 𝑥)
154	153	iffalsed 4492	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
155	150	iftrued 4489	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑧))
156	150	fveq2d 6877	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) = (𝑌‘𝑧))
157	155, 156	eqtr4d 2798	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑖))
158	154, 157	oveq12d 7426	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (0 + (𝑌‘𝑖)))
159		simpr 490	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ {𝑧})
160	126, 159	sselid 3928	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ (𝑥 ∪ {𝑧}))
161	160	iftrued 4489	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
162	148, 158, 161	3eqtr4d 2805	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
163	111	adantr 486	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
164	163	nn0cnd 12639	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℂ)
165	164	addridd 11482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
166		simpr 490	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ {𝑧})
167		velsn 4599	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
168	166, 167	sylnib 331	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 = 𝑧)
169	168	iffalsed 4492	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = 0)
170	169	oveq2d 7424	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0))
171		elun 4099	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}))
172		orcom 884	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
173	171, 172	bitri 278	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
174		biorf 950	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ 𝑥 ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥)))
175	173, 174	bitr4id 293	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
176	175	adantl 487	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
177	176	ifbid 4505	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
178	165, 170, 177	3eqtr4d 2805	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
179	162, 178	pm2.61dan 825	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
180	179	mpteq2dva 5197	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
181	145, 180	eqtrd 2795	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
182	181	eqeq2d 2771	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
183	182	ifbid 4505	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
184	183	mpteq2dv 5198	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
185	135, 139, 184	3eqtr3rd 2804	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
186	48, 104	mgpbas 20327	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝐺)
187	48, 125	mgpplusg 20326	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑃) = (+g‘𝐺)
188		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
189		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
190	92, 2, 95	mplringd 22292	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
191	48	ringmgp 20427	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ Ring → 𝐺 ∈ Mnd)
192	190, 191	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ Mnd)
193	192	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐺 ∈ Mnd)
194	1	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌 ∈ 𝐷)
195		mplcoe5.c	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)))
196		fveq2 6873	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑉‘𝑥) = (𝑉‘𝑎))
197	196	oveq2d 7424	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)))
198	196	oveq1d 7423	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)))
199	197, 198	eqeq12d 2776	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦))))
200		fveq2 6873	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑏 → (𝑉‘𝑦) = (𝑉‘𝑏))
201	200	oveq1d 7423	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)))
202	200	oveq2d 7424	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
203	201, 202	eqeq12d 2776	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏))))
204	199, 203	cbvral2vw 3244	. . . . . . . . . . . . . . . . 17 ⊢ (∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
205	195, 204	sylib 221	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
206	205	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
207	92, 3, 93, 94, 105, 48, 136, 137, 106, 194, 206, 127	mplcoe5lem 22310	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
208	99, 127	sstrid 3941	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ⊆ 𝐼)
209	208	sselda 3930	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐼)
210	192	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐺 ∈ Mnd)
211	7	ffvelcdmda 7072	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑌‘𝑘) ∈ ℕ0)
212	2	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐼 ∈ 𝑊)
213	95	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ Ring)
214		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
215	92, 137, 104, 212, 213, 214	mvrcl 22261	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑉‘𝑘) ∈ (Base‘𝑃))
216	186, 136, 210, 211, 215	mulgnn0cld 19267	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
217	216	adantlr 728	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
218	209, 217	syldan 603	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
219	92, 137, 104, 105, 106, 131	mvrcl 22261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑉‘𝑧) ∈ (Base‘𝑃))
220	186, 136, 193, 132, 219	mulgnn0cld 19267	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
221		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑌‘𝑘) = (𝑌‘𝑧))
222		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑉‘𝑘) = (𝑉‘𝑧))
223	221, 222	oveq12d 7426	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
224	223	adantl 487	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 = 𝑧) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
225	186, 187, 188, 189, 193, 115, 207, 218, 131, 151, 220, 224	gsumzunsnd 20132	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
226	185, 225	eqeq12d 2776	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧)))))
227	103, 226	imbitrrid 249	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
228	227	expr 462	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
229	228	a2d 30	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
230	102, 229	syl5 35	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
231	230	expcom 419	. . . . . . 7 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → (𝜑 → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
232	231	a2d 30	. . . . . 6 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → ((𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
233	55, 67, 79, 91, 98, 232	findcard2s 9159	. . . . 5 ⊢ ((◡𝑌 “ ℕ) ∈ Fin → (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
234	32, 233	mpcom 39	. . . 4 ⊢ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
235	31, 234	mpd 16	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
236	31	resmptd 6030	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ)) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
237	236	oveq2d 7424	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
238	216	fmpttd 7103	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))):𝐼⟶(Base‘𝑃))
239		ssidd 3953	. . . . 5 ⊢ (𝜑 → 𝐼 ⊆ 𝐼)
240	92, 3, 93, 94, 2, 48, 136, 137, 95, 1, 195, 239	mplcoe5lem 22310	. . . 4 ⊢ (𝜑 → ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
241	7, 15, 2, 17	suppssr 8190	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑘) = 0)
242	241	oveq1d 7423	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (0 ↑ (𝑉‘𝑘)))
243		eldifi 4077	. . . . . . . 8 ⊢ (𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) → 𝑘 ∈ 𝐼)
244	243, 215	sylan2 605	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑉‘𝑘) ∈ (Base‘𝑃))
245	186, 50, 136	mulg0 19246	. . . . . . 7 ⊢ ((𝑉‘𝑘) ∈ (Base‘𝑃) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
246	244, 245	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
247	242, 246	eqtrd 2795	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (1r‘𝑃))
248	247, 2	suppss2 8195	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))
249	2	mptexd 7218	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
250		funmpt 6566	. . . . . 6 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
251	250	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
252		fvexd 6888	. . . . 5 ⊢ (𝜑 → (1r‘𝑃) ∈ V)
253		suppssfifsupp 9350	. . . . 5 ⊢ ((((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V ∧ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∧ (1r‘𝑃) ∈ V) ∧ ((◡𝑌 “ ℕ) ∈ Fin ∧ ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))) → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
254	249, 251, 252, 32, 248, 253	syl32anc 1405	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
255	186, 50, 188, 192, 2, 238, 240, 248, 254	gsumzres 20085	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
256	235, 237, 255	3eqtr2d 2801	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
257	29, 256	eqtrd 2795	1 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2145  ∀wral 3076  {crab 3412  Vcvv 3450   ∖ cdif 3895   ∪ cun 3896   ⊆ wss 3898  ∅c0 4278  ifcif 4481  {csn 4583   class class class wbr 5102   ↦ cmpt 5185   × cxp 5645  ^◡ccnv 5646   ↾ cres 5649   “ cima 5650  Fun wfun 6521  ⟶wf 6523  ‘cfv 6527  (class class class)co 7408   ∘_f cof 7674   supp csupp 8155   ↑_m cmap 8825  Fincfn 8951   finSupp cfsupp 9331  0cc0 11172   + caddc 11175  ℕcn 12305  ℕ₀cn0 12576  Basecbs 17349  +_gcplusg 17390  ._rcmulr 17391  0_gc0g 17572   Σ_g cgsu 17573  Mndcmnd 18885  ._gcmg 19239  Cntzccntz 19491  mulGrpcmgp 20322  1_rcur 20369  Ringcrg 20421   mVar cmvr 22175   mPoly cmpl 22176

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-cnex 11228  ax-resscn 11229  ax-1cn 11230  ax-icn 11231  ax-addcl 11232  ax-addrcl 11233  ax-mulcl 11234  ax-mulrcl 11235  ax-mulcom 11236  ax-addass 11237  ax-mulass 11238  ax-distr 11239  ax-i2m1 11240  ax-1ne0 11241  ax-1rid 11242  ax-rnegex 11243  ax-rrecex 11244  ax-cnre 11245  ax-pre-lttri 11246  ax-pre-lttrn 11247  ax-pre-ltadd 11248  ax-pre-mulgt0 11249

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-tp 4588  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7676  df-ofr 7677  df-om 7861  df-1st 7984  df-2nd 7985  df-supp 8156  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8454  df-2o 8455  df-er 8695  df-map 8827  df-pm 8828  df-ixp 8904  df-en 8952  df-dom 8953  df-sdom 8954  df-fin 8955  df-fsupp 9332  df-sup 9412  df-oi 9482  df-card 9992  df-pnf 11317  df-mnf 11318  df-xr 11319  df-ltxr 11320  df-le 11321  df-sub 11515  df-neg 11516  df-nn 12306  df-2 12375  df-3 12376  df-4 12377  df-5 12378  df-6 12379  df-7 12380  df-8 12381  df-9 12382  df-n0 12577  df-z 12664  df-dec 12785  df-uz 12936  df-fz 13610  df-fzo 13758  df-seq 14114  df-hash 14443  df-struct 17287  df-sets 17304  df-slot 17322  df-ndx 17334  df-base 17350  df-ress 17371  df-plusg 17403  df-mulr 17404  df-sca 17406  df-vsca 17407  df-ip 17408  df-tset 17409  df-ple 17410  df-ds 17412  df-hom 17414  df-cco 17415  df-0g 17574  df-gsum 17575  df-prds 17580  df-pws 17582  df-mre 17718  df-mrc 17719  df-acs 17721  df-mgm 18778  df-sgrp 18870  df-mnd 18886  df-mhm 18940  df-submnd 18941  df-grp 19109  df-minusg 19110  df-mulg 19240  df-subg 19295  df-ghm 19390  df-cntz 19493  df-cmn 19958  df-abl 19959  df-mgp 20323  df-rng 20337  df-ur 20370  df-srg 20375  df-ring 20423  df-subrng 20760  df-subrg 20784  df-psr 22179  df-mvr 22180  df-mpl 22181

This theorem is used by:  mplcoe2  22312  ply1coe  22578