Theorem mplcoe5 19289

Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 19290), 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 19185	. . . . . . . . . 10 ⊢ (𝐼 ∈ 𝑊 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
5	2, 4	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑌 ∈ 𝐷 ↔ (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin)))
6	1, 5	mpbid 221	. . . . . . . 8 ⊢ (𝜑 → (𝑌:𝐼⟶ℕ0 ∧ (◡𝑌 “ ℕ) ∈ Fin))
7	6	simpld 474	. . . . . . 7 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
8	7	feqmptd 6159	. . . . . 6 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
9		iftrue 4042	. . . . . . . . 9 ⊢ (𝑖 ∈ (◡𝑌 “ ℕ) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
10	9	adantl 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
11		eldif 3550	. . . . . . . . . 10 ⊢ (𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)))
12		ifid 4075	. . . . . . . . . . 11 ⊢ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = (𝑌‘𝑖)
13		frnnn0supp 11226	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌:𝐼⟶ℕ0) → (𝑌 supp 0) = (◡𝑌 “ ℕ))
14	2, 7, 13	syl2anc 691	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌 supp 0) = (◡𝑌 “ ℕ))
15		eqimss 3620	. . . . . . . . . . . . . 14 ⊢ ((𝑌 supp 0) = (◡𝑌 “ ℕ) → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
16	14, 15	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 supp 0) ⊆ (◡𝑌 “ ℕ))
17		c0ex 9913	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
18	17	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ V)
19	7, 16, 2, 18	suppssr 7213	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑖) = 0)
20	19	ifeq2d 4055	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), (𝑌‘𝑖)) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
21	12, 20	syl5reqr 2659	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
22	11, 21	sylan2br 492	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ))) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
23	22	anassrs 678	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ (◡𝑌 “ ℕ)) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
24	10, 23	pm2.61dan 828	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
25	24	mpteq2dva 4672	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ (𝑌‘𝑖)))
26	8, 25	eqtr4d 2647	. . . . 5 ⊢ (𝜑 → 𝑌 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
27	26	eqeq2d 2620	. . . 4 ⊢ (𝜑 → (𝑦 = 𝑌 ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
28	27	ifbid 4058	. . 3 ⊢ (𝜑 → if(𝑦 = 𝑌, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
29	28	mpteq2dv 4673	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
30		cnvimass 5404	. . . . 5 ⊢ (◡𝑌 “ ℕ) ⊆ dom 𝑌
31		fdm 5964	. . . . . 6 ⊢ (𝑌:𝐼⟶ℕ0 → dom 𝑌 = 𝐼)
32	7, 31	syl 17	. . . . 5 ⊢ (𝜑 → dom 𝑌 = 𝐼)
33	30, 32	syl5sseq 3616	. . . 4 ⊢ (𝜑 → (◡𝑌 “ ℕ) ⊆ 𝐼)
34	6	simprd 478	. . . . 5 ⊢ (𝜑 → (◡𝑌 “ ℕ) ∈ Fin)
35		sseq1 3589	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑤 ⊆ 𝐼 ↔ ∅ ⊆ 𝐼))
36		noel 3878	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑖 ∈ ∅
37		eleq2 2677	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ ∅))
38	36, 37	mtbiri 316	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = ∅ → ¬ 𝑖 ∈ 𝑤)
39	38	iffalsed 4047	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ∅ → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = 0)
40	39	mpteq2dv 4673	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
41		fconstmpt 5085	. . . . . . . . . . . . 13 ⊢ (𝐼 × {0}) = (𝑖 ∈ 𝐼 ↦ 0)
42	40, 41	syl6eqr 2662	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝐼 × {0}))
43	42	eqeq2d 2620	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝐼 × {0})))
44	43	ifbid 4058	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝐼 × {0}), 1 , 0 ))
45	44	mpteq2dv 4673	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
46		mpteq1 4665	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
47		mpt0 5934	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ∅ ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅
48	46, 47	syl6eq 2660	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = ∅)
49	48	oveq2d 6565	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg ∅))
50		mplcoe2.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (mulGrp‘𝑃)
51		eqid 2610	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (1r‘𝑃)
52	50, 51	ringidval 18326	. . . . . . . . . . 11 ⊢ (1r‘𝑃) = (0g‘𝐺)
53	52	gsum0 17101	. . . . . . . . . 10 ⊢ (𝐺 Σg ∅) = (1r‘𝑃)
54	49, 53	syl6eq 2660	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (1r‘𝑃))
55	45, 54	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑤 = ∅ → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
56	35, 55	imbi12d 333	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))))
57	56	imbi2d 329	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))))
58		sseq1 3589	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → (𝑤 ⊆ 𝐼 ↔ 𝑥 ⊆ 𝐼))
59		eleq2 2677	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ 𝑥))
60	59	ifbid 4058	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑥 → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
61	60	mpteq2dv 4673	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑥 → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
62	61	eqeq2d 2620	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑥 → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))))
63	62	ifbid 4058	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))
64	63	mpteq2dv 4673	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )))
65		mpteq1 4665	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
66	65	oveq2d 6565	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
67	64, 66	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
68	58, 67	imbi12d 333	. . . . . . 7 ⊢ (𝑤 = 𝑥 → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
69	68	imbi2d 329	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
70		sseq1 3589	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑤 ⊆ 𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
71		eleq2 2677	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (𝑥 ∪ {𝑧})))
72	71	ifbid 4058	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
73	72	mpteq2dv 4673	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
74	73	eqeq2d 2620	. . . . . . . . . . 11 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
75	74	ifbid 4058	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
76	75	mpteq2dv 4673	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
77		mpteq1 4665	. . . . . . . . . 10 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
78	77	oveq2d 6565	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
79	76, 78	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
80	70, 79	imbi12d 333	. . . . . . 7 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
81	80	imbi2d 329	. . . . . 6 ⊢ (𝑤 = (𝑥 ∪ {𝑧}) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
82		sseq1 3589	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑤 ⊆ 𝐼 ↔ (◡𝑌 “ ℕ) ⊆ 𝐼))
83		eleq2 2677	. . . . . . . . . . . . . 14 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝑤 ↔ 𝑖 ∈ (◡𝑌 “ ℕ)))
84	83	ifbid 4058	. . . . . . . . . . . . 13 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0) = if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))
85	84	mpteq2dv 4673	. . . . . . . . . . . 12 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)))
86	85	eqeq2d 2620	. . . . . . . . . . 11 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0))))
87	86	ifbid 4058	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 ))
88	87	mpteq2dv 4673	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )))
89		mpteq1 4665	. . . . . . . . . 10 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
90	89	oveq2d 6565	. . . . . . . . 9 ⊢ (𝑤 = (◡𝑌 “ ℕ) → (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
91	88, 90	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
92	82, 91	imbi12d 333	. . . . . . 7 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) ↔ ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
93	92	imbi2d 329	. . . . . 6 ⊢ (𝑤 = (◡𝑌 “ ℕ) → ((𝜑 → (𝑤 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑤, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑤 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) ↔ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
94		mplcoe1.p	. . . . . . . . 9 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
95		mplcoe1.z	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
96		mplcoe1.o	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
97		mplcoe5.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Ring)
98	94, 3, 95, 96, 51, 2, 97	mpl1 19265	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑃) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )))
99	98	eqcomd 2616	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃))
100	99	a1d 25	. . . . . 6 ⊢ (𝜑 → (∅ ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 × {0}), 1 , 0 )) = (1r‘𝑃)))
101		ssun1 3738	. . . . . . . . . . 11 ⊢ 𝑥 ⊆ (𝑥 ∪ {𝑧})
102		sstr2 3575	. . . . . . . . . . 11 ⊢ (𝑥 ⊆ (𝑥 ∪ {𝑧}) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼))
103	101, 102	ax-mp 5	. . . . . . . . . 10 ⊢ ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → 𝑥 ⊆ 𝐼)
104	103	imim1i 61	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
105		oveq1 6556	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
106		eqid 2610	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑃) = (Base‘𝑃)
107	2	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ 𝑊)
108	97	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ Ring)
109	7	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌:𝐼⟶ℕ0)
110	109	ffvelrnda 6267	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑖) ∈ ℕ0)
111		0nn0 11184	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℕ0
112		ifcl 4080	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑌‘𝑖) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
113	110, 111, 112	sylancl 693	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
114		eqid 2610	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
115	113, 114	fmptd 6292	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0)
116		frnnn0supp 11226	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
117	107, 115, 116	syl2anc 691	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) = (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ))
118		simprll 798	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
119		eldifn 3695	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (𝐼 ∖ 𝑥) → ¬ 𝑖 ∈ 𝑥)
120	119	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → ¬ 𝑖 ∈ 𝑥)
121	120	iffalsed 4047	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ (𝐼 ∖ 𝑥)) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
122	121, 107	suppss2 7216	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥)
123		ssfi 8065	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 ∈ Fin ∧ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ⊆ 𝑥) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
124	118, 122, 123	syl2anc 691	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) supp 0) ∈ Fin)
125	117, 124	eqeltrrd 2689	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)
126	3	psrbag 19185	. . . . . . . . . . . . . . . . 17 ⊢ (𝐼 ∈ 𝑊 → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
127	107, 126	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)):𝐼⟶ℕ0 ∧ (◡(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) “ ℕ) ∈ Fin)))
128	115, 125, 127	mpbir2and 959	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∈ 𝐷)
129		eqid 2610	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
130		ssun2 3739	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ⊆ (𝑥 ∪ {𝑧})
131		simprr 792	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑥 ∪ {𝑧}) ⊆ 𝐼)
132	130, 131	syl5ss 3579	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → {𝑧} ⊆ 𝐼)
133		vex 3176	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑧 ∈ V
134	133	snss 4259	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝐼 ↔ {𝑧} ⊆ 𝐼)
135	132, 134	sylibr 223	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧 ∈ 𝐼)
136	109, 135	ffvelrnd 6268	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑌‘𝑧) ∈ ℕ0)
137	3	snifpsrbag 19187	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑊 ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
138	107, 136, 137	syl2anc 691	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) ∈ 𝐷)
139	94, 106, 95, 96, 3, 107, 108, 128, 129, 138	mplmonmul 19285	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )))
140		mplcoe2.m	. . . . . . . . . . . . . . . 16 ⊢ ↑ = (.g‘𝐺)
141		mplcoe2.v	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 = (𝐼 mVar 𝑅)
142	94, 3, 95, 96, 107, 50, 140, 141, 108, 135, 136	mplcoe3 19287	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 )) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
143	142	oveq2d 6565	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)), 1 , 0 ))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
144	136	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
145		ifcl 4080	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑌‘𝑧) ∈ ℕ0 ∧ 0 ∈ ℕ0) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
146	144, 111, 145	sylancl 693	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) ∈ ℕ0)
147		eqidd 2611	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)))
148		eqidd 2611	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0)))
149	107, 113, 146, 147, 148	offval2 6812	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))))
150	110	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℕ0)
151	150	nn0cnd 11230	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) ∈ ℂ)
152	151	addid2d 10116	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (0 + (𝑌‘𝑖)) = (𝑌‘𝑖))
153		elsni 4142	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ {𝑧} → 𝑖 = 𝑧)
154	153	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 = 𝑧)
155		simprlr 799	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ¬ 𝑧 ∈ 𝑥)
156	155	ad2antrr 758	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑧 ∈ 𝑥)
157	154, 156	eqneltrd 2707	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ 𝑥)
158	157	iffalsed 4047	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) = 0)
159	154	iftrued 4044	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑧))
160	154	fveq2d 6107	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (𝑌‘𝑖) = (𝑌‘𝑧))
161	159, 160	eqtr4d 2647	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = (𝑌‘𝑖))
162	158, 161	oveq12d 6567	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (0 + (𝑌‘𝑖)))
163		simpr 476	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ {𝑧})
164	130, 163	sseldi 3566	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → 𝑖 ∈ (𝑥 ∪ {𝑧}))
165	164	iftrued 4044	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = (𝑌‘𝑖))
166	152, 162, 165	3eqtr4d 2654	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
167	113	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℕ0)
168	167	nn0cnd 11230	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) ∈ ℂ)
169	168	addid1d 10115	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
170		simpr 476	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 ∈ {𝑧})
171		velsn 4141	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
172	170, 171	sylnib 317	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → ¬ 𝑖 = 𝑧)
173	172	iffalsed 4047	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 = 𝑧, (𝑌‘𝑧), 0) = 0)
174	173	oveq2d 6565	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + 0))
175		biorf 419	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ 𝑥 ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥)))
176		elun 3715	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}))
177		orcom 401	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ 𝑥 ∨ 𝑖 ∈ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
178	176, 177	bitri 263	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ 𝑥))
179	175, 178	syl6rbbr 278	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑖 ∈ {𝑧} → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
180	179	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (𝑖 ∈ (𝑥 ∪ {𝑧}) ↔ 𝑖 ∈ 𝑥))
181	180	ifbid 4058	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0) = if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0))
182	169, 174, 181	3eqtr4d 2654	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ ¬ 𝑖 ∈ {𝑧}) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
183	166, 182	pm2.61dan 828	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑖 ∈ 𝐼) → (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0)) = if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))
184	183	mpteq2dva 4672	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0) + if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
185	149, 184	eqtrd 2644	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)))
186	185	eqeq2d 2620	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0))))
187	186	ifbid 4058	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 ))
188	187	mpteq2dv 4673	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)) ∘𝑓 + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (𝑌‘𝑧), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )))
189	139, 143, 188	3eqtr3rd 2653	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
190	50, 106	mgpbas 18318	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝐺)
191	50, 129	mgpplusg 18316	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑃) = (+g‘𝐺)
192		eqid 2610	. . . . . . . . . . . . . 14 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
193		eqid 2610	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
194	94	mplring 19273	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑅 ∈ Ring) → 𝑃 ∈ Ring)
195	2, 97, 194	syl2anc 691	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ Ring)
196	50	ringmgp 18376	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ Ring → 𝐺 ∈ Mnd)
197	195, 196	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ Mnd)
198	197	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐺 ∈ Mnd)
199	1	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑌 ∈ 𝐷)
200		mplcoe5.c	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)))
201		fveq2 6103	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑉‘𝑥) = (𝑉‘𝑎))
202	201	oveq2d 6565	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)))
203	201	oveq1d 6564	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)))
204	202, 203	eqeq12d 2625	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦))))
205		fveq2 6103	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑏 → (𝑉‘𝑦) = (𝑉‘𝑏))
206	205	oveq1d 6564	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)))
207	205	oveq2d 6565	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑏 → ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
208	206, 207	eqeq12d 2625	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑦)) ↔ ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏))))
209	204, 208	cbvral2v 3155	. . . . . . . . . . . . . . . . 17 ⊢ (∀𝑥 ∈ 𝐼 ∀𝑦 ∈ 𝐼 ((𝑉‘𝑦)(+g‘𝐺)(𝑉‘𝑥)) = ((𝑉‘𝑥)(+g‘𝐺)(𝑉‘𝑦)) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
210	200, 209	sylib 207	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
211	210	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 𝐼 ((𝑉‘𝑏)(+g‘𝐺)(𝑉‘𝑎)) = ((𝑉‘𝑎)(+g‘𝐺)(𝑉‘𝑏)))
212	94, 3, 95, 96, 107, 50, 140, 141, 108, 199, 211, 131	mplcoe5lem 19288	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
213	101, 131	syl5ss 3579	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ⊆ 𝐼)
214	213	sselda 3568	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → 𝑘 ∈ 𝐼)
215	197	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐺 ∈ Mnd)
216	7	ffvelrnda 6267	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑌‘𝑘) ∈ ℕ0)
217	2	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝐼 ∈ 𝑊)
218	97	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑅 ∈ Ring)
219		simpr 476	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
220	94, 141, 106, 217, 218, 219	mvrcl 19270	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → (𝑉‘𝑘) ∈ (Base‘𝑃))
221	190, 140	mulgnn0cl 17381	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐺 ∈ Mnd ∧ (𝑌‘𝑘) ∈ ℕ0 ∧ (𝑉‘𝑘) ∈ (Base‘𝑃)) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
222	215, 216, 220, 221	syl3anc 1318	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
223	222	adantlr 747	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝐼) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
224	214, 223	syldan 486	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 ∈ 𝑥) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) ∈ (Base‘𝑃))
225	94, 141, 106, 107, 108, 135	mvrcl 19270	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑉‘𝑧) ∈ (Base‘𝑃))
226	190, 140	mulgnn0cl 17381	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Mnd ∧ (𝑌‘𝑧) ∈ ℕ0 ∧ (𝑉‘𝑧) ∈ (Base‘𝑃)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
227	198, 136, 225, 226	syl3anc 1318	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑌‘𝑧) ↑ (𝑉‘𝑧)) ∈ (Base‘𝑃))
228		fveq2 6103	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑌‘𝑘) = (𝑌‘𝑧))
229		fveq2 6103	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑧 → (𝑉‘𝑘) = (𝑉‘𝑧))
230	228, 229	oveq12d 6567	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑧 → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
231	230	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘 = 𝑧) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = ((𝑌‘𝑧) ↑ (𝑉‘𝑧)))
232	190, 191, 192, 193, 198, 118, 212, 224, 135, 155, 227, 231	gsumzunsnd 18178	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))))
233	189, 232	eqeq12d 2625	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 ))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧))) = ((𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))(.r‘𝑃)((𝑌‘𝑧) ↑ (𝑉‘𝑧)))))
234	105, 233	syl5ibr 235	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
235	234	expr 641	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
236	235	a2d 29	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → (((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
237	104, 236	syl5 33	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥)) → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
238	237	expcom 450	. . . . . . 7 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → (𝜑 → ((𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))) → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
239	238	a2d 29	. . . . . 6 ⊢ ((𝑥 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑥) → ((𝜑 → (𝑥 ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑥, (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝑥 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))) → (𝜑 → ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (𝑥 ∪ {𝑧}), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (𝑥 ∪ {𝑧}) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))))
240	57, 69, 81, 93, 100, 239	findcard2s 8086	. . . . 5 ⊢ ((◡𝑌 “ ℕ) ∈ Fin → (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))))
241	34, 240	mpcom 37	. . . 4 ⊢ (𝜑 → ((◡𝑌 “ ℕ) ⊆ 𝐼 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))))
242	33, 241	mpd 15	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
243	33	resmptd 5371	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ)) = (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
244	243	oveq2d 6565	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ (◡𝑌 “ ℕ) ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
245		eqid 2610	. . . . 5 ⊢ (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) = (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
246	222, 245	fmptd 6292	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))):𝐼⟶(Base‘𝑃))
247		ssid 3587	. . . . . 6 ⊢ 𝐼 ⊆ 𝐼
248	247	a1i 11	. . . . 5 ⊢ (𝜑 → 𝐼 ⊆ 𝐼)
249	94, 3, 95, 96, 2, 50, 140, 141, 97, 1, 200, 248	mplcoe5lem 19288	. . . 4 ⊢ (𝜑 → ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ⊆ ((Cntz‘𝐺)‘ran (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
250	7, 16, 2, 18	suppssr 7213	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑌‘𝑘) = 0)
251	250	oveq1d 6564	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (0 ↑ (𝑉‘𝑘)))
252		eldifi 3694	. . . . . . . 8 ⊢ (𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ)) → 𝑘 ∈ 𝐼)
253	252, 220	sylan2 490	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (𝑉‘𝑘) ∈ (Base‘𝑃))
254	190, 52, 140	mulg0 17369	. . . . . . 7 ⊢ ((𝑉‘𝑘) ∈ (Base‘𝑃) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
255	253, 254	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → (0 ↑ (𝑉‘𝑘)) = (1r‘𝑃))
256	251, 255	eqtrd 2644	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ (◡𝑌 “ ℕ))) → ((𝑌‘𝑘) ↑ (𝑉‘𝑘)) = (1r‘𝑃))
257	256, 2	suppss2 7216	. . . 4 ⊢ (𝜑 → ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))
258		mptexg 6389	. . . . . 6 ⊢ (𝐼 ∈ 𝑊 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
259	2, 258	syl 17	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V)
260		funmpt 5840	. . . . . 6 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))
261	260	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))))
262		fvex 6113	. . . . . 6 ⊢ (1r‘𝑃) ∈ V
263	262	a1i 11	. . . . 5 ⊢ (𝜑 → (1r‘𝑃) ∈ V)
264		suppssfifsupp 8173	. . . . 5 ⊢ ((((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∈ V ∧ Fun (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ∧ (1r‘𝑃) ∈ V) ∧ ((◡𝑌 “ ℕ) ∈ Fin ∧ ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) supp (1r‘𝑃)) ⊆ (◡𝑌 “ ℕ))) → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
265	259, 261, 263, 34, 257, 264	syl32anc 1326	. . . 4 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) finSupp (1r‘𝑃))
266	190, 52, 192, 197, 2, 246, 249, 257, 265	gsumzres 18133	. . 3 ⊢ (𝜑 → (𝐺 Σg ((𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘))) ↾ (◡𝑌 “ ℕ))) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
267	242, 244, 266	3eqtr2d 2650	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (◡𝑌 “ ℕ), (𝑌‘𝑖), 0)), 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))
268	29, 267	eqtrd 2644	1 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝐺 Σg (𝑘 ∈ 𝐼 ↦ ((𝑌‘𝑘) ↑ (𝑉‘𝑘)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383   = wceq 1475   ∈ wcel 1977  ∀wral 2896  {crab 2900  Vcvv 3173   ∖ cdif 3537   ∪ cun 3538   ⊆ wss 3540  ∅c0 3874  ifcif 4036  {csn 4125   class class class wbr 4583   ↦ cmpt 4643   × cxp 5036  ^◡ccnv 5037  dom cdm 5038   ↾ cres 5040   “ cima 5041  Fun wfun 5798  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549   ∘_𝑓 cof 6793   supp csupp 7182   ↑_𝑚 cmap 7744  Fincfn 7841   finSupp cfsupp 8158  0cc0 9815   + caddc 9818  ℕcn 10897  ℕ₀cn0 11169  Basecbs 15695  +_gcplusg 15768  ._rcmulr 15769  0_gc0g 15923   Σ_g cgsu 15924  Mndcmnd 17117  ._gcmg 17363  Cntzccntz 17571  mulGrpcmgp 18312  1_rcur 18324  Ringcrg 18370   mVar cmvr 19173   mPoly cmpl 19174

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-iin 4458  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-ofr 6796  df-om 6958  df-1st 7059  df-2nd 7060  df-supp 7183  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-2o 7448  df-oadd 7451  df-er 7629  df-map 7746  df-pm 7747  df-ixp 7795  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-fsupp 8159  df-oi 8298  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-uz 11564  df-fz 12198  df-fzo 12335  df-seq 12664  df-hash 12980  df-struct 15697  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-ress 15702  df-plusg 15781  df-mulr 15782  df-sca 15784  df-vsca 15785  df-tset 15787  df-0g 15925  df-gsum 15926  df-mre 16069  df-mrc 16070  df-acs 16072  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-mhm 17158  df-submnd 17159  df-grp 17248  df-minusg 17249  df-mulg 17364  df-subg 17414  df-ghm 17481  df-cntz 17573  df-cmn 18018  df-abl 18019  df-mgp 18313  df-ur 18325  df-srg 18329  df-ring 18372  df-subrg 18601  df-psr 19177  df-mvr 19178  df-mpl 19179

This theorem is referenced by:  mplcoe2  19290  ply1coe  19487