Theorem evlslem2 21634

Description: A linear function on the polynomial ring which is multiplicative on scaled monomials is generally multiplicative. (Contributed by Stefan O'Rear, 9-Mar-2015.) (Revised by AV, 11-Apr-2024.)

Hypotheses

Ref	Expression
evlslem2.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
evlslem2.b	⊢ 𝐵 = (Base‘𝑃)
evlslem2.m	⊢ · = (.r‘𝑆)
evlslem2.z	⊢ 0 = (0g‘𝑅)
evlslem2.d	⊢ 𝐷 = {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
evlslem2.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
evlslem2.r	⊢ (𝜑 → 𝑅 ∈ CRing)
evlslem2.s	⊢ (𝜑 → 𝑆 ∈ CRing)
evlslem2.e1	⊢ (𝜑 → 𝐸 ∈ (𝑃 GrpHom 𝑆))
evlslem2.e2	⊢ ((𝜑 ∧ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷))) → (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑗 ∘f + 𝑖), ((𝑥‘𝑗)(.r‘𝑅)(𝑦‘𝑖)), 0 ))) = ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))

Assertion

Ref	Expression
evlslem2	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘(𝑥(.r‘𝑃)𝑦)) = ((𝐸‘𝑥) · (𝐸‘𝑦)))

Distinct variable groups:   𝜑,𝑖,𝑗,𝑘,𝑦   𝐵,𝑖,𝑗,𝑘,𝑥,𝑦   𝐷,𝑖,𝑗,𝑘,𝑥,𝑦   𝑖,𝐸,𝑗   ℎ,𝐼,𝑖,𝑗,𝑘   · ,𝑖,𝑗   𝑃,𝑖,𝑗,𝑘,𝑥,𝑦   𝑅,ℎ,𝑖,𝑗,𝑘   𝑆,𝑖,𝑗   𝑖,𝑊,𝑗,𝑘   0 ,ℎ,𝑖,𝑗,𝑘,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,ℎ)   𝐵(ℎ)   𝐷(ℎ)   𝑃(ℎ)   𝑅(𝑥,𝑦)   𝑆(𝑥,𝑦,ℎ,𝑘)   · (𝑥,𝑦,ℎ,𝑘)   𝐸(𝑥,𝑦,ℎ,𝑘)   𝐼(𝑥,𝑦)   𝑊(𝑥,𝑦,ℎ)

Proof of Theorem evlslem2

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		evlslem2.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑃)
2		eqid 2733	. . . . 5 ⊢ (.r‘𝑃) = (.r‘𝑃)
3		eqid 2733	. . . . 5 ⊢ (0g‘𝑃) = (0g‘𝑃)
4		evlslem2.d	. . . . . . 7 ⊢ 𝐷 = {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
5		ovex 7439	. . . . . . 7 ⊢ (ℕ0 ↑m 𝐼) ∈ V
6	4, 5	rabex2 5334	. . . . . 6 ⊢ 𝐷 ∈ V
7	6	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐷 ∈ V)
8		evlslem2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
9		evlslem2.r	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ CRing)
10		crngring 20062	. . . . . . . 8 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
11	9, 10	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ Ring)
12		evlslem2.p	. . . . . . . 8 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
13	12	mplring 21570	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑅 ∈ Ring) → 𝑃 ∈ Ring)
14	8, 11, 13	syl2anc 585	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ Ring)
15	14	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑃 ∈ Ring)
16		evlslem2.z	. . . . . 6 ⊢ 0 = (0g‘𝑅)
17		eqid 2733	. . . . . 6 ⊢ (Base‘𝑅) = (Base‘𝑅)
18	8	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → 𝐼 ∈ 𝑊)
19	11	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → 𝑅 ∈ Ring)
20		simprl 770	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝐵)
21	12, 17, 1, 4, 20	mplelf 21549	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥:𝐷⟶(Base‘𝑅))
22	21	ffvelcdmda 7084	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → (𝑥‘𝑗) ∈ (Base‘𝑅))
23		simpr 486	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → 𝑗 ∈ 𝐷)
24	12, 4, 16, 17, 18, 19, 1, 22, 23	mplmon2cl 21621	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) ∈ 𝐵)
25	8	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → 𝐼 ∈ 𝑊)
26	11	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → 𝑅 ∈ Ring)
27		simprr 772	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝐵)
28	12, 17, 1, 4, 27	mplelf 21549	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦:𝐷⟶(Base‘𝑅))
29	28	ffvelcdmda 7084	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → (𝑦‘𝑖) ∈ (Base‘𝑅))
30		simpr 486	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → 𝑖 ∈ 𝐷)
31	12, 4, 16, 17, 25, 26, 1, 29, 30	mplmon2cl 21621	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) ∈ 𝐵)
32	6	mptex 7222	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∈ V
33		funmpt 6584	. . . . . . . . . . . 12 ⊢ Fun (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )))
34		fvex 6902	. . . . . . . . . . . 12 ⊢ (0g‘𝑃) ∈ V
35	32, 33, 34	3pm3.2i 1340	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∧ (0g‘𝑃) ∈ V)
36	35	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∧ (0g‘𝑃) ∈ V))
37		simpr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ 𝐵)
38	9	adantr 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ CRing)
39	12, 1, 16, 37, 38	mplelsfi 21546	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝑦 finSupp 0 )
40	39	fsuppimpd 9366	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → (𝑦 supp 0 ) ∈ Fin)
41	12, 17, 1, 4, 37	mplelf 21549	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝑦:𝐷⟶(Base‘𝑅))
42		ssidd 4005	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → (𝑦 supp 0 ) ⊆ (𝑦 supp 0 ))
43	6	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝐷 ∈ V)
44	16	fvexi 6903	. . . . . . . . . . . . . . . . 17 ⊢ 0 ∈ V
45	44	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 0 ∈ V)
46	41, 42, 43, 45	suppssr 8178	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑦‘𝑗) = 0 )
47	46	ifeq1d 4547	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ) = if(𝑘 = 𝑗, 0 , 0 ))
48		ifid 4568	. . . . . . . . . . . . . 14 ⊢ if(𝑘 = 𝑗, 0 , 0 ) = 0
49	47, 48	eqtrdi 2789	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ) = 0 )
50	49	mpteq2dv 5250	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )) = (𝑘 ∈ 𝐷 ↦ 0 ))
51		ringgrp 20055	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
52	11, 51	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑅 ∈ Grp)
53	12, 4, 16, 3, 8, 52	mpl0 21557	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0g‘𝑃) = (𝐷 × { 0 }))
54		fconstmpt 5737	. . . . . . . . . . . . . 14 ⊢ (𝐷 × { 0 }) = (𝑘 ∈ 𝐷 ↦ 0 )
55	53, 54	eqtrdi 2789	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0g‘𝑃) = (𝑘 ∈ 𝐷 ↦ 0 ))
56	55	ad2antrr 725	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (0g‘𝑃) = (𝑘 ∈ 𝐷 ↦ 0 ))
57	50, 56	eqtr4d 2776	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐵) ∧ 𝑗 ∈ (𝐷 ∖ (𝑦 supp 0 ))) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )) = (0g‘𝑃))
58	57, 43	suppss2 8182	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) supp (0g‘𝑃)) ⊆ (𝑦 supp 0 ))
59		suppssfifsupp 9375	. . . . . . . . . 10 ⊢ ((((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) ∧ (0g‘𝑃) ∈ V) ∧ ((𝑦 supp 0 ) ∈ Fin ∧ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) supp (0g‘𝑃)) ⊆ (𝑦 supp 0 ))) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃))
60	36, 40, 58, 59	syl12anc 836	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃))
61	60	ralrimiva 3147	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃))
62		fveq1 6888	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑥 → (𝑦‘𝑗) = (𝑥‘𝑗))
63	62	ifeq1d 4547	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ) = if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))
64	63	mpteq2dv 5250	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))
65	64	mpteq2dv 5250	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) = (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))
66	65	breq1d 5158	. . . . . . . . 9 ⊢ (𝑦 = 𝑥 → ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃) ↔ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) finSupp (0g‘𝑃)))
67	66	cbvralvw 3235	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝐵 (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃) ↔ ∀𝑥 ∈ 𝐵 (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) finSupp (0g‘𝑃))
68	61, 67	sylib 217	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) finSupp (0g‘𝑃))
69	68	r19.21bi 3249	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) finSupp (0g‘𝑃))
70	69	adantrr 716	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) finSupp (0g‘𝑃))
71		equequ2 2030	. . . . . . . . 9 ⊢ (𝑖 = 𝑗 → (𝑘 = 𝑖 ↔ 𝑘 = 𝑗))
72		fveq2 6889	. . . . . . . . 9 ⊢ (𝑖 = 𝑗 → (𝑦‘𝑖) = (𝑦‘𝑗))
73	71, 72	ifbieq1d 4552	. . . . . . . 8 ⊢ (𝑖 = 𝑗 → if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ) = if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))
74	73	mpteq2dv 5250	. . . . . . 7 ⊢ (𝑖 = 𝑗 → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )))
75	74	cbvmptv 5261	. . . . . 6 ⊢ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) = (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 )))
76	60	adantrl 715	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑦‘𝑗), 0 ))) finSupp (0g‘𝑃))
77	75, 76	eqbrtrid 5183	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) finSupp (0g‘𝑃))
78	1, 2, 3, 7, 7, 15, 24, 31, 70, 77	gsumdixp 20125	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))(.r‘𝑃)(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))) = (𝑃 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
79	78	fveq2d 6893	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘((𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))(.r‘𝑃)(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝐸‘(𝑃 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
80		ringcmn 20093	. . . . . 6 ⊢ (𝑃 ∈ Ring → 𝑃 ∈ CMnd)
81	14, 80	syl 17	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ CMnd)
82	81	adantr 482	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑃 ∈ CMnd)
83		evlslem2.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ CRing)
84		crngring 20062	. . . . . . 7 ⊢ (𝑆 ∈ CRing → 𝑆 ∈ Ring)
85	83, 84	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ Ring)
86	85	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑆 ∈ Ring)
87		ringmnd 20060	. . . . 5 ⊢ (𝑆 ∈ Ring → 𝑆 ∈ Mnd)
88	86, 87	syl 17	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑆 ∈ Mnd)
89	6, 6	xpex 7737	. . . . 5 ⊢ (𝐷 × 𝐷) ∈ V
90	89	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐷 × 𝐷) ∈ V)
91		evlslem2.e1	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ (𝑃 GrpHom 𝑆))
92		ghmmhm 19097	. . . . . 6 ⊢ (𝐸 ∈ (𝑃 GrpHom 𝑆) → 𝐸 ∈ (𝑃 MndHom 𝑆))
93	91, 92	syl 17	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ (𝑃 MndHom 𝑆))
94	93	adantr 482	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐸 ∈ (𝑃 MndHom 𝑆))
95	14	ad2antrr 725	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → 𝑃 ∈ Ring)
96	24	adantrr 716	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) ∈ 𝐵)
97	31	adantrl 715	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) ∈ 𝐵)
98	1, 2	ringcl 20067	. . . . . . 7 ⊢ ((𝑃 ∈ Ring ∧ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) ∈ 𝐵 ∧ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) ∈ 𝐵) → ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) ∈ 𝐵)
99	95, 96, 97, 98	syl3anc 1372	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) ∈ 𝐵)
100	99	ralrimivva 3201	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ∀𝑗 ∈ 𝐷 ∀𝑖 ∈ 𝐷 ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) ∈ 𝐵)
101		eqid 2733	. . . . . 6 ⊢ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))
102	101	fmpo 8051	. . . . 5 ⊢ (∀𝑗 ∈ 𝐷 ∀𝑖 ∈ 𝐷 ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) ∈ 𝐵 ↔ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))):(𝐷 × 𝐷)⟶𝐵)
103	100, 102	sylib 217	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))):(𝐷 × 𝐷)⟶𝐵)
104	6, 6	mpoex 8063	. . . . . . 7 ⊢ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V
105	101	mpofun 7529	. . . . . . 7 ⊢ Fun (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))
106	104, 105, 34	3pm3.2i 1340	. . . . . 6 ⊢ ((𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑃) ∈ V)
107	106	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑃) ∈ V))
108	70	fsuppimpd 9366	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) ∈ Fin)
109	77	fsuppimpd 9366	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)) ∈ Fin)
110		xpfi 9314	. . . . . 6 ⊢ ((((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) ∈ Fin ∧ ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)) ∈ Fin) → (((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) × ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃))) ∈ Fin)
111	108, 109, 110	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) × ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃))) ∈ Fin)
112	1, 3, 2, 15, 24, 31, 7, 7	evlslem4 21629	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) supp (0g‘𝑃)) ⊆ (((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) × ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃))))
113		suppssfifsupp 9375	. . . . 5 ⊢ ((((𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑃) ∈ V) ∧ ((((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) × ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃))) ∈ Fin ∧ ((𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) supp (0g‘𝑃)) ⊆ (((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) × ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃))))) → (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) finSupp (0g‘𝑃))
114	107, 111, 112, 113	syl12anc 836	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) finSupp (0g‘𝑃))
115	1, 3, 82, 88, 90, 94, 103, 114	gsummhm 19801	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝐸‘(𝑃 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
116	8	ad2antrr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → 𝐼 ∈ 𝑊)
117	9	ad2antrr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → 𝑅 ∈ CRing)
118		eqid 2733	. . . . . . . . . 10 ⊢ (.r‘𝑅) = (.r‘𝑅)
119		simprl 770	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → 𝑗 ∈ 𝐷)
120		simprr 772	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → 𝑖 ∈ 𝐷)
121	22	adantrr 716	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝑥‘𝑗) ∈ (Base‘𝑅))
122	29	adantrl 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝑦‘𝑖) ∈ (Base‘𝑅))
123	12, 4, 16, 17, 116, 117, 2, 118, 119, 120, 121, 122	mplmon2mul 21622	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑗 ∘f + 𝑖), ((𝑥‘𝑗)(.r‘𝑅)(𝑦‘𝑖)), 0 )))
124	123	fveq2d 6893	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑗 ∘f + 𝑖), ((𝑥‘𝑗)(.r‘𝑅)(𝑦‘𝑖)), 0 ))))
125		evlslem2.e2	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷))) → (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑗 ∘f + 𝑖), ((𝑥‘𝑗)(.r‘𝑅)(𝑦‘𝑖)), 0 ))) = ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
126	125	anassrs 469	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑗 ∘f + 𝑖), ((𝑥‘𝑗)(.r‘𝑅)(𝑦‘𝑖)), 0 ))) = ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
127	124, 126	eqtrd 2773	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷)) → (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
128	127	3impb 1116	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷 ∧ 𝑖 ∈ 𝐷) → (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
129	128	mpoeq3dva 7483	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))) = (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
130	129	oveq2d 7422	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝑆 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
131		eqidd 2734	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
132		eqid 2733	. . . . . . . . . 10 ⊢ (Base‘𝑆) = (Base‘𝑆)
133	1, 132	ghmf 19091	. . . . . . . . 9 ⊢ (𝐸 ∈ (𝑃 GrpHom 𝑆) → 𝐸:𝐵⟶(Base‘𝑆))
134	91, 133	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐸:𝐵⟶(Base‘𝑆))
135	134	feqmptd 6958	. . . . . . 7 ⊢ (𝜑 → 𝐸 = (𝑧 ∈ 𝐵 ↦ (𝐸‘𝑧)))
136	135	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐸 = (𝑧 ∈ 𝐵 ↦ (𝐸‘𝑧)))
137		fveq2 6889	. . . . . 6 ⊢ (𝑧 = ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) → (𝐸‘𝑧) = (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
138	99, 131, 136, 137	fmpoco 8078	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸 ∘ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))) = (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
139	138	oveq2d 7422	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝑆 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ (𝐸‘((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
140		eqidd 2734	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) = (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))
141		fveq2 6889	. . . . . . . 8 ⊢ (𝑧 = (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) → (𝐸‘𝑧) = (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))
142	24, 140, 136, 141	fmptco 7124	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) = (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))))
143	142	oveq2d 7422	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) = (𝑆 Σg (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))))
144		eqidd 2734	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) = (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))
145		fveq2 6889	. . . . . . . 8 ⊢ (𝑧 = (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) → (𝐸‘𝑧) = (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))
146	31, 144, 136, 145	fmptco 7124	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) = (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
147	146	oveq2d 7422	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))) = (𝑆 Σg (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
148	143, 147	oveq12d 7424	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = ((𝑆 Σg (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
149		evlslem2.m	. . . . . 6 ⊢ · = (.r‘𝑆)
150		eqid 2733	. . . . . 6 ⊢ (0g‘𝑆) = (0g‘𝑆)
151	134	ad2antrr 725	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → 𝐸:𝐵⟶(Base‘𝑆))
152	151, 24	ffvelcdmd 7085	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑗 ∈ 𝐷) → (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) ∈ (Base‘𝑆))
153	134	ad2antrr 725	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → 𝐸:𝐵⟶(Base‘𝑆))
154	153, 31	ffvelcdmd 7085	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑖 ∈ 𝐷) → (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) ∈ (Base‘𝑆))
155	6	mptex 7222	. . . . . . . . 9 ⊢ (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∈ V
156		funmpt 6584	. . . . . . . . 9 ⊢ Fun (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))
157		fvex 6902	. . . . . . . . 9 ⊢ (0g‘𝑆) ∈ V
158	155, 156, 157	3pm3.2i 1340	. . . . . . . 8 ⊢ ((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∧ (0g‘𝑆) ∈ V)
159	158	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∧ (0g‘𝑆) ∈ V))
160		ssidd 4005	. . . . . . . . 9 ⊢ (𝜑 → ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) ⊆ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)))
161	3, 150	ghmid 19093	. . . . . . . . . 10 ⊢ (𝐸 ∈ (𝑃 GrpHom 𝑆) → (𝐸‘(0g‘𝑃)) = (0g‘𝑆))
162	91, 161	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐸‘(0g‘𝑃)) = (0g‘𝑆))
163	6	mptex 7222	. . . . . . . . . 10 ⊢ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) ∈ V
164	163	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐷) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )) ∈ V)
165	34	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (0g‘𝑃) ∈ V)
166	160, 162, 164, 165	suppssfv 8184	. . . . . . . 8 ⊢ (𝜑 → ((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)))
167	166	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)))
168		suppssfifsupp 9375	. . . . . . 7 ⊢ ((((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∈ V ∧ Fun (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) ∧ (0g‘𝑆) ∈ V) ∧ (((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)) ∈ Fin ∧ ((𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) supp (0g‘𝑃)))) → (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) finSupp (0g‘𝑆))
169	159, 108, 167, 168	syl12anc 836	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))) finSupp (0g‘𝑆))
170	6	mptex 7222	. . . . . . . . 9 ⊢ (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V
171		funmpt 6584	. . . . . . . . 9 ⊢ Fun (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))
172	170, 171, 157	3pm3.2i 1340	. . . . . . . 8 ⊢ ((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑆) ∈ V)
173	172	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑆) ∈ V))
174		ssidd 4005	. . . . . . . . 9 ⊢ (𝜑 → ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)) ⊆ ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)))
175	6	mptex 7222	. . . . . . . . . 10 ⊢ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) ∈ V
176	175	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )) ∈ V)
177	174, 162, 176, 165	suppssfv 8184	. . . . . . . 8 ⊢ (𝜑 → ((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)))
178	177	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)))
179		suppssfifsupp 9375	. . . . . . 7 ⊢ ((((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∈ V ∧ Fun (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) ∧ (0g‘𝑆) ∈ V) ∧ (((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)) ∈ Fin ∧ ((𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) supp (0g‘𝑆)) ⊆ ((𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))) supp (0g‘𝑃)))) → (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) finSupp (0g‘𝑆))
180	173, 109, 178, 179	syl12anc 836	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))) finSupp (0g‘𝑆))
181	132, 149, 150, 7, 7, 86, 152, 154, 169, 180	gsumdixp 20125	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑆 Σg (𝑗 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝑖 ∈ 𝐷 ↦ (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝑆 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
182	148, 181	eqtrd 2773	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = (𝑆 Σg (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))) · (𝐸‘(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
183	130, 139, 182	3eqtr4d 2783	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷, 𝑖 ∈ 𝐷 ↦ ((𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))(.r‘𝑃)(𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = ((𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
184	79, 115, 183	3eqtr2d 2779	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘((𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))(.r‘𝑃)(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))) = ((𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
185	8	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐼 ∈ 𝑊)
186	11	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑅 ∈ Ring)
187	12, 4, 16, 1, 185, 186, 20	mplcoe4 21624	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 = (𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 )))))
188	12, 4, 16, 1, 185, 186, 27	mplcoe4 21624	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 = (𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))
189	187, 188	oveq12d 7424	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(.r‘𝑃)𝑦) = ((𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))(.r‘𝑃)(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
190	189	fveq2d 6893	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘(𝑥(.r‘𝑃)𝑦)) = (𝐸‘((𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))(.r‘𝑃)(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
191	187	fveq2d 6893	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘𝑥) = (𝐸‘(𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))))
192	24	fmpttd 7112	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))):𝐷⟶𝐵)
193	1, 3, 82, 88, 7, 94, 192, 70	gsummhm 19801	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) = (𝐸‘(𝑃 Σg (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))))
194	191, 193	eqtr4d 2776	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘𝑥) = (𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))))
195	188	fveq2d 6893	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘𝑦) = (𝐸‘(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
196	31	fmpttd 7112	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))):𝐷⟶𝐵)
197	1, 3, 82, 88, 7, 94, 196, 77	gsummhm 19801	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))) = (𝐸‘(𝑃 Σg (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
198	195, 197	eqtr4d 2776	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘𝑦) = (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 ))))))
199	194, 198	oveq12d 7424	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝐸‘𝑥) · (𝐸‘𝑦)) = ((𝑆 Σg (𝐸 ∘ (𝑗 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑗, (𝑥‘𝑗), 0 ))))) · (𝑆 Σg (𝐸 ∘ (𝑖 ∈ 𝐷 ↦ (𝑘 ∈ 𝐷 ↦ if(𝑘 = 𝑖, (𝑦‘𝑖), 0 )))))))
200	184, 190, 199	3eqtr4d 2783	1 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐸‘(𝑥(.r‘𝑃)𝑦)) = ((𝐸‘𝑥) · (𝐸‘𝑦)))

Syntax hints:   → wi 4   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  ∀wral 3062  {crab 3433  Vcvv 3475   ∖ cdif 3945   ⊆ wss 3948  ifcif 4528  {csn 4628   class class class wbr 5148   ↦ cmpt 5231   × cxp 5674  ^◡ccnv 5675   “ cima 5679   ∘ ccom 5680  Fun wfun 6535  ⟶wf 6537  ‘cfv 6541  (class class class)co 7406   ∈ cmpo 7408   ∘_f cof 7665   supp csupp 8143   ↑_m cmap 8817  Fincfn 8936   finSupp cfsupp 9358   + caddc 11110  ℕcn 12209  ℕ₀cn0 12469  Basecbs 17141  ._rcmulr 17195  0_gc0g 17382   Σ_g cgsu 17383  Mndcmnd 18622   MndHom cmhm 18666  Grpcgrp 18816   GrpHom cghm 19084  CMndccmn 19643  Ringcrg 20050  CRingccrg 20051   mPoly cmpl 21451

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-ofr 7668  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-sup 9434  df-oi 9502  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-fz 13482  df-fzo 13625  df-seq 13964  df-hash 14288  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-hom 17218  df-cco 17219  df-0g 17384  df-gsum 17385  df-prds 17390  df-pws 17392  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-mhm 18668  df-submnd 18669  df-grp 18819  df-minusg 18820  df-sbg 18821  df-mulg 18946  df-subg 18998  df-ghm 19085  df-cntz 19176  df-cmn 19645  df-abl 19646  df-mgp 19983  df-ur 20000  df-ring 20052  df-cring 20053  df-subrg 20354  df-lmod 20466  df-lss 20536  df-assa 21400  df-psr 21454  df-mpl 21456

This theorem is referenced by:  evlslem1  21637