Step | Hyp | Ref
| Expression |
1 | | ftalem.1 |
. . . . . 6
β’ π΄ = (coeffβπΉ) |
2 | | ftalem.2 |
. . . . . 6
β’ π = (degβπΉ) |
3 | | ftalem.3 |
. . . . . 6
β’ (π β πΉ β (Polyβπ)) |
4 | | ftalem.4 |
. . . . . 6
β’ (π β π β β) |
5 | | ftalem4.5 |
. . . . . 6
β’ (π β (πΉβ0) β 0) |
6 | | ftalem4.6 |
. . . . . 6
β’ πΎ = inf({π β β β£ (π΄βπ) β 0}, β, < ) |
7 | | ftalem4.7 |
. . . . . 6
β’ π = (-((πΉβ0) / (π΄βπΎ))βπ(1 / πΎ)) |
8 | | ftalem4.8 |
. . . . . 6
β’ π = ((absβ(πΉβ0)) / (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1)) |
9 | | ftalem4.9 |
. . . . . 6
β’ π = if(1 β€ π, 1, π) |
10 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ftalem4 26570 |
. . . . 5
β’ (π β ((πΎ β β β§ (π΄βπΎ) β 0) β§ (π β β β§ π β β+ β§ π β
β+))) |
11 | 10 | simprd 497 |
. . . 4
β’ (π β (π β β β§ π β β+ β§ π β
β+)) |
12 | 11 | simp1d 1143 |
. . 3
β’ (π β π β β) |
13 | 11 | simp3d 1145 |
. . . . 5
β’ (π β π β
β+) |
14 | 13 | rpred 13013 |
. . . 4
β’ (π β π β β) |
15 | 14 | recnd 11239 |
. . 3
β’ (π β π β β) |
16 | 12, 15 | mulcld 11231 |
. 2
β’ (π β (π Β· π) β β) |
17 | | plyf 25704 |
. . . . . 6
β’ (πΉ β (Polyβπ) β πΉ:ββΆβ) |
18 | 3, 17 | syl 17 |
. . . . 5
β’ (π β πΉ:ββΆβ) |
19 | 18, 16 | ffvelcdmd 7085 |
. . . 4
β’ (π β (πΉβ(π Β· π)) β β) |
20 | 19 | abscld 15380 |
. . 3
β’ (π β (absβ(πΉβ(π Β· π))) β β) |
21 | | 0cn 11203 |
. . . . . . 7
β’ 0 β
β |
22 | | ffvelcdm 7081 |
. . . . . . 7
β’ ((πΉ:ββΆβ β§ 0
β β) β (πΉβ0) β β) |
23 | 18, 21, 22 | sylancl 587 |
. . . . . 6
β’ (π β (πΉβ0) β β) |
24 | 23 | abscld 15380 |
. . . . 5
β’ (π β (absβ(πΉβ0)) β
β) |
25 | 10 | simpld 496 |
. . . . . . . . 9
β’ (π β (πΎ β β β§ (π΄βπΎ) β 0)) |
26 | 25 | simpld 496 |
. . . . . . . 8
β’ (π β πΎ β β) |
27 | 26 | nnnn0d 12529 |
. . . . . . 7
β’ (π β πΎ β
β0) |
28 | 14, 27 | reexpcld 14125 |
. . . . . 6
β’ (π β (πβπΎ) β β) |
29 | 24, 28 | remulcld 11241 |
. . . . 5
β’ (π β ((absβ(πΉβ0)) Β· (πβπΎ)) β β) |
30 | 24, 29 | resubcld 11639 |
. . . 4
β’ (π β ((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) β
β) |
31 | | fzfid 13935 |
. . . . . 6
β’ (π β ((πΎ + 1)...π) β Fin) |
32 | 1 | coef3 25738 |
. . . . . . . . 9
β’ (πΉ β (Polyβπ) β π΄:β0βΆβ) |
33 | 3, 32 | syl 17 |
. . . . . . . 8
β’ (π β π΄:β0βΆβ) |
34 | | peano2nn0 12509 |
. . . . . . . . . 10
β’ (πΎ β β0
β (πΎ + 1) β
β0) |
35 | 27, 34 | syl 17 |
. . . . . . . . 9
β’ (π β (πΎ + 1) β
β0) |
36 | | elfzuz 13494 |
. . . . . . . . 9
β’ (π β ((πΎ + 1)...π) β π β (β€β₯β(πΎ + 1))) |
37 | | eluznn0 12898 |
. . . . . . . . 9
β’ (((πΎ + 1) β β0
β§ π β
(β€β₯β(πΎ + 1))) β π β β0) |
38 | 35, 36, 37 | syl2an 597 |
. . . . . . . 8
β’ ((π β§ π β ((πΎ + 1)...π)) β π β β0) |
39 | | ffvelcdm 7081 |
. . . . . . . 8
β’ ((π΄:β0βΆβ β§
π β
β0) β (π΄βπ) β β) |
40 | 33, 38, 39 | syl2an2r 684 |
. . . . . . 7
β’ ((π β§ π β ((πΎ + 1)...π)) β (π΄βπ) β β) |
41 | 16 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β ((πΎ + 1)...π)) β (π Β· π) β β) |
42 | 41, 38 | expcld 14108 |
. . . . . . 7
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π Β· π)βπ) β β) |
43 | 40, 42 | mulcld 11231 |
. . . . . 6
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π΄βπ) Β· ((π Β· π)βπ)) β β) |
44 | 31, 43 | fsumcl 15676 |
. . . . 5
β’ (π β Ξ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)) β β) |
45 | 44 | abscld 15380 |
. . . 4
β’ (π β (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))) β β) |
46 | 30, 45 | readdcld 11240 |
. . 3
β’ (π β (((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) β β) |
47 | | fzfid 13935 |
. . . . . 6
β’ (π β (0...πΎ) β Fin) |
48 | | elfznn0 13591 |
. . . . . . . 8
β’ (π β (0...πΎ) β π β β0) |
49 | 33, 48, 39 | syl2an 597 |
. . . . . . 7
β’ ((π β§ π β (0...πΎ)) β (π΄βπ) β β) |
50 | | expcl 14042 |
. . . . . . . 8
β’ (((π Β· π) β β β§ π β β0) β ((π Β· π)βπ) β β) |
51 | 16, 48, 50 | syl2an 597 |
. . . . . . 7
β’ ((π β§ π β (0...πΎ)) β ((π Β· π)βπ) β β) |
52 | 49, 51 | mulcld 11231 |
. . . . . 6
β’ ((π β§ π β (0...πΎ)) β ((π΄βπ) Β· ((π Β· π)βπ)) β β) |
53 | 47, 52 | fsumcl 15676 |
. . . . 5
β’ (π β Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) β β) |
54 | 53, 44 | abstrid 15400 |
. . . 4
β’ (π β (absβ(Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) + Ξ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) β€ ((absβΞ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))))) |
55 | 1, 2 | coeid2 25745 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ (π Β· π) β β) β (πΉβ(π Β· π)) = Ξ£π β (0...π)((π΄βπ) Β· ((π Β· π)βπ))) |
56 | 3, 16, 55 | syl2anc 585 |
. . . . . 6
β’ (π β (πΉβ(π Β· π)) = Ξ£π β (0...π)((π΄βπ) Β· ((π Β· π)βπ))) |
57 | 26 | nnred 12224 |
. . . . . . . . 9
β’ (π β πΎ β β) |
58 | 57 | ltp1d 12141 |
. . . . . . . 8
β’ (π β πΎ < (πΎ + 1)) |
59 | | fzdisj 13525 |
. . . . . . . 8
β’ (πΎ < (πΎ + 1) β ((0...πΎ) β© ((πΎ + 1)...π)) = β
) |
60 | 58, 59 | syl 17 |
. . . . . . 7
β’ (π β ((0...πΎ) β© ((πΎ + 1)...π)) = β
) |
61 | | ssrab2 4077 |
. . . . . . . . . . . 12
β’ {π β β β£ (π΄βπ) β 0} β β |
62 | | nnuz 12862 |
. . . . . . . . . . . 12
β’ β =
(β€β₯β1) |
63 | 61, 62 | sseqtri 4018 |
. . . . . . . . . . 11
β’ {π β β β£ (π΄βπ) β 0} β
(β€β₯β1) |
64 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = π β (π΄βπ) = (π΄βπ)) |
65 | 64 | neeq1d 3001 |
. . . . . . . . . . . 12
β’ (π = π β ((π΄βπ) β 0 β (π΄βπ) β 0)) |
66 | 4 | nnne0d 12259 |
. . . . . . . . . . . . 13
β’ (π β π β 0) |
67 | 2, 1 | dgreq0 25771 |
. . . . . . . . . . . . . . . 16
β’ (πΉ β (Polyβπ) β (πΉ = 0π β (π΄βπ) = 0)) |
68 | 3, 67 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (π β (πΉ = 0π β (π΄βπ) = 0)) |
69 | | fveq2 6889 |
. . . . . . . . . . . . . . . . 17
β’ (πΉ = 0π β
(degβπΉ) =
(degβ0π)) |
70 | | dgr0 25768 |
. . . . . . . . . . . . . . . . 17
β’
(degβ0π) = 0 |
71 | 69, 70 | eqtrdi 2789 |
. . . . . . . . . . . . . . . 16
β’ (πΉ = 0π β
(degβπΉ) =
0) |
72 | 2, 71 | eqtrid 2785 |
. . . . . . . . . . . . . . 15
β’ (πΉ = 0π β
π = 0) |
73 | 68, 72 | syl6bir 254 |
. . . . . . . . . . . . . 14
β’ (π β ((π΄βπ) = 0 β π = 0)) |
74 | 73 | necon3d 2962 |
. . . . . . . . . . . . 13
β’ (π β (π β 0 β (π΄βπ) β 0)) |
75 | 66, 74 | mpd 15 |
. . . . . . . . . . . 12
β’ (π β (π΄βπ) β 0) |
76 | 65, 4, 75 | elrabd 3685 |
. . . . . . . . . . 11
β’ (π β π β {π β β β£ (π΄βπ) β 0}) |
77 | | infssuzle 12912 |
. . . . . . . . . . 11
β’ (({π β β β£ (π΄βπ) β 0} β
(β€β₯β1) β§ π β {π β β β£ (π΄βπ) β 0}) β inf({π β β β£ (π΄βπ) β 0}, β, < ) β€ π) |
78 | 63, 76, 77 | sylancr 588 |
. . . . . . . . . 10
β’ (π β inf({π β β β£ (π΄βπ) β 0}, β, < ) β€ π) |
79 | 6, 78 | eqbrtrid 5183 |
. . . . . . . . 9
β’ (π β πΎ β€ π) |
80 | | nn0uz 12861 |
. . . . . . . . . . 11
β’
β0 = (β€β₯β0) |
81 | 27, 80 | eleqtrdi 2844 |
. . . . . . . . . 10
β’ (π β πΎ β
(β€β₯β0)) |
82 | 4 | nnzd 12582 |
. . . . . . . . . 10
β’ (π β π β β€) |
83 | | elfz5 13490 |
. . . . . . . . . 10
β’ ((πΎ β
(β€β₯β0) β§ π β β€) β (πΎ β (0...π) β πΎ β€ π)) |
84 | 81, 82, 83 | syl2anc 585 |
. . . . . . . . 9
β’ (π β (πΎ β (0...π) β πΎ β€ π)) |
85 | 79, 84 | mpbird 257 |
. . . . . . . 8
β’ (π β πΎ β (0...π)) |
86 | | fzsplit 13524 |
. . . . . . . 8
β’ (πΎ β (0...π) β (0...π) = ((0...πΎ) βͺ ((πΎ + 1)...π))) |
87 | 85, 86 | syl 17 |
. . . . . . 7
β’ (π β (0...π) = ((0...πΎ) βͺ ((πΎ + 1)...π))) |
88 | | fzfid 13935 |
. . . . . . 7
β’ (π β (0...π) β Fin) |
89 | | elfznn0 13591 |
. . . . . . . . 9
β’ (π β (0...π) β π β β0) |
90 | 33, 89, 39 | syl2an 597 |
. . . . . . . 8
β’ ((π β§ π β (0...π)) β (π΄βπ) β β) |
91 | 16, 89, 50 | syl2an 597 |
. . . . . . . 8
β’ ((π β§ π β (0...π)) β ((π Β· π)βπ) β β) |
92 | 90, 91 | mulcld 11231 |
. . . . . . 7
β’ ((π β§ π β (0...π)) β ((π΄βπ) Β· ((π Β· π)βπ)) β β) |
93 | 60, 87, 88, 92 | fsumsplit 15684 |
. . . . . 6
β’ (π β Ξ£π β (0...π)((π΄βπ) Β· ((π Β· π)βπ)) = (Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) + Ξ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) |
94 | 56, 93 | eqtrd 2773 |
. . . . 5
β’ (π β (πΉβ(π Β· π)) = (Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) + Ξ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) |
95 | 94 | fveq2d 6893 |
. . . 4
β’ (π β (absβ(πΉβ(π Β· π))) = (absβ(Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) + Ξ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))))) |
96 | 1 | coefv0 25754 |
. . . . . . . . . . . . 13
β’ (πΉ β (Polyβπ) β (πΉβ0) = (π΄β0)) |
97 | 3, 96 | syl 17 |
. . . . . . . . . . . 12
β’ (π β (πΉβ0) = (π΄β0)) |
98 | 97 | eqcomd 2739 |
. . . . . . . . . . 11
β’ (π β (π΄β0) = (πΉβ0)) |
99 | 16 | exp0d 14102 |
. . . . . . . . . . 11
β’ (π β ((π Β· π)β0) = 1) |
100 | 98, 99 | oveq12d 7424 |
. . . . . . . . . 10
β’ (π β ((π΄β0) Β· ((π Β· π)β0)) = ((πΉβ0) Β· 1)) |
101 | 23 | mulridd 11228 |
. . . . . . . . . 10
β’ (π β ((πΉβ0) Β· 1) = (πΉβ0)) |
102 | 100, 101 | eqtrd 2773 |
. . . . . . . . 9
β’ (π β ((π΄β0) Β· ((π Β· π)β0)) = (πΉβ0)) |
103 | | 1e0p1 12716 |
. . . . . . . . . . . . 13
β’ 1 = (0 +
1) |
104 | 103 | oveq1i 7416 |
. . . . . . . . . . . 12
β’
(1...πΎ) = ((0 +
1)...πΎ) |
105 | 104 | sumeq1i 15641 |
. . . . . . . . . . 11
β’
Ξ£π β
(1...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = Ξ£π β ((0 + 1)...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) |
106 | 26, 62 | eleqtrdi 2844 |
. . . . . . . . . . . 12
β’ (π β πΎ β
(β€β₯β1)) |
107 | | elfznn 13527 |
. . . . . . . . . . . . . . 15
β’ (π β (1...πΎ) β π β β) |
108 | 107 | nnnn0d 12529 |
. . . . . . . . . . . . . 14
β’ (π β (1...πΎ) β π β β0) |
109 | 33, 108, 39 | syl2an 597 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...πΎ)) β (π΄βπ) β β) |
110 | 16, 108, 50 | syl2an 597 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...πΎ)) β ((π Β· π)βπ) β β) |
111 | 109, 110 | mulcld 11231 |
. . . . . . . . . . . 12
β’ ((π β§ π β (1...πΎ)) β ((π΄βπ) Β· ((π Β· π)βπ)) β β) |
112 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = πΎ β (π΄βπ) = (π΄βπΎ)) |
113 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = πΎ β ((π Β· π)βπ) = ((π Β· π)βπΎ)) |
114 | 112, 113 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ (π = πΎ β ((π΄βπ) Β· ((π Β· π)βπ)) = ((π΄βπΎ) Β· ((π Β· π)βπΎ))) |
115 | 106, 111,
114 | fsumm1 15694 |
. . . . . . . . . . 11
β’ (π β Ξ£π β (1...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = (Ξ£π β (1...(πΎ β 1))((π΄βπ) Β· ((π Β· π)βπ)) + ((π΄βπΎ) Β· ((π Β· π)βπΎ)))) |
116 | 105, 115 | eqtr3id 2787 |
. . . . . . . . . 10
β’ (π β Ξ£π β ((0 + 1)...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = (Ξ£π β (1...(πΎ β 1))((π΄βπ) Β· ((π Β· π)βπ)) + ((π΄βπΎ) Β· ((π Β· π)βπΎ)))) |
117 | | elfznn 13527 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (1...(πΎ β 1)) β π β β) |
118 | 117 | adantl 483 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (1...(πΎ β 1))) β π β β) |
119 | 118 | nnred 12224 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (1...(πΎ β 1))) β π β β) |
120 | 57 | adantr 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (1...(πΎ β 1))) β πΎ β β) |
121 | | peano2rem 11524 |
. . . . . . . . . . . . . . . . . . . 20
β’ (πΎ β β β (πΎ β 1) β
β) |
122 | 120, 121 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (1...(πΎ β 1))) β (πΎ β 1) β β) |
123 | | elfzle2 13502 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (1...(πΎ β 1)) β π β€ (πΎ β 1)) |
124 | 123 | adantl 483 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (1...(πΎ β 1))) β π β€ (πΎ β 1)) |
125 | 120 | ltm1d 12143 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (1...(πΎ β 1))) β (πΎ β 1) < πΎ) |
126 | 119, 122,
120, 124, 125 | lelttrd 11369 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (1...(πΎ β 1))) β π < πΎ) |
127 | 119, 120 | ltnled 11358 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (1...(πΎ β 1))) β (π < πΎ β Β¬ πΎ β€ π)) |
128 | 126, 127 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (1...(πΎ β 1))) β Β¬ πΎ β€ π) |
129 | | infssuzle 12912 |
. . . . . . . . . . . . . . . . . . 19
β’ (({π β β β£ (π΄βπ) β 0} β
(β€β₯β1) β§ π β {π β β β£ (π΄βπ) β 0}) β inf({π β β β£ (π΄βπ) β 0}, β, < ) β€ π) |
130 | 6, 129 | eqbrtrid 5183 |
. . . . . . . . . . . . . . . . . 18
β’ (({π β β β£ (π΄βπ) β 0} β
(β€β₯β1) β§ π β {π β β β£ (π΄βπ) β 0}) β πΎ β€ π) |
131 | 63, 130 | mpan 689 |
. . . . . . . . . . . . . . . . 17
β’ (π β {π β β β£ (π΄βπ) β 0} β πΎ β€ π) |
132 | 128, 131 | nsyl 140 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...(πΎ β 1))) β Β¬ π β {π β β β£ (π΄βπ) β 0}) |
133 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (π΄βπ) = (π΄βπ)) |
134 | 133 | neeq1d 3001 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((π΄βπ) β 0 β (π΄βπ) β 0)) |
135 | 134 | elrab3 3684 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β (π β {π β β β£ (π΄βπ) β 0} β (π΄βπ) β 0)) |
136 | 118, 135 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (1...(πΎ β 1))) β (π β {π β β β£ (π΄βπ) β 0} β (π΄βπ) β 0)) |
137 | 136 | necon2bbid 2985 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...(πΎ β 1))) β ((π΄βπ) = 0 β Β¬ π β {π β β β£ (π΄βπ) β 0})) |
138 | 132, 137 | mpbird 257 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (1...(πΎ β 1))) β (π΄βπ) = 0) |
139 | 138 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (1...(πΎ β 1))) β ((π΄βπ) Β· ((π Β· π)βπ)) = (0 Β· ((π Β· π)βπ))) |
140 | 117 | nnnn0d 12529 |
. . . . . . . . . . . . . . . 16
β’ (π β (1...(πΎ β 1)) β π β β0) |
141 | 16, 140, 50 | syl2an 597 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (1...(πΎ β 1))) β ((π Β· π)βπ) β β) |
142 | 141 | mul02d 11409 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (1...(πΎ β 1))) β (0 Β· ((π Β· π)βπ)) = 0) |
143 | 139, 142 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...(πΎ β 1))) β ((π΄βπ) Β· ((π Β· π)βπ)) = 0) |
144 | 143 | sumeq2dv 15646 |
. . . . . . . . . . . 12
β’ (π β Ξ£π β (1...(πΎ β 1))((π΄βπ) Β· ((π Β· π)βπ)) = Ξ£π β (1...(πΎ β 1))0) |
145 | | fzfi 13934 |
. . . . . . . . . . . . . 14
β’
(1...(πΎ β 1))
β Fin |
146 | 145 | olci 865 |
. . . . . . . . . . . . 13
β’
((1...(πΎ β 1))
β (β€β₯β1) β¨ (1...(πΎ β 1)) β Fin) |
147 | | sumz 15665 |
. . . . . . . . . . . . 13
β’
(((1...(πΎ β
1)) β (β€β₯β1) β¨ (1...(πΎ β 1)) β Fin) β Ξ£π β (1...(πΎ β 1))0 = 0) |
148 | 146, 147 | ax-mp 5 |
. . . . . . . . . . . 12
β’
Ξ£π β
(1...(πΎ β 1))0 =
0 |
149 | 144, 148 | eqtrdi 2789 |
. . . . . . . . . . 11
β’ (π β Ξ£π β (1...(πΎ β 1))((π΄βπ) Β· ((π Β· π)βπ)) = 0) |
150 | 12, 15, 27 | mulexpd 14123 |
. . . . . . . . . . . . . 14
β’ (π β ((π Β· π)βπΎ) = ((πβπΎ) Β· (πβπΎ))) |
151 | 150 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’ (π β ((π΄βπΎ) Β· ((π Β· π)βπΎ)) = ((π΄βπΎ) Β· ((πβπΎ) Β· (πβπΎ)))) |
152 | 33, 27 | ffvelcdmd 7085 |
. . . . . . . . . . . . . 14
β’ (π β (π΄βπΎ) β β) |
153 | 12, 27 | expcld 14108 |
. . . . . . . . . . . . . 14
β’ (π β (πβπΎ) β β) |
154 | 28 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β (πβπΎ) β β) |
155 | 152, 153,
154 | mulassd 11234 |
. . . . . . . . . . . . 13
β’ (π β (((π΄βπΎ) Β· (πβπΎ)) Β· (πβπΎ)) = ((π΄βπΎ) Β· ((πβπΎ) Β· (πβπΎ)))) |
156 | 151, 155 | eqtr4d 2776 |
. . . . . . . . . . . 12
β’ (π β ((π΄βπΎ) Β· ((π Β· π)βπΎ)) = (((π΄βπΎ) Β· (πβπΎ)) Β· (πβπΎ))) |
157 | 7 | oveq1i 7416 |
. . . . . . . . . . . . . . . 16
β’ (πβπΎ) = ((-((πΉβ0) / (π΄βπΎ))βπ(1 / πΎ))βπΎ) |
158 | 57 | recnd 11239 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β πΎ β β) |
159 | 26 | nnne0d 12259 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β πΎ β 0) |
160 | 158, 159 | recid2d 11983 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((1 / πΎ) Β· πΎ) = 1) |
161 | 160 | oveq2d 7422 |
. . . . . . . . . . . . . . . . 17
β’ (π β (-((πΉβ0) / (π΄βπΎ))βπ((1 / πΎ) Β· πΎ)) = (-((πΉβ0) / (π΄βπΎ))βπ1)) |
162 | 25 | simprd 497 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π΄βπΎ) β 0) |
163 | 23, 152, 162 | divcld 11987 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ((πΉβ0) / (π΄βπΎ)) β β) |
164 | 163 | negcld 11555 |
. . . . . . . . . . . . . . . . . 18
β’ (π β -((πΉβ0) / (π΄βπΎ)) β β) |
165 | 26 | nnrecred 12260 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (1 / πΎ) β β) |
166 | 165 | recnd 11239 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (1 / πΎ) β β) |
167 | 164, 166,
27 | cxpmul2d 26209 |
. . . . . . . . . . . . . . . . 17
β’ (π β (-((πΉβ0) / (π΄βπΎ))βπ((1 / πΎ) Β· πΎ)) = ((-((πΉβ0) / (π΄βπΎ))βπ(1 / πΎ))βπΎ)) |
168 | 164 | cxp1d 26206 |
. . . . . . . . . . . . . . . . 17
β’ (π β (-((πΉβ0) / (π΄βπΎ))βπ1) = -((πΉβ0) / (π΄βπΎ))) |
169 | 161, 167,
168 | 3eqtr3d 2781 |
. . . . . . . . . . . . . . . 16
β’ (π β ((-((πΉβ0) / (π΄βπΎ))βπ(1 / πΎ))βπΎ) = -((πΉβ0) / (π΄βπΎ))) |
170 | 157, 169 | eqtrid 2785 |
. . . . . . . . . . . . . . 15
β’ (π β (πβπΎ) = -((πΉβ0) / (π΄βπΎ))) |
171 | 170 | oveq2d 7422 |
. . . . . . . . . . . . . 14
β’ (π β ((π΄βπΎ) Β· (πβπΎ)) = ((π΄βπΎ) Β· -((πΉβ0) / (π΄βπΎ)))) |
172 | 152, 163 | mulneg2d 11665 |
. . . . . . . . . . . . . 14
β’ (π β ((π΄βπΎ) Β· -((πΉβ0) / (π΄βπΎ))) = -((π΄βπΎ) Β· ((πΉβ0) / (π΄βπΎ)))) |
173 | 23, 152, 162 | divcan2d 11989 |
. . . . . . . . . . . . . . 15
β’ (π β ((π΄βπΎ) Β· ((πΉβ0) / (π΄βπΎ))) = (πΉβ0)) |
174 | 173 | negeqd 11451 |
. . . . . . . . . . . . . 14
β’ (π β -((π΄βπΎ) Β· ((πΉβ0) / (π΄βπΎ))) = -(πΉβ0)) |
175 | 171, 172,
174 | 3eqtrd 2777 |
. . . . . . . . . . . . 13
β’ (π β ((π΄βπΎ) Β· (πβπΎ)) = -(πΉβ0)) |
176 | 175 | oveq1d 7421 |
. . . . . . . . . . . 12
β’ (π β (((π΄βπΎ) Β· (πβπΎ)) Β· (πβπΎ)) = (-(πΉβ0) Β· (πβπΎ))) |
177 | 23, 154 | mulneg1d 11664 |
. . . . . . . . . . . 12
β’ (π β (-(πΉβ0) Β· (πβπΎ)) = -((πΉβ0) Β· (πβπΎ))) |
178 | 156, 176,
177 | 3eqtrd 2777 |
. . . . . . . . . . 11
β’ (π β ((π΄βπΎ) Β· ((π Β· π)βπΎ)) = -((πΉβ0) Β· (πβπΎ))) |
179 | 149, 178 | oveq12d 7424 |
. . . . . . . . . 10
β’ (π β (Ξ£π β (1...(πΎ β 1))((π΄βπ) Β· ((π Β· π)βπ)) + ((π΄βπΎ) Β· ((π Β· π)βπΎ))) = (0 + -((πΉβ0) Β· (πβπΎ)))) |
180 | 23, 154 | mulcld 11231 |
. . . . . . . . . . . 12
β’ (π β ((πΉβ0) Β· (πβπΎ)) β β) |
181 | 180 | negcld 11555 |
. . . . . . . . . . 11
β’ (π β -((πΉβ0) Β· (πβπΎ)) β β) |
182 | 181 | addlidd 11412 |
. . . . . . . . . 10
β’ (π β (0 + -((πΉβ0) Β· (πβπΎ))) = -((πΉβ0) Β· (πβπΎ))) |
183 | 116, 179,
182 | 3eqtrd 2777 |
. . . . . . . . 9
β’ (π β Ξ£π β ((0 + 1)...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = -((πΉβ0) Β· (πβπΎ))) |
184 | 102, 183 | oveq12d 7424 |
. . . . . . . 8
β’ (π β (((π΄β0) Β· ((π Β· π)β0)) + Ξ£π β ((0 + 1)...πΎ)((π΄βπ) Β· ((π Β· π)βπ))) = ((πΉβ0) + -((πΉβ0) Β· (πβπΎ)))) |
185 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π = 0 β (π΄βπ) = (π΄β0)) |
186 | | oveq2 7414 |
. . . . . . . . . 10
β’ (π = 0 β ((π Β· π)βπ) = ((π Β· π)β0)) |
187 | 185, 186 | oveq12d 7424 |
. . . . . . . . 9
β’ (π = 0 β ((π΄βπ) Β· ((π Β· π)βπ)) = ((π΄β0) Β· ((π Β· π)β0))) |
188 | 81, 52, 187 | fsum1p 15696 |
. . . . . . . 8
β’ (π β Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = (((π΄β0) Β· ((π Β· π)β0)) + Ξ£π β ((0 + 1)...πΎ)((π΄βπ) Β· ((π Β· π)βπ)))) |
189 | 101 | oveq1d 7421 |
. . . . . . . . 9
β’ (π β (((πΉβ0) Β· 1) β ((πΉβ0) Β· (πβπΎ))) = ((πΉβ0) β ((πΉβ0) Β· (πβπΎ)))) |
190 | | 1cnd 11206 |
. . . . . . . . . 10
β’ (π β 1 β
β) |
191 | 23, 190, 154 | subdid 11667 |
. . . . . . . . 9
β’ (π β ((πΉβ0) Β· (1 β (πβπΎ))) = (((πΉβ0) Β· 1) β ((πΉβ0) Β· (πβπΎ)))) |
192 | 23, 180 | negsubd 11574 |
. . . . . . . . 9
β’ (π β ((πΉβ0) + -((πΉβ0) Β· (πβπΎ))) = ((πΉβ0) β ((πΉβ0) Β· (πβπΎ)))) |
193 | 189, 191,
192 | 3eqtr4d 2783 |
. . . . . . . 8
β’ (π β ((πΉβ0) Β· (1 β (πβπΎ))) = ((πΉβ0) + -((πΉβ0) Β· (πβπΎ)))) |
194 | 184, 188,
193 | 3eqtr4d 2783 |
. . . . . . 7
β’ (π β Ξ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)) = ((πΉβ0) Β· (1 β (πβπΎ)))) |
195 | 194 | fveq2d 6893 |
. . . . . 6
β’ (π β (absβΞ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ))) = (absβ((πΉβ0) Β· (1 β (πβπΎ))))) |
196 | | 1re 11211 |
. . . . . . . . 9
β’ 1 β
β |
197 | | resubcl 11521 |
. . . . . . . . 9
β’ ((1
β β β§ (πβπΎ) β β) β (1 β (πβπΎ)) β β) |
198 | 196, 28, 197 | sylancr 588 |
. . . . . . . 8
β’ (π β (1 β (πβπΎ)) β β) |
199 | 198 | recnd 11239 |
. . . . . . 7
β’ (π β (1 β (πβπΎ)) β β) |
200 | 23, 199 | absmuld 15398 |
. . . . . 6
β’ (π β (absβ((πΉβ0) Β· (1 β
(πβπΎ)))) = ((absβ(πΉβ0)) Β· (absβ(1 β
(πβπΎ))))) |
201 | 13 | rpge0d 13017 |
. . . . . . . . . . 11
β’ (π β 0 β€ π) |
202 | 11 | simp2d 1144 |
. . . . . . . . . . . . . 14
β’ (π β π β
β+) |
203 | 202 | rpred 13013 |
. . . . . . . . . . . . 13
β’ (π β π β β) |
204 | | min1 13165 |
. . . . . . . . . . . . 13
β’ ((1
β β β§ π
β β) β if(1 β€ π, 1, π) β€ 1) |
205 | 196, 203,
204 | sylancr 588 |
. . . . . . . . . . . 12
β’ (π β if(1 β€ π, 1, π) β€ 1) |
206 | 9, 205 | eqbrtrid 5183 |
. . . . . . . . . . 11
β’ (π β π β€ 1) |
207 | | exple1 14138 |
. . . . . . . . . . 11
β’ (((π β β β§ 0 β€
π β§ π β€ 1) β§ πΎ β β0) β (πβπΎ) β€ 1) |
208 | 14, 201, 206, 27, 207 | syl31anc 1374 |
. . . . . . . . . 10
β’ (π β (πβπΎ) β€ 1) |
209 | | subge0 11724 |
. . . . . . . . . . 11
β’ ((1
β β β§ (πβπΎ) β β) β (0 β€ (1 β
(πβπΎ)) β (πβπΎ) β€ 1)) |
210 | 196, 28, 209 | sylancr 588 |
. . . . . . . . . 10
β’ (π β (0 β€ (1 β (πβπΎ)) β (πβπΎ) β€ 1)) |
211 | 208, 210 | mpbird 257 |
. . . . . . . . 9
β’ (π β 0 β€ (1 β (πβπΎ))) |
212 | 198, 211 | absidd 15366 |
. . . . . . . 8
β’ (π β (absβ(1 β
(πβπΎ))) = (1 β (πβπΎ))) |
213 | 212 | oveq2d 7422 |
. . . . . . 7
β’ (π β ((absβ(πΉβ0)) Β·
(absβ(1 β (πβπΎ)))) = ((absβ(πΉβ0)) Β· (1 β (πβπΎ)))) |
214 | 24 | recnd 11239 |
. . . . . . . 8
β’ (π β (absβ(πΉβ0)) β
β) |
215 | 214, 190,
154 | subdid 11667 |
. . . . . . 7
β’ (π β ((absβ(πΉβ0)) Β· (1 β
(πβπΎ))) = (((absβ(πΉβ0)) Β· 1) β
((absβ(πΉβ0))
Β· (πβπΎ)))) |
216 | 214 | mulridd 11228 |
. . . . . . . 8
β’ (π β ((absβ(πΉβ0)) Β· 1) =
(absβ(πΉβ0))) |
217 | 216 | oveq1d 7421 |
. . . . . . 7
β’ (π β (((absβ(πΉβ0)) Β· 1) β
((absβ(πΉβ0))
Β· (πβπΎ))) = ((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ)))) |
218 | 213, 215,
217 | 3eqtrd 2777 |
. . . . . 6
β’ (π β ((absβ(πΉβ0)) Β·
(absβ(1 β (πβπΎ)))) = ((absβ(πΉβ0)) β ((absβ(πΉβ0)) Β· (πβπΎ)))) |
219 | 195, 200,
218 | 3eqtrrd 2778 |
. . . . 5
β’ (π β ((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) = (absβΞ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ)))) |
220 | 219 | oveq1d 7421 |
. . . 4
β’ (π β (((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) = ((absβΞ£π β (0...πΎ)((π΄βπ) Β· ((π Β· π)βπ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))))) |
221 | 54, 95, 220 | 3brtr4d 5180 |
. . 3
β’ (π β (absβ(πΉβ(π Β· π))) β€ (((absβ(πΉβ0)) β ((absβ(πΉβ0)) Β· (πβπΎ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))))) |
222 | 43 | abscld 15380 |
. . . . . . 7
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· ((π Β· π)βπ))) β β) |
223 | 31, 222 | fsumrecl 15677 |
. . . . . 6
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· ((π Β· π)βπ))) β β) |
224 | 31, 43 | fsumabs 15744 |
. . . . . 6
β’ (π β (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))) β€ Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· ((π Β· π)βπ)))) |
225 | | expcl 14042 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β β0)
β (πβπ) β
β) |
226 | 12, 38, 225 | syl2an2r 684 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβπ) β β) |
227 | 40, 226 | mulcld 11231 |
. . . . . . . . . 10
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π΄βπ) Β· (πβπ)) β β) |
228 | 227 | abscld 15380 |
. . . . . . . . 9
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· (πβπ))) β β) |
229 | 31, 228 | fsumrecl 15677 |
. . . . . . . 8
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) β β) |
230 | 14, 35 | reexpcld 14125 |
. . . . . . . 8
β’ (π β (πβ(πΎ + 1)) β β) |
231 | 229, 230 | remulcld 11241 |
. . . . . . 7
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) β β) |
232 | 230 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβ(πΎ + 1)) β β) |
233 | 228, 232 | remulcld 11241 |
. . . . . . . . 9
β’ ((π β§ π β ((πΎ + 1)...π)) β ((absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) β β) |
234 | 12 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β ((πΎ + 1)...π)) β π β β) |
235 | 15 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β ((πΎ + 1)...π)) β π β β) |
236 | 234, 235,
38 | mulexpd 14123 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π Β· π)βπ) = ((πβπ) Β· (πβπ))) |
237 | 236 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π΄βπ) Β· ((π Β· π)βπ)) = ((π΄βπ) Β· ((πβπ) Β· (πβπ)))) |
238 | 14 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β ((πΎ + 1)...π)) β π β β) |
239 | 238, 38 | reexpcld 14125 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβπ) β β) |
240 | 239 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβπ) β β) |
241 | 40, 226, 240 | mulassd 11234 |
. . . . . . . . . . . . 13
β’ ((π β§ π β ((πΎ + 1)...π)) β (((π΄βπ) Β· (πβπ)) Β· (πβπ)) = ((π΄βπ) Β· ((πβπ) Β· (πβπ)))) |
242 | 237, 241 | eqtr4d 2776 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β ((π΄βπ) Β· ((π Β· π)βπ)) = (((π΄βπ) Β· (πβπ)) Β· (πβπ))) |
243 | 242 | fveq2d 6893 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· ((π Β· π)βπ))) = (absβ(((π΄βπ) Β· (πβπ)) Β· (πβπ)))) |
244 | 227, 240 | absmuld 15398 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ(((π΄βπ) Β· (πβπ)) Β· (πβπ))) = ((absβ((π΄βπ) Β· (πβπ))) Β· (absβ(πβπ)))) |
245 | | elfzelz 13498 |
. . . . . . . . . . . . . . 15
β’ (π β ((πΎ + 1)...π) β π β β€) |
246 | | rpexpcl 14043 |
. . . . . . . . . . . . . . 15
β’ ((π β β+
β§ π β β€)
β (πβπ) β
β+) |
247 | 13, 245, 246 | syl2an 597 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβπ) β
β+) |
248 | 247 | rpge0d 13017 |
. . . . . . . . . . . . 13
β’ ((π β§ π β ((πΎ + 1)...π)) β 0 β€ (πβπ)) |
249 | 239, 248 | absidd 15366 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ(πβπ)) = (πβπ)) |
250 | 249 | oveq2d 7422 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β ((absβ((π΄βπ) Β· (πβπ))) Β· (absβ(πβπ))) = ((absβ((π΄βπ) Β· (πβπ))) Β· (πβπ))) |
251 | 243, 244,
250 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· ((π Β· π)βπ))) = ((absβ((π΄βπ) Β· (πβπ))) Β· (πβπ))) |
252 | 227 | absge0d 15388 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β 0 β€ (absβ((π΄βπ) Β· (πβπ)))) |
253 | 35 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β (πΎ + 1) β
β0) |
254 | 36 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β π β (β€β₯β(πΎ + 1))) |
255 | 201 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β 0 β€ π) |
256 | 206 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β ((πΎ + 1)...π)) β π β€ 1) |
257 | 238, 253,
254, 255, 256 | leexp2rd 14215 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πΎ + 1)...π)) β (πβπ) β€ (πβ(πΎ + 1))) |
258 | 239, 232,
228, 252, 257 | lemul2ad 12151 |
. . . . . . . . . 10
β’ ((π β§ π β ((πΎ + 1)...π)) β ((absβ((π΄βπ) Β· (πβπ))) Β· (πβπ)) β€ ((absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1)))) |
259 | 251, 258 | eqbrtrd 5170 |
. . . . . . . . 9
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· ((π Β· π)βπ))) β€ ((absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1)))) |
260 | 31, 222, 233, 259 | fsumle 15742 |
. . . . . . . 8
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· ((π Β· π)βπ))) β€ Ξ£π β ((πΎ + 1)...π)((absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1)))) |
261 | 230 | recnd 11239 |
. . . . . . . . 9
β’ (π β (πβ(πΎ + 1)) β β) |
262 | 228 | recnd 11239 |
. . . . . . . . 9
β’ ((π β§ π β ((πΎ + 1)...π)) β (absβ((π΄βπ) Β· (πβπ))) β β) |
263 | 31, 261, 262 | fsummulc1 15728 |
. . . . . . . 8
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) = Ξ£π β ((πΎ + 1)...π)((absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1)))) |
264 | 260, 263 | breqtrrd 5176 |
. . . . . . 7
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· ((π Β· π)βπ))) β€ (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1)))) |
265 | 15, 27 | expp1d 14109 |
. . . . . . . . . . 11
β’ (π β (πβ(πΎ + 1)) = ((πβπΎ) Β· π)) |
266 | 154, 15 | mulcomd 11232 |
. . . . . . . . . . 11
β’ (π β ((πβπΎ) Β· π) = (π Β· (πβπΎ))) |
267 | 265, 266 | eqtrd 2773 |
. . . . . . . . . 10
β’ (π β (πβ(πΎ + 1)) = (π Β· (πβπΎ))) |
268 | 267 | oveq2d 7422 |
. . . . . . . . 9
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) = (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (π Β· (πβπΎ)))) |
269 | 229 | recnd 11239 |
. . . . . . . . . 10
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) β β) |
270 | 269, 15, 154 | mulassd 11234 |
. . . . . . . . 9
β’ (π β ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) Β· (πβπΎ)) = (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (π Β· (πβπΎ)))) |
271 | 268, 270 | eqtr4d 2776 |
. . . . . . . 8
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) = ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) Β· (πβπΎ))) |
272 | 229, 14 | remulcld 11241 |
. . . . . . . . 9
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) β β) |
273 | | nnssz 12577 |
. . . . . . . . . . . 12
β’ β
β β€ |
274 | 61, 273 | sstri 3991 |
. . . . . . . . . . 11
β’ {π β β β£ (π΄βπ) β 0} β β€ |
275 | 76 | ne0d 4335 |
. . . . . . . . . . . . 13
β’ (π β {π β β β£ (π΄βπ) β 0} β β
) |
276 | | infssuzcl 12913 |
. . . . . . . . . . . . 13
β’ (({π β β β£ (π΄βπ) β 0} β
(β€β₯β1) β§ {π β β β£ (π΄βπ) β 0} β β
) β inf({π β β β£ (π΄βπ) β 0}, β, < ) β {π β β β£ (π΄βπ) β 0}) |
277 | 63, 275, 276 | sylancr 588 |
. . . . . . . . . . . 12
β’ (π β inf({π β β β£ (π΄βπ) β 0}, β, < ) β {π β β β£ (π΄βπ) β 0}) |
278 | 6, 277 | eqeltrid 2838 |
. . . . . . . . . . 11
β’ (π β πΎ β {π β β β£ (π΄βπ) β 0}) |
279 | 274, 278 | sselid 3980 |
. . . . . . . . . 10
β’ (π β πΎ β β€) |
280 | 13, 279 | rpexpcld 14207 |
. . . . . . . . 9
β’ (π β (πβπΎ) β
β+) |
281 | | peano2re 11384 |
. . . . . . . . . . . 12
β’
(Ξ£π β
((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) β β β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) β β) |
282 | 229, 281 | syl 17 |
. . . . . . . . . . 11
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) β β) |
283 | 282, 14 | remulcld 11241 |
. . . . . . . . . 10
β’ (π β ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) Β· π) β β) |
284 | 229 | ltp1d 12141 |
. . . . . . . . . . 11
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) < (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1)) |
285 | 229, 282,
13, 284 | ltmul1dd 13068 |
. . . . . . . . . 10
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) < ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) Β· π)) |
286 | | min2 13166 |
. . . . . . . . . . . . . 14
β’ ((1
β β β§ π
β β) β if(1 β€ π, 1, π) β€ π) |
287 | 196, 203,
286 | sylancr 588 |
. . . . . . . . . . . . 13
β’ (π β if(1 β€ π, 1, π) β€ π) |
288 | 9, 287 | eqbrtrid 5183 |
. . . . . . . . . . . 12
β’ (π β π β€ π) |
289 | 288, 8 | breqtrdi 5189 |
. . . . . . . . . . 11
β’ (π β π β€ ((absβ(πΉβ0)) / (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1))) |
290 | | 0red 11214 |
. . . . . . . . . . . . 13
β’ (π β 0 β
β) |
291 | 31, 228, 252 | fsumge0 15738 |
. . . . . . . . . . . . 13
β’ (π β 0 β€ Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ)))) |
292 | 290, 229,
282, 291, 284 | lelttrd 11369 |
. . . . . . . . . . . 12
β’ (π β 0 < (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1)) |
293 | | lemuldiv2 12092 |
. . . . . . . . . . . 12
β’ ((π β β β§
(absβ(πΉβ0))
β β β§ ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) β β β§ 0 <
(Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1))) β (((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) Β· π) β€ (absβ(πΉβ0)) β π β€ ((absβ(πΉβ0)) / (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1)))) |
294 | 14, 24, 282, 292, 293 | syl112anc 1375 |
. . . . . . . . . . 11
β’ (π β (((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) Β· π) β€ (absβ(πΉβ0)) β π β€ ((absβ(πΉβ0)) / (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1)))) |
295 | 289, 294 | mpbird 257 |
. . . . . . . . . 10
β’ (π β ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) + 1) Β· π) β€ (absβ(πΉβ0))) |
296 | 272, 283,
24, 285, 295 | ltletrd 11371 |
. . . . . . . . 9
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) < (absβ(πΉβ0))) |
297 | 272, 24, 280, 296 | ltmul1dd 13068 |
. . . . . . . 8
β’ (π β ((Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· π) Β· (πβπΎ)) < ((absβ(πΉβ0)) Β· (πβπΎ))) |
298 | 271, 297 | eqbrtrd 5170 |
. . . . . . 7
β’ (π β (Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· (πβπ))) Β· (πβ(πΎ + 1))) < ((absβ(πΉβ0)) Β· (πβπΎ))) |
299 | 223, 231,
29, 264, 298 | lelttrd 11369 |
. . . . . 6
β’ (π β Ξ£π β ((πΎ + 1)...π)(absβ((π΄βπ) Β· ((π Β· π)βπ))) < ((absβ(πΉβ0)) Β· (πβπΎ))) |
300 | 45, 223, 29, 224, 299 | lelttrd 11369 |
. . . . 5
β’ (π β (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))) < ((absβ(πΉβ0)) Β· (πβπΎ))) |
301 | 45, 29, 24, 300 | ltsub2dd 11824 |
. . . 4
β’ (π β ((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) < ((absβ(πΉβ0)) β
(absβΞ£π β
((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ))))) |
302 | 30, 45, 24 | ltaddsubd 11811 |
. . . 4
β’ (π β ((((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) < (absβ(πΉβ0)) β ((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) < ((absβ(πΉβ0)) β
(absβΞ£π β
((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))))) |
303 | 301, 302 | mpbird 257 |
. . 3
β’ (π β (((absβ(πΉβ0)) β
((absβ(πΉβ0))
Β· (πβπΎ))) + (absβΞ£π β ((πΎ + 1)...π)((π΄βπ) Β· ((π Β· π)βπ)))) < (absβ(πΉβ0))) |
304 | 20, 46, 24, 221, 303 | lelttrd 11369 |
. 2
β’ (π β (absβ(πΉβ(π Β· π))) < (absβ(πΉβ0))) |
305 | | 2fveq3 6894 |
. . . 4
β’ (π₯ = (π Β· π) β (absβ(πΉβπ₯)) = (absβ(πΉβ(π Β· π)))) |
306 | 305 | breq1d 5158 |
. . 3
β’ (π₯ = (π Β· π) β ((absβ(πΉβπ₯)) < (absβ(πΉβ0)) β (absβ(πΉβ(π Β· π))) < (absβ(πΉβ0)))) |
307 | 306 | rspcev 3613 |
. 2
β’ (((π Β· π) β β β§ (absβ(πΉβ(π Β· π))) < (absβ(πΉβ0))) β βπ₯ β β (absβ(πΉβπ₯)) < (absβ(πΉβ0))) |
308 | 16, 304, 307 | syl2anc 585 |
1
β’ (π β βπ₯ β β (absβ(πΉβπ₯)) < (absβ(πΉβ0))) |