Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hbt Structured version   Unicode version

Theorem hbt 35909
Description: The Hilbert Basis Theorem - the ring of univariate polynomials over a Noetherian ring is a Noetherian ring. (Contributed by Stefan O'Rear, 4-Apr-2015.)
Hypothesis
Ref Expression
hbt.p  |-  P  =  (Poly1 `  R )
Assertion
Ref Expression
hbt  |-  ( R  e. LNoeR  ->  P  e. LNoeR )

Proof of Theorem hbt
Dummy variables  a 
b  c  e  f  g  d are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 lnrring 35891 . . 3  |-  ( R  e. LNoeR  ->  R  e.  Ring )
2 hbt.p . . . 4  |-  P  =  (Poly1 `  R )
32ply1ring 18829 . . 3  |-  ( R  e.  Ring  ->  P  e. 
Ring )
41, 3syl 17 . 2  |-  ( R  e. LNoeR  ->  P  e.  Ring )
5 eqid 2422 . . . . . . . 8  |-  ( Base `  R )  =  (
Base `  R )
6 eqid 2422 . . . . . . . 8  |-  (LIdeal `  R )  =  (LIdeal `  R )
75, 6islnr3 35894 . . . . . . 7  |-  ( R  e. LNoeR 
<->  ( R  e.  Ring  /\  (LIdeal `  R )  e.  (NoeACS `  ( Base `  R ) ) ) )
87simprbi 465 . . . . . 6  |-  ( R  e. LNoeR  ->  (LIdeal `  R )  e.  (NoeACS `  ( Base `  R ) ) )
98adantr 466 . . . . 5  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  (LIdeal `  R
)  e.  (NoeACS `  ( Base `  R )
) )
10 eqid 2422 . . . . . . 7  |-  (LIdeal `  P )  =  (LIdeal `  P )
11 eqid 2422 . . . . . . 7  |-  (ldgIdlSeq `  R
)  =  (ldgIdlSeq `  R
)
122, 10, 11, 6hbtlem7 35904 . . . . . 6  |-  ( ( R  e.  Ring  /\  a  e.  (LIdeal `  P )
)  ->  ( (ldgIdlSeq `  R ) `  a
) : NN0 --> (LIdeal `  R ) )
131, 12sylan 473 . . . . 5  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  ( (ldgIdlSeq `  R ) `  a
) : NN0 --> (LIdeal `  R ) )
141ad2antrr 730 . . . . . . 7  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  R  e.  Ring )
15 simplr 760 . . . . . . 7  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  a  e.  (LIdeal `  P ) )
16 simpr 462 . . . . . . 7  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  b  e.  NN0 )
17 peano2nn0 10911 . . . . . . . 8  |-  ( b  e.  NN0  ->  ( b  +  1 )  e. 
NN0 )
1817adantl 467 . . . . . . 7  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  ( b  +  1 )  e. 
NN0 )
19 nn0re 10879 . . . . . . . . 9  |-  ( b  e.  NN0  ->  b  e.  RR )
2019lep1d 10539 . . . . . . . 8  |-  ( b  e.  NN0  ->  b  <_ 
( b  +  1 ) )
2120adantl 467 . . . . . . 7  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  b  <_  ( b  +  1 ) )
222, 10, 11, 14, 15, 16, 18, 21hbtlem4 35905 . . . . . 6  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  b  e.  NN0 )  ->  ( (
(ldgIdlSeq `  R ) `  a ) `  b
)  C_  ( (
(ldgIdlSeq `  R ) `  a ) `  (
b  +  1 ) ) )
2322ralrimiva 2839 . . . . 5  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  A. b  e.  NN0  ( ( (ldgIdlSeq `  R ) `  a
) `  b )  C_  ( ( (ldgIdlSeq `  R
) `  a ) `  ( b  +  1 ) ) )
24 nacsfix 35473 . . . . 5  |-  ( ( (LIdeal `  R )  e.  (NoeACS `  ( Base `  R ) )  /\  ( (ldgIdlSeq `  R ) `  a ) : NN0 --> (LIdeal `  R )  /\  A. b  e.  NN0  ( ( (ldgIdlSeq `  R ) `  a ) `  b
)  C_  ( (
(ldgIdlSeq `  R ) `  a ) `  (
b  +  1 ) ) )  ->  E. c  e.  NN0  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) )
259, 13, 23, 24syl3anc 1264 . . . 4  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  E. c  e.  NN0  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) )
26 fzfi 12185 . . . . . . 7  |-  ( 0 ... c )  e. 
Fin
27 eqid 2422 . . . . . . . . 9  |-  (RSpan `  P )  =  (RSpan `  P )
28 simpll 758 . . . . . . . . 9  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  e  e.  ( 0 ... c
) )  ->  R  e. LNoeR )
29 simplr 760 . . . . . . . . 9  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  e  e.  ( 0 ... c
) )  ->  a  e.  (LIdeal `  P )
)
30 elfznn0 11888 . . . . . . . . . 10  |-  ( e  e.  ( 0 ... c )  ->  e  e.  NN0 )
3130adantl 467 . . . . . . . . 9  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  e  e.  ( 0 ... c
) )  ->  e  e.  NN0 )
322, 10, 11, 27, 28, 29, 31hbtlem6 35908 . . . . . . . 8  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  e  e.  ( 0 ... c
) )  ->  E. b  e.  ( ~P a  i^i 
Fin ) ( ( (ldgIdlSeq `  R ) `  a ) `  e
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  b ) ) `  e ) )
3332ralrimiva 2839 . . . . . . 7  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  A. e  e.  ( 0 ... c
) E. b  e.  ( ~P a  i^i 
Fin ) ( ( (ldgIdlSeq `  R ) `  a ) `  e
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  b ) ) `  e ) )
34 fveq2 5878 . . . . . . . . . . 11  |-  ( b  =  ( f `  e )  ->  (
(RSpan `  P ) `  b )  =  ( (RSpan `  P ) `  ( f `  e
) ) )
3534fveq2d 5882 . . . . . . . . . 10  |-  ( b  =  ( f `  e )  ->  (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  b ) )  =  ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  (
f `  e )
) ) )
3635fveq1d 5880 . . . . . . . . 9  |-  ( b  =  ( f `  e )  ->  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  b )
) `  e )  =  ( ( (ldgIdlSeq `  R ) `  (
(RSpan `  P ) `  ( f `  e
) ) ) `  e ) )
3736sseq2d 3492 . . . . . . . 8  |-  ( b  =  ( f `  e )  ->  (
( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  b )
) `  e )  <->  ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )
3837ac6sfi 7818 . . . . . . 7  |-  ( ( ( 0 ... c
)  e.  Fin  /\  A. e  e.  ( 0 ... c ) E. b  e.  ( ~P a  i^i  Fin )
( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  b )
) `  e )
)  ->  E. f
( f : ( 0 ... c ) --> ( ~P a  i^i 
Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )
3926, 33, 38sylancr 667 . . . . . 6  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  E. f
( f : ( 0 ... c ) --> ( ~P a  i^i 
Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )
4039adantr 466 . . . . 5  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  ( c  e.  NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  ->  E. f ( f : ( 0 ... c ) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )
41 frn 5749 . . . . . . . . . . . . 13  |-  ( f : ( 0 ... c ) --> ( ~P a  i^i  Fin )  ->  ran  f  C_  ( ~P a  i^i  Fin )
)
4241ad2antrl 732 . . . . . . . . . . . 12  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ran  f  C_  ( ~P a  i^i  Fin ) )
43 inss1 3682 . . . . . . . . . . . 12  |-  ( ~P a  i^i  Fin )  C_ 
~P a
4442, 43syl6ss 3476 . . . . . . . . . . 11  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ran  f  C_  ~P a )
4544unissd 4240 . . . . . . . . . 10  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  C_ 
U. ~P a )
46 unipw 4668 . . . . . . . . . 10  |-  U. ~P a  =  a
4745, 46syl6sseq 3510 . . . . . . . . 9  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  C_  a )
48 simpllr 767 . . . . . . . . . 10  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  a  e.  (LIdeal `  P ) )
49 eqid 2422 . . . . . . . . . . 11  |-  ( Base `  P )  =  (
Base `  P )
5049, 10lidlss 18421 . . . . . . . . . 10  |-  ( a  e.  (LIdeal `  P
)  ->  a  C_  ( Base `  P )
)
5148, 50syl 17 . . . . . . . . 9  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  a  C_  ( Base `  P )
)
5247, 51sstrd 3474 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  C_  ( Base `  P
) )
53 fvex 5888 . . . . . . . . 9  |-  ( Base `  P )  e.  _V
5453elpw2 4585 . . . . . . . 8  |-  ( U. ran  f  e.  ~P ( Base `  P )  <->  U.
ran  f  C_  ( Base `  P ) )
5552, 54sylibr 215 . . . . . . 7  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  e.  ~P ( Base `  P
) )
56 simprl 762 . . . . . . . . 9  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  f :
( 0 ... c
) --> ( ~P a  i^i  Fin ) )
57 ffn 5743 . . . . . . . . 9  |-  ( f : ( 0 ... c ) --> ( ~P a  i^i  Fin )  ->  f  Fn  ( 0 ... c ) )
58 fniunfv 6164 . . . . . . . . 9  |-  ( f  Fn  ( 0 ... c )  ->  U_ g  e.  ( 0 ... c
) ( f `  g )  =  U. ran  f )
5956, 57, 583syl 18 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U_ g  e.  ( 0 ... c
) ( f `  g )  =  U. ran  f )
60 inss2 3683 . . . . . . . . . . 11  |-  ( ~P a  i^i  Fin )  C_ 
Fin
6156ffvelrnda 6034 . . . . . . . . . . 11  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e.  ( 0 ... c
) )  ->  (
f `  g )  e.  ( ~P a  i^i 
Fin ) )
6260, 61sseldi 3462 . . . . . . . . . 10  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e.  ( 0 ... c
) )  ->  (
f `  g )  e.  Fin )
6362ralrimiva 2839 . . . . . . . . 9  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  A. g  e.  ( 0 ... c
) ( f `  g )  e.  Fin )
64 iunfi 7865 . . . . . . . . 9  |-  ( ( ( 0 ... c
)  e.  Fin  /\  A. g  e.  ( 0 ... c ) ( f `  g )  e.  Fin )  ->  U_ g  e.  (
0 ... c ) ( f `  g )  e.  Fin )
6526, 63, 64sylancr 667 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U_ g  e.  ( 0 ... c
) ( f `  g )  e.  Fin )
6659, 65eqeltrrd 2511 . . . . . . 7  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  e.  Fin )
6755, 66elind 3650 . . . . . 6  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  e.  ( ~P ( Base `  P )  i^i  Fin ) )
681ad3antrrr 734 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  R  e.  Ring )
694ad3antrrr 734 . . . . . . . . 9  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  P  e.  Ring )
7027, 49, 10rspcl 18434 . . . . . . . . 9  |-  ( ( P  e.  Ring  /\  U. ran  f  C_  ( Base `  P ) )  -> 
( (RSpan `  P
) `  U. ran  f
)  e.  (LIdeal `  P ) )
7169, 52, 70syl2anc 665 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( (RSpan `  P ) `  U. ran  f )  e.  (LIdeal `  P ) )
7227, 10rspssp 18438 . . . . . . . . 9  |-  ( ( P  e.  Ring  /\  a  e.  (LIdeal `  P )  /\  U. ran  f  C_  a )  ->  (
(RSpan `  P ) `  U. ran  f ) 
C_  a )
7369, 48, 47, 72syl3anc 1264 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( (RSpan `  P ) `  U. ran  f )  C_  a
)
74 nn0re 10879 . . . . . . . . . . 11  |-  ( g  e.  NN0  ->  g  e.  RR )
7574adantl 467 . . . . . . . . . 10  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  ->  g  e.  RR )
76 simplrl 768 . . . . . . . . . . . 12  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  c  e.  NN0 )
7776adantr 466 . . . . . . . . . . 11  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  ->  c  e.  NN0 )
7877nn0red 10927 . . . . . . . . . 10  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  ->  c  e.  RR )
79 simprl 762 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
g  e.  NN0 )
80 simprr 764 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
g  <_  c )
8176adantr 466 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
c  e.  NN0 )
82 fznn0 11887 . . . . . . . . . . . . . . 15  |-  ( c  e.  NN0  ->  ( g  e.  ( 0 ... c )  <->  ( g  e.  NN0  /\  g  <_ 
c ) ) )
8381, 82syl 17 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( g  e.  ( 0 ... c )  <-> 
( g  e.  NN0  /\  g  <_  c )
) )
8479, 80, 83mpbir2and 930 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
g  e.  ( 0 ... c ) )
85 simplrr 769 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  ->  A. e  e.  (
0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) )
86 fveq2 5878 . . . . . . . . . . . . . . 15  |-  ( e  =  g  ->  (
( (ldgIdlSeq `  R ) `  a ) `  e
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  g
) )
87 fveq2 5878 . . . . . . . . . . . . . . . . . 18  |-  ( e  =  g  ->  (
f `  e )  =  ( f `  g ) )
8887fveq2d 5882 . . . . . . . . . . . . . . . . 17  |-  ( e  =  g  ->  (
(RSpan `  P ) `  ( f `  e
) )  =  ( (RSpan `  P ) `  ( f `  g
) ) )
8988fveq2d 5882 . . . . . . . . . . . . . . . 16  |-  ( e  =  g  ->  (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  ( f `  e
) ) )  =  ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  (
f `  g )
) ) )
90 id 23 . . . . . . . . . . . . . . . 16  |-  ( e  =  g  ->  e  =  g )
9189, 90fveq12d 5884 . . . . . . . . . . . . . . 15  |-  ( e  =  g  ->  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e )  =  ( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  (
f `  g )
) ) `  g
) )
9286, 91sseq12d 3493 . . . . . . . . . . . . . 14  |-  ( e  =  g  ->  (
( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e )  <->  ( (
(ldgIdlSeq `  R ) `  a ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  ( f `  g
) ) ) `  g ) ) )
9392rspcva 3180 . . . . . . . . . . . . 13  |-  ( ( g  e.  ( 0 ... c )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) )  ->  ( ( (ldgIdlSeq `  R ) `  a
) `  g )  C_  ( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  (
f `  g )
) ) `  g
) )
9484, 85, 93syl2anc 665 . . . . . . . . . . . 12  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  g ) ) ) `
 g ) )
9568adantr 466 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  ->  R  e.  Ring )
96 fvssunirn 5901 . . . . . . . . . . . . . . . 16  |-  ( f `
 g )  C_  U.
ran  f
9796, 52syl5ss 3475 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( f `  g )  C_  ( Base `  P ) )
9827, 49, 10rspcl 18434 . . . . . . . . . . . . . . 15  |-  ( ( P  e.  Ring  /\  (
f `  g )  C_  ( Base `  P
) )  ->  (
(RSpan `  P ) `  ( f `  g
) )  e.  (LIdeal `  P ) )
9969, 97, 98syl2anc 665 . . . . . . . . . . . . . 14  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( (RSpan `  P ) `  (
f `  g )
)  e.  (LIdeal `  P ) )
10099adantr 466 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( (RSpan `  P
) `  ( f `  g ) )  e.  (LIdeal `  P )
)
10171adantr 466 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( (RSpan `  P
) `  U. ran  f
)  e.  (LIdeal `  P ) )
10268, 3syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  P  e.  Ring )
103102adantr 466 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  ->  P  e.  Ring )
10427, 49rspssid 18435 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Ring  /\  U. ran  f  C_  ( Base `  P ) )  ->  U. ran  f  C_  (
(RSpan `  P ) `  U. ran  f ) )
10569, 52, 104syl2anc 665 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  U. ran  f  C_  ( (RSpan `  P
) `  U. ran  f
) )
106105adantr 466 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  ->  U. ran  f  C_  (
(RSpan `  P ) `  U. ran  f ) )
10796, 106syl5ss 3475 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( f `  g
)  C_  ( (RSpan `  P ) `  U. ran  f ) )
10827, 10rspssp 18438 . . . . . . . . . . . . . 14  |-  ( ( P  e.  Ring  /\  (
(RSpan `  P ) `  U. ran  f )  e.  (LIdeal `  P
)  /\  ( f `  g )  C_  (
(RSpan `  P ) `  U. ran  f ) )  ->  ( (RSpan `  P ) `  (
f `  g )
)  C_  ( (RSpan `  P ) `  U. ran  f ) )
109103, 101, 107, 108syl3anc 1264 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( (RSpan `  P
) `  ( f `  g ) )  C_  ( (RSpan `  P ) `  U. ran  f ) )
1102, 10, 11, 95, 100, 101, 109, 79hbtlem3 35906 . . . . . . . . . . . 12  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  (
f `  g )
) ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) )
11194, 110sstrd 3474 . . . . . . . . . . 11  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  g  <_  c ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) )
112111anassrs 652 . . . . . . . . . 10  |-  ( ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  ( c  e.  NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  /\  g  <_  c )  ->  (
( (ldgIdlSeq `  R ) `  a ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) )
113 nn0z 10961 . . . . . . . . . . . . . . . 16  |-  ( c  e.  NN0  ->  c  e.  ZZ )
114113adantr 466 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  NN0  /\  ( g  e.  NN0  /\  c  <_  g )
)  ->  c  e.  ZZ )
115 nn0z 10961 . . . . . . . . . . . . . . . 16  |-  ( g  e.  NN0  ->  g  e.  ZZ )
116115ad2antrl 732 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  NN0  /\  ( g  e.  NN0  /\  c  <_  g )
)  ->  g  e.  ZZ )
117 simprr 764 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  NN0  /\  ( g  e.  NN0  /\  c  <_  g )
)  ->  c  <_  g )
118 eluz2 11166 . . . . . . . . . . . . . . 15  |-  ( g  e.  ( ZZ>= `  c
)  <->  ( c  e.  ZZ  /\  g  e.  ZZ  /\  c  <_ 
g ) )
119114, 116, 117, 118syl3anbrc 1189 . . . . . . . . . . . . . 14  |-  ( ( c  e.  NN0  /\  ( g  e.  NN0  /\  c  <_  g )
)  ->  g  e.  ( ZZ>= `  c )
)
12076, 119sylan 473 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
g  e.  ( ZZ>= `  c ) )
121 simprr 764 . . . . . . . . . . . . . 14  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  ( c  e.  NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  ->  A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) )
122121ad2antrr 730 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  ->  A. d  e.  ( ZZ>=
`  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) )
123 fveq2 5878 . . . . . . . . . . . . . . 15  |-  ( d  =  g  ->  (
( (ldgIdlSeq `  R ) `  a ) `  d
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  g
) )
124123eqeq1d 2424 . . . . . . . . . . . . . 14  |-  ( d  =  g  ->  (
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c )  <->  ( (
(ldgIdlSeq `  R ) `  a ) `  g
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  c
) ) )
125124rspcva 3180 . . . . . . . . . . . . 13  |-  ( ( g  e.  ( ZZ>= `  c )  /\  A. d  e.  ( ZZ>= `  c ) ( ( (ldgIdlSeq `  R ) `  a ) `  d
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  c
) )  ->  (
( (ldgIdlSeq `  R ) `  a ) `  g
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  c
) )
126120, 122, 125syl2anc 665 . . . . . . . . . . . 12  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  g )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) )
12776nn0red 10927 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  c  e.  RR )
128127leidd 10181 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  c  <_  c )
129111expr 618 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  ->  (
g  <_  c  ->  ( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) ) )
130129ralrimiva 2839 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  A. g  e.  NN0  ( g  <_ 
c  ->  ( (
(ldgIdlSeq `  R ) `  a ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) ) )
131 breq1 4423 . . . . . . . . . . . . . . . . . 18  |-  ( g  =  c  ->  (
g  <_  c  <->  c  <_  c ) )
132 fveq2 5878 . . . . . . . . . . . . . . . . . . 19  |-  ( g  =  c  ->  (
( (ldgIdlSeq `  R ) `  a ) `  g
)  =  ( ( (ldgIdlSeq `  R ) `  a ) `  c
) )
133 fveq2 5878 . . . . . . . . . . . . . . . . . . 19  |-  ( g  =  c  ->  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
)  =  ( ( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  c
) )
134132, 133sseq12d 3493 . . . . . . . . . . . . . . . . . 18  |-  ( g  =  c  ->  (
( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
)  <->  ( ( (ldgIdlSeq `  R ) `  a
) `  c )  C_  ( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  U. ran  f ) ) `  c ) ) )
135131, 134imbi12d 321 . . . . . . . . . . . . . . . . 17  |-  ( g  =  c  ->  (
( g  <_  c  ->  ( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) )  <->  ( c  <_  c  ->  ( (
(ldgIdlSeq `  R ) `  a ) `  c
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  c ) ) ) )
136135rspcva 3180 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  NN0  /\  A. g  e.  NN0  (
g  <_  c  ->  ( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) ) )  -> 
( c  <_  c  ->  ( ( (ldgIdlSeq `  R
) `  a ) `  c )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  c
) ) )
13776, 130, 136syl2anc 665 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( c  <_  c  ->  ( (
(ldgIdlSeq `  R ) `  a ) `  c
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  c ) ) )
138128, 137mpd 15 . . . . . . . . . . . . . 14  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( (
(ldgIdlSeq `  R ) `  a ) `  c
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  c ) )
139138adantr 466 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  c )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  c
) )
14068adantr 466 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  ->  R  e.  Ring )
14171adantr 466 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( (RSpan `  P
) `  U. ran  f
)  e.  (LIdeal `  P ) )
14276adantr 466 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
c  e.  NN0 )
143 simprl 762 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
g  e.  NN0 )
144 simprr 764 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
c  <_  g )
1452, 10, 11, 140, 141, 142, 143, 144hbtlem4 35905 . . . . . . . . . . . . 13  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  U. ran  f ) ) `  c )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) )
146139, 145sstrd 3474 . . . . . . . . . . . 12  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  c )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) )
147126, 146eqsstrd 3498 . . . . . . . . . . 11  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  ( g  e.  NN0  /\  c  <_  g ) )  -> 
( ( (ldgIdlSeq `  R
) `  a ) `  g )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  U. ran  f
) ) `  g
) )
148147anassrs 652 . . . . . . . . . 10  |-  ( ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  ( c  e.  NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  /\  c  <_  g )  ->  (
( (ldgIdlSeq `  R ) `  a ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) )
14975, 78, 112, 148lecasei 9741 . . . . . . . . 9  |-  ( ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e. 
NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  /\  g  e. 
NN0 )  ->  (
( (ldgIdlSeq `  R ) `  a ) `  g
)  C_  ( (
(ldgIdlSeq `  R ) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) )
150149ralrimiva 2839 . . . . . . . 8  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  A. g  e.  NN0  ( ( (ldgIdlSeq `  R ) `  a
) `  g )  C_  ( ( (ldgIdlSeq `  R
) `  ( (RSpan `  P ) `  U. ran  f ) ) `  g ) )
1512, 10, 11, 68, 71, 48, 73, 150hbtlem5 35907 . . . . . . 7  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  ( (RSpan `  P ) `  U. ran  f )  =  a )
152151eqcomd 2430 . . . . . 6  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  a  =  ( (RSpan `  P ) `  U. ran  f ) )
153 fveq2 5878 . . . . . . . 8  |-  ( b  =  U. ran  f  ->  ( (RSpan `  P
) `  b )  =  ( (RSpan `  P ) `  U. ran  f ) )
154153eqeq2d 2436 . . . . . . 7  |-  ( b  =  U. ran  f  ->  ( a  =  ( (RSpan `  P ) `  b )  <->  a  =  ( (RSpan `  P ) `  U. ran  f ) ) )
155154rspcev 3182 . . . . . 6  |-  ( ( U. ran  f  e.  ( ~P ( Base `  P )  i^i  Fin )  /\  a  =  ( (RSpan `  P ) `  U. ran  f ) )  ->  E. b  e.  ( ~P ( Base `  P )  i^i  Fin ) a  =  ( (RSpan `  P ) `  b ) )
15667, 152, 155syl2anc 665 . . . . 5  |-  ( ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P ) )  /\  ( c  e.  NN0  /\ 
A. d  e.  (
ZZ>= `  c ) ( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  /\  ( f : ( 0 ... c
) --> ( ~P a  i^i  Fin )  /\  A. e  e.  ( 0 ... c ) ( ( (ldgIdlSeq `  R
) `  a ) `  e )  C_  (
( (ldgIdlSeq `  R ) `  ( (RSpan `  P
) `  ( f `  e ) ) ) `
 e ) ) )  ->  E. b  e.  ( ~P ( Base `  P )  i^i  Fin ) a  =  ( (RSpan `  P ) `  b ) )
15740, 156exlimddv 1770 . . . 4  |-  ( ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  /\  ( c  e.  NN0  /\  A. d  e.  ( ZZ>= `  c )
( ( (ldgIdlSeq `  R
) `  a ) `  d )  =  ( ( (ldgIdlSeq `  R
) `  a ) `  c ) ) )  ->  E. b  e.  ( ~P ( Base `  P
)  i^i  Fin )
a  =  ( (RSpan `  P ) `  b
) )
15825, 157rexlimddv 2921 . . 3  |-  ( ( R  e. LNoeR  /\  a  e.  (LIdeal `  P )
)  ->  E. b  e.  ( ~P ( Base `  P )  i^i  Fin ) a  =  ( (RSpan `  P ) `  b ) )
159158ralrimiva 2839 . 2  |-  ( R  e. LNoeR  ->  A. a  e.  (LIdeal `  P ) E. b  e.  ( ~P ( Base `  P )  i^i  Fin ) a  =  ( (RSpan `  P ) `  b ) )
16049, 10, 27islnr2 35893 . 2  |-  ( P  e. LNoeR 
<->  ( P  e.  Ring  /\ 
A. a  e.  (LIdeal `  P ) E. b  e.  ( ~P ( Base `  P )  i^i  Fin ) a  =  ( (RSpan `  P ) `  b ) ) )
1614, 159, 160sylanbrc 668 1  |-  ( R  e. LNoeR  ->  P  e. LNoeR )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    = wceq 1437   E.wex 1659    e. wcel 1868   A.wral 2775   E.wrex 2776    i^i cin 3435    C_ wss 3436   ~Pcpw 3979   U.cuni 4216   U_ciun 4296   class class class wbr 4420   ran crn 4851    Fn wfn 5593   -->wf 5594   ` cfv 5598  (class class class)co 6302   Fincfn 7574   RRcr 9539   0cc0 9540   1c1 9541    + caddc 9543    <_ cle 9677   NN0cn0 10870   ZZcz 10938   ZZ>=cuz 11160   ...cfz 11785   Basecbs 15109   Ringcrg 17768  LIdealclidl 18381  RSpancrsp 18382  Poly1cpl1 18758  NoeACScnacs 35463  LNoeRclnr 35888  ldgIdlSeqcldgis 35900
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1748  ax-6 1794  ax-7 1839  ax-8 1870  ax-9 1872  ax-10 1887  ax-11 1892  ax-12 1905  ax-13 2053  ax-ext 2400  ax-rep 4533  ax-sep 4543  ax-nul 4552  ax-pow 4599  ax-pr 4657  ax-un 6594  ax-inf2 8149  ax-cnex 9596  ax-resscn 9597  ax-1cn 9598  ax-icn 9599  ax-addcl 9600  ax-addrcl 9601  ax-mulcl 9602  ax-mulrcl 9603  ax-mulcom 9604  ax-addass 9605  ax-mulass 9606  ax-distr 9607  ax-i2m1 9608  ax-1ne0 9609  ax-1rid 9610  ax-rnegex 9611  ax-rrecex 9612  ax-cnre 9613  ax-pre-lttri 9614  ax-pre-lttrn 9615  ax-pre-ltadd 9616  ax-pre-mulgt0 9617  ax-pre-sup 9618  ax-addf 9619  ax-mulf 9620
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1787  df-eu 2269  df-mo 2270  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2572  df-ne 2620  df-nel 2621  df-ral 2780  df-rex 2781  df-reu 2782  df-rmo 2783  df-rab 2784  df-v 3083  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3910  df-pw 3981  df-sn 3997  df-pr 3999  df-tp 4001  df-op 4003  df-uni 4217  df-int 4253  df-iun 4298  df-iin 4299  df-br 4421  df-opab 4480  df-mpt 4481  df-tr 4516  df-eprel 4761  df-id 4765  df-po 4771  df-so 4772  df-fr 4809  df-se 4810  df-we 4811  df-xp 4856  df-rel 4857  df-cnv 4858  df-co 4859  df-dm 4860  df-rn 4861  df-res 4862  df-ima 4863  df-pred 5396  df-ord 5442  df-on 5443  df-lim 5444  df-suc 5445  df-iota 5562  df-fun 5600  df-fn 5601  df-f 5602  df-f1 5603  df-fo 5604  df-f1o 5605  df-fv 5606  df-isom 5607  df-riota 6264  df-ov 6305  df-oprab 6306  df-mpt2 6307  df-of 6542  df-ofr 6543  df-om 6704  df-1st 6804  df-2nd 6805  df-supp 6923  df-tpos 6978  df-wrecs 7033  df-recs 7095  df-rdg 7133  df-1o 7187  df-2o 7188  df-oadd 7191  df-er 7368  df-map 7479  df-pm 7480  df-ixp 7528  df-en 7575  df-dom 7576  df-sdom 7577  df-fin 7578  df-fsupp 7887  df-sup 7959  df-oi 8028  df-card 8375  df-pnf 9678  df-mnf 9679  df-xr 9680  df-ltxr 9681  df-le 9682  df-sub 9863  df-neg 9864  df-nn 10611  df-2 10669  df-3 10670  df-4 10671  df-5 10672  df-6 10673  df-7 10674  df-8 10675  df-9 10676  df-10 10677  df-n0 10871  df-z 10939  df-dec 11053  df-uz 11161  df-fz 11786  df-fzo 11917  df-seq 12214  df-hash 12516  df-struct 15111  df-ndx 15112  df-slot 15113  df-base 15114  df-sets 15115  df-ress 15116  df-plusg 15191  df-mulr 15192  df-starv 15193  df-sca 15194  df-vsca 15195  df-ip 15196  df-tset 15197  df-ple 15198  df-ocomp 15199  df-ds 15200  df-unif 15201  df-0g 15328  df-gsum 15329  df-mre 15480  df-mrc 15481  df-acs 15483  df-preset 16161  df-drs 16162  df-poset 16179  df-ipo 16386  df-mgm 16476  df-sgrp 16515  df-mnd 16525  df-mhm 16570  df-submnd 16571  df-grp 16661  df-minusg 16662  df-sbg 16663  df-mulg 16664  df-subg 16802  df-ghm 16869  df-cntz 16959  df-cmn 17420  df-abl 17421  df-mgp 17712  df-ur 17724  df-ring 17770  df-cring 17771  df-oppr 17839  df-dvdsr 17857  df-unit 17858  df-invr 17888  df-subrg 17994  df-lmod 18081  df-lss 18144  df-lsp 18183  df-sra 18383  df-rgmod 18384  df-lidl 18385  df-rsp 18386  df-rlreg 18495  df-ascl 18526  df-psr 18568  df-mvr 18569  df-mpl 18570  df-opsr 18572  df-psr1 18761  df-vr1 18762  df-ply1 18763  df-coe1 18764  df-cnfld 18959  df-mdeg 22991  df-deg1 22992  df-nacs 35464  df-lfig 35846  df-lnm 35854  df-lnr 35889  df-ldgis 35901
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator