Theorem mplcoe1 19465

Description: Decompose a polynomial into a finite sum of monomials. (Contributed by Mario Carneiro, 9-Jan-2015.)

Hypotheses

Ref	Expression
mplcoe1.p	|- P = ( I mPoly R )
mplcoe1.d	|- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
mplcoe1.z	|- .0. = ( 0g ` R )
mplcoe1.o	|- .1. = ( 1r ` R )
mplcoe1.i	|- ( ph -> I e. W )
mplcoe1.b	|- B = ( Base ` P )
mplcoe1.n	|- .x. = ( .s ` P )
mplcoe1.r	|- ( ph -> R e. Ring )
mplcoe1.x	|- ( ph -> X e. B )

Assertion

Ref	Expression
mplcoe1	|- ( ph -> X = ( P gsumg ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )

Distinct variable groups:   y, k, .1.   B, k   f, k, y, I   ph, k, y   R, f, y   D, k, y   P, k   .0. , f, k, y   f, X, k, y   k, W, y   .x. , k

Allowed substitution hints:   ph( f)   B( y, f)   D( f)   P( y, f)   R( k)   .x. ( y, f)   .1. ( f)   W( f)

Proof of Theorem mplcoe1

Dummy variables w x z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplcoe1.p	. . . . . 6 |- P = ( I mPoly R )
2		eqid 2622	. . . . . 6 |- ( Base ` R ) = ( Base ` R )
3		mplcoe1.b	. . . . . 6 |- B = ( Base ` P )
4		mplcoe1.d	. . . . . 6 |- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
5		mplcoe1.x	. . . . . 6 |- ( ph -> X e. B )
6	1, 2, 3, 4, 5	mplelf 19433	. . . . 5 |- ( ph -> X : D --> ( Base ` R ) )
7	6	feqmptd 6249	. . . 4 |- ( ph -> X = ( y e. D |-> ( X ` y ) ) )
8		iftrue 4092	. . . . . . 7 |- ( y e. ( X supp .0. ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
9	8	adantl 482	. . . . . 6 |- ( ( ( ph /\ y e. D ) /\ y e. ( X supp .0. ) ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
10		eldif 3584	. . . . . . . 8 |- ( y e. ( D \ ( X supp .0. ) ) <-> ( y e. D /\ -. y e. ( X supp .0. ) ) )
11		ifid 4125	. . . . . . . . 9 |- if ( y e. ( X supp .0. ) , ( X ` y ) , ( X ` y ) ) = ( X ` y )
12		ssid 3624	. . . . . . . . . . . 12 |- ( X supp .0. ) C_ ( X supp .0. )
13	12	a1i 11	. . . . . . . . . . 11 |- ( ph -> ( X supp .0. ) C_ ( X supp .0. ) )
14		ovex 6678	. . . . . . . . . . . . 13 |- ( NN0 ^m I ) e. _V
15	4, 14	rabex2 4815	. . . . . . . . . . . 12 |- D e. _V
16	15	a1i 11	. . . . . . . . . . 11 |- ( ph -> D e. _V )
17		mplcoe1.z	. . . . . . . . . . . . 13 |- .0. = ( 0g ` R )
18		fvex 6201	. . . . . . . . . . . . 13 |- ( 0g ` R ) e. _V
19	17, 18	eqeltri 2697	. . . . . . . . . . . 12 |- .0. e. _V
20	19	a1i 11	. . . . . . . . . . 11 |- ( ph -> .0. e. _V )
21	6, 13, 16, 20	suppssr 7326	. . . . . . . . . 10 |- ( ( ph /\ y e. ( D \ ( X supp .0. ) ) ) -> ( X ` y ) = .0. )
22	21	ifeq2d 4105	. . . . . . . . 9 |- ( ( ph /\ y e. ( D \ ( X supp .0. ) ) ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , ( X ` y ) ) = if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) )
23	11, 22	syl5reqr 2671	. . . . . . . 8 |- ( ( ph /\ y e. ( D \ ( X supp .0. ) ) ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
24	10, 23	sylan2br 493	. . . . . . 7 |- ( ( ph /\ ( y e. D /\ -. y e. ( X supp .0. ) ) ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
25	24	anassrs 680	. . . . . 6 |- ( ( ( ph /\ y e. D ) /\ -. y e. ( X supp .0. ) ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
26	9, 25	pm2.61dan 832	. . . . 5 |- ( ( ph /\ y e. D ) -> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) = ( X ` y ) )
27	26	mpteq2dva 4744	. . . 4 |- ( ph -> ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) = ( y e. D |-> ( X ` y ) ) )
28	7, 27	eqtr4d 2659	. . 3 |- ( ph -> X = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) )
29		suppssdm 7308	. . . . 5 |- ( X supp .0. ) C_ dom X
30		fdm 6051	. . . . . 6 |- ( X : D --> ( Base ` R ) -> dom X = D )
31	6, 30	syl 17	. . . . 5 |- ( ph -> dom X = D )
32	29, 31	syl5sseq 3653	. . . 4 |- ( ph -> ( X supp .0. ) C_ D )
33		eqid 2622	. . . . . . . . 9 |- ( I mPwSer R ) = ( I mPwSer R )
34		eqid 2622	. . . . . . . . 9 |- ( Base ` ( I mPwSer R ) ) = ( Base ` ( I mPwSer R ) )
35	1, 33, 34, 17, 3	mplelbas 19430	. . . . . . . 8 |- ( X e. B <-> ( X e. ( Base ` ( I mPwSer R ) ) /\ X finSupp .0. ) )
36	35	simprbi 480	. . . . . . 7 |- ( X e. B -> X finSupp .0. )
37	5, 36	syl 17	. . . . . 6 |- ( ph -> X finSupp .0. )
38	37	fsuppimpd 8282	. . . . 5 |- ( ph -> ( X supp .0. ) e. Fin )
39		sseq1 3626	. . . . . . . 8 |- ( w = (/) -> ( w C_ D <-> (/) C_ D ) )
40		mpteq1 4737	. . . . . . . . . . . 12 |- ( w = (/) -> ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = ( k e. (/) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) )
41		mpt0 6021	. . . . . . . . . . . 12 |- ( k e. (/) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = (/)
42	40, 41	syl6eq 2672	. . . . . . . . . . 11 |- ( w = (/) -> ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = (/) )
43	42	oveq2d 6666	. . . . . . . . . 10 |- ( w = (/) -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( P gsumg (/) ) )
44		eqid 2622	. . . . . . . . . . 11 |- ( 0g ` P ) = ( 0g ` P )
45	44	gsum0 17278	. . . . . . . . . 10 |- ( P gsumg (/) ) = ( 0g ` P )
46	43, 45	syl6eq 2672	. . . . . . . . 9 |- ( w = (/) -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( 0g ` P ) )
47		noel 3919	. . . . . . . . . . . 12 |- -. y e. (/)
48		eleq2 2690	. . . . . . . . . . . 12 |- ( w = (/) -> ( y e. w <-> y e. (/) ) )
49	47, 48	mtbiri 317	. . . . . . . . . . 11 |- ( w = (/) -> -. y e. w )
50	49	iffalsed 4097	. . . . . . . . . 10 |- ( w = (/) -> if ( y e. w , ( X ` y ) , .0. ) = .0. )
51	50	mpteq2dv 4745	. . . . . . . . 9 |- ( w = (/) -> ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) = ( y e. D |-> .0. ) )
52	46, 51	eqeq12d 2637	. . . . . . . 8 |- ( w = (/) -> ( ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) <-> ( 0g ` P ) = ( y e. D |-> .0. ) ) )
53	39, 52	imbi12d 334	. . . . . . 7 |- ( w = (/) -> ( ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) <-> ( (/) C_ D -> ( 0g ` P ) = ( y e. D |-> .0. ) ) ) )
54	53	imbi2d 330	. . . . . 6 |- ( w = (/) -> ( ( ph -> ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) ) <-> ( ph -> ( (/) C_ D -> ( 0g ` P ) = ( y e. D |-> .0. ) ) ) ) )
55		sseq1 3626	. . . . . . . 8 |- ( w = x -> ( w C_ D <-> x C_ D ) )
56		mpteq1 4737	. . . . . . . . . 10 |- ( w = x -> ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) )
57	56	oveq2d 6666	. . . . . . . . 9 |- ( w = x -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
58		eleq2 2690	. . . . . . . . . . 11 |- ( w = x -> ( y e. w <-> y e. x ) )
59	58	ifbid 4108	. . . . . . . . . 10 |- ( w = x -> if ( y e. w , ( X ` y ) , .0. ) = if ( y e. x , ( X ` y ) , .0. ) )
60	59	mpteq2dv 4745	. . . . . . . . 9 |- ( w = x -> ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) )
61	57, 60	eqeq12d 2637	. . . . . . . 8 |- ( w = x -> ( ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) <-> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) )
62	55, 61	imbi12d 334	. . . . . . 7 |- ( w = x -> ( ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) <-> ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) ) )
63	62	imbi2d 330	. . . . . 6 |- ( w = x -> ( ( ph -> ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) ) <-> ( ph -> ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) ) ) )
64		sseq1 3626	. . . . . . . 8 |- ( w = ( x u. { z } ) -> ( w C_ D <-> ( x u. { z } ) C_ D ) )
65		mpteq1 4737	. . . . . . . . . 10 |- ( w = ( x u. { z } ) -> ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) )
66	65	oveq2d 6666	. . . . . . . . 9 |- ( w = ( x u. { z } ) -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
67		eleq2 2690	. . . . . . . . . . 11 |- ( w = ( x u. { z } ) -> ( y e. w <-> y e. ( x u. { z } ) ) )
68	67	ifbid 4108	. . . . . . . . . 10 |- ( w = ( x u. { z } ) -> if ( y e. w , ( X ` y ) , .0. ) = if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) )
69	68	mpteq2dv 4745	. . . . . . . . 9 |- ( w = ( x u. { z } ) -> ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) )
70	66, 69	eqeq12d 2637	. . . . . . . 8 |- ( w = ( x u. { z } ) -> ( ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) <-> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) )
71	64, 70	imbi12d 334	. . . . . . 7 |- ( w = ( x u. { z } ) -> ( ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) <-> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) )
72	71	imbi2d 330	. . . . . 6 |- ( w = ( x u. { z } ) -> ( ( ph -> ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) ) <-> ( ph -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) ) )
73		sseq1 3626	. . . . . . . 8 |- ( w = ( X supp .0. ) -> ( w C_ D <-> ( X supp .0. ) C_ D ) )
74		mpteq1 4737	. . . . . . . . . 10 |- ( w = ( X supp .0. ) -> ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) )
75	74	oveq2d 6666	. . . . . . . . 9 |- ( w = ( X supp .0. ) -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
76		eleq2 2690	. . . . . . . . . . 11 |- ( w = ( X supp .0. ) -> ( y e. w <-> y e. ( X supp .0. ) ) )
77	76	ifbid 4108	. . . . . . . . . 10 |- ( w = ( X supp .0. ) -> if ( y e. w , ( X ` y ) , .0. ) = if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) )
78	77	mpteq2dv 4745	. . . . . . . . 9 |- ( w = ( X supp .0. ) -> ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) )
79	75, 78	eqeq12d 2637	. . . . . . . 8 |- ( w = ( X supp .0. ) -> ( ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) <-> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) ) )
80	73, 79	imbi12d 334	. . . . . . 7 |- ( w = ( X supp .0. ) -> ( ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) <-> ( ( X supp .0. ) C_ D -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) ) ) )
81	80	imbi2d 330	. . . . . 6 |- ( w = ( X supp .0. ) -> ( ( ph -> ( w C_ D -> ( P gsumg ( k e. w |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. w , ( X ` y ) , .0. ) ) ) ) <-> ( ph -> ( ( X supp .0. ) C_ D -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) ) ) ) )
82		mplcoe1.i	. . . . . . . . 9 |- ( ph -> I e. W )
83		mplcoe1.r	. . . . . . . . . 10 |- ( ph -> R e. Ring )
84		ringgrp 18552	. . . . . . . . . 10 |- ( R e. Ring -> R e. Grp )
85	83, 84	syl 17	. . . . . . . . 9 |- ( ph -> R e. Grp )
86	1, 4, 17, 44, 82, 85	mpl0 19441	. . . . . . . 8 |- ( ph -> ( 0g ` P ) = ( D X. { .0. } ) )
87		fconstmpt 5163	. . . . . . . 8 |- ( D X. { .0. } ) = ( y e. D |-> .0. )
88	86, 87	syl6eq 2672	. . . . . . 7 |- ( ph -> ( 0g ` P ) = ( y e. D |-> .0. ) )
89	88	a1d 25	. . . . . 6 |- ( ph -> ( (/) C_ D -> ( 0g ` P ) = ( y e. D |-> .0. ) ) )
90		ssun1 3776	. . . . . . . . . . 11 |- x C_ ( x u. { z } )
91		sstr2 3610	. . . . . . . . . . 11 |- ( x C_ ( x u. { z } ) -> ( ( x u. { z } ) C_ D -> x C_ D ) )
92	90, 91	ax-mp 5	. . . . . . . . . 10 |- ( ( x u. { z } ) C_ D -> x C_ D )
93	92	imim1i 63	. . . . . . . . 9 |- ( ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) )
94		oveq1 6657	. . . . . . . . . . . 12 |- ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) -> ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) = ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) )
95		eqid 2622	. . . . . . . . . . . . . 14 |- ( +g ` P ) = ( +g ` P )
96	1	mplring 19452	. . . . . . . . . . . . . . . . 17 |- ( ( I e. W /\ R e. Ring ) -> P e. Ring )
97	82, 83, 96	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ph -> P e. Ring )
98		ringcmn 18581	. . . . . . . . . . . . . . . 16 |- ( P e. Ring -> P e. CMnd )
99	97, 98	syl 17	. . . . . . . . . . . . . . 15 |- ( ph -> P e. CMnd )
100	99	adantr 481	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> P e. CMnd )
101		simprll 802	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> x e. Fin )
102		simprr 796	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( x u. { z } ) C_ D )
103	102	unssad 3790	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> x C_ D )
104	103	sselda 3603	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ k e. x ) -> k e. D )
105	82	adantr 481	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ k e. D ) -> I e. W )
106	83	adantr 481	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ k e. D ) -> R e. Ring )
107	1	mpllmod 19451	. . . . . . . . . . . . . . . . . 18 |- ( ( I e. W /\ R e. Ring ) -> P e. LMod )
108	105, 106, 107	syl2anc 693	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ k e. D ) -> P e. LMod )
109	6	ffvelrnda 6359	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ k e. D ) -> ( X ` k ) e. ( Base ` R ) )
110	1, 82, 83	mplsca 19445	. . . . . . . . . . . . . . . . . . . 20 |- ( ph -> R = (Scalar ` P ) )
111	110	adantr 481	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ k e. D ) -> R = (Scalar ` P ) )
112	111	fveq2d 6195	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ k e. D ) -> ( Base ` R ) = ( Base ` (Scalar ` P ) ) )
113	109, 112	eleqtrd 2703	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ k e. D ) -> ( X ` k ) e. ( Base ` (Scalar ` P ) ) )
114		mplcoe1.o	. . . . . . . . . . . . . . . . . 18 |- .1. = ( 1r ` R )
115		simpr 477	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ k e. D ) -> k e. D )
116	1, 3, 17, 114, 4, 105, 106, 115	mplmon 19463	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ k e. D ) -> ( y e. D |-> if ( y = k , .1. , .0. ) ) e. B )
117		eqid 2622	. . . . . . . . . . . . . . . . . 18 |- (Scalar ` P ) = (Scalar ` P )
118		mplcoe1.n	. . . . . . . . . . . . . . . . . 18 |- .x. = ( .s ` P )
119		eqid 2622	. . . . . . . . . . . . . . . . . 18 |- ( Base ` (Scalar ` P ) ) = ( Base ` (Scalar ` P ) )
120	3, 117, 118, 119	lmodvscl 18880	. . . . . . . . . . . . . . . . 17 |- ( ( P e. LMod /\ ( X ` k ) e. ( Base ` (Scalar ` P ) ) /\ ( y e. D |-> if ( y = k , .1. , .0. ) ) e. B ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) e. B )
121	108, 113, 116, 120	syl3anc 1326	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ k e. D ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) e. B )
122	121	adantlr 751	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ k e. D ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) e. B )
123	104, 122	syldan 487	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ k e. x ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) e. B )
124		vex 3203	. . . . . . . . . . . . . . 15 |- z e. _V
125	124	a1i 11	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> z e. _V )
126		simprlr 803	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> -. z e. x )
127	82, 83, 107	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ph -> P e. LMod )
128	127	adantr 481	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> P e. LMod )
129	6	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> X : D --> ( Base ` R ) )
130	102	unssbd 3791	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> { z } C_ D )
131	124	snss 4316	. . . . . . . . . . . . . . . . . 18 |- ( z e. D <-> { z } C_ D )
132	130, 131	sylibr 224	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> z e. D )
133	129, 132	ffvelrnd 6360	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( X ` z ) e. ( Base ` R ) )
134	110	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> R = (Scalar ` P ) )
135	134	fveq2d 6195	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( Base ` R ) = ( Base ` (Scalar ` P ) ) )
136	133, 135	eleqtrd 2703	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( X ` z ) e. ( Base ` (Scalar ` P ) ) )
137	82	adantr 481	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> I e. W )
138	83	adantr 481	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> R e. Ring )
139	1, 3, 17, 114, 4, 137, 138, 132	mplmon 19463	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y = z , .1. , .0. ) ) e. B )
140	3, 117, 118, 119	lmodvscl 18880	. . . . . . . . . . . . . . 15 |- ( ( P e. LMod /\ ( X ` z ) e. ( Base ` (Scalar ` P ) ) /\ ( y e. D |-> if ( y = z , .1. , .0. ) ) e. B ) -> ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) e. B )
141	128, 136, 139, 140	syl3anc 1326	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) e. B )
142		fveq2 6191	. . . . . . . . . . . . . . 15 |- ( k = z -> ( X ` k ) = ( X ` z ) )
143		equequ2 1953	. . . . . . . . . . . . . . . . 17 |- ( k = z -> ( y = k <-> y = z ) )
144	143	ifbid 4108	. . . . . . . . . . . . . . . 16 |- ( k = z -> if ( y = k , .1. , .0. ) = if ( y = z , .1. , .0. ) )
145	144	mpteq2dv 4745	. . . . . . . . . . . . . . 15 |- ( k = z -> ( y e. D |-> if ( y = k , .1. , .0. ) ) = ( y e. D |-> if ( y = z , .1. , .0. ) ) )
146	142, 145	oveq12d 6668	. . . . . . . . . . . . . 14 |- ( k = z -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) )
147	3, 95, 100, 101, 123, 125, 126, 141, 146	gsumunsn 18359	. . . . . . . . . . . . 13 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) )
148		eqid 2622	. . . . . . . . . . . . . . 15 |- ( +g ` R ) = ( +g ` R )
149	129	ffvelrnda 6359	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> ( X ` y ) e. ( Base ` R ) )
150	2, 17	ring0cl 18569	. . . . . . . . . . . . . . . . . . . . . 22 |- ( R e. Ring -> .0. e. ( Base ` R ) )
151	83, 150	syl 17	. . . . . . . . . . . . . . . . . . . . 21 |- ( ph -> .0. e. ( Base ` R ) )
152	151	ad2antrr 762	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> .0. e. ( Base ` R ) )
153	149, 152	ifcld 4131	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> if ( y e. x , ( X ` y ) , .0. ) e. ( Base ` R ) )
154		eqid 2622	. . . . . . . . . . . . . . . . . . 19 |- ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) )
155	153, 154	fmptd 6385	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) : D --> ( Base ` R ) )
156		fvex 6201	. . . . . . . . . . . . . . . . . . 19 |- ( Base ` R ) e. _V
157	156, 15	elmap 7886	. . . . . . . . . . . . . . . . . 18 |- ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. ( ( Base ` R ) ^m D ) <-> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) : D --> ( Base ` R ) )
158	155, 157	sylibr 224	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. ( ( Base ` R ) ^m D ) )
159	33, 2, 4, 34, 137	psrbas 19378	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( Base ` ( I mPwSer R ) ) = ( ( Base ` R ) ^m D ) )
160	158, 159	eleqtrrd 2704	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. ( Base ` ( I mPwSer R ) ) )
161	15	mptex 6486	. . . . . . . . . . . . . . . . . . 19 |- ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. _V
162		funmpt 5926	. . . . . . . . . . . . . . . . . . 19 |- Fun ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) )
163	161, 162, 19	3pm3.2i 1239	. . . . . . . . . . . . . . . . . 18 |- ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. _V /\ Fun ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) /\ .0. e. _V )
164	163	a1i 11	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. _V /\ Fun ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) /\ .0. e. _V ) )
165		eldifn 3733	. . . . . . . . . . . . . . . . . . . 20 |- ( y e. ( D \ x ) -> -. y e. x )
166	165	adantl 482	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. ( D \ x ) ) -> -. y e. x )
167	166	iffalsed 4097	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. ( D \ x ) ) -> if ( y e. x , ( X ` y ) , .0. ) = .0. )
168	15	a1i 11	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> D e. _V )
169	167, 168	suppss2 7329	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) supp .0. ) C_ x )
170		suppssfifsupp 8290	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. _V /\ Fun ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) /\ .0. e. _V ) /\ ( x e. Fin /\ ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) supp .0. ) C_ x ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) finSupp .0. )
171	164, 101, 169, 170	syl12anc 1324	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) finSupp .0. )
172	1, 33, 34, 17, 3	mplelbas 19430	. . . . . . . . . . . . . . . 16 |- ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. B <-> ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. ( Base ` ( I mPwSer R ) ) /\ ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) finSupp .0. ) )
173	160, 171, 172	sylanbrc 698	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) e. B )
174	1, 3, 148, 95, 173, 141	mpladd 19442	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) = ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) oF ( +g ` R ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) )
175		ovexd 6680	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) e. _V )
176		eqidd 2623	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) )
177		eqid 2622	. . . . . . . . . . . . . . . . 17 |- ( .r ` R ) = ( .r ` R )
178	1, 118, 2, 3, 177, 4, 133, 139	mplvsca 19447	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) = ( ( D X. { ( X ` z ) } ) oF ( .r ` R ) ( y e. D |-> if ( y = z , .1. , .0. ) ) ) )
179	133	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> ( X ` z ) e. ( Base ` R ) )
180	2, 114	ringidcl 18568	. . . . . . . . . . . . . . . . . . . 20 |- ( R e. Ring -> .1. e. ( Base ` R ) )
181	180, 150	ifcld 4131	. . . . . . . . . . . . . . . . . . 19 |- ( R e. Ring -> if ( y = z , .1. , .0. ) e. ( Base ` R ) )
182	83, 181	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ph -> if ( y = z , .1. , .0. ) e. ( Base ` R ) )
183	182	ad2antrr 762	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> if ( y = z , .1. , .0. ) e. ( Base ` R ) )
184		fconstmpt 5163	. . . . . . . . . . . . . . . . . 18 |- ( D X. { ( X ` z ) } ) = ( y e. D |-> ( X ` z ) )
185	184	a1i 11	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( D X. { ( X ` z ) } ) = ( y e. D |-> ( X ` z ) ) )
186		eqidd 2623	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y = z , .1. , .0. ) ) = ( y e. D |-> if ( y = z , .1. , .0. ) ) )
187	168, 179, 183, 185, 186	offval2 6914	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( D X. { ( X ` z ) } ) oF ( .r ` R ) ( y e. D |-> if ( y = z , .1. , .0. ) ) ) = ( y e. D |-> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) )
188	178, 187	eqtrd 2656	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) = ( y e. D |-> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) )
189	168, 153, 175, 176, 188	offval2 6914	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) oF ( +g ` R ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) = ( y e. D |-> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) ) )
190	138, 84	syl 17	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> R e. Grp )
191	2, 148, 17	grplid 17452	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Grp /\ ( X ` z ) e. ( Base ` R ) ) -> ( .0. ( +g ` R ) ( X ` z ) ) = ( X ` z ) )
192	190, 133, 191	syl2anc 693	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( .0. ( +g ` R ) ( X ` z ) ) = ( X ` z ) )
193	192	ad2antrr 762	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( .0. ( +g ` R ) ( X ` z ) ) = ( X ` z ) )
194		simpr 477	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> y e. { z } )
195		velsn 4193	. . . . . . . . . . . . . . . . . . . 20 |- ( y e. { z } <-> y = z )
196	194, 195	sylib 208	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> y = z )
197	196	fveq2d 6195	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( X ` y ) = ( X ` z ) )
198	193, 197	eqtr4d 2659	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( .0. ( +g ` R ) ( X ` z ) ) = ( X ` y ) )
199	126	ad2antrr 762	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> -. z e. x )
200	196, 199	eqneltrd 2720	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> -. y e. x )
201	200	iffalsed 4097	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> if ( y e. x , ( X ` y ) , .0. ) = .0. )
202	196	iftrued 4094	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> if ( y = z , .1. , .0. ) = .1. )
203	202	oveq2d 6666	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) = ( ( X ` z ) ( .r ` R ) .1. ) )
204	2, 177, 114	ringridm 18572	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. Ring /\ ( X ` z ) e. ( Base ` R ) ) -> ( ( X ` z ) ( .r ` R ) .1. ) = ( X ` z ) )
205	138, 133, 204	syl2anc 693	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( X ` z ) ( .r ` R ) .1. ) = ( X ` z ) )
206	205	ad2antrr 762	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( ( X ` z ) ( .r ` R ) .1. ) = ( X ` z ) )
207	203, 206	eqtrd 2656	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) = ( X ` z ) )
208	201, 207	oveq12d 6668	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) = ( .0. ( +g ` R ) ( X ` z ) ) )
209		elun2 3781	. . . . . . . . . . . . . . . . . . 19 |- ( y e. { z } -> y e. ( x u. { z } ) )
210	209	adantl 482	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> y e. ( x u. { z } ) )
211	210	iftrued 4094	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) = ( X ` y ) )
212	198, 208, 211	3eqtr4d 2666	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ y e. { z } ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) = if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) )
213	85	ad2antrr 762	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> R e. Grp )
214	2, 148, 17	grprid 17453	. . . . . . . . . . . . . . . . . . 19 |- ( ( R e. Grp /\ if ( y e. x , ( X ` y ) , .0. ) e. ( Base ` R ) ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) .0. ) = if ( y e. x , ( X ` y ) , .0. ) )
215	213, 153, 214	syl2anc 693	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) .0. ) = if ( y e. x , ( X ` y ) , .0. ) )
216	215	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) .0. ) = if ( y e. x , ( X ` y ) , .0. ) )
217		simpr 477	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> -. y e. { z } )
218	217, 195	sylnib 318	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> -. y = z )
219	218	iffalsed 4097	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> if ( y = z , .1. , .0. ) = .0. )
220	219	oveq2d 6666	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) = ( ( X ` z ) ( .r ` R ) .0. ) )
221	2, 177, 17	ringrz 18588	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. Ring /\ ( X ` z ) e. ( Base ` R ) ) -> ( ( X ` z ) ( .r ` R ) .0. ) = .0. )
222	138, 133, 221	syl2anc 693	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( X ` z ) ( .r ` R ) .0. ) = .0. )
223	222	ad2antrr 762	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( ( X ` z ) ( .r ` R ) .0. ) = .0. )
224	220, 223	eqtrd 2656	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) = .0. )
225	224	oveq2d 6666	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) = ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) .0. ) )
226		biorf 420	. . . . . . . . . . . . . . . . . . . 20 |- ( -. y e. { z } -> ( y e. x <-> ( y e. { z } \/ y e. x ) ) )
227		elun 3753	. . . . . . . . . . . . . . . . . . . . 21 |- ( y e. ( x u. { z } ) <-> ( y e. x \/ y e. { z } ) )
228		orcom 402	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( y e. x \/ y e. { z } ) <-> ( y e. { z } \/ y e. x ) )
229	227, 228	bitri 264	. . . . . . . . . . . . . . . . . . . 20 |- ( y e. ( x u. { z } ) <-> ( y e. { z } \/ y e. x ) )
230	226, 229	syl6rbbr 279	. . . . . . . . . . . . . . . . . . 19 |- ( -. y e. { z } -> ( y e. ( x u. { z } ) <-> y e. x ) )
231	230	adantl 482	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( y e. ( x u. { z } ) <-> y e. x ) )
232	231	ifbid 4108	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) = if ( y e. x , ( X ` y ) , .0. ) )
233	216, 225, 232	3eqtr4d 2666	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) /\ -. y e. { z } ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) = if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) )
234	212, 233	pm2.61dan 832	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) /\ y e. D ) -> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) = if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) )
235	234	mpteq2dva 4744	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> ( if ( y e. x , ( X ` y ) , .0. ) ( +g ` R ) ( ( X ` z ) ( .r ` R ) if ( y = z , .1. , .0. ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) )
236	174, 189, 235	3eqtrrd 2661	. . . . . . . . . . . . 13 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) = ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) )
237	147, 236	eqeq12d 2637	. . . . . . . . . . . 12 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) <-> ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) = ( ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ( +g ` P ) ( ( X ` z ) .x. ( y e. D |-> if ( y = z , .1. , .0. ) ) ) ) ) )
238	94, 237	syl5ibr 236	. . . . . . . . . . 11 |- ( ( ph /\ ( ( x e. Fin /\ -. z e. x ) /\ ( x u. { z } ) C_ D ) ) -> ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) )
239	238	expr 643	. . . . . . . . . 10 |- ( ( ph /\ ( x e. Fin /\ -. z e. x ) ) -> ( ( x u. { z } ) C_ D -> ( ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) )
240	239	a2d 29	. . . . . . . . 9 |- ( ( ph /\ ( x e. Fin /\ -. z e. x ) ) -> ( ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) )
241	93, 240	syl5 34	. . . . . . . 8 |- ( ( ph /\ ( x e. Fin /\ -. z e. x ) ) -> ( ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) )
242	241	expcom 451	. . . . . . 7 |- ( ( x e. Fin /\ -. z e. x ) -> ( ph -> ( ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) ) )
243	242	a2d 29	. . . . . 6 |- ( ( x e. Fin /\ -. z e. x ) -> ( ( ph -> ( x C_ D -> ( P gsumg ( k e. x |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. x , ( X ` y ) , .0. ) ) ) ) -> ( ph -> ( ( x u. { z } ) C_ D -> ( P gsumg ( k e. ( x u. { z } ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( x u. { z } ) , ( X ` y ) , .0. ) ) ) ) ) )
244	54, 63, 72, 81, 89, 243	findcard2s 8201	. . . . 5 |- ( ( X supp .0. ) e. Fin -> ( ph -> ( ( X supp .0. ) C_ D -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) ) ) )
245	38, 244	mpcom 38	. . . 4 |- ( ph -> ( ( X supp .0. ) C_ D -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) ) )
246	32, 245	mpd 15	. . 3 |- ( ph -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( y e. D |-> if ( y e. ( X supp .0. ) , ( X ` y ) , .0. ) ) )
247	28, 246	eqtr4d 2659	. 2 |- ( ph -> X = ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
248	32	resmptd 5452	. . . 4 |- ( ph -> ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) |` ( X supp .0. ) ) = ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) )
249	248	oveq2d 6666	. . 3 |- ( ph -> ( P gsumg ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) |` ( X supp .0. ) ) ) = ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
250		eqid 2622	. . . . 5 |- ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) = ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) )
251	121, 250	fmptd 6385	. . . 4 |- ( ph -> ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) : D --> B )
252	6, 13, 16, 20	suppssr 7326	. . . . . . 7 |- ( ( ph /\ k e. ( D \ ( X supp .0. ) ) ) -> ( X ` k ) = .0. )
253	252	oveq1d 6665	. . . . . 6 |- ( ( ph /\ k e. ( D \ ( X supp .0. ) ) ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( .0. .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) )
254		eldifi 3732	. . . . . . 7 |- ( k e. ( D \ ( X supp .0. ) ) -> k e. D )
255	111	fveq2d 6195	. . . . . . . . . 10 |- ( ( ph /\ k e. D ) -> ( 0g ` R ) = ( 0g ` (Scalar ` P ) ) )
256	17, 255	syl5eq 2668	. . . . . . . . 9 |- ( ( ph /\ k e. D ) -> .0. = ( 0g ` (Scalar ` P ) ) )
257	256	oveq1d 6665	. . . . . . . 8 |- ( ( ph /\ k e. D ) -> ( .0. .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( ( 0g ` (Scalar ` P ) ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) )
258		eqid 2622	. . . . . . . . . 10 |- ( 0g ` (Scalar ` P ) ) = ( 0g ` (Scalar ` P ) )
259	3, 117, 118, 258, 44	lmod0vs 18896	. . . . . . . . 9 |- ( ( P e. LMod /\ ( y e. D |-> if ( y = k , .1. , .0. ) ) e. B ) -> ( ( 0g ` (Scalar ` P ) ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( 0g ` P ) )
260	108, 116, 259	syl2anc 693	. . . . . . . 8 |- ( ( ph /\ k e. D ) -> ( ( 0g ` (Scalar ` P ) ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( 0g ` P ) )
261	257, 260	eqtrd 2656	. . . . . . 7 |- ( ( ph /\ k e. D ) -> ( .0. .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( 0g ` P ) )
262	254, 261	sylan2 491	. . . . . 6 |- ( ( ph /\ k e. ( D \ ( X supp .0. ) ) ) -> ( .0. .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( 0g ` P ) )
263	253, 262	eqtrd 2656	. . . . 5 |- ( ( ph /\ k e. ( D \ ( X supp .0. ) ) ) -> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) = ( 0g ` P ) )
264	263, 16	suppss2 7329	. . . 4 |- ( ph -> ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) supp ( 0g ` P ) ) C_ ( X supp .0. ) )
265	15	mptex 6486	. . . . . . 7 |- ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) e. _V
266		funmpt 5926	. . . . . . 7 |- Fun ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) )
267		fvex 6201	. . . . . . 7 |- ( 0g ` P ) e. _V
268	265, 266, 267	3pm3.2i 1239	. . . . . 6 |- ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) e. _V /\ Fun ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) /\ ( 0g ` P ) e. _V )
269	268	a1i 11	. . . . 5 |- ( ph -> ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) e. _V /\ Fun ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) /\ ( 0g ` P ) e. _V ) )
270		suppssfifsupp 8290	. . . . 5 |- ( ( ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) e. _V /\ Fun ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) /\ ( 0g ` P ) e. _V ) /\ ( ( X supp .0. ) e. Fin /\ ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) supp ( 0g ` P ) ) C_ ( X supp .0. ) ) ) -> ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) finSupp ( 0g ` P ) )
271	269, 38, 264, 270	syl12anc 1324	. . . 4 |- ( ph -> ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) finSupp ( 0g ` P ) )
272	3, 44, 99, 16, 251, 264, 271	gsumres 18314	. . 3 |- ( ph -> ( P gsumg ( ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) |` ( X supp .0. ) ) ) = ( P gsumg ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
273	249, 272	eqtr3d 2658	. 2 |- ( ph -> ( P gsumg ( k e. ( X supp .0. ) |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) = ( P gsumg ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )
274	247, 273	eqtrd 2656	1 |- ( ph -> X = ( P gsumg ( k e. D |-> ( ( X ` k ) .x. ( y e. D |-> if ( y = k , .1. , .0. ) ) ) ) ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 196   \/ wo 383   /\ wa 384   /\ w3a 1037   = wceq 1483   e. wcel 1990   {crab 2916   _Vcvv 3200   \ cdif 3571   u. cun 3572   C_ wss 3574   (/)c0 3915   ifcif 4086   {csn 4177   class class class wbr 4653   |-> cmpt 4729   X. cxp 5112   `'ccnv 5113   dom cdm 5114   |` cres 5116   "cima 5117   Fun wfun 5882   -->wf 5884   ` cfv 5888  (class class class)co 6650   oFcof 6895   supp csupp 7295   ^m cmap 7857   Fincfn 7955   finSupp cfsupp 8275   NNcn 11020   NN0cn0 11292   Basecbs 15857   +g cplusg 15941   .rcmulr 15942  Scalarcsca 15944   .scvsca 15945   0gc0g 16100   gsum_g cgsu 16101   Grpcgrp 17422  CMndccmn 18193   1rcur 18501   Ringcrg 18547   LModclmod 18863   mPwSer cmps 19351   mPoly cmpl 19353

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-ofr 6898  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-uz 11688  df-fz 12327  df-fzo 12466  df-seq 12802  df-hash 13118  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-sca 15957  df-vsca 15958  df-tset 15960  df-0g 16102  df-gsum 16103  df-mre 16246  df-mrc 16247  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-mhm 17335  df-submnd 17336  df-grp 17425  df-minusg 17426  df-sbg 17427  df-mulg 17541  df-subg 17591  df-ghm 17658  df-cntz 17750  df-cmn 18195  df-abl 18196  df-mgp 18490  df-ur 18502  df-ring 18549  df-subrg 18778  df-lmod 18865  df-lss 18933  df-psr 19356  df-mpl 19358

This theorem is referenced by:  mplbas2  19470  mplcoe4  19503  ply1coe  19666