Step | Hyp | Ref
| Expression |
1 | | fclim 15494 |
. . . . . . . 8
β’ β
:dom β βΆβ |
2 | | ffun 6718 |
. . . . . . . 8
β’ ( β
:dom β βΆβ β Fun β ) |
3 | 1, 2 | ax-mp 5 |
. . . . . . 7
β’ Fun
β |
4 | | ntrivcvgtail.3 |
. . . . . . 7
β’ (π β seqπ( Β· , πΉ) β π) |
5 | | funbrfv 6940 |
. . . . . . 7
β’ (Fun
β β (seqπ(
Β· , πΉ) β π β ( β
βseqπ( Β· ,
πΉ)) = π)) |
6 | 3, 4, 5 | mpsyl 68 |
. . . . . 6
β’ (π β ( β βseqπ( Β· , πΉ)) = π) |
7 | | ntrivcvgtail.4 |
. . . . . 6
β’ (π β π β 0) |
8 | 6, 7 | eqnetrd 3009 |
. . . . 5
β’ (π β ( β βseqπ( Β· , πΉ)) β 0) |
9 | 4, 6 | breqtrrd 5176 |
. . . . 5
β’ (π β seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ))) |
10 | 8, 9 | jca 513 |
. . . 4
β’ (π β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |
11 | 10 | adantr 482 |
. . 3
β’ ((π β§ π = π) β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |
12 | | seqeq1 13966 |
. . . . . . 7
β’ (π = π β seqπ( Β· , πΉ) = seqπ( Β· , πΉ)) |
13 | 12 | fveq2d 6893 |
. . . . . 6
β’ (π = π β ( β βseqπ( Β· , πΉ)) = ( β βseqπ( Β· , πΉ))) |
14 | 13 | neeq1d 3001 |
. . . . 5
β’ (π = π β (( β βseqπ( Β· , πΉ)) β 0 β ( β βseqπ( Β· , πΉ)) β 0)) |
15 | 12, 13 | breq12d 5161 |
. . . . 5
β’ (π = π β (seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)) β seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |
16 | 14, 15 | anbi12d 632 |
. . . 4
β’ (π = π β ((( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ))) β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ))))) |
17 | 16 | adantl 483 |
. . 3
β’ ((π β§ π = π) β ((( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ))) β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ))))) |
18 | 11, 17 | mpbird 257 |
. 2
β’ ((π β§ π = π) β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |
19 | | ntrivcvgtail.1 |
. . . . . 6
β’ π =
(β€β₯βπ) |
20 | | simpr 486 |
. . . . . . 7
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (π β 1) β
(β€β₯βπ)) |
21 | 20, 19 | eleqtrrdi 2845 |
. . . . . 6
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (π β 1) β π) |
22 | | ntrivcvgtail.5 |
. . . . . . 7
β’ ((π β§ π β π) β (πΉβπ) β β) |
23 | 22 | adantlr 714 |
. . . . . 6
β’ (((π β§ (π β 1) β
(β€β₯βπ)) β§ π β π) β (πΉβπ) β β) |
24 | 4 | adantr 482 |
. . . . . 6
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β seqπ( Β· , πΉ) β π) |
25 | 7 | adantr 482 |
. . . . . . 7
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β π β 0) |
26 | 19, 21, 24, 25, 23 | ntrivcvgfvn0 15842 |
. . . . . 6
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (seqπ( Β· , πΉ)β(π β 1)) β 0) |
27 | 19, 21, 23, 24, 26 | clim2div 15832 |
. . . . 5
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β seq((π β 1) + 1)( Β· , πΉ) β (π / (seqπ( Β· , πΉ)β(π β 1)))) |
28 | | funbrfv 6940 |
. . . . 5
β’ (Fun
β β (seq((π
β 1) + 1)( Β· , πΉ) β (π / (seqπ( Β· , πΉ)β(π β 1))) β ( β
βseq((π β 1) +
1)( Β· , πΉ)) = (π / (seqπ( Β· , πΉ)β(π β 1))))) |
29 | 3, 27, 28 | mpsyl 68 |
. . . 4
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β ( β βseq((π β 1) + 1)( Β· ,
πΉ)) = (π / (seqπ( Β· , πΉ)β(π β 1)))) |
30 | | climcl 15440 |
. . . . . . 7
β’ (seqπ( Β· , πΉ) β π β π β β) |
31 | 4, 30 | syl 17 |
. . . . . 6
β’ (π β π β β) |
32 | 31 | adantr 482 |
. . . . 5
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β π β β) |
33 | | ntrivcvgtail.2 |
. . . . . . . . 9
β’ (π β π β π) |
34 | | eluzel2 12824 |
. . . . . . . . . 10
β’ (π β
(β€β₯βπ) β π β β€) |
35 | 34, 19 | eleq2s 2852 |
. . . . . . . . 9
β’ (π β π β π β β€) |
36 | 33, 35 | syl 17 |
. . . . . . . 8
β’ (π β π β β€) |
37 | 19, 36, 22 | prodf 15830 |
. . . . . . 7
β’ (π β seqπ( Β· , πΉ):πβΆβ) |
38 | 19 | feq2i 6707 |
. . . . . . 7
β’ (seqπ( Β· , πΉ):πβΆβ β seqπ( Β· , πΉ):(β€β₯βπ)βΆβ) |
39 | 37, 38 | sylib 217 |
. . . . . 6
β’ (π β seqπ( Β· , πΉ):(β€β₯βπ)βΆβ) |
40 | 39 | ffvelcdmda 7084 |
. . . . 5
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (seqπ( Β· , πΉ)β(π β 1)) β
β) |
41 | 32, 40, 25, 26 | divne0d 12003 |
. . . 4
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (π / (seqπ( Β· , πΉ)β(π β 1))) β 0) |
42 | 29, 41 | eqnetrd 3009 |
. . 3
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β ( β βseq((π β 1) + 1)( Β· ,
πΉ)) β
0) |
43 | 27, 29 | breqtrrd 5176 |
. . 3
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β seq((π β 1) + 1)( Β· , πΉ) β ( β
βseq((π β 1) +
1)( Β· , πΉ))) |
44 | | uzssz 12840 |
. . . . . . . . . . . 12
β’
(β€β₯βπ) β β€ |
45 | 19, 44 | eqsstri 4016 |
. . . . . . . . . . 11
β’ π β
β€ |
46 | 45, 33 | sselid 3980 |
. . . . . . . . . 10
β’ (π β π β β€) |
47 | 46 | zcnd 12664 |
. . . . . . . . 9
β’ (π β π β β) |
48 | 47 | adantr 482 |
. . . . . . . 8
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β π β β) |
49 | | 1cnd 11206 |
. . . . . . . 8
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β 1 β β) |
50 | 48, 49 | npcand 11572 |
. . . . . . 7
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β ((π β 1) + 1) = π) |
51 | 50 | seqeq1d 13969 |
. . . . . 6
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β seq((π β 1) + 1)( Β· , πΉ) = seqπ( Β· , πΉ)) |
52 | 51 | fveq2d 6893 |
. . . . 5
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β ( β βseq((π β 1) + 1)( Β· ,
πΉ)) = ( β
βseqπ( Β· ,
πΉ))) |
53 | 52 | neeq1d 3001 |
. . . 4
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (( β βseq((π β 1) + 1)( Β· ,
πΉ)) β 0 β ( β
βseqπ( Β· ,
πΉ)) β
0)) |
54 | 51, 52 | breq12d 5161 |
. . . 4
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (seq((π β 1) + 1)( Β· , πΉ) β ( β
βseq((π β 1) +
1)( Β· , πΉ)) β
seqπ( Β· , πΉ) β ( β
βseqπ( Β· ,
πΉ)))) |
55 | 53, 54 | anbi12d 632 |
. . 3
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β ((( β βseq((π β 1) + 1)( Β· ,
πΉ)) β 0 β§ seq((π β 1) + 1)( Β· ,
πΉ) β ( β
βseq((π β 1) +
1)( Β· , πΉ))) β
(( β βseqπ(
Β· , πΉ)) β 0 β§
seqπ( Β· , πΉ) β ( β
βseqπ( Β· ,
πΉ))))) |
56 | 42, 43, 55 | mpbi2and 711 |
. 2
β’ ((π β§ (π β 1) β
(β€β₯βπ)) β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |
57 | 33, 19 | eleqtrdi 2844 |
. . 3
β’ (π β π β (β€β₯βπ)) |
58 | | uzm1 12857 |
. . 3
β’ (π β
(β€β₯βπ) β (π = π β¨ (π β 1) β
(β€β₯βπ))) |
59 | 57, 58 | syl 17 |
. 2
β’ (π β (π = π β¨ (π β 1) β
(β€β₯βπ))) |
60 | 18, 56, 59 | mpjaodan 958 |
1
β’ (π β (( β βseqπ( Β· , πΉ)) β 0 β§ seqπ( Β· , πΉ) β ( β βseqπ( Β· , πΉ)))) |