Theorem mplsubrglem 17497

Description: Lemma for mplsubrg 17499. (Contributed by Mario Carneiro, 9-Jan-2015.) (Revised by AV, 18-Jul-2019.)

Hypotheses

Ref	Expression
mplsubg.s	|- S = ( I mPwSer R )
mplsubg.p	|- P = ( I mPoly R )
mplsubg.u	|- U = ( Base ` P )
mplsubg.i	|- ( ph -> I e. W )
mpllss.r	|- ( ph -> R e. Ring )
mplsubrglem.d	|- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
mplsubrglem.z	|- .0. = ( 0g ` R )
mplsubrglem.p	|- A = ( oF + " ( ( X supp .0. ) X. ( Y supp .0. ) ) )
mplsubrglem.t	|- .x. = ( .r ` R )
mplsubrglem.x	|- ( ph -> X e. U )
mplsubrglem.y	|- ( ph -> Y e. U )

Assertion

Ref	Expression
mplsubrglem	|- ( ph -> ( X ( .r ` S ) Y ) e. U )

Distinct variable groups:   f, I   R, f   S, f   f, X   f, Y   .0. , f

Allowed substitution hints:   ph( f)   A( f)   D( f)   P( f)   .x. ( f)   U( f)   W( f)

Proof of Theorem mplsubrglem

Dummy variables k n x g y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplsubg.s	. . 3 |- S = ( I mPwSer R )
2		eqid 2438	. . 3 |- ( Base ` S ) = ( Base ` S )
3		eqid 2438	. . 3 |- ( .r ` S ) = ( .r ` S )
4		mpllss.r	. . 3 |- ( ph -> R e. Ring )
5		mplsubg.p	. . . . 5 |- P = ( I mPoly R )
6		mplsubg.u	. . . . 5 |- U = ( Base ` P )
7	5, 1, 6, 2	mplbasss 17488	. . . 4 |- U C_ ( Base ` S )
8		mplsubrglem.x	. . . 4 |- ( ph -> X e. U )
9	7, 8	sseldi 3349	. . 3 |- ( ph -> X e. ( Base ` S ) )
10		mplsubrglem.y	. . . 4 |- ( ph -> Y e. U )
11	7, 10	sseldi 3349	. . 3 |- ( ph -> Y e. ( Base ` S ) )
12	1, 2, 3, 4, 9, 11	psrmulcl 17439	. 2 |- ( ph -> ( X ( .r ` S ) Y ) e. ( Base ` S ) )
13		ovex 6111	. . . 4 |- ( X ( .r ` S ) Y ) e. _V
14	13	a1i 11	. . 3 |- ( ph -> ( X ( .r ` S ) Y ) e. _V )
15	1, 2	psrelbasfun 17431	. . . 4 |- ( ( X ( .r ` S ) Y ) e. ( Base ` S ) -> Fun ( X ( .r ` S ) Y ) )
16	12, 15	syl 16	. . 3 |- ( ph -> Fun ( X ( .r ` S ) Y ) )
17		mplsubrglem.z	. . . . 5 |- .0. = ( 0g ` R )
18		fvex 5696	. . . . 5 |- ( 0g ` R ) e. _V
19	17, 18	eqeltri 2508	. . . 4 |- .0. e. _V
20	19	a1i 11	. . 3 |- ( ph -> .0. e. _V )
21		mplsubrglem.p	. . . . 5 |- A = ( oF + " ( ( X supp .0. ) X. ( Y supp .0. ) ) )
22		df-ima 4848	. . . . 5 |- ( oF + " ( ( X supp .0. ) X. ( Y supp .0. ) ) ) = ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) )
23	21, 22	eqtri 2458	. . . 4 |- A = ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) )
24	5, 1, 2, 17, 6	mplelbas 17484	. . . . . . . 8 |- ( X e. U <-> ( X e. ( Base ` S ) /\ X finSupp .0. ) )
25	24	simprbi 464	. . . . . . 7 |- ( X e. U -> X finSupp .0. )
26	8, 25	syl 16	. . . . . 6 |- ( ph -> X finSupp .0. )
27	5, 1, 2, 17, 6	mplelbas 17484	. . . . . . . 8 |- ( Y e. U <-> ( Y e. ( Base ` S ) /\ Y finSupp .0. ) )
28	27	simprbi 464	. . . . . . 7 |- ( Y e. U -> Y finSupp .0. )
29	10, 28	syl 16	. . . . . 6 |- ( ph -> Y finSupp .0. )
30		fsuppxpfi 7629	. . . . . 6 |- ( ( X finSupp .0. /\ Y finSupp .0. ) -> ( ( X supp .0. ) X. ( Y supp .0. ) ) e. Fin )
31	26, 29, 30	syl2anc 661	. . . . 5 |- ( ph -> ( ( X supp .0. ) X. ( Y supp .0. ) ) e. Fin )
32		ofmres 6568	. . . . . . 7 |- ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) = ( f e. ( X supp .0. ) , g e. ( Y supp .0. ) |-> ( f oF + g ) )
33		ovex 6111	. . . . . . 7 |- ( f oF + g ) e. _V
34	32, 33	fnmpt2i 6638	. . . . . 6 |- ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) Fn ( ( X supp .0. ) X. ( Y supp .0. ) )
35		dffn4 5621	. . . . . 6 |- ( ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) Fn ( ( X supp .0. ) X. ( Y supp .0. ) ) <-> ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) : ( ( X supp .0. ) X. ( Y supp .0. ) ) -onto-> ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) )
36	34, 35	mpbi 208	. . . . 5 |- ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) : ( ( X supp .0. ) X. ( Y supp .0. ) ) -onto-> ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) )
37		fofi 7589	. . . . 5 |- ( ( ( ( X supp .0. ) X. ( Y supp .0. ) ) e. Fin /\ ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) : ( ( X supp .0. ) X. ( Y supp .0. ) ) -onto-> ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) ) -> ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) e. Fin )
38	31, 36, 37	sylancl 662	. . . 4 |- ( ph -> ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) e. Fin )
39	23, 38	syl5eqel 2522	. . 3 |- ( ph -> A e. Fin )
40		eqid 2438	. . . . 5 |- ( Base ` R ) = ( Base ` R )
41		mplsubrglem.d	. . . . 5 |- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
42	1, 40, 41, 2, 12	psrelbas 17430	. . . 4 |- ( ph -> ( X ( .r ` S ) Y ) : D --> ( Base ` R ) )
43		mplsubrglem.t	. . . . . 6 |- .x. = ( .r ` R )
44	9	adantr 465	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> X e. ( Base ` S ) )
45	11	adantr 465	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> Y e. ( Base ` S ) )
46		eldifi 3473	. . . . . . 7 |- ( k e. ( D \ A ) -> k e. D )
47	46	adantl 466	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> k e. D )
48	1, 2, 43, 3, 41, 44, 45, 47	psrmulval 17437	. . . . 5 |- ( ( ph /\ k e. ( D \ A ) ) -> ( ( X ( .r ` S ) Y ) ` k ) = ( R gsumg ( x e. { y e. D | y oR <_ k } |-> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) ) ) )
49	4	ad2antrr 725	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> R e. Ring )
50	5, 40, 6, 41, 10	mplelf 17489	. . . . . . . . . . . 12 |- ( ph -> Y : D --> ( Base ` R ) )
51	50	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> Y : D --> ( Base ` R ) )
52		ssrab2 3432	. . . . . . . . . . . 12 |- { y e. D | y oR <_ k } C_ D
53		mplsubg.i	. . . . . . . . . . . . . 14 |- ( ph -> I e. W )
54	53	ad2antrr 725	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> I e. W )
55	47	adantr 465	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> k e. D )
56		simpr 461	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> x e. { y e. D | y oR <_ k } )
57		eqid 2438	. . . . . . . . . . . . . 14 |- { y e. D | y oR <_ k } = { y e. D | y oR <_ k }
58	41, 57	psrbagconcl 17423	. . . . . . . . . . . . 13 |- ( ( I e. W /\ k e. D /\ x e. { y e. D | y oR <_ k } ) -> ( k oF - x ) e. { y e. D | y oR <_ k } )
59	54, 55, 56, 58	syl3anc 1218	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( k oF - x ) e. { y e. D | y oR <_ k } )
60	52, 59	sseldi 3349	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( k oF - x ) e. D )
61	51, 60	ffvelrnd 5839	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( Y ` ( k oF - x ) ) e. ( Base ` R ) )
62	40, 43, 17	rnglz 16671	. . . . . . . . . 10 |- ( ( R e. Ring /\ ( Y ` ( k oF - x ) ) e. ( Base ` R ) ) -> ( .0. .x. ( Y ` ( k oF - x ) ) ) = .0. )
63	49, 61, 62	syl2anc 661	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( .0. .x. ( Y ` ( k oF - x ) ) ) = .0. )
64		oveq1 6093	. . . . . . . . . 10 |- ( ( X ` x ) = .0. -> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = ( .0. .x. ( Y ` ( k oF - x ) ) ) )
65	64	eqeq1d 2446	. . . . . . . . 9 |- ( ( X ` x ) = .0. -> ( ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = .0. <-> ( .0. .x. ( Y ` ( k oF - x ) ) ) = .0. ) )
66	63, 65	syl5ibrcom 222	. . . . . . . 8 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( X ` x ) = .0. -> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = .0. ) )
67	5, 40, 6, 41, 8	mplelf 17489	. . . . . . . . . . . 12 |- ( ph -> X : D --> ( Base ` R ) )
68	67	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> X : D --> ( Base ` R ) )
69	52, 56	sseldi 3349	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> x e. D )
70	68, 69	ffvelrnd 5839	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( X ` x ) e. ( Base ` R ) )
71	40, 43, 17	rngrz 16672	. . . . . . . . . 10 |- ( ( R e. Ring /\ ( X ` x ) e. ( Base ` R ) ) -> ( ( X ` x ) .x. .0. ) = .0. )
72	49, 70, 71	syl2anc 661	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( X ` x ) .x. .0. ) = .0. )
73		oveq2 6094	. . . . . . . . . 10 |- ( ( Y ` ( k oF - x ) ) = .0. -> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = ( ( X ` x ) .x. .0. ) )
74	73	eqeq1d 2446	. . . . . . . . 9 |- ( ( Y ` ( k oF - x ) ) = .0. -> ( ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = .0. <-> ( ( X ` x ) .x. .0. ) = .0. ) )
75	72, 74	syl5ibrcom 222	. . . . . . . 8 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( Y ` ( k oF - x ) ) = .0. -> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = .0. ) )
76	41	psrbagf 17412	. . . . . . . . . . . . . . . . . 18 |- ( ( I e. W /\ x e. D ) -> x : I --> NN0 )
77	54, 69, 76	syl2anc 661	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> x : I --> NN0 )
78	77	ffvelrnda 5838	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ n e. I ) -> ( x ` n ) e. NN0 )
79	41	psrbagf 17412	. . . . . . . . . . . . . . . . . 18 |- ( ( I e. W /\ k e. D ) -> k : I --> NN0 )
80	54, 55, 79	syl2anc 661	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> k : I --> NN0 )
81	80	ffvelrnda 5838	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ n e. I ) -> ( k ` n ) e. NN0 )
82		nn0cn 10581	. . . . . . . . . . . . . . . . 17 |- ( ( x ` n ) e. NN0 -> ( x ` n ) e. CC )
83		nn0cn 10581	. . . . . . . . . . . . . . . . 17 |- ( ( k ` n ) e. NN0 -> ( k ` n ) e. CC )
84		pncan3 9610	. . . . . . . . . . . . . . . . 17 |- ( ( ( x ` n ) e. CC /\ ( k ` n ) e. CC ) -> ( ( x ` n ) + ( ( k ` n ) - ( x ` n ) ) ) = ( k ` n ) )
85	82, 83, 84	syl2an 477	. . . . . . . . . . . . . . . 16 |- ( ( ( x ` n ) e. NN0 /\ ( k ` n ) e. NN0 ) -> ( ( x ` n ) + ( ( k ` n ) - ( x ` n ) ) ) = ( k ` n ) )
86	78, 81, 85	syl2anc 661	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ n e. I ) -> ( ( x ` n ) + ( ( k ` n ) - ( x ` n ) ) ) = ( k ` n ) )
87	86	mpteq2dva 4373	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( n e. I |-> ( ( x ` n ) + ( ( k ` n ) - ( x ` n ) ) ) ) = ( n e. I |-> ( k ` n ) ) )
88		ovex 6111	. . . . . . . . . . . . . . . 16 |- ( ( k ` n ) - ( x ` n ) ) e. _V
89	88	a1i 11	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ n e. I ) -> ( ( k ` n ) - ( x ` n ) ) e. _V )
90	77	feqmptd 5739	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> x = ( n e. I |-> ( x ` n ) ) )
91	80	feqmptd 5739	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> k = ( n e. I |-> ( k ` n ) ) )
92	54, 81, 78, 91, 90	offval2 6331	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( k oF - x ) = ( n e. I |-> ( ( k ` n ) - ( x ` n ) ) ) )
93	54, 78, 89, 90, 92	offval2 6331	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( x oF + ( k oF - x ) ) = ( n e. I |-> ( ( x ` n ) + ( ( k ` n ) - ( x ` n ) ) ) ) )
94	87, 93, 91	3eqtr4d 2480	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( x oF + ( k oF - x ) ) = k )
95		simplr 754	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> k e. ( D \ A ) )
96	94, 95	eqeltrd 2512	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( x oF + ( k oF - x ) ) e. ( D \ A ) )
97	96	eldifbd 3336	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> -. ( x oF + ( k oF - x ) ) e. A )
98		ovres 6225	. . . . . . . . . . . 12 |- ( ( x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) -> ( x ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) ( k oF - x ) ) = ( x oF + ( k oF - x ) ) )
99		fnovrn 6233	. . . . . . . . . . . . . 14 |- ( ( ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) Fn ( ( X supp .0. ) X. ( Y supp .0. ) ) /\ x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) -> ( x ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) ( k oF - x ) ) e. ran ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) )
100	99, 23	syl6eleqr 2529	. . . . . . . . . . . . 13 |- ( ( ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) Fn ( ( X supp .0. ) X. ( Y supp .0. ) ) /\ x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) -> ( x ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) ( k oF - x ) ) e. A )
101	34, 100	mp3an1 1301	. . . . . . . . . . . 12 |- ( ( x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) -> ( x ( oF + |` ( ( X supp .0. ) X. ( Y supp .0. ) ) ) ( k oF - x ) ) e. A )
102	98, 101	eqeltrrd 2513	. . . . . . . . . . 11 |- ( ( x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) -> ( x oF + ( k oF - x ) ) e. A )
103	97, 102	nsyl 121	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> -. ( x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) )
104		ianor 488	. . . . . . . . . 10 |- ( -. ( x e. ( X supp .0. ) /\ ( k oF - x ) e. ( Y supp .0. ) ) <-> ( -. x e. ( X supp .0. ) \/ -. ( k oF - x ) e. ( Y supp .0. ) ) )
105	103, 104	sylib 196	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( -. x e. ( X supp .0. ) \/ -. ( k oF - x ) e. ( Y supp .0. ) ) )
106		eldif 3333	. . . . . . . . . . . . 13 |- ( x e. ( D \ ( X supp .0. ) ) <-> ( x e. D /\ -. x e. ( X supp .0. ) ) )
107	106	baib 896	. . . . . . . . . . . 12 |- ( x e. D -> ( x e. ( D \ ( X supp .0. ) ) <-> -. x e. ( X supp .0. ) ) )
108	69, 107	syl 16	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( x e. ( D \ ( X supp .0. ) ) <-> -. x e. ( X supp .0. ) ) )
109		ssid 3370	. . . . . . . . . . . . . 14 |- ( X supp .0. ) C_ ( X supp .0. )
110	109	a1i 11	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( X supp .0. ) C_ ( X supp .0. ) )
111		ovex 6111	. . . . . . . . . . . . . . 15 |- ( NN0 ^m I ) e. _V
112	41, 111	rabex2 4440	. . . . . . . . . . . . . 14 |- D e. _V
113	112	a1i 11	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> D e. _V )
114	19	a1i 11	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> .0. e. _V )
115	68, 110, 113, 114	suppssr 6715	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ x e. ( D \ ( X supp .0. ) ) ) -> ( X ` x ) = .0. )
116	115	ex 434	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( x e. ( D \ ( X supp .0. ) ) -> ( X ` x ) = .0. ) )
117	108, 116	sylbird 235	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( -. x e. ( X supp .0. ) -> ( X ` x ) = .0. ) )
118		eldif 3333	. . . . . . . . . . . . 13 |- ( ( k oF - x ) e. ( D \ ( Y supp .0. ) ) <-> ( ( k oF - x ) e. D /\ -. ( k oF - x ) e. ( Y supp .0. ) ) )
119	118	baib 896	. . . . . . . . . . . 12 |- ( ( k oF - x ) e. D -> ( ( k oF - x ) e. ( D \ ( Y supp .0. ) ) <-> -. ( k oF - x ) e. ( Y supp .0. ) ) )
120	60, 119	syl 16	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( k oF - x ) e. ( D \ ( Y supp .0. ) ) <-> -. ( k oF - x ) e. ( Y supp .0. ) ) )
121		ssid 3370	. . . . . . . . . . . . . 14 |- ( Y supp .0. ) C_ ( Y supp .0. )
122	121	a1i 11	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( Y supp .0. ) C_ ( Y supp .0. ) )
123	51, 122, 113, 114	suppssr 6715	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) /\ ( k oF - x ) e. ( D \ ( Y supp .0. ) ) ) -> ( Y ` ( k oF - x ) ) = .0. )
124	123	ex 434	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( k oF - x ) e. ( D \ ( Y supp .0. ) ) -> ( Y ` ( k oF - x ) ) = .0. ) )
125	120, 124	sylbird 235	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( -. ( k oF - x ) e. ( Y supp .0. ) -> ( Y ` ( k oF - x ) ) = .0. ) )
126	117, 125	orim12d 834	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( -. x e. ( X supp .0. ) \/ -. ( k oF - x ) e. ( Y supp .0. ) ) -> ( ( X ` x ) = .0. \/ ( Y ` ( k oF - x ) ) = .0. ) ) )
127	105, 126	mpd 15	. . . . . . . 8 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( X ` x ) = .0. \/ ( Y ` ( k oF - x ) ) = .0. ) )
128	66, 75, 127	mpjaod 381	. . . . . . 7 |- ( ( ( ph /\ k e. ( D \ A ) ) /\ x e. { y e. D | y oR <_ k } ) -> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) = .0. )
129	128	mpteq2dva 4373	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> ( x e. { y e. D | y oR <_ k } |-> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) ) = ( x e. { y e. D | y oR <_ k } |-> .0. ) )
130	129	oveq2d 6102	. . . . 5 |- ( ( ph /\ k e. ( D \ A ) ) -> ( R gsumg ( x e. { y e. D | y oR <_ k } |-> ( ( X ` x ) .x. ( Y ` ( k oF - x ) ) ) ) ) = ( R gsumg ( x e. { y e. D | y oR <_ k } |-> .0. ) ) )
131	4	adantr 465	. . . . . . 7 |- ( ( ph /\ k e. ( D \ A ) ) -> R e. Ring )
132		rngmnd 16644	. . . . . . 7 |- ( R e. Ring -> R e. Mnd )
133	131, 132	syl 16	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> R e. Mnd )
134	41	psrbaglefi 17421	. . . . . . 7 |- ( ( I e. W /\ k e. D ) -> { y e. D | y oR <_ k } e. Fin )
135	53, 46, 134	syl2an 477	. . . . . 6 |- ( ( ph /\ k e. ( D \ A ) ) -> { y e. D | y oR <_ k } e. Fin )
136	17	gsumz 15502	. . . . . 6 |- ( ( R e. Mnd /\ { y e. D | y oR <_ k } e. Fin ) -> ( R gsumg ( x e. { y e. D | y oR <_ k } |-> .0. ) ) = .0. )
137	133, 135, 136	syl2anc 661	. . . . 5 |- ( ( ph /\ k e. ( D \ A ) ) -> ( R gsumg ( x e. { y e. D | y oR <_ k } |-> .0. ) ) = .0. )
138	48, 130, 137	3eqtrd 2474	. . . 4 |- ( ( ph /\ k e. ( D \ A ) ) -> ( ( X ( .r ` S ) Y ) ` k ) = .0. )
139	42, 138	suppss 6714	. . 3 |- ( ph -> ( ( X ( .r ` S ) Y ) supp .0. ) C_ A )
140		suppssfifsupp 7627	. . 3 |- ( ( ( ( X ( .r ` S ) Y ) e. _V /\ Fun ( X ( .r ` S ) Y ) /\ .0. e. _V ) /\ ( A e. Fin /\ ( ( X ( .r ` S ) Y ) supp .0. ) C_ A ) ) -> ( X ( .r ` S ) Y ) finSupp .0. )
141	14, 16, 20, 39, 139, 140	syl32anc 1226	. 2 |- ( ph -> ( X ( .r ` S ) Y ) finSupp .0. )
142	5, 1, 2, 17, 6	mplelbas 17484	. 2 |- ( ( X ( .r ` S ) Y ) e. U <-> ( ( X ( .r ` S ) Y ) e. ( Base ` S ) /\ ( X ( .r ` S ) Y ) finSupp .0. ) )
143	12, 141, 142	sylanbrc 664	1 |- ( ph -> ( X ( .r ` S ) Y ) e. U )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   \/ wo 368   /\ wa 369   /\ w3a 965   = wceq 1369   e. wcel 1756   {crab 2714   _Vcvv 2967   \ cdif 3320   C_ wss 3323   class class class wbr 4287   e. cmpt 4345   X. cxp 4833   `'ccnv 4834   ran crn 4836   |` cres 4837   "cima 4838   Fun wfun 5407   Fn wfn 5408   -->wf 5409   -onto->wfo 5411   ` cfv 5413  (class class class)co 6086   oFcof 6313   oRcofr 6314   supp csupp 6685   ^m cmap 7206   Fincfn 7302   finSupp cfsupp 7612   CCcc 9272   + caddc 9277   <_ cle 9411   - cmin 9587   NNcn 10314   NN0cn0 10571   Basecbs 14166   .rcmulr 14231   0gc0g 14370   gsum_g cgsu 14371   Mndcmnd 15401   Ringcrg 16635   mPwSer cmps 17398   mPoly cmpl 17400

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2419  ax-rep 4398  ax-sep 4408  ax-nul 4416  ax-pow 4465  ax-pr 4526  ax-un 6367  ax-cnex 9330  ax-resscn 9331  ax-1cn 9332  ax-icn 9333  ax-addcl 9334  ax-addrcl 9335  ax-mulcl 9336  ax-mulrcl 9337  ax-mulcom 9338  ax-addass 9339  ax-mulass 9340  ax-distr 9341  ax-i2m1 9342  ax-1ne0 9343  ax-1rid 9344  ax-rnegex 9345  ax-rrecex 9346  ax-cnre 9347  ax-pre-lttri 9348  ax-pre-lttrn 9349  ax-pre-ltadd 9350  ax-pre-mulgt0 9351

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-nel 2604  df-ral 2715  df-rex 2716  df-reu 2717  df-rmo 2718  df-rab 2719  df-v 2969  df-sbc 3182  df-csb 3284  df-dif 3326  df-un 3328  df-in 3330  df-ss 3337  df-pss 3339  df-nul 3633  df-if 3787  df-pw 3857  df-sn 3873  df-pr 3875  df-tp 3877  df-op 3879  df-uni 4087  df-int 4124  df-iun 4168  df-br 4288  df-opab 4346  df-mpt 4347  df-tr 4381  df-eprel 4627  df-id 4631  df-po 4636  df-so 4637  df-fr 4674  df-se 4675  df-we 4676  df-ord 4717  df-on 4718  df-lim 4719  df-suc 4720  df-xp 4841  df-rel 4842  df-cnv 4843  df-co 4844  df-dm 4845  df-rn 4846  df-res 4847  df-ima 4848  df-iota 5376  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-isom 5422  df-riota 6047  df-ov 6089  df-oprab 6090  df-mpt2 6091  df-of 6315  df-ofr 6316  df-om 6472  df-1st 6572  df-2nd 6573  df-supp 6686  df-recs 6824  df-rdg 6858  df-1o 6912  df-2o 6913  df-oadd 6916  df-er 7093  df-map 7208  df-pm 7209  df-ixp 7256  df-en 7303  df-dom 7304  df-sdom 7305  df-fin 7306  df-fsupp 7613  df-oi 7716  df-card 8101  df-pnf 9412  df-mnf 9413  df-xr 9414  df-ltxr 9415  df-le 9416  df-sub 9589  df-neg 9590  df-nn 10315  df-2 10372  df-3 10373  df-4 10374  df-5 10375  df-6 10376  df-7 10377  df-8 10378  df-9 10379  df-n0 10572  df-z 10639  df-uz 10854  df-fz 11430  df-fzo 11541  df-seq 11799  df-hash 12096  df-struct 14168  df-ndx 14169  df-slot 14170  df-base 14171  df-sets 14172  df-ress 14173  df-plusg 14243  df-mulr 14244  df-sca 14246  df-vsca 14247  df-tset 14249  df-0g 14372  df-gsum 14373  df-mnd 15407  df-grp 15536  df-minusg 15537  df-cntz 15826  df-cmn 16270  df-abl 16271  df-mgp 16582  df-ur 16594  df-rng 16637  df-psr 17403  df-mpl 17405

This theorem is referenced by:  mplsubrg  17499