Theorem mpfind 19536

Description: Prove a property of polynomials by "structural" induction, under a simplified model of structure which loses the sum of products structure. (Contributed by Mario Carneiro, 19-Mar-2015.)

Hypotheses

Ref	Expression
mpfind.cb	|- B = ( Base ` S )
mpfind.cp	|- .+ = ( +g ` S )
mpfind.ct	|- .x. = ( .r ` S )
mpfind.cq	|- Q = ran ( ( I evalSub S ) ` R )
mpfind.ad	|- ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> ze )
mpfind.mu	|- ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> si )
mpfind.wa	|- ( x = ( ( B ^m I ) X. { f } ) -> ( ps <-> ch ) )
mpfind.wb	|- ( x = ( g e. ( B ^m I ) |-> ( g ` f ) ) -> ( ps <-> th ) )
mpfind.wc	|- ( x = f -> ( ps <-> ta ) )
mpfind.wd	|- ( x = g -> ( ps <-> et ) )
mpfind.we	|- ( x = ( f oF .+ g ) -> ( ps <-> ze ) )
mpfind.wf	|- ( x = ( f oF .x. g ) -> ( ps <-> si ) )
mpfind.wg	|- ( x = A -> ( ps <-> rh ) )
mpfind.co	|- ( ( ph /\ f e. R ) -> ch )
mpfind.pr	|- ( ( ph /\ f e. I ) -> th )
mpfind.a	|- ( ph -> A e. Q )

Assertion

Ref	Expression
mpfind	|- ( ph -> rh )

Distinct variable groups:   ch, x   et, x   ph, f, g   ps, f, g   rh, x   si, x   ta, x   th, x   ze, x   x, A   B, f, g, x   f, I, g, x   .+ , f, g, x   Q, f, g   R, f, g   S, f, g   .x. , f, g, x

Allowed substitution hints:   ph( x)   ps( x)   ch( f, g)   th( f, g)   ta( f, g)   et( f, g)   ze( f, g)   si( f, g)   rh( f, g)   A( f, g)   Q( x)   R( x)   S( x)

Proof of Theorem mpfind

Dummy variables i j y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mpfind.a	. . . . 5 |- ( ph -> A e. Q )
2		mpfind.cq	. . . . 5 |- Q = ran ( ( I evalSub S ) ` R )
3	1, 2	syl6eleq 2711	. . . 4 |- ( ph -> A e. ran ( ( I evalSub S ) ` R ) )
4	2	mpfrcl 19518	. . . . . . . . 9 |- ( A e. Q -> ( I e. _V /\ S e. CRing /\ R e. (SubRing ` S ) ) )
5	1, 4	syl 17	. . . . . . . 8 |- ( ph -> ( I e. _V /\ S e. CRing /\ R e. (SubRing ` S ) ) )
6		eqid 2622	. . . . . . . . 9 |- ( ( I evalSub S ) ` R ) = ( ( I evalSub S ) ` R )
7		eqid 2622	. . . . . . . . 9 |- ( I mPoly ( S ↾s R ) ) = ( I mPoly ( S ↾s R ) )
8		eqid 2622	. . . . . . . . 9 |- ( S ↾s R ) = ( S ↾s R )
9		eqid 2622	. . . . . . . . 9 |- ( S ^s ( B ^m I ) ) = ( S ^s ( B ^m I ) )
10		mpfind.cb	. . . . . . . . 9 |- B = ( Base ` S )
11	6, 7, 8, 9, 10	evlsrhm 19521	. . . . . . . 8 |- ( ( I e. _V /\ S e. CRing /\ R e. (SubRing ` S ) ) -> ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) RingHom ( S ^s ( B ^m I ) ) ) )
12	5, 11	syl 17	. . . . . . 7 |- ( ph -> ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) RingHom ( S ^s ( B ^m I ) ) ) )
13		eqid 2622	. . . . . . . 8 |- ( Base ` ( I mPoly ( S ↾s R ) ) ) = ( Base ` ( I mPoly ( S ↾s R ) ) )
14		eqid 2622	. . . . . . . 8 |- ( Base ` ( S ^s ( B ^m I ) ) ) = ( Base ` ( S ^s ( B ^m I ) ) )
15	13, 14	rhmf 18726	. . . . . . 7 |- ( ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) RingHom ( S ^s ( B ^m I ) ) ) -> ( ( I evalSub S ) ` R ) : ( Base ` ( I mPoly ( S ↾s R ) ) ) --> ( Base ` ( S ^s ( B ^m I ) ) ) )
16	12, 15	syl 17	. . . . . 6 |- ( ph -> ( ( I evalSub S ) ` R ) : ( Base ` ( I mPoly ( S ↾s R ) ) ) --> ( Base ` ( S ^s ( B ^m I ) ) ) )
17		ffn 6045	. . . . . 6 |- ( ( ( I evalSub S ) ` R ) : ( Base ` ( I mPoly ( S ↾s R ) ) ) --> ( Base ` ( S ^s ( B ^m I ) ) ) -> ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) )
18	16, 17	syl 17	. . . . 5 |- ( ph -> ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) )
19		fvelrnb 6243	. . . . 5 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( A e. ran ( ( I evalSub S ) ` R ) <-> E. y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ( ( ( I evalSub S ) ` R ) ` y ) = A ) )
20	18, 19	syl 17	. . . 4 |- ( ph -> ( A e. ran ( ( I evalSub S ) ` R ) <-> E. y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ( ( ( I evalSub S ) ` R ) ` y ) = A ) )
21	3, 20	mpbid 222	. . 3 |- ( ph -> E. y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ( ( ( I evalSub S ) ` R ) ` y ) = A )
22		ffun 6048	. . . . . . . 8 |- ( ( ( I evalSub S ) ` R ) : ( Base ` ( I mPoly ( S ↾s R ) ) ) --> ( Base ` ( S ^s ( B ^m I ) ) ) -> Fun ( ( I evalSub S ) ` R ) )
23	16, 22	syl 17	. . . . . . 7 |- ( ph -> Fun ( ( I evalSub S ) ` R ) )
24	23	adantr 481	. . . . . 6 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> Fun ( ( I evalSub S ) ` R ) )
25		eqid 2622	. . . . . . 7 |- ( Base ` ( S ↾s R ) ) = ( Base ` ( S ↾s R ) )
26		eqid 2622	. . . . . . 7 |- ( I mVar ( S ↾s R ) ) = ( I mVar ( S ↾s R ) )
27		eqid 2622	. . . . . . 7 |- ( +g ` ( I mPoly ( S ↾s R ) ) ) = ( +g ` ( I mPoly ( S ↾s R ) ) )
28		eqid 2622	. . . . . . 7 |- ( .r ` ( I mPoly ( S ↾s R ) ) ) = ( .r ` ( I mPoly ( S ↾s R ) ) )
29		eqid 2622	. . . . . . 7 |- (algSc ` ( I mPoly ( S ↾s R ) ) ) = (algSc ` ( I mPoly ( S ↾s R ) ) )
30	5	simp1d 1073	. . . . . . . . . . . 12 |- ( ph -> I e. _V )
31	5	simp2d 1074	. . . . . . . . . . . . . 14 |- ( ph -> S e. CRing )
32	5	simp3d 1075	. . . . . . . . . . . . . 14 |- ( ph -> R e. (SubRing ` S ) )
33	8	subrgcrng 18784	. . . . . . . . . . . . . 14 |- ( ( S e. CRing /\ R e. (SubRing ` S ) ) -> ( S ↾s R ) e. CRing )
34	31, 32, 33	syl2anc 693	. . . . . . . . . . . . 13 |- ( ph -> ( S ↾s R ) e. CRing )
35		crngring 18558	. . . . . . . . . . . . 13 |- ( ( S ↾s R ) e. CRing -> ( S ↾s R ) e. Ring )
36	34, 35	syl 17	. . . . . . . . . . . 12 |- ( ph -> ( S ↾s R ) e. Ring )
37	7	mplring 19452	. . . . . . . . . . . 12 |- ( ( I e. _V /\ ( S ↾s R ) e. Ring ) -> ( I mPoly ( S ↾s R ) ) e. Ring )
38	30, 36, 37	syl2anc 693	. . . . . . . . . . 11 |- ( ph -> ( I mPoly ( S ↾s R ) ) e. Ring )
39	38	adantr 481	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( I mPoly ( S ↾s R ) ) e. Ring )
40		simprl 794	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
41		elpreima 6337	. . . . . . . . . . . . . 14 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) ) )
42	18, 41	syl 17	. . . . . . . . . . . . 13 |- ( ph -> ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) ) )
43	42	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) ) )
44	40, 43	mpbid 222	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) )
45	44	simpld 475	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
46		simprr 796	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
47		elpreima 6337	. . . . . . . . . . . . . 14 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) )
48	18, 47	syl 17	. . . . . . . . . . . . 13 |- ( ph -> ( j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) )
49	48	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) )
50	46, 49	mpbid 222	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) )
51	50	simpld 475	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
52	13, 27	ringacl 18578	. . . . . . . . . 10 |- ( ( ( I mPoly ( S ↾s R ) ) e. Ring /\ i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
53	39, 45, 51, 52	syl3anc 1326	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
54		rhmghm 18725	. . . . . . . . . . . . . 14 |- ( ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) RingHom ( S ^s ( B ^m I ) ) ) -> ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) GrpHom ( S ^s ( B ^m I ) ) ) )
55	12, 54	syl 17	. . . . . . . . . . . . 13 |- ( ph -> ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) GrpHom ( S ^s ( B ^m I ) ) ) )
56	55	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) GrpHom ( S ^s ( B ^m I ) ) ) )
57		eqid 2622	. . . . . . . . . . . . 13 |- ( +g ` ( S ^s ( B ^m I ) ) ) = ( +g ` ( S ^s ( B ^m I ) ) )
58	13, 27, 57	ghmlin 17665	. . . . . . . . . . . 12 |- ( ( ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) GrpHom ( S ^s ( B ^m I ) ) ) /\ i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) ( +g ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) )
59	56, 45, 51, 58	syl3anc 1326	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) ( +g ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) )
60	31	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> S e. CRing )
61		ovexd 6680	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( B ^m I ) e. _V )
62	16	adantr 481	. . . . . . . . . . . . 13 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( I evalSub S ) ` R ) : ( Base ` ( I mPoly ( S ↾s R ) ) ) --> ( Base ` ( S ^s ( B ^m I ) ) ) )
63	62, 45	ffvelrnd 6360	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. ( Base ` ( S ^s ( B ^m I ) ) ) )
64	62, 51	ffvelrnd 6360	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. ( Base ` ( S ^s ( B ^m I ) ) ) )
65		mpfind.cp	. . . . . . . . . . . 12 |- .+ = ( +g ` S )
66	9, 14, 60, 61, 63, 64, 65, 57	pwsplusgval 16150	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) ( +g ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) )
67	59, 66	eqtrd 2656	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) )
68		simpl 473	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ph )
69	18	adantr 481	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) )
70		fnfvelrn 6356	. . . . . . . . . . . . . 14 |- ( ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. ran ( ( I evalSub S ) ` R ) )
71	69, 45, 70	syl2anc 693	. . . . . . . . . . . . 13 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. ran ( ( I evalSub S ) ` R ) )
72	71, 2	syl6eleqr 2712	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. Q )
73	23	adantr 481	. . . . . . . . . . . . 13 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> Fun ( ( I evalSub S ) ` R ) )
74		fvimacnvi 6331	. . . . . . . . . . . . 13 |- ( ( Fun ( ( I evalSub S ) ` R ) /\ i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } )
75	73, 40, 74	syl2anc 693	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } )
76	72, 75	jca 554	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) )
77		fnfvelrn 6356	. . . . . . . . . . . . . 14 |- ( ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. ran ( ( I evalSub S ) ` R ) )
78	69, 51, 77	syl2anc 693	. . . . . . . . . . . . 13 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. ran ( ( I evalSub S ) ` R ) )
79	78, 2	syl6eleqr 2712	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. Q )
80		fvimacnvi 6331	. . . . . . . . . . . . 13 |- ( ( Fun ( ( I evalSub S ) ` R ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } )
81	73, 46, 80	syl2anc 693	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } )
82	79, 81	jca 554	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) )
83		fvex 6201	. . . . . . . . . . . 12 |- ( ( ( I evalSub S ) ` R ) ` i ) e. _V
84		fvex 6201	. . . . . . . . . . . 12 |- ( ( ( I evalSub S ) ` R ) ` j ) e. _V
85		eleq1 2689	. . . . . . . . . . . . . . . 16 |- ( f = ( ( ( I evalSub S ) ` R ) ` i ) -> ( f e. Q <-> ( ( ( I evalSub S ) ` R ) ` i ) e. Q ) )
86		vex 3203	. . . . . . . . . . . . . . . . . 18 |- f e. _V
87		mpfind.wc	. . . . . . . . . . . . . . . . . 18 |- ( x = f -> ( ps <-> ta ) )
88	86, 87	elab 3350	. . . . . . . . . . . . . . . . 17 |- ( f e. { x | ps } <-> ta )
89		eleq1 2689	. . . . . . . . . . . . . . . . 17 |- ( f = ( ( ( I evalSub S ) ` R ) ` i ) -> ( f e. { x | ps } <-> ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) )
90	88, 89	syl5bbr 274	. . . . . . . . . . . . . . . 16 |- ( f = ( ( ( I evalSub S ) ` R ) ` i ) -> ( ta <-> ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) )
91	85, 90	anbi12d 747	. . . . . . . . . . . . . . 15 |- ( f = ( ( ( I evalSub S ) ` R ) ` i ) -> ( ( f e. Q /\ ta ) <-> ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) ) )
92		eleq1 2689	. . . . . . . . . . . . . . . 16 |- ( g = ( ( ( I evalSub S ) ` R ) ` j ) -> ( g e. Q <-> ( ( ( I evalSub S ) ` R ) ` j ) e. Q ) )
93		vex 3203	. . . . . . . . . . . . . . . . . 18 |- g e. _V
94		mpfind.wd	. . . . . . . . . . . . . . . . . 18 |- ( x = g -> ( ps <-> et ) )
95	93, 94	elab 3350	. . . . . . . . . . . . . . . . 17 |- ( g e. { x | ps } <-> et )
96		eleq1 2689	. . . . . . . . . . . . . . . . 17 |- ( g = ( ( ( I evalSub S ) ` R ) ` j ) -> ( g e. { x | ps } <-> ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) )
97	95, 96	syl5bbr 274	. . . . . . . . . . . . . . . 16 |- ( g = ( ( ( I evalSub S ) ` R ) ` j ) -> ( et <-> ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) )
98	92, 97	anbi12d 747	. . . . . . . . . . . . . . 15 |- ( g = ( ( ( I evalSub S ) ` R ) ` j ) -> ( ( g e. Q /\ et ) <-> ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) )
99	91, 98	bi2anan9 917	. . . . . . . . . . . . . 14 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) <-> ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) )
100	99	anbi2d 740	. . . . . . . . . . . . 13 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) <-> ( ph /\ ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) ) )
101		ovex 6678	. . . . . . . . . . . . . . 15 |- ( f oF .+ g ) e. _V
102		mpfind.we	. . . . . . . . . . . . . . 15 |- ( x = ( f oF .+ g ) -> ( ps <-> ze ) )
103	101, 102	elab 3350	. . . . . . . . . . . . . 14 |- ( ( f oF .+ g ) e. { x | ps } <-> ze )
104		oveq12 6659	. . . . . . . . . . . . . . 15 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( f oF .+ g ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) )
105	104	eleq1d 2686	. . . . . . . . . . . . . 14 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( f oF .+ g ) e. { x | ps } <-> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) )
106	103, 105	syl5bbr 274	. . . . . . . . . . . . 13 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ze <-> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) )
107	100, 106	imbi12d 334	. . . . . . . . . . . 12 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> ze ) <-> ( ( ph /\ ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) ) )
108		mpfind.ad	. . . . . . . . . . . 12 |- ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> ze )
109	83, 84, 107, 108	vtocl2 3261	. . . . . . . . . . 11 |- ( ( ph /\ ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } )
110	68, 76, 82, 109	syl12anc 1324	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .+ ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } )
111	67, 110	eqeltrd 2701	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } )
112		elpreima 6337	. . . . . . . . . . 11 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
113	18, 112	syl 17	. . . . . . . . . 10 |- ( ph -> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
114	113	adantr 481	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
115	53, 111, 114	mpbir2and 957	. . . . . . . 8 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
116	115	adantlr 751	. . . . . . 7 |- ( ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( +g ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
117	13, 28	ringcl 18561	. . . . . . . . . 10 |- ( ( ( I mPoly ( S ↾s R ) ) e. Ring /\ i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
118	39, 45, 51, 117	syl3anc 1326	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
119		eqid 2622	. . . . . . . . . . . . . . 15 |- (mulGrp ` ( I mPoly ( S ↾s R ) ) ) = (mulGrp ` ( I mPoly ( S ↾s R ) ) )
120		eqid 2622	. . . . . . . . . . . . . . 15 |- (mulGrp ` ( S ^s ( B ^m I ) ) ) = (mulGrp ` ( S ^s ( B ^m I ) ) )
121	119, 120	rhmmhm 18722	. . . . . . . . . . . . . 14 |- ( ( ( I evalSub S ) ` R ) e. ( ( I mPoly ( S ↾s R ) ) RingHom ( S ^s ( B ^m I ) ) ) -> ( ( I evalSub S ) ` R ) e. ( (mulGrp ` ( I mPoly ( S ↾s R ) ) ) MndHom (mulGrp ` ( S ^s ( B ^m I ) ) ) ) )
122	12, 121	syl 17	. . . . . . . . . . . . 13 |- ( ph -> ( ( I evalSub S ) ` R ) e. ( (mulGrp ` ( I mPoly ( S ↾s R ) ) ) MndHom (mulGrp ` ( S ^s ( B ^m I ) ) ) ) )
123	122	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( I evalSub S ) ` R ) e. ( (mulGrp ` ( I mPoly ( S ↾s R ) ) ) MndHom (mulGrp ` ( S ^s ( B ^m I ) ) ) ) )
124	119, 13	mgpbas 18495	. . . . . . . . . . . . 13 |- ( Base ` ( I mPoly ( S ↾s R ) ) ) = ( Base ` (mulGrp ` ( I mPoly ( S ↾s R ) ) ) )
125	119, 28	mgpplusg 18493	. . . . . . . . . . . . 13 |- ( .r ` ( I mPoly ( S ↾s R ) ) ) = ( +g ` (mulGrp ` ( I mPoly ( S ↾s R ) ) ) )
126		eqid 2622	. . . . . . . . . . . . . 14 |- ( .r ` ( S ^s ( B ^m I ) ) ) = ( .r ` ( S ^s ( B ^m I ) ) )
127	120, 126	mgpplusg 18493	. . . . . . . . . . . . 13 |- ( .r ` ( S ^s ( B ^m I ) ) ) = ( +g ` (mulGrp ` ( S ^s ( B ^m I ) ) ) )
128	124, 125, 127	mhmlin 17342	. . . . . . . . . . . 12 |- ( ( ( ( I evalSub S ) ` R ) e. ( (mulGrp ` ( I mPoly ( S ↾s R ) ) ) MndHom (mulGrp ` ( S ^s ( B ^m I ) ) ) ) /\ i e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ j e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) ( .r ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) )
129	123, 45, 51, 128	syl3anc 1326	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) ( .r ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) )
130		mpfind.ct	. . . . . . . . . . . 12 |- .x. = ( .r ` S )
131	9, 14, 60, 61, 63, 64, 130, 126	pwsmulrval 16151	. . . . . . . . . . 11 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) ( .r ` ( S ^s ( B ^m I ) ) ) ( ( ( I evalSub S ) ` R ) ` j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) )
132	129, 131	eqtrd 2656	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) )
133		ovex 6678	. . . . . . . . . . . . . . 15 |- ( f oF .x. g ) e. _V
134		mpfind.wf	. . . . . . . . . . . . . . 15 |- ( x = ( f oF .x. g ) -> ( ps <-> si ) )
135	133, 134	elab 3350	. . . . . . . . . . . . . 14 |- ( ( f oF .x. g ) e. { x | ps } <-> si )
136		oveq12 6659	. . . . . . . . . . . . . . 15 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( f oF .x. g ) = ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) )
137	136	eleq1d 2686	. . . . . . . . . . . . . 14 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( f oF .x. g ) e. { x | ps } <-> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) )
138	135, 137	syl5bbr 274	. . . . . . . . . . . . 13 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( si <-> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) )
139	100, 138	imbi12d 334	. . . . . . . . . . . 12 |- ( ( f = ( ( ( I evalSub S ) ` R ) ` i ) /\ g = ( ( ( I evalSub S ) ` R ) ` j ) ) -> ( ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> si ) <-> ( ( ph /\ ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } ) ) )
140		mpfind.mu	. . . . . . . . . . . 12 |- ( ( ph /\ ( ( f e. Q /\ ta ) /\ ( g e. Q /\ et ) ) ) -> si )
141	83, 84, 139, 140	vtocl2 3261	. . . . . . . . . . 11 |- ( ( ph /\ ( ( ( ( ( I evalSub S ) ` R ) ` i ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` i ) e. { x | ps } ) /\ ( ( ( ( I evalSub S ) ` R ) ` j ) e. Q /\ ( ( ( I evalSub S ) ` R ) ` j ) e. { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } )
142	68, 76, 82, 141	syl12anc 1324	. . . . . . . . . 10 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` i ) oF .x. ( ( ( I evalSub S ) ` R ) ` j ) ) e. { x | ps } )
143	132, 142	eqeltrd 2701	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } )
144		elpreima 6337	. . . . . . . . . . 11 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
145	18, 144	syl 17	. . . . . . . . . 10 |- ( ph -> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
146	145	adantr 481	. . . . . . . . 9 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) ) e. { x | ps } ) ) )
147	118, 143, 146	mpbir2and 957	. . . . . . . 8 |- ( ( ph /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
148	147	adantlr 751	. . . . . . 7 |- ( ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) /\ ( i e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) /\ j e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) ) -> ( i ( .r ` ( I mPoly ( S ↾s R ) ) ) j ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
149	7	mplassa 19454	. . . . . . . . . . . . . 14 |- ( ( I e. _V /\ ( S ↾s R ) e. CRing ) -> ( I mPoly ( S ↾s R ) ) e. AssAlg )
150	30, 34, 149	syl2anc 693	. . . . . . . . . . . . 13 |- ( ph -> ( I mPoly ( S ↾s R ) ) e. AssAlg )
151		eqid 2622	. . . . . . . . . . . . . 14 |- (Scalar ` ( I mPoly ( S ↾s R ) ) ) = (Scalar ` ( I mPoly ( S ↾s R ) ) )
152	29, 151	asclrhm 19342	. . . . . . . . . . . . 13 |- ( ( I mPoly ( S ↾s R ) ) e. AssAlg -> (algSc ` ( I mPoly ( S ↾s R ) ) ) e. ( (Scalar ` ( I mPoly ( S ↾s R ) ) ) RingHom ( I mPoly ( S ↾s R ) ) ) )
153	150, 152	syl 17	. . . . . . . . . . . 12 |- ( ph -> (algSc ` ( I mPoly ( S ↾s R ) ) ) e. ( (Scalar ` ( I mPoly ( S ↾s R ) ) ) RingHom ( I mPoly ( S ↾s R ) ) ) )
154		eqid 2622	. . . . . . . . . . . . 13 |- ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) = ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) )
155	154, 13	rhmf 18726	. . . . . . . . . . . 12 |- ( (algSc ` ( I mPoly ( S ↾s R ) ) ) e. ( (Scalar ` ( I mPoly ( S ↾s R ) ) ) RingHom ( I mPoly ( S ↾s R ) ) ) -> (algSc ` ( I mPoly ( S ↾s R ) ) ) : ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) --> ( Base ` ( I mPoly ( S ↾s R ) ) ) )
156	153, 155	syl 17	. . . . . . . . . . 11 |- ( ph -> (algSc ` ( I mPoly ( S ↾s R ) ) ) : ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) --> ( Base ` ( I mPoly ( S ↾s R ) ) ) )
157	156	adantr 481	. . . . . . . . . 10 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> (algSc ` ( I mPoly ( S ↾s R ) ) ) : ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) --> ( Base ` ( I mPoly ( S ↾s R ) ) ) )
158	7, 30, 34	mplsca 19445	. . . . . . . . . . . . 13 |- ( ph -> ( S ↾s R ) = (Scalar ` ( I mPoly ( S ↾s R ) ) ) )
159	158	fveq2d 6195	. . . . . . . . . . . 12 |- ( ph -> ( Base ` ( S ↾s R ) ) = ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) )
160	159	eleq2d 2687	. . . . . . . . . . 11 |- ( ph -> ( i e. ( Base ` ( S ↾s R ) ) <-> i e. ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) ) )
161	160	biimpa 501	. . . . . . . . . 10 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> i e. ( Base ` (Scalar ` ( I mPoly ( S ↾s R ) ) ) ) )
162	157, 161	ffvelrnd 6360	. . . . . . . . 9 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
163	30	adantr 481	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> I e. _V )
164	31	adantr 481	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> S e. CRing )
165	32	adantr 481	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> R e. (SubRing ` S ) )
166	10	subrgss 18781	. . . . . . . . . . . . . . 15 |- ( R e. (SubRing ` S ) -> R C_ B )
167	32, 166	syl 17	. . . . . . . . . . . . . 14 |- ( ph -> R C_ B )
168	8, 10	ressbas2 15931	. . . . . . . . . . . . . 14 |- ( R C_ B -> R = ( Base ` ( S ↾s R ) ) )
169	167, 168	syl 17	. . . . . . . . . . . . 13 |- ( ph -> R = ( Base ` ( S ↾s R ) ) )
170	169	eleq2d 2687	. . . . . . . . . . . 12 |- ( ph -> ( i e. R <-> i e. ( Base ` ( S ↾s R ) ) ) )
171	170	biimpar 502	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> i e. R )
172	6, 7, 8, 10, 29, 163, 164, 165, 171	evlssca 19522	. . . . . . . . . 10 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) ) = ( ( B ^m I ) X. { i } ) )
173		mpfind.co	. . . . . . . . . . . . . 14 |- ( ( ph /\ f e. R ) -> ch )
174	173	ralrimiva 2966	. . . . . . . . . . . . 13 |- ( ph -> A. f e. R ch )
175		ovex 6678	. . . . . . . . . . . . . . . . 17 |- ( B ^m I ) e. _V
176		snex 4908	. . . . . . . . . . . . . . . . 17 |- { f } e. _V
177	175, 176	xpex 6962	. . . . . . . . . . . . . . . 16 |- ( ( B ^m I ) X. { f } ) e. _V
178		mpfind.wa	. . . . . . . . . . . . . . . 16 |- ( x = ( ( B ^m I ) X. { f } ) -> ( ps <-> ch ) )
179	177, 178	elab 3350	. . . . . . . . . . . . . . 15 |- ( ( ( B ^m I ) X. { f } ) e. { x | ps } <-> ch )
180		sneq 4187	. . . . . . . . . . . . . . . . 17 |- ( f = i -> { f } = { i } )
181	180	xpeq2d 5139	. . . . . . . . . . . . . . . 16 |- ( f = i -> ( ( B ^m I ) X. { f } ) = ( ( B ^m I ) X. { i } ) )
182	181	eleq1d 2686	. . . . . . . . . . . . . . 15 |- ( f = i -> ( ( ( B ^m I ) X. { f } ) e. { x | ps } <-> ( ( B ^m I ) X. { i } ) e. { x | ps } ) )
183	179, 182	syl5bbr 274	. . . . . . . . . . . . . 14 |- ( f = i -> ( ch <-> ( ( B ^m I ) X. { i } ) e. { x | ps } ) )
184	183	cbvralv 3171	. . . . . . . . . . . . 13 |- ( A. f e. R ch <-> A. i e. R ( ( B ^m I ) X. { i } ) e. { x | ps } )
185	174, 184	sylib 208	. . . . . . . . . . . 12 |- ( ph -> A. i e. R ( ( B ^m I ) X. { i } ) e. { x | ps } )
186	185	r19.21bi 2932	. . . . . . . . . . 11 |- ( ( ph /\ i e. R ) -> ( ( B ^m I ) X. { i } ) e. { x | ps } )
187	171, 186	syldan 487	. . . . . . . . . 10 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( ( B ^m I ) X. { i } ) e. { x | ps } )
188	172, 187	eqeltrd 2701	. . . . . . . . 9 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( ( ( I evalSub S ) ` R ) ` ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) ) e. { x | ps } )
189		elpreima 6337	. . . . . . . . . . 11 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) ) e. { x | ps } ) ) )
190	18, 189	syl 17	. . . . . . . . . 10 |- ( ph -> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) ) e. { x | ps } ) ) )
191	190	adantr 481	. . . . . . . . 9 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) ) e. { x | ps } ) ) )
192	162, 188, 191	mpbir2and 957	. . . . . . . 8 |- ( ( ph /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
193	192	adantlr 751	. . . . . . 7 |- ( ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) /\ i e. ( Base ` ( S ↾s R ) ) ) -> ( (algSc ` ( I mPoly ( S ↾s R ) ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
194	30	adantr 481	. . . . . . . . . 10 |- ( ( ph /\ i e. I ) -> I e. _V )
195	36	adantr 481	. . . . . . . . . 10 |- ( ( ph /\ i e. I ) -> ( S ↾s R ) e. Ring )
196		simpr 477	. . . . . . . . . 10 |- ( ( ph /\ i e. I ) -> i e. I )
197	7, 26, 13, 194, 195, 196	mvrcl 19449	. . . . . . . . 9 |- ( ( ph /\ i e. I ) -> ( ( I mVar ( S ↾s R ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
198	31	adantr 481	. . . . . . . . . . 11 |- ( ( ph /\ i e. I ) -> S e. CRing )
199	32	adantr 481	. . . . . . . . . . 11 |- ( ( ph /\ i e. I ) -> R e. (SubRing ` S ) )
200	6, 26, 8, 10, 194, 198, 199, 196	evlsvar 19523	. . . . . . . . . 10 |- ( ( ph /\ i e. I ) -> ( ( ( I evalSub S ) ` R ) ` ( ( I mVar ( S ↾s R ) ) ` i ) ) = ( g e. ( B ^m I ) |-> ( g ` i ) ) )
201		mpfind.pr	. . . . . . . . . . . . . 14 |- ( ( ph /\ f e. I ) -> th )
202	175	mptex 6486	. . . . . . . . . . . . . . 15 |- ( g e. ( B ^m I ) |-> ( g ` f ) ) e. _V
203		mpfind.wb	. . . . . . . . . . . . . . 15 |- ( x = ( g e. ( B ^m I ) |-> ( g ` f ) ) -> ( ps <-> th ) )
204	202, 203	elab 3350	. . . . . . . . . . . . . 14 |- ( ( g e. ( B ^m I ) |-> ( g ` f ) ) e. { x | ps } <-> th )
205	201, 204	sylibr 224	. . . . . . . . . . . . 13 |- ( ( ph /\ f e. I ) -> ( g e. ( B ^m I ) |-> ( g ` f ) ) e. { x | ps } )
206	205	ralrimiva 2966	. . . . . . . . . . . 12 |- ( ph -> A. f e. I ( g e. ( B ^m I ) |-> ( g ` f ) ) e. { x | ps } )
207		fveq2 6191	. . . . . . . . . . . . . . 15 |- ( f = i -> ( g ` f ) = ( g ` i ) )
208	207	mpteq2dv 4745	. . . . . . . . . . . . . 14 |- ( f = i -> ( g e. ( B ^m I ) |-> ( g ` f ) ) = ( g e. ( B ^m I ) |-> ( g ` i ) ) )
209	208	eleq1d 2686	. . . . . . . . . . . . 13 |- ( f = i -> ( ( g e. ( B ^m I ) |-> ( g ` f ) ) e. { x | ps } <-> ( g e. ( B ^m I ) |-> ( g ` i ) ) e. { x | ps } ) )
210	209	cbvralv 3171	. . . . . . . . . . . 12 |- ( A. f e. I ( g e. ( B ^m I ) |-> ( g ` f ) ) e. { x | ps } <-> A. i e. I ( g e. ( B ^m I ) |-> ( g ` i ) ) e. { x | ps } )
211	206, 210	sylib 208	. . . . . . . . . . 11 |- ( ph -> A. i e. I ( g e. ( B ^m I ) |-> ( g ` i ) ) e. { x | ps } )
212	211	r19.21bi 2932	. . . . . . . . . 10 |- ( ( ph /\ i e. I ) -> ( g e. ( B ^m I ) |-> ( g ` i ) ) e. { x | ps } )
213	200, 212	eqeltrd 2701	. . . . . . . . 9 |- ( ( ph /\ i e. I ) -> ( ( ( I evalSub S ) ` R ) ` ( ( I mVar ( S ↾s R ) ) ` i ) ) e. { x | ps } )
214		elpreima 6337	. . . . . . . . . . 11 |- ( ( ( I evalSub S ) ` R ) Fn ( Base ` ( I mPoly ( S ↾s R ) ) ) -> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( ( I mVar ( S ↾s R ) ) ` i ) ) e. { x | ps } ) ) )
215	18, 214	syl 17	. . . . . . . . . 10 |- ( ph -> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( ( I mVar ( S ↾s R ) ) ` i ) ) e. { x | ps } ) ) )
216	215	adantr 481	. . . . . . . . 9 |- ( ( ph /\ i e. I ) -> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) <-> ( ( ( I mVar ( S ↾s R ) ) ` i ) e. ( Base ` ( I mPoly ( S ↾s R ) ) ) /\ ( ( ( I evalSub S ) ` R ) ` ( ( I mVar ( S ↾s R ) ) ` i ) ) e. { x | ps } ) ) )
217	197, 213, 216	mpbir2and 957	. . . . . . . 8 |- ( ( ph /\ i e. I ) -> ( ( I mVar ( S ↾s R ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
218	217	adantlr 751	. . . . . . 7 |- ( ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) /\ i e. I ) -> ( ( I mVar ( S ↾s R ) ) ` i ) e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
219		simpr 477	. . . . . . 7 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) )
220	30	adantr 481	. . . . . . 7 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> I e. _V )
221	34	adantr 481	. . . . . . 7 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( S ↾s R ) e. CRing )
222	25, 26, 7, 27, 28, 29, 13, 116, 148, 193, 218, 219, 220, 221	mplind 19502	. . . . . 6 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> y e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) )
223		fvimacnvi 6331	. . . . . 6 |- ( ( Fun ( ( I evalSub S ) ` R ) /\ y e. ( `' ( ( I evalSub S ) ` R ) " { x | ps } ) ) -> ( ( ( I evalSub S ) ` R ) ` y ) e. { x | ps } )
224	24, 222, 223	syl2anc 693	. . . . 5 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( I evalSub S ) ` R ) ` y ) e. { x | ps } )
225		eleq1 2689	. . . . 5 |- ( ( ( ( I evalSub S ) ` R ) ` y ) = A -> ( ( ( ( I evalSub S ) ` R ) ` y ) e. { x | ps } <-> A e. { x | ps } ) )
226	224, 225	syl5ibcom 235	. . . 4 |- ( ( ph /\ y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ) -> ( ( ( ( I evalSub S ) ` R ) ` y ) = A -> A e. { x | ps } ) )
227	226	rexlimdva 3031	. . 3 |- ( ph -> ( E. y e. ( Base ` ( I mPoly ( S ↾s R ) ) ) ( ( ( I evalSub S ) ` R ) ` y ) = A -> A e. { x | ps } ) )
228	21, 227	mpd 15	. 2 |- ( ph -> A e. { x | ps } )
229		mpfind.wg	. . . 4 |- ( x = A -> ( ps <-> rh ) )
230	229	elabg 3351	. . 3 |- ( A e. Q -> ( A e. { x | ps } <-> rh ) )
231	1, 230	syl 17	. 2 |- ( ph -> ( A e. { x | ps } <-> rh ) )
232	228, 231	mpbid 222	1 |- ( ph -> rh )

Syntax hints:   -> wi 4   <-> wb 196   /\ wa 384   /\ w3a 1037   = wceq 1483   e. wcel 1990   {cab 2608   A.wral 2912   E.wrex 2913   _Vcvv 3200   C_ wss 3574   {csn 4177   |-> cmpt 4729   X. cxp 5112   `'ccnv 5113   ran crn 5115   "cima 5117   Fun wfun 5882   Fn wfn 5883   -->wf 5884   ` cfv 5888  (class class class)co 6650   oFcof 6895   ^m cmap 7857   Basecbs 15857   ↾_s cress 15858   +g cplusg 15941   .rcmulr 15942  Scalarcsca 15944   ^_s cpws 16107   MndHom cmhm 17333   GrpHom cghm 17657  mulGrpcmgp 18489   Ringcrg 18547   CRingccrg 18548   RingHom crh 18712  SubRingcsubrg 18776  AssAlgcasa 19309  algSccascl 19311   mVar cmvr 19352   mPoly cmpl 19353   evalSub ces 19504

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-sup 8348  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-dec 11494  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-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-hom 15966  df-cco 15967  df-0g 16102  df-gsum 16103  df-prds 16108  df-pws 16110  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-srg 18506  df-ring 18549  df-cring 18550  df-rnghom 18715  df-subrg 18778  df-lmod 18865  df-lss 18933  df-lsp 18972  df-assa 19312  df-asp 19313  df-ascl 19314  df-psr 19356  df-mvr 19357  df-mpl 19358  df-evls 19506

This theorem is referenced by:  pf1ind  19719  mzpmfp  37310