Metamath Proof Explorer


Theorem abelthlem5

Description: Lemma for abelth . (Contributed by Mario Carneiro, 1-Apr-2015)

Ref Expression
Hypotheses abelth.1
|- ( ph -> A : NN0 --> CC )
abelth.2
|- ( ph -> seq 0 ( + , A ) e. dom ~~> )
abelth.3
|- ( ph -> M e. RR )
abelth.4
|- ( ph -> 0 <_ M )
abelth.5
|- S = { z e. CC | ( abs ` ( 1 - z ) ) <_ ( M x. ( 1 - ( abs ` z ) ) ) }
abelth.6
|- F = ( x e. S |-> sum_ n e. NN0 ( ( A ` n ) x. ( x ^ n ) ) )
abelth.7
|- ( ph -> seq 0 ( + , A ) ~~> 0 )
Assertion abelthlem5
|- ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) -> seq 0 ( + , ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ) e. dom ~~> )

Proof

Step Hyp Ref Expression
1 abelth.1
 |-  ( ph -> A : NN0 --> CC )
2 abelth.2
 |-  ( ph -> seq 0 ( + , A ) e. dom ~~> )
3 abelth.3
 |-  ( ph -> M e. RR )
4 abelth.4
 |-  ( ph -> 0 <_ M )
5 abelth.5
 |-  S = { z e. CC | ( abs ` ( 1 - z ) ) <_ ( M x. ( 1 - ( abs ` z ) ) ) }
6 abelth.6
 |-  F = ( x e. S |-> sum_ n e. NN0 ( ( A ` n ) x. ( x ^ n ) ) )
7 abelth.7
 |-  ( ph -> seq 0 ( + , A ) ~~> 0 )
8 nn0uz
 |-  NN0 = ( ZZ>= ` 0 )
9 0zd
 |-  ( ph -> 0 e. ZZ )
10 1rp
 |-  1 e. RR+
11 10 a1i
 |-  ( ph -> 1 e. RR+ )
12 eqidd
 |-  ( ( ph /\ m e. NN0 ) -> ( seq 0 ( + , A ) ` m ) = ( seq 0 ( + , A ) ` m ) )
13 8 9 11 12 7 climi0
 |-  ( ph -> E. j e. NN0 A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 )
14 13 adantr
 |-  ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) -> E. j e. NN0 A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 )
15 simprl
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> j e. NN0 )
16 oveq2
 |-  ( n = i -> ( ( abs ` X ) ^ n ) = ( ( abs ` X ) ^ i ) )
17 eqid
 |-  ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) = ( n e. NN0 |-> ( ( abs ` X ) ^ n ) )
18 ovex
 |-  ( ( abs ` X ) ^ i ) e. _V
19 16 17 18 fvmpt
 |-  ( i e. NN0 -> ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) = ( ( abs ` X ) ^ i ) )
20 19 adantl
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) = ( ( abs ` X ) ^ i ) )
21 cnxmet
 |-  ( abs o. - ) e. ( *Met ` CC )
22 0cn
 |-  0 e. CC
23 1xr
 |-  1 e. RR*
24 blssm
 |-  ( ( ( abs o. - ) e. ( *Met ` CC ) /\ 0 e. CC /\ 1 e. RR* ) -> ( 0 ( ball ` ( abs o. - ) ) 1 ) C_ CC )
25 21 22 23 24 mp3an
 |-  ( 0 ( ball ` ( abs o. - ) ) 1 ) C_ CC
26 simplr
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) )
27 25 26 sselid
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> X e. CC )
28 27 abscld
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` X ) e. RR )
29 reexpcl
 |-  ( ( ( abs ` X ) e. RR /\ i e. NN0 ) -> ( ( abs ` X ) ^ i ) e. RR )
30 28 29 sylan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( abs ` X ) ^ i ) e. RR )
31 20 30 eqeltrd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) e. RR )
32 fveq2
 |-  ( k = i -> ( seq 0 ( + , A ) ` k ) = ( seq 0 ( + , A ) ` i ) )
33 oveq2
 |-  ( k = i -> ( X ^ k ) = ( X ^ i ) )
34 32 33 oveq12d
 |-  ( k = i -> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) = ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) )
35 eqid
 |-  ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) = ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) )
36 ovex
 |-  ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) e. _V
37 34 35 36 fvmpt
 |-  ( i e. NN0 -> ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) = ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) )
38 37 adantl
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) = ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) )
39 1 ffvelrnda
 |-  ( ( ph /\ x e. NN0 ) -> ( A ` x ) e. CC )
40 8 9 39 serf
 |-  ( ph -> seq 0 ( + , A ) : NN0 --> CC )
41 40 ad2antrr
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> seq 0 ( + , A ) : NN0 --> CC )
42 41 ffvelrnda
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( seq 0 ( + , A ) ` i ) e. CC )
43 expcl
 |-  ( ( X e. CC /\ i e. NN0 ) -> ( X ^ i ) e. CC )
44 27 43 sylan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( X ^ i ) e. CC )
45 42 44 mulcld
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) e. CC )
46 38 45 eqeltrd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. NN0 ) -> ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) e. CC )
47 28 recnd
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` X ) e. CC )
48 absidm
 |-  ( X e. CC -> ( abs ` ( abs ` X ) ) = ( abs ` X ) )
49 27 48 syl
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` ( abs ` X ) ) = ( abs ` X ) )
50 eqid
 |-  ( abs o. - ) = ( abs o. - )
51 50 cnmetdval
 |-  ( ( X e. CC /\ 0 e. CC ) -> ( X ( abs o. - ) 0 ) = ( abs ` ( X - 0 ) ) )
52 27 22 51 sylancl
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( X ( abs o. - ) 0 ) = ( abs ` ( X - 0 ) ) )
53 27 subid1d
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( X - 0 ) = X )
54 53 fveq2d
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` ( X - 0 ) ) = ( abs ` X ) )
55 52 54 eqtrd
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( X ( abs o. - ) 0 ) = ( abs ` X ) )
56 elbl3
 |-  ( ( ( ( abs o. - ) e. ( *Met ` CC ) /\ 1 e. RR* ) /\ ( 0 e. CC /\ X e. CC ) ) -> ( X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) <-> ( X ( abs o. - ) 0 ) < 1 ) )
57 21 23 56 mpanl12
 |-  ( ( 0 e. CC /\ X e. CC ) -> ( X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) <-> ( X ( abs o. - ) 0 ) < 1 ) )
58 22 27 57 sylancr
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) <-> ( X ( abs o. - ) 0 ) < 1 ) )
59 26 58 mpbid
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( X ( abs o. - ) 0 ) < 1 )
60 55 59 eqbrtrrd
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` X ) < 1 )
61 49 60 eqbrtrd
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> ( abs ` ( abs ` X ) ) < 1 )
62 47 61 20 geolim
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> seq 0 ( + , ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ) ~~> ( 1 / ( 1 - ( abs ` X ) ) ) )
63 climrel
 |-  Rel ~~>
64 63 releldmi
 |-  ( seq 0 ( + , ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ) ~~> ( 1 / ( 1 - ( abs ` X ) ) ) -> seq 0 ( + , ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ) e. dom ~~> )
65 62 64 syl
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> seq 0 ( + , ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ) e. dom ~~> )
66 1red
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> 1 e. RR )
67 41 adantr
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> seq 0 ( + , A ) : NN0 --> CC )
68 eluznn0
 |-  ( ( j e. NN0 /\ i e. ( ZZ>= ` j ) ) -> i e. NN0 )
69 15 68 sylan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> i e. NN0 )
70 67 69 ffvelrnd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( seq 0 ( + , A ) ` i ) e. CC )
71 69 44 syldan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( X ^ i ) e. CC )
72 70 71 absmuld
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) ) = ( ( abs ` ( seq 0 ( + , A ) ` i ) ) x. ( abs ` ( X ^ i ) ) ) )
73 27 adantr
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> X e. CC )
74 73 69 absexpd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( X ^ i ) ) = ( ( abs ` X ) ^ i ) )
75 74 oveq2d
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( abs ` ( seq 0 ( + , A ) ` i ) ) x. ( abs ` ( X ^ i ) ) ) = ( ( abs ` ( seq 0 ( + , A ) ` i ) ) x. ( ( abs ` X ) ^ i ) ) )
76 72 75 eqtrd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) ) = ( ( abs ` ( seq 0 ( + , A ) ` i ) ) x. ( ( abs ` X ) ^ i ) ) )
77 70 abscld
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( seq 0 ( + , A ) ` i ) ) e. RR )
78 1red
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> 1 e. RR )
79 69 30 syldan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( abs ` X ) ^ i ) e. RR )
80 71 absge0d
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> 0 <_ ( abs ` ( X ^ i ) ) )
81 80 74 breqtrd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> 0 <_ ( ( abs ` X ) ^ i ) )
82 simprr
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 )
83 2fveq3
 |-  ( m = i -> ( abs ` ( seq 0 ( + , A ) ` m ) ) = ( abs ` ( seq 0 ( + , A ) ` i ) ) )
84 83 breq1d
 |-  ( m = i -> ( ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 <-> ( abs ` ( seq 0 ( + , A ) ` i ) ) < 1 ) )
85 84 rspccva
 |-  ( ( A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( seq 0 ( + , A ) ` i ) ) < 1 )
86 82 85 sylan
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( seq 0 ( + , A ) ` i ) ) < 1 )
87 1re
 |-  1 e. RR
88 ltle
 |-  ( ( ( abs ` ( seq 0 ( + , A ) ` i ) ) e. RR /\ 1 e. RR ) -> ( ( abs ` ( seq 0 ( + , A ) ` i ) ) < 1 -> ( abs ` ( seq 0 ( + , A ) ` i ) ) <_ 1 ) )
89 77 87 88 sylancl
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( abs ` ( seq 0 ( + , A ) ` i ) ) < 1 -> ( abs ` ( seq 0 ( + , A ) ` i ) ) <_ 1 ) )
90 86 89 mpd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( seq 0 ( + , A ) ` i ) ) <_ 1 )
91 77 78 79 81 90 lemul1ad
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( abs ` ( seq 0 ( + , A ) ` i ) ) x. ( ( abs ` X ) ^ i ) ) <_ ( 1 x. ( ( abs ` X ) ^ i ) ) )
92 76 91 eqbrtrd
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) ) <_ ( 1 x. ( ( abs ` X ) ^ i ) ) )
93 69 37 syl
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) = ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) )
94 93 fveq2d
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) ) = ( abs ` ( ( seq 0 ( + , A ) ` i ) x. ( X ^ i ) ) ) )
95 69 19 syl
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) = ( ( abs ` X ) ^ i ) )
96 95 oveq2d
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( 1 x. ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) ) = ( 1 x. ( ( abs ` X ) ^ i ) ) )
97 92 94 96 3brtr4d
 |-  ( ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) /\ i e. ( ZZ>= ` j ) ) -> ( abs ` ( ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ` i ) ) <_ ( 1 x. ( ( n e. NN0 |-> ( ( abs ` X ) ^ n ) ) ` i ) ) )
98 8 15 31 46 65 66 97 cvgcmpce
 |-  ( ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) /\ ( j e. NN0 /\ A. m e. ( ZZ>= ` j ) ( abs ` ( seq 0 ( + , A ) ` m ) ) < 1 ) ) -> seq 0 ( + , ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ) e. dom ~~> )
99 14 98 rexlimddv
 |-  ( ( ph /\ X e. ( 0 ( ball ` ( abs o. - ) ) 1 ) ) -> seq 0 ( + , ( k e. NN0 |-> ( ( seq 0 ( + , A ) ` k ) x. ( X ^ k ) ) ) ) e. dom ~~> )