MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fta1g Structured version   Unicode version

Theorem fta1g 21608
Description: The one-sided fundamental theorem of algebra. A polynomial of degree  n has at most  n roots. Unlike the real fundamental theorem fta 22386, which is only true in  CC and other algebraically closed fields, this is true in any integral domain. (Contributed by Mario Carneiro, 12-Jun-2015.)
Hypotheses
Ref Expression
fta1g.p  |-  P  =  (Poly1 `  R )
fta1g.b  |-  B  =  ( Base `  P
)
fta1g.d  |-  D  =  ( deg1  `  R )
fta1g.o  |-  O  =  (eval1 `  R )
fta1g.w  |-  W  =  ( 0g `  R
)
fta1g.z  |-  .0.  =  ( 0g `  P )
fta1g.1  |-  ( ph  ->  R  e. IDomn )
fta1g.2  |-  ( ph  ->  F  e.  B )
fta1g.3  |-  ( ph  ->  F  =/=  .0.  )
Assertion
Ref Expression
fta1g  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) )

Proof of Theorem fta1g
Dummy variables  f 
d  g  x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2437 . 2  |-  ( D `
 F )  =  ( D `  F
)
2 fta1g.2 . . 3  |-  ( ph  ->  F  e.  B )
3 fta1g.1 . . . . . 6  |-  ( ph  ->  R  e. IDomn )
4 isidom 17350 . . . . . . 7  |-  ( R  e. IDomn 
<->  ( R  e.  CRing  /\  R  e. Domn ) )
54simplbi 460 . . . . . 6  |-  ( R  e. IDomn  ->  R  e.  CRing )
6 crngrng 16641 . . . . . 6  |-  ( R  e.  CRing  ->  R  e.  Ring )
73, 5, 63syl 20 . . . . 5  |-  ( ph  ->  R  e.  Ring )
8 fta1g.3 . . . . 5  |-  ( ph  ->  F  =/=  .0.  )
9 fta1g.d . . . . . 6  |-  D  =  ( deg1  `  R )
10 fta1g.p . . . . . 6  |-  P  =  (Poly1 `  R )
11 fta1g.z . . . . . 6  |-  .0.  =  ( 0g `  P )
12 fta1g.b . . . . . 6  |-  B  =  ( Base `  P
)
139, 10, 11, 12deg1nn0cl 21528 . . . . 5  |-  ( ( R  e.  Ring  /\  F  e.  B  /\  F  =/= 
.0.  )  ->  ( D `  F )  e.  NN0 )
147, 2, 8, 13syl3anc 1218 . . . 4  |-  ( ph  ->  ( D `  F
)  e.  NN0 )
15 eqeq2 2446 . . . . . . . 8  |-  ( x  =  0  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  0 ) )
1615imbi1d 317 . . . . . . 7  |-  ( x  =  0  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  0  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
1716ralbidv 2729 . . . . . 6  |-  ( x  =  0  ->  ( A. f  e.  B  ( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  A. f  e.  B  ( ( D `  f )  =  0  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
1817imbi2d 316 . . . . 5  |-  ( x  =  0  ->  (
( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f
)  =  x  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )  <->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  0  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
19 eqeq2 2446 . . . . . . . 8  |-  ( x  =  d  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  d ) )
2019imbi1d 317 . . . . . . 7  |-  ( x  =  d  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `
 f ) " { W } ) )  <_  ( D `  f ) ) ) )
2120ralbidv 2729 . . . . . 6  |-  ( x  =  d  ->  ( A. f  e.  B  ( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  A. f  e.  B  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `
 f ) " { W } ) )  <_  ( D `  f ) ) ) )
2221imbi2d 316 . . . . 5  |-  ( x  =  d  ->  (
( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f
)  =  x  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )  <->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
23 eqeq2 2446 . . . . . . . 8  |-  ( x  =  ( d  +  1 )  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  ( d  +  1 ) ) )
2423imbi1d 317 . . . . . . 7  |-  ( x  =  ( d  +  1 )  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
2524ralbidv 2729 . . . . . 6  |-  ( x  =  ( d  +  1 )  ->  ( A. f  e.  B  ( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
2625imbi2d 316 . . . . 5  |-  ( x  =  ( d  +  1 )  ->  (
( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f
)  =  x  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )  <->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
27 eqeq2 2446 . . . . . . . 8  |-  ( x  =  ( D `  F )  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  ( D `  F ) ) )
2827imbi1d 317 . . . . . . 7  |-  ( x  =  ( D `  F )  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  ( D `  F )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
2928ralbidv 2729 . . . . . 6  |-  ( x  =  ( D `  F )  ->  ( A. f  e.  B  ( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
3029imbi2d 316 . . . . 5  |-  ( x  =  ( D `  F )  ->  (
( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f
)  =  x  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )  <->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
31 simprr 756 . . . . . . . . . . . . . 14  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( D `  f )  =  0 )
32 0nn0 10586 . . . . . . . . . . . . . 14  |-  0  e.  NN0
3331, 32syl6eqel 2525 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( D `  f )  e.  NN0 )
345, 6syl 16 . . . . . . . . . . . . . 14  |-  ( R  e. IDomn  ->  R  e.  Ring )
35 simpl 457 . . . . . . . . . . . . . 14  |-  ( ( f  e.  B  /\  ( D `  f )  =  0 )  -> 
f  e.  B )
369, 10, 11, 12deg1nn0clb 21530 . . . . . . . . . . . . . 14  |-  ( ( R  e.  Ring  /\  f  e.  B )  ->  (
f  =/=  .0.  <->  ( D `  f )  e.  NN0 ) )
3734, 35, 36syl2an 477 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( f  =/= 
.0. 
<->  ( D `  f
)  e.  NN0 )
)
3833, 37mpbird 232 . . . . . . . . . . . 12  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  f  =/=  .0.  )
39 simplrr 760 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( D `  f
)  =  0 )
40 0le0 10403 . . . . . . . . . . . . . . . . 17  |-  0  <_  0
4139, 40syl6eqbr 4322 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( D `  f
)  <_  0 )
4234ad2antrr 725 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  R  e.  Ring )
43 simplrl 759 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  e.  B )
44 eqid 2437 . . . . . . . . . . . . . . . . . 18  |-  (algSc `  P )  =  (algSc `  P )
459, 10, 12, 44deg1le0 21552 . . . . . . . . . . . . . . . . 17  |-  ( ( R  e.  Ring  /\  f  e.  B )  ->  (
( D `  f
)  <_  0  <->  f  =  ( (algSc `  P ) `  ( (coe1 `  f ) ` 
0 ) ) ) )
4642, 43, 45syl2anc 661 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( ( D `  f )  <_  0  <->  f  =  ( (algSc `  P ) `  (
(coe1 `  f ) ` 
0 ) ) ) )
4741, 46mpbid 210 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  =  ( (algSc `  P ) `  (
(coe1 `  f ) ` 
0 ) ) )
4847fveq2d 5688 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( O `  f
)  =  ( O `
 ( (algSc `  P ) `  (
(coe1 `  f ) ` 
0 ) ) ) )
495adantr 465 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  R  e.  CRing )
5049adantr 465 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  R  e.  CRing )
51 eqid 2437 . . . . . . . . . . . . . . . . . . . . . . 23  |-  (coe1 `  f
)  =  (coe1 `  f
)
52 eqid 2437 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  R )  =  (
Base `  R )
5351, 12, 10, 52coe1f 17639 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( f  e.  B  ->  (coe1 `  f ) : NN0 --> (
Base `  R )
)
5443, 53syl 16 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
(coe1 `  f ) : NN0 --> ( Base `  R
) )
55 ffvelrn 5834 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( (coe1 `  f ) : NN0 --> ( Base `  R
)  /\  0  e.  NN0 )  ->  ( (coe1 `  f ) `  0
)  e.  ( Base `  R ) )
5654, 32, 55sylancl 662 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (coe1 `  f ) ` 
0 )  e.  (
Base `  R )
)
57 fta1g.o . . . . . . . . . . . . . . . . . . . . 21  |-  O  =  (eval1 `  R )
5857, 10, 52, 44evl1sca 17737 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e.  CRing  /\  (
(coe1 `  f ) ` 
0 )  e.  (
Base `  R )
)  ->  ( O `  ( (algSc `  P
) `  ( (coe1 `  f ) `  0
) ) )  =  ( ( Base `  R
)  X.  { ( (coe1 `  f ) ` 
0 ) } ) )
5950, 56, 58syl2anc 661 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( O `  (
(algSc `  P ) `  ( (coe1 `  f ) ` 
0 ) ) )  =  ( ( Base `  R )  X.  {
( (coe1 `  f ) ` 
0 ) } ) )
6048, 59eqtrd 2469 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( O `  f
)  =  ( (
Base `  R )  X.  { ( (coe1 `  f
) `  0 ) } ) )
6160fveq1d 5686 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( ( O `  f ) `  x
)  =  ( ( ( Base `  R
)  X.  { ( (coe1 `  f ) ` 
0 ) } ) `
 x ) )
62 eqid 2437 . . . . . . . . . . . . . . . . . . . 20  |-  ( R  ^s  ( Base `  R
) )  =  ( R  ^s  ( Base `  R
) )
63 eqid 2437 . . . . . . . . . . . . . . . . . . . 20  |-  ( Base `  ( R  ^s  ( Base `  R ) ) )  =  ( Base `  ( R  ^s  ( Base `  R
) ) )
64 simpl 457 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  R  e. IDomn )
65 fvex 5694 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Base `  R )  e.  _V
6665a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( Base `  R
)  e.  _V )
6757, 10, 62, 52evl1rhm 17735 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( R  e.  CRing  ->  O  e.  ( P RingHom  ( R  ^s  ( Base `  R ) ) ) )
6812, 63rhmf 16800 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( O  e.  ( P RingHom  ( R  ^s  ( Base `  R
) ) )  ->  O : B --> ( Base `  ( R  ^s  ( Base `  R ) ) ) )
6949, 67, 683syl 20 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  O : B --> ( Base `  ( R  ^s  ( Base `  R )
) ) )
70 simprl 755 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  f  e.  B
)
7169, 70ffvelrnd 5837 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( O `  f )  e.  (
Base `  ( R  ^s  ( Base `  R )
) ) )
7262, 52, 63, 64, 66, 71pwselbas 14419 . . . . . . . . . . . . . . . . . . 19  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( O `  f ) : (
Base `  R ) --> ( Base `  R )
)
73 ffn 5552 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  f ) : ( Base `  R
) --> ( Base `  R
)  ->  ( O `  f )  Fn  ( Base `  R ) )
74 fniniseg 5817 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  f )  Fn  ( Base `  R
)  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  <->  ( x  e.  ( Base `  R
)  /\  ( ( O `  f ) `  x )  =  W ) ) )
7572, 73, 743syl 20 . . . . . . . . . . . . . . . . . 18  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  <->  ( x  e.  ( Base `  R
)  /\  ( ( O `  f ) `  x )  =  W ) ) )
7675simplbda 624 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( ( O `  f ) `  x
)  =  W )
7775simprbda 623 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  x  e.  ( Base `  R ) )
78 fvex 5694 . . . . . . . . . . . . . . . . . . 19  |-  ( (coe1 `  f ) `  0
)  e.  _V
7978fvconst2 5926 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( Base `  R
)  ->  ( (
( Base `  R )  X.  { ( (coe1 `  f
) `  0 ) } ) `  x
)  =  ( (coe1 `  f ) `  0
) )
8077, 79syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( ( ( Base `  R )  X.  {
( (coe1 `  f ) ` 
0 ) } ) `
 x )  =  ( (coe1 `  f ) ` 
0 ) )
8161, 76, 803eqtr3rd 2478 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (coe1 `  f ) ` 
0 )  =  W )
8281fveq2d 5688 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (algSc `  P
) `  ( (coe1 `  f ) `  0
) )  =  ( (algSc `  P ) `  W ) )
83 fta1g.w . . . . . . . . . . . . . . . . 17  |-  W  =  ( 0g `  R
)
8410, 44, 83, 11ply1scl0 17713 . . . . . . . . . . . . . . . 16  |-  ( R  e.  Ring  ->  ( (algSc `  P ) `  W
)  =  .0.  )
8542, 84syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (algSc `  P
) `  W )  =  .0.  )
8647, 82, 853eqtrd 2473 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  =  .0.  )
8786ex 434 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  -> 
f  =  .0.  )
)
8887necon3ad 2638 . . . . . . . . . . . 12  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( f  =/= 
.0.  ->  -.  x  e.  ( `' ( O `  f ) " { W } ) ) )
8938, 88mpd 15 . . . . . . . . . . 11  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  -.  x  e.  ( `' ( O `  f ) " { W } ) )
9089eq0rdv 3665 . . . . . . . . . 10  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( `' ( O `  f )
" { W }
)  =  (/) )
9190fveq2d 5688 . . . . . . . . 9  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  ( # `  (/) ) )
92 hash0 12127 . . . . . . . . 9  |-  ( # `  (/) )  =  0
9391, 92syl6eq 2485 . . . . . . . 8  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  0 )
9440, 31syl5breqr 4321 . . . . . . . 8  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  0  <_  ( D `  f )
)
9593, 94eqbrtrd 4305 . . . . . . 7  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )
9695expr 615 . . . . . 6  |-  ( ( R  e. IDomn  /\  f  e.  B )  ->  (
( D `  f
)  =  0  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )
9796ralrimiva 2793 . . . . 5  |-  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  0  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
98 fveq2 5684 . . . . . . . . . . 11  |-  ( f  =  g  ->  ( D `  f )  =  ( D `  g ) )
9998eqeq1d 2445 . . . . . . . . . 10  |-  ( f  =  g  ->  (
( D `  f
)  =  d  <->  ( D `  g )  =  d ) )
100 fveq2 5684 . . . . . . . . . . . . . 14  |-  ( f  =  g  ->  ( O `  f )  =  ( O `  g ) )
101100cnveqd 5007 . . . . . . . . . . . . 13  |-  ( f  =  g  ->  `' ( O `  f )  =  `' ( O `
 g ) )
102101imaeq1d 5161 . . . . . . . . . . . 12  |-  ( f  =  g  ->  ( `' ( O `  f ) " { W } )  =  ( `' ( O `  g ) " { W } ) )
103102fveq2d 5688 . . . . . . . . . . 11  |-  ( f  =  g  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  =  (
# `  ( `' ( O `  g )
" { W }
) ) )
104103, 98breq12d 4298 . . . . . . . . . 10  |-  ( f  =  g  ->  (
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
)  <->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) ) )
10599, 104imbi12d 320 . . . . . . . . 9  |-  ( f  =  g  ->  (
( ( D `  f )  =  d  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `
 g ) " { W } ) )  <_  ( D `  g ) ) ) )
106105cbvralv 2941 . . . . . . . 8  |-  ( A. f  e.  B  (
( D `  f
)  =  d  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) )  <->  A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `
 g ) " { W } ) )  <_  ( D `  g ) ) )
107 simprr 756 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( D `  f )  =  ( d  +  1 ) )
108 peano2nn0 10612 . . . . . . . . . . . . . . . . 17  |-  ( d  e.  NN0  ->  ( d  +  1 )  e. 
NN0 )
109108ad2antlr 726 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( d  +  1 )  e.  NN0 )
110107, 109eqeltrd 2511 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( D `  f )  e.  NN0 )
111110nn0ge0d 10631 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  0  <_  ( D `  f )
)
112 fveq2 5684 . . . . . . . . . . . . . . . 16  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  ( # `  (/) ) )
113112, 92syl6eq 2485 . . . . . . . . . . . . . . 15  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  0 )
114113breq1d 4295 . . . . . . . . . . . . . 14  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
)  <->  0  <_  ( D `  f )
) )
115111, 114syl5ibrcom 222 . . . . . . . . . . . . 13  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( ( `' ( O `  f
) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
116115a1dd 46 . . . . . . . . . . . 12  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( ( `' ( O `  f
) " { W } )  =  (/)  ->  ( A. g  e.  B  ( ( D `
 g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
117 n0 3639 . . . . . . . . . . . . 13  |-  ( ( `' ( O `  f ) " { W } )  =/=  (/)  <->  E. x  x  e.  ( `' ( O `  f )
" { W }
) )
118 simplll 757 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  R  e. IDomn )
119 simplrl 759 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  f  e.  B
)
120 eqid 2437 . . . . . . . . . . . . . . . 16  |-  (var1 `  R
)  =  (var1 `  R
)
121 eqid 2437 . . . . . . . . . . . . . . . 16  |-  ( -g `  P )  =  (
-g `  P )
122 eqid 2437 . . . . . . . . . . . . . . . 16  |-  ( (var1 `  R ) ( -g `  P ) ( (algSc `  P ) `  x
) )  =  ( (var1 `  R ) (
-g `  P )
( (algSc `  P
) `  x )
)
123 simpllr 758 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  d  e.  NN0 )
124 simplrr 760 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  ( D `  f )  =  ( d  +  1 ) )
125 simprl 755 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  x  e.  ( `' ( O `  f ) " { W } ) )
126 simprr 756 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) ) )
12710, 12, 9, 57, 83, 11, 118, 119, 52, 120, 121, 44, 122, 123, 124, 125, 126fta1glem2 21607 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  ( f  e.  B  /\  ( D `
 f )  =  ( d  +  1 ) ) )  /\  ( x  e.  ( `' ( O `  f ) " { W } )  /\  A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) ) ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )
128127exp32 605 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  -> 
( A. g  e.  B  ( ( D `
 g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
129128exlimdv 1690 . . . . . . . . . . . . 13  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( E. x  x  e.  ( `' ( O `  f )
" { W }
)  ->  ( A. g  e.  B  (
( D `  g
)  =  d  -> 
( # `  ( `' ( O `  g
) " { W } ) )  <_ 
( D `  g
) )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
130117, 129syl5bi 217 . . . . . . . . . . . 12  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( ( `' ( O `  f
) " { W } )  =/=  (/)  ->  ( A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
131116, 130pm2.61dne 2682 . . . . . . . . . . 11  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `
 g ) " { W } ) )  <_  ( D `  g ) )  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )
132131expr 615 . . . . . . . . . 10  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  f  e.  B )  ->  (
( D `  f
)  =  ( d  +  1 )  -> 
( A. g  e.  B  ( ( D `
 g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
133132com23 78 . . . . . . . . 9  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  f  e.  B )  ->  ( A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  (
( D `  f
)  =  ( d  +  1 )  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) ) )
134133ralrimdva 2800 . . . . . . . 8  |-  ( ( R  e. IDomn  /\  d  e.  NN0 )  ->  ( A. g  e.  B  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
135106, 134syl5bi 217 . . . . . . 7  |-  ( ( R  e. IDomn  /\  d  e.  NN0 )  ->  ( A. f  e.  B  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  ->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
136135expcom 435 . . . . . 6  |-  ( d  e.  NN0  ->  ( R  e. IDomn  ->  ( A. f  e.  B  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `
 f ) " { W } ) )  <_  ( D `  f ) )  ->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
137136a2d 26 . . . . 5  |-  ( d  e.  NN0  ->  ( ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `
 f ) " { W } ) )  <_  ( D `  f ) ) )  ->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) ) )
13818, 22, 26, 30, 97, 137nn0ind 10730 . . . 4  |-  ( ( D `  F )  e.  NN0  ->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) )
13914, 3, 138sylc 60 . . 3  |-  ( ph  ->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
140 fveq2 5684 . . . . . 6  |-  ( f  =  F  ->  ( D `  f )  =  ( D `  F ) )
141140eqeq1d 2445 . . . . 5  |-  ( f  =  F  ->  (
( D `  f
)  =  ( D `
 F )  <->  ( D `  F )  =  ( D `  F ) ) )
142 fveq2 5684 . . . . . . . . 9  |-  ( f  =  F  ->  ( O `  f )  =  ( O `  F ) )
143142cnveqd 5007 . . . . . . . 8  |-  ( f  =  F  ->  `' ( O `  f )  =  `' ( O `
 F ) )
144143imaeq1d 5161 . . . . . . 7  |-  ( f  =  F  ->  ( `' ( O `  f ) " { W } )  =  ( `' ( O `  F ) " { W } ) )
145144fveq2d 5688 . . . . . 6  |-  ( f  =  F  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  =  (
# `  ( `' ( O `  F )
" { W }
) ) )
146145, 140breq12d 4298 . . . . 5  |-  ( f  =  F  ->  (
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
)  <->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) ) )
147141, 146imbi12d 320 . . . 4  |-  ( f  =  F  ->  (
( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  F )  =  ( D `  F )  ->  ( # `
 ( `' ( O `  F )
" { W }
) )  <_  ( D `  F )
) ) )
148147rspcv 3062 . . 3  |-  ( F  e.  B  ->  ( A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  ->  (
( D `  F
)  =  ( D `
 F )  -> 
( # `  ( `' ( O `  F
) " { W } ) )  <_ 
( D `  F
) ) ) )
1492, 139, 148sylc 60 . 2  |-  ( ph  ->  ( ( D `  F )  =  ( D `  F )  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) ) )
1501, 149mpi 17 1  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1369   E.wex 1586    e. wcel 1756    =/= wne 2600   A.wral 2709   _Vcvv 2966   (/)c0 3630   {csn 3870   class class class wbr 4285    X. cxp 4830   `'ccnv 4831   "cima 4835    Fn wfn 5406   -->wf 5407   ` cfv 5411  (class class class)co 6086   0cc0 9274   1c1 9275    + caddc 9277    <_ cle 9411   NN0cn0 10571   #chash 12095   Basecbs 14166   0gc0g 14370    ^s cpws 14377   -gcsg 15405   Ringcrg 16631   CRingccrg 16632   RingHom crh 16790  Domncdomn 17325  IDomncidom 17326  algSccascl 17357  var1cv1 17604  Poly1cpl1 17605  coe1cco1 17606  eval1ce1 17718   deg1 cdg1 21492
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 2418  ax-rep 4396  ax-sep 4406  ax-nul 4414  ax-pow 4463  ax-pr 4524  ax-un 6367  ax-inf2 7839  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  ax-pre-sup 9352  ax-addf 9353  ax-mulf 9354
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 2424  df-cleq 2430  df-clel 2433  df-nfc 2562  df-ne 2602  df-nel 2603  df-ral 2714  df-rex 2715  df-reu 2716  df-rmo 2717  df-rab 2718  df-v 2968  df-sbc 3180  df-csb 3282  df-dif 3324  df-un 3326  df-in 3328  df-ss 3335  df-pss 3337  df-nul 3631  df-if 3785  df-pw 3855  df-sn 3871  df-pr 3873  df-tp 3875  df-op 3877  df-uni 4085  df-int 4122  df-iun 4166  df-iin 4167  df-br 4286  df-opab 4344  df-mpt 4345  df-tr 4379  df-eprel 4624  df-id 4628  df-po 4633  df-so 4634  df-fr 4671  df-se 4672  df-we 4673  df-ord 4714  df-on 4715  df-lim 4716  df-suc 4717  df-xp 4838  df-rel 4839  df-cnv 4840  df-co 4841  df-dm 4842  df-rn 4843  df-res 4844  df-ima 4845  df-iota 5374  df-fun 5413  df-fn 5414  df-f 5415  df-f1 5416  df-fo 5417  df-f1o 5418  df-fv 5419  df-isom 5420  df-riota 6045  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-tpos 6740  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-sup 7683  df-oi 7716  df-card 8101  df-cda 8329  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-10 10380  df-n0 10572  df-z 10639  df-dec 10748  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-starv 14245  df-sca 14246  df-vsca 14247  df-ip 14248  df-tset 14249  df-ple 14250  df-ds 14252  df-unif 14253  df-hom 14254  df-cco 14255  df-0g 14372  df-gsum 14373  df-prds 14378  df-pws 14380  df-mre 14516  df-mrc 14517  df-acs 14519  df-mnd 15407  df-mhm 15456  df-submnd 15457  df-grp 15534  df-minusg 15535  df-sbg 15536  df-mulg 15537  df-subg 15667  df-ghm 15734  df-cntz 15824  df-cmn 16268  df-abl 16269  df-mgp 16578  df-ur 16590  df-rng 16633  df-cring 16634  df-oppr 16701  df-dvdsr 16719  df-unit 16720  df-invr 16750  df-rnghom 16792  df-subrg 16839  df-lmod 16926  df-lss 16988  df-lsp 17027  df-nzr 17314  df-rlreg 17328  df-domn 17329  df-idom 17330  df-assa 17358  df-asp 17359  df-ascl 17360  df-psr 17397  df-mvr 17398  df-mpl 17399  df-opsr 17401  df-evls 17560  df-evl 17561  df-psr1 17608  df-vr1 17609  df-ply1 17610  df-coe1 17611  df-evl1 17720  df-cnfld 17788  df-mdeg 21493  df-deg1 21494  df-mon1 21571  df-uc1p 21572  df-q1p 21573  df-r1p 21574
This theorem is referenced by:  fta1b  21610  lgsqrlem4  22652  idomrootle  29503
  Copyright terms: Public domain W3C validator