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

Theorem fta1glem2 21653
Description: Lemma for fta1g 21654. (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 )
fta1glem.k  |-  K  =  ( Base `  R
)
fta1glem.x  |-  X  =  (var1 `  R )
fta1glem.m  |-  .-  =  ( -g `  P )
fta1glem.a  |-  A  =  (algSc `  P )
fta1glem.g  |-  G  =  ( X  .-  ( A `  T )
)
fta1glem.3  |-  ( ph  ->  N  e.  NN0 )
fta1glem.4  |-  ( ph  ->  ( D `  F
)  =  ( N  +  1 ) )
fta1glem.5  |-  ( ph  ->  T  e.  ( `' ( O `  F
) " { W } ) )
fta1glem.6  |-  ( ph  ->  A. g  e.  B  ( ( D `  g )  =  N  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) ) )
Assertion
Ref Expression
fta1glem2  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) )
Distinct variable groups:    B, g    D, g    g, F    g, N    g, O    g, G    P, g    R, g    g, W
Allowed substitution hints:    ph( g)    A( g)    T( g)    K( g)    .- ( g)    X( g)    .0. ( g)

Proof of Theorem fta1glem2
Dummy variable  x is distinct from all other variables.
StepHypRef Expression
1 fta1glem.5 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  T  e.  ( `' ( O `  F
) " { W } ) )
2 eqid 2443 . . . . . . . . . . . . . . . . . . . . 21  |-  ( R  ^s  K )  =  ( R  ^s  K )
3 fta1glem.k . . . . . . . . . . . . . . . . . . . . 21  |-  K  =  ( Base `  R
)
4 eqid 2443 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Base `  ( R  ^s  K ) )  =  ( Base `  ( R  ^s  K ) )
5 fta1g.1 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  R  e. IDomn )
6 fvex 5716 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  R )  e.  _V
73, 6eqeltri 2513 . . . . . . . . . . . . . . . . . . . . . 22  |-  K  e. 
_V
87a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  K  e.  _V )
9 isidom 17391 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( R  e. IDomn 
<->  ( R  e.  CRing  /\  R  e. Domn ) )
109simplbi 460 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( R  e. IDomn  ->  R  e.  CRing )
115, 10syl 16 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  R  e.  CRing )
12 fta1g.o . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  O  =  (eval1 `  R )
13 fta1g.p . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  P  =  (Poly1 `  R )
1412, 13, 2, 3evl1rhm 17781 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( R  e.  CRing  ->  O  e.  ( P RingHom  ( R  ^s  K
) ) )
1511, 14syl 16 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  O  e.  ( P RingHom 
( R  ^s  K ) ) )
16 fta1g.b . . . . . . . . . . . . . . . . . . . . . . . 24  |-  B  =  ( Base `  P
)
1716, 4rhmf 16831 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( O  e.  ( P RingHom  ( R  ^s  K ) )  ->  O : B --> ( Base `  ( R  ^s  K ) ) )
1815, 17syl 16 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  O : B --> ( Base `  ( R  ^s  K ) ) )
19 fta1g.2 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  F  e.  B )
2018, 19ffvelrnd 5859 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( O `  F
)  e.  ( Base `  ( R  ^s  K ) ) )
212, 3, 4, 5, 8, 20pwselbas 14442 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( O `  F
) : K --> K )
22 ffn 5574 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( O `  F ) : K --> K  -> 
( O `  F
)  Fn  K )
2321, 22syl 16 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( O `  F
)  Fn  K )
24 fniniseg 5839 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  F )  Fn  K  ->  ( T  e.  ( `' ( O `  F )
" { W }
)  <->  ( T  e.  K  /\  ( ( O `  F ) `
 T )  =  W ) ) )
2523, 24syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( T  e.  ( `' ( O `  F ) " { W } )  <->  ( T  e.  K  /\  (
( O `  F
) `  T )  =  W ) ) )
261, 25mpbid 210 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( T  e.  K  /\  ( ( O `  F ) `  T
)  =  W ) )
2726simprd 463 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( O `  F ) `  T
)  =  W )
28 fta1glem.x . . . . . . . . . . . . . . . . 17  |-  X  =  (var1 `  R )
29 fta1glem.m . . . . . . . . . . . . . . . . 17  |-  .-  =  ( -g `  P )
30 fta1glem.a . . . . . . . . . . . . . . . . 17  |-  A  =  (algSc `  P )
31 fta1glem.g . . . . . . . . . . . . . . . . 17  |-  G  =  ( X  .-  ( A `  T )
)
329simprbi 464 . . . . . . . . . . . . . . . . . . 19  |-  ( R  e. IDomn  ->  R  e. Domn )
33 domnnzr 17382 . . . . . . . . . . . . . . . . . . 19  |-  ( R  e. Domn  ->  R  e. NzRing )
3432, 33syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( R  e. IDomn  ->  R  e. NzRing )
355, 34syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  R  e. NzRing )
3626simpld 459 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  T  e.  K )
37 fta1g.w . . . . . . . . . . . . . . . . 17  |-  W  =  ( 0g `  R
)
38 eqid 2443 . . . . . . . . . . . . . . . . 17  |-  ( ||r `  P
)  =  ( ||r `  P
)
3913, 16, 3, 28, 29, 30, 31, 12, 35, 11, 36, 19, 37, 38facth1 21651 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( G ( ||r `  P
) F  <->  ( ( O `  F ) `  T )  =  W ) )
4027, 39mpbird 232 . . . . . . . . . . . . . . 15  |-  ( ph  ->  G ( ||r `
 P ) F )
41 nzrrng 17358 . . . . . . . . . . . . . . . . 17  |-  ( R  e. NzRing  ->  R  e.  Ring )
4235, 41syl 16 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  R  e.  Ring )
43 eqid 2443 . . . . . . . . . . . . . . . . . . 19  |-  (Monic1p `  R
)  =  (Monic1p `  R
)
44 fta1g.d . . . . . . . . . . . . . . . . . . 19  |-  D  =  ( deg1  `  R )
4513, 16, 3, 28, 29, 30, 31, 12, 35, 11, 36, 43, 44, 37ply1remlem 21649 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( G  e.  (Monic1p `  R )  /\  ( D `  G )  =  1  /\  ( `' ( O `  G ) " { W } )  =  { T } ) )
4645simp1d 1000 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  G  e.  (Monic1p `  R
) )
47 eqid 2443 . . . . . . . . . . . . . . . . . 18  |-  (Unic1p `  R
)  =  (Unic1p `  R
)
4847, 43mon1puc1p 21637 . . . . . . . . . . . . . . . . 17  |-  ( ( R  e.  Ring  /\  G  e.  (Monic1p `  R ) )  ->  G  e.  (Unic1p `  R ) )
4942, 46, 48syl2anc 661 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  G  e.  (Unic1p `  R
) )
50 eqid 2443 . . . . . . . . . . . . . . . . 17  |-  ( .r
`  P )  =  ( .r `  P
)
51 eqid 2443 . . . . . . . . . . . . . . . . 17  |-  (quot1p `  R
)  =  (quot1p `  R
)
5213, 38, 16, 47, 50, 51dvdsq1p 21647 . . . . . . . . . . . . . . . 16  |-  ( ( R  e.  Ring  /\  F  e.  B  /\  G  e.  (Unic1p `  R ) )  ->  ( G (
||r `  P ) F  <->  F  =  ( ( F (quot1p `  R ) G ) ( .r `  P
) G ) ) )
5342, 19, 49, 52syl3anc 1218 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( G ( ||r `  P
) F  <->  F  =  ( ( F (quot1p `  R ) G ) ( .r `  P
) G ) ) )
5440, 53mpbid 210 . . . . . . . . . . . . . 14  |-  ( ph  ->  F  =  ( ( F (quot1p `  R ) G ) ( .r `  P ) G ) )
5554fveq2d 5710 . . . . . . . . . . . . 13  |-  ( ph  ->  ( O `  F
)  =  ( O `
 ( ( F (quot1p `  R ) G ) ( .r `  P ) G ) ) )
5651, 13, 16, 47q1pcl 21642 . . . . . . . . . . . . . . 15  |-  ( ( R  e.  Ring  /\  F  e.  B  /\  G  e.  (Unic1p `  R ) )  ->  ( F (quot1p `  R ) G )  e.  B )
5742, 19, 49, 56syl3anc 1218 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( F (quot1p `  R
) G )  e.  B )
5813, 16, 43mon1pcl 21631 . . . . . . . . . . . . . . 15  |-  ( G  e.  (Monic1p `  R )  ->  G  e.  B )
5946, 58syl 16 . . . . . . . . . . . . . 14  |-  ( ph  ->  G  e.  B )
60 eqid 2443 . . . . . . . . . . . . . . 15  |-  ( .r
`  ( R  ^s  K
) )  =  ( .r `  ( R  ^s  K ) )
6116, 50, 60rhmmul 16832 . . . . . . . . . . . . . 14  |-  ( ( O  e.  ( P RingHom 
( R  ^s  K ) )  /\  ( F (quot1p `  R ) G )  e.  B  /\  G  e.  B )  ->  ( O `  (
( F (quot1p `  R
) G ) ( .r `  P ) G ) )  =  ( ( O `  ( F (quot1p `  R ) G ) ) ( .r
`  ( R  ^s  K
) ) ( O `
 G ) ) )
6215, 57, 59, 61syl3anc 1218 . . . . . . . . . . . . 13  |-  ( ph  ->  ( O `  (
( F (quot1p `  R
) G ) ( .r `  P ) G ) )  =  ( ( O `  ( F (quot1p `  R ) G ) ) ( .r
`  ( R  ^s  K
) ) ( O `
 G ) ) )
6318, 57ffvelrnd 5859 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( O `  ( F (quot1p `  R ) G ) )  e.  (
Base `  ( R  ^s  K ) ) )
6418, 59ffvelrnd 5859 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( O `  G
)  e.  ( Base `  ( R  ^s  K ) ) )
65 eqid 2443 . . . . . . . . . . . . . 14  |-  ( .r
`  R )  =  ( .r `  R
)
662, 4, 5, 8, 63, 64, 65, 60pwsmulrval 14444 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( O `  ( F (quot1p `  R ) G ) ) ( .r
`  ( R  ^s  K
) ) ( O `
 G ) )  =  ( ( O `
 ( F (quot1p `  R ) G ) )  oF ( .r `  R ) ( O `  G
) ) )
6755, 62, 663eqtrd 2479 . . . . . . . . . . . 12  |-  ( ph  ->  ( O `  F
)  =  ( ( O `  ( F (quot1p `  R ) G ) )  oF ( .r `  R
) ( O `  G ) ) )
6867fveq1d 5708 . . . . . . . . . . 11  |-  ( ph  ->  ( ( O `  F ) `  x
)  =  ( ( ( O `  ( F (quot1p `  R ) G ) )  oF ( .r `  R
) ( O `  G ) ) `  x ) )
6968adantr 465 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  K )  ->  (
( O `  F
) `  x )  =  ( ( ( O `  ( F (quot1p `  R ) G ) )  oF ( .r `  R
) ( O `  G ) ) `  x ) )
702, 3, 4, 5, 8, 63pwselbas 14442 . . . . . . . . . . . . 13  |-  ( ph  ->  ( O `  ( F (quot1p `  R ) G ) ) : K --> K )
71 ffn 5574 . . . . . . . . . . . . 13  |-  ( ( O `  ( F (quot1p `  R ) G ) ) : K --> K  ->  ( O `  ( F (quot1p `  R ) G ) )  Fn  K
)
7270, 71syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  ( O `  ( F (quot1p `  R ) G ) )  Fn  K
)
7372adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  K )  ->  ( O `  ( F
(quot1p `
 R ) G ) )  Fn  K
)
742, 3, 4, 5, 8, 64pwselbas 14442 . . . . . . . . . . . . 13  |-  ( ph  ->  ( O `  G
) : K --> K )
75 ffn 5574 . . . . . . . . . . . . 13  |-  ( ( O `  G ) : K --> K  -> 
( O `  G
)  Fn  K )
7674, 75syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  ( O `  G
)  Fn  K )
7776adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  K )  ->  ( O `  G )  Fn  K )
787a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  K )  ->  K  e.  _V )
79 simpr 461 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  K )  ->  x  e.  K )
80 fnfvof 6348 . . . . . . . . . . 11  |-  ( ( ( ( O `  ( F (quot1p `  R ) G ) )  Fn  K  /\  ( O `  G
)  Fn  K )  /\  ( K  e. 
_V  /\  x  e.  K ) )  -> 
( ( ( O `
 ( F (quot1p `  R ) G ) )  oF ( .r `  R ) ( O `  G
) ) `  x
)  =  ( ( ( O `  ( F (quot1p `  R ) G ) ) `  x
) ( .r `  R ) ( ( O `  G ) `
 x ) ) )
8173, 77, 78, 79, 80syl22anc 1219 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  K )  ->  (
( ( O `  ( F (quot1p `  R ) G ) )  oF ( .r `  R
) ( O `  G ) ) `  x )  =  ( ( ( O `  ( F (quot1p `  R ) G ) ) `  x
) ( .r `  R ) ( ( O `  G ) `
 x ) ) )
8269, 81eqtrd 2475 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  K )  ->  (
( O `  F
) `  x )  =  ( ( ( O `  ( F (quot1p `  R ) G ) ) `  x
) ( .r `  R ) ( ( O `  G ) `
 x ) ) )
8382eqeq1d 2451 . . . . . . . 8  |-  ( (
ph  /\  x  e.  K )  ->  (
( ( O `  F ) `  x
)  =  W  <->  ( (
( O `  ( F (quot1p `  R ) G ) ) `  x
) ( .r `  R ) ( ( O `  G ) `
 x ) )  =  W ) )
845, 32syl 16 . . . . . . . . . 10  |-  ( ph  ->  R  e. Domn )
8584adantr 465 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  K )  ->  R  e. Domn )
8670ffvelrnda 5858 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  K )  ->  (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  e.  K )
8774ffvelrnda 5858 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  K )  ->  (
( O `  G
) `  x )  e.  K )
883, 65, 37domneq0 17384 . . . . . . . . 9  |-  ( ( R  e. Domn  /\  (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  e.  K  /\  ( ( O `  G ) `  x
)  e.  K )  ->  ( ( ( ( O `  ( F (quot1p `  R ) G ) ) `  x
) ( .r `  R ) ( ( O `  G ) `
 x ) )  =  W  <->  ( (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W  \/  ( ( O `  G ) `  x
)  =  W ) ) )
8985, 86, 87, 88syl3anc 1218 . . . . . . . 8  |-  ( (
ph  /\  x  e.  K )  ->  (
( ( ( O `
 ( F (quot1p `  R ) G ) ) `  x ) ( .r `  R
) ( ( O `
 G ) `  x ) )  =  W  <->  ( ( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W  \/  ( ( O `  G ) `  x
)  =  W ) ) )
9083, 89bitrd 253 . . . . . . 7  |-  ( (
ph  /\  x  e.  K )  ->  (
( ( O `  F ) `  x
)  =  W  <->  ( (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W  \/  ( ( O `  G ) `  x
)  =  W ) ) )
9190pm5.32da 641 . . . . . 6  |-  ( ph  ->  ( ( x  e.  K  /\  ( ( O `  F ) `
 x )  =  W )  <->  ( x  e.  K  /\  (
( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W  \/  ( ( O `  G ) `  x
)  =  W ) ) ) )
92 andi 862 . . . . . 6  |-  ( ( x  e.  K  /\  ( ( ( O `
 ( F (quot1p `  R ) G ) ) `  x )  =  W  \/  (
( O `  G
) `  x )  =  W ) )  <->  ( (
x  e.  K  /\  ( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W )  \/  ( x  e.  K  /\  ( ( O `  G ) `
 x )  =  W ) ) )
9391, 92syl6bb 261 . . . . 5  |-  ( ph  ->  ( ( x  e.  K  /\  ( ( O `  F ) `
 x )  =  W )  <->  ( (
x  e.  K  /\  ( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W )  \/  ( x  e.  K  /\  ( ( O `  G ) `
 x )  =  W ) ) ) )
94 fniniseg 5839 . . . . . 6  |-  ( ( O `  F )  Fn  K  ->  (
x  e.  ( `' ( O `  F
) " { W } )  <->  ( x  e.  K  /\  (
( O `  F
) `  x )  =  W ) ) )
9523, 94syl 16 . . . . 5  |-  ( ph  ->  ( x  e.  ( `' ( O `  F ) " { W } )  <->  ( x  e.  K  /\  (
( O `  F
) `  x )  =  W ) ) )
96 elun 3512 . . . . . 6  |-  ( x  e.  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } )  <->  ( x  e.  ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  \/  x  e.  { T } ) )
97 fniniseg 5839 . . . . . . . 8  |-  ( ( O `  ( F (quot1p `  R ) G ) )  Fn  K  ->  ( x  e.  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  <->  ( x  e.  K  /\  (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W ) ) )
9872, 97syl 16 . . . . . . 7  |-  ( ph  ->  ( x  e.  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  <->  ( x  e.  K  /\  (
( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W ) ) )
9945simp3d 1002 . . . . . . . . 9  |-  ( ph  ->  ( `' ( O `
 G ) " { W } )  =  { T } )
10099eleq2d 2510 . . . . . . . 8  |-  ( ph  ->  ( x  e.  ( `' ( O `  G ) " { W } )  <->  x  e.  { T } ) )
101 fniniseg 5839 . . . . . . . . 9  |-  ( ( O `  G )  Fn  K  ->  (
x  e.  ( `' ( O `  G
) " { W } )  <->  ( x  e.  K  /\  (
( O `  G
) `  x )  =  W ) ) )
10276, 101syl 16 . . . . . . . 8  |-  ( ph  ->  ( x  e.  ( `' ( O `  G ) " { W } )  <->  ( x  e.  K  /\  (
( O `  G
) `  x )  =  W ) ) )
103100, 102bitr3d 255 . . . . . . 7  |-  ( ph  ->  ( x  e.  { T }  <->  ( x  e.  K  /\  ( ( O `  G ) `
 x )  =  W ) ) )
10498, 103orbi12d 709 . . . . . 6  |-  ( ph  ->  ( ( x  e.  ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  \/  x  e.  { T } )  <-> 
( ( x  e.  K  /\  ( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W )  \/  ( x  e.  K  /\  ( ( O `  G ) `
 x )  =  W ) ) ) )
10596, 104syl5bb 257 . . . . 5  |-  ( ph  ->  ( x  e.  ( ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } )  <->  ( (
x  e.  K  /\  ( ( O `  ( F (quot1p `  R ) G ) ) `  x
)  =  W )  \/  ( x  e.  K  /\  ( ( O `  G ) `
 x )  =  W ) ) ) )
10693, 95, 1053bitr4d 285 . . . 4  |-  ( ph  ->  ( x  e.  ( `' ( O `  F ) " { W } )  <->  x  e.  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) ) )
107106eqrdv 2441 . . 3  |-  ( ph  ->  ( `' ( O `
 F ) " { W } )  =  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )
108107fveq2d 5710 . 2  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  =  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) ) )
109 fvex 5716 . . . . . . . . 9  |-  ( O `
 ( F (quot1p `  R ) G ) )  e.  _V
110109cnvex 6540 . . . . . . . 8  |-  `' ( O `  ( F (quot1p `  R ) G ) )  e.  _V
111 imaexg 6530 . . . . . . . 8  |-  ( `' ( O `  ( F (quot1p `  R ) G ) )  e.  _V  ->  ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  _V )
112110, 111mp1i 12 . . . . . . 7  |-  ( ph  ->  ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  _V )
113 fta1glem.3 . . . . . . 7  |-  ( ph  ->  N  e.  NN0 )
114 fta1glem.6 . . . . . . . . 9  |-  ( ph  ->  A. g  e.  B  ( ( D `  g )  =  N  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) ) )
115 fta1g.z . . . . . . . . . 10  |-  .0.  =  ( 0g `  P )
116 fta1glem.4 . . . . . . . . . 10  |-  ( ph  ->  ( D `  F
)  =  ( N  +  1 ) )
11713, 16, 44, 12, 37, 115, 5, 19, 3, 28, 29, 30, 31, 113, 116, 1fta1glem1 21652 . . . . . . . . 9  |-  ( ph  ->  ( D `  ( F (quot1p `  R ) G ) )  =  N )
118 fveq2 5706 . . . . . . . . . . . 12  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( D `  g )  =  ( D `  ( F (quot1p `  R ) G ) ) )
119118eqeq1d 2451 . . . . . . . . . . 11  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( ( D `
 g )  =  N  <->  ( D `  ( F (quot1p `  R ) G ) )  =  N ) )
120 fveq2 5706 . . . . . . . . . . . . . . 15  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( O `  g )  =  ( O `  ( F (quot1p `  R ) G ) ) )
121120cnveqd 5030 . . . . . . . . . . . . . 14  |-  ( g  =  ( F (quot1p `  R ) G )  ->  `' ( O `
 g )  =  `' ( O `  ( F (quot1p `  R ) G ) ) )
122121imaeq1d 5183 . . . . . . . . . . . . 13  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( `' ( O `  g )
" { W }
)  =  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )
123122fveq2d 5710 . . . . . . . . . . . 12  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( # `  ( `' ( O `  g ) " { W } ) )  =  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) ) )
124123, 118breq12d 4320 . . . . . . . . . . 11  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( ( # `  ( `' ( O `
 g ) " { W } ) )  <_  ( D `  g )  <->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_ 
( D `  ( F (quot1p `  R ) G ) ) ) )
125119, 124imbi12d 320 . . . . . . . . . 10  |-  ( g  =  ( F (quot1p `  R ) G )  ->  ( ( ( D `  g )  =  N  ->  ( # `
 ( `' ( O `  g )
" { W }
) )  <_  ( D `  g )
)  <->  ( ( D `
 ( F (quot1p `  R ) G ) )  =  N  -> 
( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_ 
( D `  ( F (quot1p `  R ) G ) ) ) ) )
126125rspcv 3084 . . . . . . . . 9  |-  ( ( F (quot1p `  R ) G )  e.  B  -> 
( A. g  e.  B  ( ( D `
 g )  =  N  ->  ( # `  ( `' ( O `  g ) " { W } ) )  <_ 
( D `  g
) )  ->  (
( D `  ( F (quot1p `  R ) G ) )  =  N  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_ 
( D `  ( F (quot1p `  R ) G ) ) ) ) )
12757, 114, 117, 126syl3c 61 . . . . . . . 8  |-  ( ph  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_ 
( D `  ( F (quot1p `  R ) G ) ) )
128127, 117breqtrd 4331 . . . . . . 7  |-  ( ph  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_  N )
129 hashbnd 12124 . . . . . . 7  |-  ( ( ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  _V  /\  N  e.  NN0  /\  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  <_  N )  ->  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  e.  Fin )
130112, 113, 128, 129syl3anc 1218 . . . . . 6  |-  ( ph  ->  ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  Fin )
131 snfi 7405 . . . . . 6  |-  { T }  e.  Fin
132 unfi 7594 . . . . . 6  |-  ( ( ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  Fin  /\ 
{ T }  e.  Fin )  ->  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } )  e.  Fin )
133130, 131, 132sylancl 662 . . . . 5  |-  ( ph  ->  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } )  e.  Fin )
134 hashcl 12141 . . . . 5  |-  ( ( ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } )  e.  Fin  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  e. 
NN0 )
135133, 134syl 16 . . . 4  |-  ( ph  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  e. 
NN0 )
136135nn0red 10652 . . 3  |-  ( ph  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  e.  RR )
137 hashcl 12141 . . . . . 6  |-  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  e.  Fin  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  e. 
NN0 )
138130, 137syl 16 . . . . 5  |-  ( ph  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  e. 
NN0 )
139138nn0red 10652 . . . 4  |-  ( ph  ->  ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  e.  RR )
140 peano2re 9557 . . . 4  |-  ( (
# `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  e.  RR  ->  ( ( # `
 ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 )  e.  RR )
141139, 140syl 16 . . 3  |-  ( ph  ->  ( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 )  e.  RR )
142 peano2nn0 10635 . . . . . 6  |-  ( N  e.  NN0  ->  ( N  +  1 )  e. 
NN0 )
143113, 142syl 16 . . . . 5  |-  ( ph  ->  ( N  +  1 )  e.  NN0 )
144116, 143eqeltrd 2517 . . . 4  |-  ( ph  ->  ( D `  F
)  e.  NN0 )
145144nn0red 10652 . . 3  |-  ( ph  ->  ( D `  F
)  e.  RR )
146 hashun2 12161 . . . . 5  |-  ( ( ( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  e.  Fin  /\ 
{ T }  e.  Fin )  ->  ( # `  ( ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  <_ 
( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  ( # `  { T } ) ) )
147130, 131, 146sylancl 662 . . . 4  |-  ( ph  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  <_ 
( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  ( # `  { T } ) ) )
148 hashsng 12151 . . . . . 6  |-  ( T  e.  ( `' ( O `  F )
" { W }
)  ->  ( # `  { T } )  =  1 )
1491, 148syl 16 . . . . 5  |-  ( ph  ->  ( # `  { T } )  =  1 )
150149oveq2d 6122 . . . 4  |-  ( ph  ->  ( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  ( # `  { T } ) )  =  ( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 ) )
151147, 150breqtrd 4331 . . 3  |-  ( ph  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  <_ 
( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 ) )
152113nn0red 10652 . . . . 5  |-  ( ph  ->  N  e.  RR )
153 1red 9416 . . . . 5  |-  ( ph  ->  1  e.  RR )
154139, 152, 153, 128leadd1dd 9968 . . . 4  |-  ( ph  ->  ( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 )  <_  ( N  +  1 ) )
155154, 116breqtrrd 4333 . . 3  |-  ( ph  ->  ( ( # `  ( `' ( O `  ( F (quot1p `  R ) G ) ) " { W } ) )  +  1 )  <_  ( D `  F )
)
156136, 141, 145, 151, 155letrd 9543 . 2  |-  ( ph  ->  ( # `  (
( `' ( O `
 ( F (quot1p `  R ) G ) ) " { W } )  u.  { T } ) )  <_ 
( D `  F
) )
157108, 156eqbrtrd 4327 1  |-  ( ph  ->  ( # `  ( `' ( O `  F ) " { W } ) )  <_ 
( D `  F
) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    \/ wo 368    /\ wa 369    = wceq 1369    e. wcel 1756   A.wral 2730   _Vcvv 2987    u. cun 3341   {csn 3892   class class class wbr 4307   `'ccnv 4854   "cima 4858    Fn wfn 5428   -->wf 5429   ` cfv 5433  (class class class)co 6106    oFcof 6333   Fincfn 7325   RRcr 9296   1c1 9298    + caddc 9300    <_ cle 9434   NN0cn0 10594   #chash 12118   Basecbs 14189   .rcmulr 14254   0gc0g 14393    ^s cpws 14400   -gcsg 15428   Ringcrg 16660   CRingccrg 16661   ||rcdsr 16745   RingHom crh 16819  NzRingcnzr 17354  Domncdomn 17366  IDomncidom 17367  algSccascl 17398  var1cv1 17647  Poly1cpl1 17648  eval1ce1 17764   deg1 cdg1 21538  Monic1pcmn1 21612  Unic1pcuc1p 21613  quot1pcq1p 21614
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 2423  ax-rep 4418  ax-sep 4428  ax-nul 4436  ax-pow 4485  ax-pr 4546  ax-un 6387  ax-inf2 7862  ax-cnex 9353  ax-resscn 9354  ax-1cn 9355  ax-icn 9356  ax-addcl 9357  ax-addrcl 9358  ax-mulcl 9359  ax-mulrcl 9360  ax-mulcom 9361  ax-addass 9362  ax-mulass 9363  ax-distr 9364  ax-i2m1 9365  ax-1ne0 9366  ax-1rid 9367  ax-rnegex 9368  ax-rrecex 9369  ax-cnre 9370  ax-pre-lttri 9371  ax-pre-lttrn 9372  ax-pre-ltadd 9373  ax-pre-mulgt0 9374  ax-pre-sup 9375  ax-addf 9376  ax-mulf 9377
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 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2577  df-ne 2622  df-nel 2623  df-ral 2735  df-rex 2736  df-reu 2737  df-rmo 2738  df-rab 2739  df-v 2989  df-sbc 3202  df-csb 3304  df-dif 3346  df-un 3348  df-in 3350  df-ss 3357  df-pss 3359  df-nul 3653  df-if 3807  df-pw 3877  df-sn 3893  df-pr 3895  df-tp 3897  df-op 3899  df-uni 4107  df-int 4144  df-iun 4188  df-iin 4189  df-br 4308  df-opab 4366  df-mpt 4367  df-tr 4401  df-eprel 4647  df-id 4651  df-po 4656  df-so 4657  df-fr 4694  df-se 4695  df-we 4696  df-ord 4737  df-on 4738  df-lim 4739  df-suc 4740  df-xp 4861  df-rel 4862  df-cnv 4863  df-co 4864  df-dm 4865  df-rn 4866  df-res 4867  df-ima 4868  df-iota 5396  df-fun 5435  df-fn 5436  df-f 5437  df-f1 5438  df-fo 5439  df-f1o 5440  df-fv 5441  df-isom 5442  df-riota 6067  df-ov 6109  df-oprab 6110  df-mpt2 6111  df-of 6335  df-ofr 6336  df-om 6492  df-1st 6592  df-2nd 6593  df-supp 6706  df-tpos 6760  df-recs 6847  df-rdg 6881  df-1o 6935  df-2o 6936  df-oadd 6939  df-er 7116  df-map 7231  df-pm 7232  df-ixp 7279  df-en 7326  df-dom 7327  df-sdom 7328  df-fin 7329  df-fsupp 7636  df-sup 7706  df-oi 7739  df-card 8124  df-cda 8352  df-pnf 9435  df-mnf 9436  df-xr 9437  df-ltxr 9438  df-le 9439  df-sub 9612  df-neg 9613  df-nn 10338  df-2 10395  df-3 10396  df-4 10397  df-5 10398  df-6 10399  df-7 10400  df-8 10401  df-9 10402  df-10 10403  df-n0 10595  df-z 10662  df-dec 10771  df-uz 10877  df-fz 11453  df-fzo 11564  df-seq 11822  df-hash 12119  df-struct 14191  df-ndx 14192  df-slot 14193  df-base 14194  df-sets 14195  df-ress 14196  df-plusg 14266  df-mulr 14267  df-starv 14268  df-sca 14269  df-vsca 14270  df-ip 14271  df-tset 14272  df-ple 14273  df-ds 14275  df-unif 14276  df-hom 14277  df-cco 14278  df-0g 14395  df-gsum 14396  df-prds 14401  df-pws 14403  df-mre 14539  df-mrc 14540  df-acs 14542  df-mnd 15430  df-mhm 15479  df-submnd 15480  df-grp 15560  df-minusg 15561  df-sbg 15562  df-mulg 15563  df-subg 15693  df-ghm 15760  df-cntz 15850  df-cmn 16294  df-abl 16295  df-mgp 16607  df-ur 16619  df-srg 16623  df-rng 16662  df-cring 16663  df-oppr 16730  df-dvdsr 16748  df-unit 16749  df-invr 16779  df-rnghom 16821  df-subrg 16878  df-lmod 16965  df-lss 17029  df-lsp 17068  df-nzr 17355  df-rlreg 17369  df-domn 17370  df-idom 17371  df-assa 17399  df-asp 17400  df-ascl 17401  df-psr 17438  df-mvr 17439  df-mpl 17440  df-opsr 17442  df-evls 17603  df-evl 17604  df-psr1 17651  df-vr1 17652  df-ply1 17653  df-coe1 17654  df-evl1 17766  df-cnfld 17834  df-mdeg 21539  df-deg1 21540  df-mon1 21617  df-uc1p 21618  df-q1p 21619  df-r1p 21620
This theorem is referenced by:  fta1g  21654
  Copyright terms: Public domain W3C validator