Theorem mplcoe5 19876

Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 19877), 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 ↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ 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 ↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
4	3	psrbag 19772	. . . . . . . . . 10 ⊢ (𝐼 ∈ 𝑊 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
5	2, 4	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
6	1, 5	mpbid 224	. . . . . . . 8 ⊢ (𝜑 → (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin))
7	6	simpld 490	. . . . . . 7 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
8	7	feqmptd 6511	. . . . . 6 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
9		iftrue 4313	. . . . . . . . 9 ⊢ (𝑖 ∈ (◡𝑌 “ ℕ) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
10	9	adantl 475	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
11		eldif 3802	. . . . . . . . . 10 ⊢ (𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)))
12		ifid 4346	. . . . . . . . . . 11 ⊢ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = (𝑌‘𝑖)
13		frnnn0supp 11705	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌:𝐼⟶ℕ0) → (𝑌 supp 0) = (◡𝑌 “ ℕ))
14	2, 7, 13	syl2anc 579	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 supp 0) = (◡𝑌 “ ℕ))
15		eqimss 3876	. . . . . . . . . . . . . 14 ⊢ ((𝑌 supp 0) = (◡𝑌 “ ℕ) → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
16	14, 15	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
17		c0ex 10372	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
18	17	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ V)
19	7, 16, 2, 18	suppssr 7610	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑖) = 0)
20	19	ifeq2d 4326	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
21	12, 20	syl5reqr 2829	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
22	11, 21	sylan2br 588	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
23	22	anassrs 461	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
24	10, 23	pm2.61dan 803	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
25	24	mpteq2dva 4981	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
26	8, 25	eqtr4d 2817	. . . . 5 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
27	26	eqeq2d 2788	. . . 4 ⊢ (𝜑 → (𝑦 = 𝑌 ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
28	27	ifbid 4329	. . 3 ⊢ (𝜑 → if(𝑦 = 𝑌, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
29	28	mpteq2dv 4982	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
30		cnvimass 5741	. . . . 5 ⊢ (◡𝑌 “ ℕ) ⊆ dom 𝑌
31	30, 7	fssdm 6309	. . . 4 ⊢ (𝜑 → (◡𝑌 “ ℕ) ⊆ 𝐼)
32	6	simprd 491	. . . . 5 ⊢ (𝜑 → (◡𝑌 “ ℕ) ∈ Fin)
33		sseq1 3845	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐼 ↔ ∅ ⊆ 𝐼))
34		noel 4146	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑖 ∈ ∅
35		eleq2 2848	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ ∅))
36	34, 35	mtbiri 319	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = ∅ → ¬ 𝑖 ∈ 𝑤)
37	36	iffalsed 4318	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ∅ → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = 0)
38	37	mpteq2dv 4982	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
39		fconstmpt 5413	. . . . . . . . . . . . 13 ⊢ (𝐼 × {0}) = (𝑖 ∈ 𝐼 ↦ 0)
40	38, 39	syl6eqr 2832	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝐼 × {0}))
41	40	eqeq2d 2788	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝐼 × {0})))
42	41	ifbid 4329	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝐼 × {0}), 1 , 0 ))
43	42	mpteq2dv 4982	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
44		mpteq1 4974	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
45		mpt0 6269	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅
46	44, 45	syl6eq 2830	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅)
47	46	oveq2d 6940	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg ∅))
48		mplcoe2.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (mulGrp‘𝑃)
49		eqid 2778	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (1r‘𝑃)
50	48, 49	ringidval 18901	. . . . . . . . . . 11 ⊢ (1r‘𝑃) = (0g‘𝐺)
51	50	gsum0 17675	. . . . . . . . . 10 ⊢ (𝐺 Σg ∅) = (1r‘𝑃)
52	47, 51	syl6eq 2830	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (1r‘𝑃))
53	43, 52	eqeq12d 2793	. . . . . . . 8 ⊢ (𝑤 = ∅ → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
54	33, 53	imbi12d 336	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))))
55	54	imbi2d 332	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))))
56		sseq1 3845	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐼 ↔ 𝑥 ⊆ 𝐼))
57		eleq2 2848	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ 𝑥))
58	57	ifbid 4329	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑥 → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
59	58	mpteq2dv 4982	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
60	59	eqeq2d 2788	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))))
61	60	ifbid 4329	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))
62	61	mpteq2dv 4982	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )))
63		mpteq1 4974	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
64	63	oveq2d 6940	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
65	62, 64	eqeq12d 2793	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
66	56, 65	imbi12d 336	. . . . . . 7 ⊢ (𝑤 = 𝑥 → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
67	66	imbi2d 332	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
68		sseq1 3845	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
69		eleq2 2848	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (𝑥 ∪ {𝑧})))
70	69	ifbid 4329	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
71	70	mpteq2dv 4982	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
72	71	eqeq2d 2788	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
73	72	ifbid 4329	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
74	73	mpteq2dv 4982	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
75		mpteq1 4974	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
76	75	oveq2d 6940	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
77	74, 76	eqeq12d 2793	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
78	68, 77	imbi12d 336	. . . . . . 7 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
79	78	imbi2d 332	. . . . . 6 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
80		sseq1 3845	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑤 ⊆ 𝐼 ↔ (◡𝑌 “ ℕ) ⊆ 𝐼))
81		eleq2 2848	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (◡𝑌 “ ℕ)))
82	81	ifbid 4329	. . . . . . . . . . . . 13 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
83	82	mpteq2dv 4982	. . . . . . . . . . . 12 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
84	83	eqeq2d 2788	. . . . . . . . . . 11 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
85	84	ifbid 4329	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
86	85	mpteq2dv 4982	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
87		mpteq1 4974	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
88	87	oveq2d 6940	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
89	86, 88	eqeq12d 2793	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
90	80, 89	imbi12d 336	. . . . . . 7 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
91	90	imbi2d 332	. . . . . 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 19852	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑃) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
97	96	eqcomd 2784	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))
98	97	a1d 25	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
99		ssun1 3999	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
100		sstr2 3828	. . . . . . . . . . 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 6931	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
104		eqid 2778	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑃) = (Base‘𝑃)
105	2	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ 𝑊)
106	95	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ Ring)
107	7	adantr 474	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌:𝐼⟶ℕ0)
108	107	ffvelrnda 6625	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑖) ∈ ℕ0)
109		0nn0 11664	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℕ0
110		ifcl 4351	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑌‘𝑖) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
111	108, 109, 110	sylancl 580	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
112	111	fmpttd 6651	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0)
113		frnnn0supp 11705	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
114	105, 112, 113	syl2anc 579	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
115		simprll 769	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
116		eldifn 3956	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (𝐼 ∖ 𝑥) → ¬ 𝑖 ∈ 𝑥)
117	116	adantl 475	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → ¬ 𝑖 ∈ 𝑥)
118	117	iffalsed 4318	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
119	118, 105	suppss2 7613	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥)
120	115, 119	ssfid 8473	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
121	114, 120	eqeltrrd 2860	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)
122	3	psrbag 19772	. . . . . . . . . . . . . . . . 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 703	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷)
125		eqid 2778	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
126		ssun2 4000	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ⊆ (𝑥 ∪ {𝑧})
127		simprr 763	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑥 ∪ {𝑧}) ⊆ 𝐼)
128	126, 127	syl5ss 3832	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → {𝑧} ⊆ 𝐼)
129		vex 3401	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑧 ∈ V
130	129	snss 4549	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐼 ↔ {𝑧} ⊆ 𝐼)
131	128, 130	sylibr 226	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧 ∈ 𝐼)
132	107, 131	ffvelrnd 6626	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑌‘𝑧) ∈ ℕ0)
133	3	snifpsrbag 19774	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
134	105, 132, 133	syl2anc 579	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
135	92, 104, 93, 94, 3, 105, 106, 124, 125, 134	mplmonmul 19872	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ 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 19874	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 )) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
139	138	oveq2d 6940	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
140	132	adantr 474	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
141		ifcl 4351	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑌‘𝑧) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
142	140, 109, 141	sylancl 580	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
143		eqidd 2779	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
144		eqidd 2779	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)))
145	105, 111, 142, 143, 144	offval2 7193	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))))
146	108	adantr 474	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℕ0)
147	146	nn0cnd 11709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℂ)
148	147	addid2d 10579	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (0 + (𝑌‘𝑖)) = (𝑌‘𝑖))
149		elsni 4415	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ {𝑧} → 𝑖 = 𝑧)
150	149	adantl 475	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 = 𝑧)
151		simprlr 770	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ¬ 𝑧 ∈ 𝑥)
152	151	ad2antrr 716	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
153	150, 152	eqneltrd 2878	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ 𝑥)
154	153	iffalsed 4318	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
155	150	iftrued 4315	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑧))
156	150	fveq2d 6452	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) = (𝑌‘𝑧))
157	155, 156	eqtr4d 2817	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑖))
158	154, 157	oveq12d 6942	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (0 + (𝑌‘𝑖)))
159		simpr 479	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ {𝑧})
160	126, 159	sseldi 3819	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ (𝑥 ∪ {𝑧}))
161	160	iftrued 4315	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
162	148, 158, 161	3eqtr4d 2824	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
163	111	adantr 474	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
164	163	nn0cnd 11709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℂ)
165	164	addid1d 10578	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
166		simpr 479	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ {𝑧})
167		velsn 4414	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
168	166, 167	sylnib 320	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 = 𝑧)
169	168	iffalsed 4318	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = 0)
170	169	oveq2d 6940	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0))
171		biorf 923	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ 𝑥 ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥)))
172		elun 3976	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}))
173		orcom 859	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
174	172, 173	bitri 267	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
175	171, 174	syl6rbbr 282	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
176	175	adantl 475	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
177	176	ifbid 4329	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
178	165, 170, 177	3eqtr4d 2824	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
179	162, 178	pm2.61dan 803	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
180	179	mpteq2dva 4981	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
181	145, 180	eqtrd 2814	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
182	181	eqeq2d 2788	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
183	182	ifbid 4329	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
184	183	mpteq2dv 4982	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
185	135, 139, 184	3eqtr3rd 2823	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
186	48, 104	mgpbas 18893	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝐺)
187	48, 125	mgpplusg 18891	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑃) = (+g‘𝐺)
188		eqid 2778	. . . . . . . . . . . . . 14 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
189		eqid 2778	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
190	92	mplring 19860	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑅 ∈ Ring) → 𝑃 ∈ Ring)
191	2, 95, 190	syl2anc 579	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
192	48	ringmgp 18951	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ Ring → 𝐺 ∈ Mnd)
193	191, 192	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ Mnd)
194	193	adantr 474	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐺 ∈ Mnd)
195	1	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌 ∈ 𝐷)
196		mplcoe5.c	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)))
197		fveq2 6448	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑉‘𝑥) = (𝑉‘𝑎))
198	197	oveq2d 6940	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)))
199	197	oveq1d 6939	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)))
200	198, 199	eqeq12d 2793	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦))))
201		fveq2 6448	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑏 → (𝑉‘𝑦) = (𝑉‘𝑏))
202	201	oveq1d 6939	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)))
203	201	oveq2d 6940	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
204	202, 203	eqeq12d 2793	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏))))
205	200, 204	cbvral2v 3375	. . . . . . . . . . . . . . . . 17 ⊢ (∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
206	196, 205	sylib 210	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
207	206	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
208	92, 3, 93, 94, 105, 48, 136, 137, 106, 195, 207, 127	mplcoe5lem 19875	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
209	99, 127	syl5ss 3832	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ⊆ 𝐼)
210	209	sselda 3821	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐼)
211	193	adantr 474	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐺 ∈ Mnd)
212	7	ffvelrnda 6625	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑌‘𝑘) ∈ ℕ0)
213	2	adantr 474	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐼 ∈ 𝑊)
214	95	adantr 474	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ Ring)
215		simpr 479	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
216	92, 137, 104, 213, 214, 215	mvrcl 19857	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑉‘𝑘) ∈ (Base‘𝑃))
217	186, 136	mulgnn0cl 17955	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐺 ∈ Mnd ∧ (𝑌‘𝑘) ∈ ℕ0 ∧ (𝑉‘𝑘) ∈ (Base‘𝑃)) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
218	211, 212, 216, 217	syl3anc 1439	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
219	218	adantlr 705	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
220	210, 219	syldan 585	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
221	92, 137, 104, 105, 106, 131	mvrcl 19857	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑉‘𝑧) ∈ (Base‘𝑃))
222	186, 136	mulgnn0cl 17955	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Mnd ∧ (𝑌‘𝑧) ∈ ℕ0 ∧ (𝑉‘𝑧) ∈ (Base‘𝑃)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
223	194, 132, 221, 222	syl3anc 1439	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
224		fveq2 6448	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑌‘𝑘) = (𝑌‘𝑧))
225		fveq2 6448	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑉‘𝑘) = (𝑉‘𝑧))
226	224, 225	oveq12d 6942	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
227	226	adantl 475	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 = 𝑧) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
228	186, 187, 188, 189, 194, 115, 208, 220, 131, 151, 223, 227	gsumzunsnd 18752	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
229	185, 228	eqeq12d 2793	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧)))))
230	103, 229	syl5ibr 238	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
231	230	expr 450	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
232	231	a2d 29	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
233	102, 232	syl5 34	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
234	233	expcom 404	. . . . . . 7 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → (𝜑 → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
235	234	a2d 29	. . . . . 6 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → ((𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
236	55, 67, 79, 91, 98, 235	findcard2s 8491	. . . . 5 ⊢ ((◡𝑌 “ ℕ) ∈ Fin → (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
237	32, 236	mpcom 38	. . . 4 ⊢ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
238	31, 237	mpd 15	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
239	31	resmptd 5704	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ)) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
240	239	oveq2d 6940	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
241	218	fmpttd 6651	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))):𝐼⟶(Base‘𝑃))
242		ssidd 3843	. . . . 5 ⊢ (𝜑 → 𝐼 ⊆ 𝐼)
243	92, 3, 93, 94, 2, 48, 136, 137, 95, 1, 196, 242	mplcoe5lem 19875	. . . 4 ⊢ (𝜑 → ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
244	7, 16, 2, 18	suppssr 7610	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑘) = 0)
245	244	oveq1d 6939	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (0 ↑ (𝑉‘𝑘)))
246		eldifi 3955	. . . . . . . 8 ⊢ (𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) → 𝑘 ∈ 𝐼)
247	246, 216	sylan2 586	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑉‘𝑘) ∈ (Base‘𝑃))
248	186, 50, 136	mulg0 17944	. . . . . . 7 ⊢ ((𝑉‘𝑘) ∈ (Base‘𝑃) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
249	247, 248	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
250	245, 249	eqtrd 2814	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (1r‘𝑃))
251	250, 2	suppss2 7613	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))
252	2	mptexd 6761	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
253		funmpt 6175	. . . . . 6 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
254	253	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
255		fvexd 6463	. . . . 5 ⊢ (𝜑 → (1r‘𝑃) ∈ V)
256		suppssfifsupp 8580	. . . . 5 ⊢ ((((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V ∧ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∧ (1r‘𝑃) ∈ V) ∧ ((◡𝑌 “ ℕ) ∈ Fin ∧ ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))) → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
257	252, 254, 255, 32, 251, 256	syl32anc 1446	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
258	186, 50, 188, 193, 2, 241, 243, 251, 257	gsumzres 18707	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
259	238, 240, 258	3eqtr2d 2820	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
260	29, 259	eqtrd 2814	1 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 386   ∨ wo 836   = wceq 1601   ∈ wcel 2107  ∀wral 3090  {crab 3094  Vcvv 3398   ∖ cdif 3789   ∪ cun 3790   ⊆ wss 3792  ∅c0 4141  ifcif 4307  {csn 4398   class class class wbr 4888   ↦ cmpt 4967   × cxp 5355  ^◡ccnv 5356   ↾ cres 5359   “ cima 5360  Fun wfun 6131  ⟶wf 6133  ‘cfv 6137  (class class class)co 6924   ∘_𝑓 cof 7174   supp csupp 7578   ↑_𝑚 cmap 8142  Fincfn 8243   finSupp cfsupp 8565  0cc0 10274   + caddc 10277  ℕcn 11379  ℕ₀cn0 11647  Basecbs 16266  +_gcplusg 16349  ._rcmulr 16350  0_gc0g 16497   Σ_g cgsu 16498  Mndcmnd 17691  ._gcmg 17938  Cntzccntz 18142  mulGrpcmgp 18887  1_rcur 18899  Ringcrg 18945   mVar cmvr 19760   mPoly cmpl 19761

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-rep 5008  ax-sep 5019  ax-nul 5027  ax-pow 5079  ax-pr 5140  ax-un 7228  ax-inf2 8837  ax-cnex 10330  ax-resscn 10331  ax-1cn 10332  ax-icn 10333  ax-addcl 10334  ax-addrcl 10335  ax-mulcl 10336  ax-mulrcl 10337  ax-mulcom 10338  ax-addass 10339  ax-mulass 10340  ax-distr 10341  ax-i2m1 10342  ax-1ne0 10343  ax-1rid 10344  ax-rnegex 10345  ax-rrecex 10346  ax-cnre 10347  ax-pre-lttri 10348  ax-pre-lttrn 10349  ax-pre-ltadd 10350  ax-pre-mulgt0 10351

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-pss 3808  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-tp 4403  df-op 4405  df-uni 4674  df-int 4713  df-iun 4757  df-iin 4758  df-br 4889  df-opab 4951  df-mpt 4968  df-tr 4990  df-id 5263  df-eprel 5268  df-po 5276  df-so 5277  df-fr 5316  df-se 5317  df-we 5318  df-xp 5363  df-rel 5364  df-cnv 5365  df-co 5366  df-dm 5367  df-rn 5368  df-res 5369  df-ima 5370  df-pred 5935  df-ord 5981  df-on 5982  df-lim 5983  df-suc 5984  df-iota 6101  df-fun 6139  df-fn 6140  df-f 6141  df-f1 6142  df-fo 6143  df-f1o 6144  df-fv 6145  df-isom 6146  df-riota 6885  df-ov 6927  df-oprab 6928  df-mpt2 6929  df-of 7176  df-ofr 7177  df-om 7346  df-1st 7447  df-2nd 7448  df-supp 7579  df-wrecs 7691  df-recs 7753  df-rdg 7791  df-1o 7845  df-2o 7846  df-oadd 7849  df-er 8028  df-map 8144  df-pm 8145  df-ixp 8197  df-en 8244  df-dom 8245  df-sdom 8246  df-fin 8247  df-fsupp 8566  df-oi 8706  df-card 9100  df-pnf 10415  df-mnf 10416  df-xr 10417  df-ltxr 10418  df-le 10419  df-sub 10610  df-neg 10611  df-nn 11380  df-2 11443  df-3 11444  df-4 11445  df-5 11446  df-6 11447  df-7 11448  df-8 11449  df-9 11450  df-n0 11648  df-z 11734  df-uz 11998  df-fz 12649  df-fzo 12790  df-seq 13125  df-hash 13442  df-struct 16268  df-ndx 16269  df-slot 16270  df-base 16272  df-sets 16273  df-ress 16274  df-plusg 16362  df-mulr 16363  df-sca 16365  df-vsca 16366  df-tset 16368  df-0g 16499  df-gsum 16500  df-mre 16643  df-mrc 16644  df-acs 16646  df-mgm 17639  df-sgrp 17681  df-mnd 17692  df-mhm 17732  df-submnd 17733  df-grp 17823  df-minusg 17824  df-mulg 17939  df-subg 17986  df-ghm 18053  df-cntz 18144  df-cmn 18592  df-abl 18593  df-mgp 18888  df-ur 18900  df-srg 18904  df-ring 18947  df-subrg 19181  df-psr 19764  df-mvr 19765  df-mpl 19766

This theorem is referenced by:  mplcoe2  19877  ply1coe  20073