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

Theorem fta1g 23118
Description: The one-sided fundamental theorem of algebra. A polynomial of degree  n has at most  n roots. Unlike the real fundamental theorem fta 24006, 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 2451 . 2  |-  ( D `
 F )  =  ( D `  F
)
2 fta1g.2 . . 3  |-  ( ph  ->  F  e.  B )
3 fta1g.1 . . . . . 6  |-  ( ph  ->  R  e. IDomn )
4 isidom 18528 . . . . . . 7  |-  ( R  e. IDomn 
<->  ( R  e.  CRing  /\  R  e. Domn ) )
54simplbi 462 . . . . . 6  |-  ( R  e. IDomn  ->  R  e.  CRing )
6 crngring 17791 . . . . . 6  |-  ( R  e.  CRing  ->  R  e.  Ring )
73, 5, 63syl 18 . . . . 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 23037 . . . . 5  |-  ( ( R  e.  Ring  /\  F  e.  B  /\  F  =/= 
.0.  )  ->  ( D `  F )  e.  NN0 )
147, 2, 8, 13syl3anc 1268 . . . 4  |-  ( ph  ->  ( D `  F
)  e.  NN0 )
15 eqeq2 2462 . . . . . . . 8  |-  ( x  =  0  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  0 ) )
1615imbi1d 319 . . . . . . 7  |-  ( x  =  0  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  0  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
1716ralbidv 2827 . . . . . 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 318 . . . . 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 2462 . . . . . . . 8  |-  ( x  =  d  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  d ) )
2019imbi1d 319 . . . . . . 7  |-  ( x  =  d  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  d  ->  ( # `  ( `' ( O `
 f ) " { W } ) )  <_  ( D `  f ) ) ) )
2120ralbidv 2827 . . . . . 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 318 . . . . 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 2462 . . . . . . . 8  |-  ( x  =  ( d  +  1 )  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  ( d  +  1 ) ) )
2423imbi1d 319 . . . . . . 7  |-  ( x  =  ( d  +  1 )  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  ( d  +  1 )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
2524ralbidv 2827 . . . . . 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 318 . . . . 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 2462 . . . . . . . 8  |-  ( x  =  ( D `  F )  ->  (
( D `  f
)  =  x  <->  ( D `  f )  =  ( D `  F ) ) )
2827imbi1d 319 . . . . . . 7  |-  ( x  =  ( D `  F )  ->  (
( ( D `  f )  =  x  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  f )  =  ( D `  F )  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  <_  ( D `  f )
) ) )
2928ralbidv 2827 . . . . . 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 318 . . . . 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 766 . . . . . . . . . . . . . 14  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( D `  f )  =  0 )
32 0nn0 10884 . . . . . . . . . . . . . 14  |-  0  e.  NN0
3331, 32syl6eqel 2537 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( D `  f )  e.  NN0 )
345, 6syl 17 . . . . . . . . . . . . . 14  |-  ( R  e. IDomn  ->  R  e.  Ring )
35 simpl 459 . . . . . . . . . . . . . 14  |-  ( ( f  e.  B  /\  ( D `  f )  =  0 )  -> 
f  e.  B )
369, 10, 11, 12deg1nn0clb 23039 . . . . . . . . . . . . . 14  |-  ( ( R  e.  Ring  /\  f  e.  B )  ->  (
f  =/=  .0.  <->  ( D `  f )  e.  NN0 ) )
3734, 35, 36syl2an 480 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( f  =/= 
.0. 
<->  ( D `  f
)  e.  NN0 )
)
3833, 37mpbird 236 . . . . . . . . . . . 12  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  f  =/=  .0.  )
39 simplrr 771 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( D `  f
)  =  0 )
40 0le0 10699 . . . . . . . . . . . . . . . . 17  |-  0  <_  0
4139, 40syl6eqbr 4440 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( D `  f
)  <_  0 )
4234ad2antrr 732 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  R  e.  Ring )
43 simplrl 770 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  e.  B )
44 eqid 2451 . . . . . . . . . . . . . . . . . 18  |-  (algSc `  P )  =  (algSc `  P )
459, 10, 12, 44deg1le0 23060 . . . . . . . . . . . . . . . . 17  |-  ( ( R  e.  Ring  /\  f  e.  B )  ->  (
( D `  f
)  <_  0  <->  f  =  ( (algSc `  P ) `  ( (coe1 `  f ) ` 
0 ) ) ) )
4642, 43, 45syl2anc 667 . . . . . . . . . . . . . . . 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 214 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  =  ( (algSc `  P ) `  (
(coe1 `  f ) ` 
0 ) ) )
4847fveq2d 5869 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( O `  f
)  =  ( O `
 ( (algSc `  P ) `  (
(coe1 `  f ) ` 
0 ) ) ) )
495adantr 467 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  R  e.  CRing )
5049adantr 467 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  R  e.  CRing )
51 eqid 2451 . . . . . . . . . . . . . . . . . . . . . . 23  |-  (coe1 `  f
)  =  (coe1 `  f
)
52 eqid 2451 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  R )  =  (
Base `  R )
5351, 12, 10, 52coe1f 18804 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( f  e.  B  ->  (coe1 `  f ) : NN0 --> (
Base `  R )
)
5443, 53syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
(coe1 `  f ) : NN0 --> ( Base `  R
) )
55 ffvelrn 6020 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( (coe1 `  f ) : NN0 --> ( Base `  R
)  /\  0  e.  NN0 )  ->  ( (coe1 `  f ) `  0
)  e.  ( Base `  R ) )
5654, 32, 55sylancl 668 . . . . . . . . . . . . . . . . . . . 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 18922 . . . . . . . . . . . . . . . . . . . 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 667 . . . . . . . . . . . . . . . . . . 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 2485 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( O `  f
)  =  ( (
Base `  R )  X.  { ( (coe1 `  f
) `  0 ) } ) )
6160fveq1d 5867 . . . . . . . . . . . . . . . . 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 2451 . . . . . . . . . . . . . . . . . . . 20  |-  ( R  ^s  ( Base `  R
) )  =  ( R  ^s  ( Base `  R
) )
63 eqid 2451 . . . . . . . . . . . . . . . . . . . 20  |-  ( Base `  ( R  ^s  ( Base `  R ) ) )  =  ( Base `  ( R  ^s  ( Base `  R
) ) )
64 simpl 459 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  R  e. IDomn )
65 fvex 5875 . . . . . . . . . . . . . . . . . . . . 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 18920 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( R  e.  CRing  ->  O  e.  ( P RingHom  ( R  ^s  ( Base `  R ) ) ) )
6812, 63rhmf 17954 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( O  e.  ( P RingHom  ( R  ^s  ( Base `  R
) ) )  ->  O : B --> ( Base `  ( R  ^s  ( Base `  R ) ) ) )
6949, 67, 683syl 18 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  O : B --> ( Base `  ( R  ^s  ( Base `  R )
) ) )
70 simprl 764 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  f  e.  B
)
7169, 70ffvelrnd 6023 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( O `  f )  e.  (
Base `  ( R  ^s  ( Base `  R )
) ) )
7262, 52, 63, 64, 66, 71pwselbas 15387 . . . . . . . . . . . . . . . . . . 19  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( O `  f ) : (
Base `  R ) --> ( Base `  R )
)
73 ffn 5728 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  f ) : ( Base `  R
) --> ( Base `  R
)  ->  ( O `  f )  Fn  ( Base `  R ) )
74 fniniseg 6003 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  f )  Fn  ( Base `  R
)  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  <->  ( x  e.  ( Base `  R
)  /\  ( ( O `  f ) `  x )  =  W ) ) )
7572, 73, 743syl 18 . . . . . . . . . . . . . . . . . 18  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  <->  ( x  e.  ( Base `  R
)  /\  ( ( O `  f ) `  x )  =  W ) ) )
7675simplbda 630 . . . . . . . . . . . . . . . . 17  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( ( O `  f ) `  x
)  =  W )
7775simprbda 629 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  ->  x  e.  ( Base `  R ) )
78 fvex 5875 . . . . . . . . . . . . . . . . . . 19  |-  ( (coe1 `  f ) `  0
)  e.  _V
7978fvconst2 6120 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( Base `  R
)  ->  ( (
( Base `  R )  X.  { ( (coe1 `  f
) `  0 ) } ) `  x
)  =  ( (coe1 `  f ) `  0
) )
8077, 79syl 17 . . . . . . . . . . . . . . . . 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 2494 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (coe1 `  f ) ` 
0 )  =  W )
8281fveq2d 5869 . . . . . . . . . . . . . . 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 18883 . . . . . . . . . . . . . . . 16  |-  ( R  e.  Ring  ->  ( (algSc `  P ) `  W
)  =  .0.  )
8542, 84syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
( (algSc `  P
) `  W )  =  .0.  )
8647, 82, 853eqtrd 2489 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  /\  x  e.  ( `' ( O `  f ) " { W } ) )  -> 
f  =  .0.  )
8786ex 436 . . . . . . . . . . . . 13  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( x  e.  ( `' ( O `
 f ) " { W } )  -> 
f  =  .0.  )
)
8887necon3ad 2637 . . . . . . . . . . . 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 3769 . . . . . . . . . 10  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( `' ( O `  f )
" { W }
)  =  (/) )
9190fveq2d 5869 . . . . . . . . 9  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  ( # `  (/) ) )
92 hash0 12548 . . . . . . . . 9  |-  ( # `  (/) )  =  0
9391, 92syl6eq 2501 . . . . . . . 8  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  0 )
9440, 31syl5breqr 4439 . . . . . . . 8  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  0  <_  ( D `  f )
)
9593, 94eqbrtrd 4423 . . . . . . 7  |-  ( ( R  e. IDomn  /\  (
f  e.  B  /\  ( D `  f )  =  0 ) )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )
9695expr 620 . . . . . 6  |-  ( ( R  e. IDomn  /\  f  e.  B )  ->  (
( D `  f
)  =  0  -> 
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
) ) )
9796ralrimiva 2802 . . . . 5  |-  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  0  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
98 fveq2 5865 . . . . . . . . . . 11  |-  ( f  =  g  ->  ( D `  f )  =  ( D `  g ) )
9998eqeq1d 2453 . . . . . . . . . 10  |-  ( f  =  g  ->  (
( D `  f
)  =  d  <->  ( D `  g )  =  d ) )
100 fveq2 5865 . . . . . . . . . . . . . 14  |-  ( f  =  g  ->  ( O `  f )  =  ( O `  g ) )
101100cnveqd 5010 . . . . . . . . . . . . 13  |-  ( f  =  g  ->  `' ( O `  f )  =  `' ( O `
 g ) )
102101imaeq1d 5167 . . . . . . . . . . . 12  |-  ( f  =  g  ->  ( `' ( O `  f ) " { W } )  =  ( `' ( O `  g ) " { W } ) )
103102fveq2d 5869 . . . . . . . . . . 11  |-  ( f  =  g  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  =  (
# `  ( `' ( O `  g )
" { W }
) ) )
104103, 98breq12d 4415 . . . . . . . . . 10  |-  ( f  =  g  ->  (
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
)  <->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) ) )
10599, 104imbi12d 322 . . . . . . . . 9  |-  ( f  =  g  ->  (
( ( D `  f )  =  d  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  g )  =  d  ->  ( # `  ( `' ( O `
 g ) " { W } ) )  <_  ( D `  g ) ) ) )
106105cbvralv 3019 . . . . . . . 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 766 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( D `  f )  =  ( d  +  1 ) )
108 peano2nn0 10910 . . . . . . . . . . . . . . . . 17  |-  ( d  e.  NN0  ->  ( d  +  1 )  e. 
NN0 )
109108ad2antlr 733 . . . . . . . . . . . . . . . 16  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( d  +  1 )  e.  NN0 )
110107, 109eqeltrd 2529 . . . . . . . . . . . . . . 15  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( D `  f )  e.  NN0 )
111110nn0ge0d 10928 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  0  <_  ( D `  f )
)
112 fveq2 5865 . . . . . . . . . . . . . . . 16  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  ( # `  (/) ) )
113112, 92syl6eq 2501 . . . . . . . . . . . . . . 15  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  =  0 )
114113breq1d 4412 . . . . . . . . . . . . . 14  |-  ( ( `' ( O `  f ) " { W } )  =  (/)  ->  ( ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
)  <->  0  <_  ( D `  f )
) )
115111, 114syl5ibrcom 226 . . . . . . . . . . . . 13  |-  ( ( ( R  e. IDomn  /\  d  e.  NN0 )  /\  (
f  e.  B  /\  ( D `  f )  =  ( d  +  1 ) ) )  ->  ( ( `' ( O `  f
) " { W } )  =  (/)  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
116115a1dd 47 . . . . . . . . . . . 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 3741 . . . . . . . . . . . . 13  |-  ( ( `' ( O `  f ) " { W } )  =/=  (/)  <->  E. x  x  e.  ( `' ( O `  f )
" { W }
) )
118 simplll 768 . . . . . . . . . . . . . . . 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 770 . . . . . . . . . . . . . . . 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 2451 . . . . . . . . . . . . . . . 16  |-  (var1 `  R
)  =  (var1 `  R
)
121 eqid 2451 . . . . . . . . . . . . . . . 16  |-  ( -g `  P )  =  (
-g `  P )
122 eqid 2451 . . . . . . . . . . . . . . . 16  |-  ( (var1 `  R ) ( -g `  P ) ( (algSc `  P ) `  x
) )  =  ( (var1 `  R ) (
-g `  P )
( (algSc `  P
) `  x )
)
123 simpllr 769 . . . . . . . . . . . . . . . 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 771 . . . . . . . . . . . . . . . 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 764 . . . . . . . . . . . . . . . 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 766 . . . . . . . . . . . . . . . 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 23117 . . . . . . . . . . . . . . 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 610 . . . . . . . . . . . . . 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 1779 . . . . . . . . . . . . 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 221 . . . . . . . . . . . 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 2710 . . . . . . . . . . 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 620 . . . . . . . . . 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 81 . . . . . . . . 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 2806 . . . . . . . 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 221 . . . . . . 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 437 . . . . . 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 29 . . . . 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 11030 . . . 4  |-  ( ( D `  F )  e.  NN0  ->  ( R  e. IDomn  ->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) ) )
13914, 3, 138sylc 62 . . 3  |-  ( ph  ->  A. f  e.  B  ( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) ) )
140 fveq2 5865 . . . . . 6  |-  ( f  =  F  ->  ( D `  f )  =  ( D `  F ) )
141140eqeq1d 2453 . . . . 5  |-  ( f  =  F  ->  (
( D `  f
)  =  ( D `
 F )  <->  ( D `  F )  =  ( D `  F ) ) )
142 fveq2 5865 . . . . . . . . 9  |-  ( f  =  F  ->  ( O `  f )  =  ( O `  F ) )
143142cnveqd 5010 . . . . . . . 8  |-  ( f  =  F  ->  `' ( O `  f )  =  `' ( O `
 F ) )
144143imaeq1d 5167 . . . . . . 7  |-  ( f  =  F  ->  ( `' ( O `  f ) " { W } )  =  ( `' ( O `  F ) " { W } ) )
145144fveq2d 5869 . . . . . 6  |-  ( f  =  F  ->  ( # `
 ( `' ( O `  f )
" { W }
) )  =  (
# `  ( `' ( O `  F )
" { W }
) ) )
146145, 140breq12d 4415 . . . . 5  |-  ( f  =  F  ->  (
( # `  ( `' ( O `  f
) " { W } ) )  <_ 
( D `  f
)  <->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) ) )
147141, 146imbi12d 322 . . . 4  |-  ( f  =  F  ->  (
( ( D `  f )  =  ( D `  F )  ->  ( # `  ( `' ( O `  f ) " { W } ) )  <_ 
( D `  f
) )  <->  ( ( D `  F )  =  ( D `  F )  ->  ( # `
 ( `' ( O `  F )
" { W }
) )  <_  ( D `  F )
) ) )
148147rspcv 3146 . . 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 62 . 2  |-  ( ph  ->  ( ( D `  F )  =  ( D `  F )  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) ) )
1501, 149mpi 20 1  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 188    /\ wa 371    = wceq 1444   E.wex 1663    e. wcel 1887    =/= wne 2622   A.wral 2737   _Vcvv 3045   (/)c0 3731   {csn 3968   class class class wbr 4402    X. cxp 4832   `'ccnv 4833   "cima 4837    Fn wfn 5577   -->wf 5578   ` cfv 5582  (class class class)co 6290   0cc0 9539   1c1 9540    + caddc 9542    <_ cle 9676   NN0cn0 10869   #chash 12515   Basecbs 15121   0gc0g 15338    ^s cpws 15345   -gcsg 16671   Ringcrg 17780   CRingccrg 17781   RingHom crh 17940  Domncdomn 18504  IDomncidom 18505  algSccascl 18535  var1cv1 18769  Poly1cpl1 18770  coe1cco1 18771  eval1ce1 18903   deg1 cdg1 23003
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-inf2 8146  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616  ax-pre-sup 9617  ax-addf 9618  ax-mulf 9619
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-iin 4281  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-se 4794  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-of 6531  df-ofr 6532  df-om 6693  df-1st 6793  df-2nd 6794  df-supp 6915  df-tpos 6973  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-2o 7183  df-oadd 7186  df-er 7363  df-map 7474  df-pm 7475  df-ixp 7523  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-fsupp 7884  df-sup 7956  df-oi 8025  df-card 8373  df-cda 8598  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-nn 10610  df-2 10668  df-3 10669  df-4 10670  df-5 10671  df-6 10672  df-7 10673  df-8 10674  df-9 10675  df-10 10676  df-n0 10870  df-z 10938  df-dec 11052  df-uz 11160  df-fz 11785  df-fzo 11916  df-seq 12214  df-hash 12516  df-struct 15123  df-ndx 15124  df-slot 15125  df-base 15126  df-sets 15127  df-ress 15128  df-plusg 15203  df-mulr 15204  df-starv 15205  df-sca 15206  df-vsca 15207  df-ip 15208  df-tset 15209  df-ple 15210  df-ds 15212  df-unif 15213  df-hom 15214  df-cco 15215  df-0g 15340  df-gsum 15341  df-prds 15346  df-pws 15348  df-mre 15492  df-mrc 15493  df-acs 15495  df-mgm 16488  df-sgrp 16527  df-mnd 16537  df-mhm 16582  df-submnd 16583  df-grp 16673  df-minusg 16674  df-sbg 16675  df-mulg 16676  df-subg 16814  df-ghm 16881  df-cntz 16971  df-cmn 17432  df-abl 17433  df-mgp 17724  df-ur 17736  df-srg 17740  df-ring 17782  df-cring 17783  df-oppr 17851  df-dvdsr 17869  df-unit 17870  df-invr 17900  df-rnghom 17943  df-subrg 18006  df-lmod 18093  df-lss 18156  df-lsp 18195  df-nzr 18482  df-rlreg 18507  df-domn 18508  df-idom 18509  df-assa 18536  df-asp 18537  df-ascl 18538  df-psr 18580  df-mvr 18581  df-mpl 18582  df-opsr 18584  df-evls 18729  df-evl 18730  df-psr1 18773  df-vr1 18774  df-ply1 18775  df-coe1 18776  df-evl1 18905  df-cnfld 18971  df-mdeg 23004  df-deg1 23005  df-mon1 23080  df-uc1p 23081  df-q1p 23082  df-r1p 23083
This theorem is referenced by:  fta1b  23120  lgsqrlem4  24272  idomrootle  36069
  Copyright terms: Public domain W3C validator