Step | Hyp | Ref
| Expression |
1 | | ftalem1.6 |
. . . 4
β’ π = (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) / πΈ) |
2 | | fzfid 13945 |
. . . . . 6
β’ (π β (0...(π β 1)) β Fin) |
3 | | ftalem.3 |
. . . . . . . . 9
β’ (π β πΉ β (Polyβπ)) |
4 | | ftalem.1 |
. . . . . . . . . 10
β’ π΄ = (coeffβπΉ) |
5 | 4 | coef3 26084 |
. . . . . . . . 9
β’ (πΉ β (Polyβπ) β π΄:β0βΆβ) |
6 | 3, 5 | syl 17 |
. . . . . . . 8
β’ (π β π΄:β0βΆβ) |
7 | | elfznn0 13601 |
. . . . . . . 8
β’ (π β (0...(π β 1)) β π β β0) |
8 | | ffvelcdm 7083 |
. . . . . . . 8
β’ ((π΄:β0βΆβ β§
π β
β0) β (π΄βπ) β β) |
9 | 6, 7, 8 | syl2an 595 |
. . . . . . 7
β’ ((π β§ π β (0...(π β 1))) β (π΄βπ) β β) |
10 | 9 | abscld 15390 |
. . . . . 6
β’ ((π β§ π β (0...(π β 1))) β (absβ(π΄βπ)) β β) |
11 | 2, 10 | fsumrecl 15687 |
. . . . 5
β’ (π β Ξ£π β (0...(π β 1))(absβ(π΄βπ)) β β) |
12 | | ftalem1.5 |
. . . . 5
β’ (π β πΈ β
β+) |
13 | 11, 12 | rerpdivcld 13054 |
. . . 4
β’ (π β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) / πΈ) β β) |
14 | 1, 13 | eqeltrid 2836 |
. . 3
β’ (π β π β β) |
15 | | 1re 11221 |
. . 3
β’ 1 β
β |
16 | | ifcl 4573 |
. . 3
β’ ((π β β β§ 1 β
β) β if(1 β€ π, π, 1) β β) |
17 | 14, 15, 16 | sylancl 585 |
. 2
β’ (π β if(1 β€ π, π, 1) β β) |
18 | | fzfid 13945 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (0...(π β 1)) β Fin) |
19 | 6 | adantr 480 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π΄:β0βΆβ) |
20 | 19, 8 | sylan 579 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β β0) β (π΄βπ) β β) |
21 | | simprl 768 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π₯ β β) |
22 | | expcl 14052 |
. . . . . . . . . . 11
β’ ((π₯ β β β§ π β β0)
β (π₯βπ) β
β) |
23 | 21, 22 | sylan 579 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β β0) β (π₯βπ) β β) |
24 | 20, 23 | mulcld 11241 |
. . . . . . . . 9
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β β0) β ((π΄βπ) Β· (π₯βπ)) β β) |
25 | 7, 24 | sylan2 592 |
. . . . . . . 8
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β ((π΄βπ) Β· (π₯βπ)) β β) |
26 | 18, 25 | fsumcl 15686 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ)) β β) |
27 | | ftalem.4 |
. . . . . . . . . . 11
β’ (π β π β β) |
28 | 27 | nnnn0d 12539 |
. . . . . . . . . 10
β’ (π β π β
β0) |
29 | 28 | adantr 480 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π β
β0) |
30 | 19, 29 | ffvelcdmd 7087 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (π΄βπ) β β) |
31 | 21, 29 | expcld 14118 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (π₯βπ) β β) |
32 | 30, 31 | mulcld 11241 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((π΄βπ) Β· (π₯βπ)) β β) |
33 | 3 | adantr 480 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β πΉ β (Polyβπ)) |
34 | | ftalem.2 |
. . . . . . . . . 10
β’ π = (degβπΉ) |
35 | 4, 34 | coeid2 26091 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π₯ β β) β (πΉβπ₯) = Ξ£π β (0...π)((π΄βπ) Β· (π₯βπ))) |
36 | 33, 21, 35 | syl2anc 583 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΉβπ₯) = Ξ£π β (0...π)((π΄βπ) Β· (π₯βπ))) |
37 | | nn0uz 12871 |
. . . . . . . . . 10
β’
β0 = (β€β₯β0) |
38 | 29, 37 | eleqtrdi 2842 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π β
(β€β₯β0)) |
39 | | elfznn0 13601 |
. . . . . . . . . 10
β’ (π β (0...π) β π β β0) |
40 | 39, 24 | sylan2 592 |
. . . . . . . . 9
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...π)) β ((π΄βπ) Β· (π₯βπ)) β β) |
41 | | fveq2 6891 |
. . . . . . . . . 10
β’ (π = π β (π΄βπ) = (π΄βπ)) |
42 | | oveq2 7420 |
. . . . . . . . . 10
β’ (π = π β (π₯βπ) = (π₯βπ)) |
43 | 41, 42 | oveq12d 7430 |
. . . . . . . . 9
β’ (π = π β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π₯βπ))) |
44 | 38, 40, 43 | fsumm1 15704 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...π)((π΄βπ) Β· (π₯βπ)) = (Ξ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ)) + ((π΄βπ) Β· (π₯βπ)))) |
45 | 36, 44 | eqtrd 2771 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΉβπ₯) = (Ξ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ)) + ((π΄βπ) Β· (π₯βπ)))) |
46 | 26, 32, 45 | mvrraddd 11633 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ))) = Ξ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ))) |
47 | 46 | fveq2d 6895 |
. . . . 5
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) = (absβΞ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ)))) |
48 | 26 | abscld 15390 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβΞ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ))) β β) |
49 | 25 | abscld 15390 |
. . . . . . 7
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ((π΄βπ) Β· (π₯βπ))) β β) |
50 | 18, 49 | fsumrecl 15687 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ((π΄βπ) Β· (π₯βπ))) β β) |
51 | 12 | adantr 480 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β πΈ β
β+) |
52 | 51 | rpred 13023 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β πΈ β β) |
53 | 21 | abscld 15390 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβπ₯) β β) |
54 | 53, 29 | reexpcld 14135 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((absβπ₯)βπ) β β) |
55 | 52, 54 | remulcld 11251 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΈ Β· ((absβπ₯)βπ)) β β) |
56 | 18, 25 | fsumabs 15754 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβΞ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ))) β€ Ξ£π β (0...(π β 1))(absβ((π΄βπ) Β· (π₯βπ)))) |
57 | 11 | adantr 480 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ(π΄βπ)) β β) |
58 | 27 | adantr 480 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π β β) |
59 | | nnm1nn0 12520 |
. . . . . . . . . 10
β’ (π β β β (π β 1) β
β0) |
60 | 58, 59 | syl 17 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (π β 1) β
β0) |
61 | 53, 60 | reexpcld 14135 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((absβπ₯)β(π β 1)) β
β) |
62 | 57, 61 | remulcld 11251 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) β
β) |
63 | 10 | adantlr 712 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ(π΄βπ)) β β) |
64 | 61 | adantr 480 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β ((absβπ₯)β(π β 1)) β
β) |
65 | 63, 64 | remulcld 11251 |
. . . . . . . . 9
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β ((absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) β
β) |
66 | 20, 23 | absmuld 15408 |
. . . . . . . . . . 11
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β β0) β
(absβ((π΄βπ) Β· (π₯βπ))) = ((absβ(π΄βπ)) Β· (absβ(π₯βπ)))) |
67 | 7, 66 | sylan2 592 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ((π΄βπ) Β· (π₯βπ))) = ((absβ(π΄βπ)) Β· (absβ(π₯βπ)))) |
68 | 7, 23 | sylan2 592 |
. . . . . . . . . . . 12
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (π₯βπ) β β) |
69 | 68 | abscld 15390 |
. . . . . . . . . . 11
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ(π₯βπ)) β β) |
70 | 7, 20 | sylan2 592 |
. . . . . . . . . . . 12
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (π΄βπ) β β) |
71 | 70 | absge0d 15398 |
. . . . . . . . . . 11
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β 0 β€
(absβ(π΄βπ))) |
72 | | absexp 15258 |
. . . . . . . . . . . . 13
β’ ((π₯ β β β§ π β β0)
β (absβ(π₯βπ)) = ((absβπ₯)βπ)) |
73 | 21, 7, 72 | syl2an 595 |
. . . . . . . . . . . 12
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ(π₯βπ)) = ((absβπ₯)βπ)) |
74 | 53 | adantr 480 |
. . . . . . . . . . . . 13
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβπ₯) β
β) |
75 | 15 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 1 β β) |
76 | 17 | adantr 480 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β if(1 β€ π, π, 1) β β) |
77 | | max1 13171 |
. . . . . . . . . . . . . . . . . 18
β’ ((1
β β β§ π
β β) β 1 β€ if(1 β€ π, π, 1)) |
78 | 15, 14, 77 | sylancr 586 |
. . . . . . . . . . . . . . . . 17
β’ (π β 1 β€ if(1 β€ π, π, 1)) |
79 | 78 | adantr 480 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 1 β€ if(1 β€ π, π, 1)) |
80 | | simprr 770 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β if(1 β€ π, π, 1) < (absβπ₯)) |
81 | 75, 76, 53, 79, 80 | lelttrd 11379 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 1 < (absβπ₯)) |
82 | 75, 53, 81 | ltled 11369 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 1 β€ (absβπ₯)) |
83 | 82 | adantr 480 |
. . . . . . . . . . . . 13
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β 1 β€ (absβπ₯)) |
84 | | elfzuz3 13505 |
. . . . . . . . . . . . . 14
β’ (π β (0...(π β 1)) β (π β 1) β
(β€β₯βπ)) |
85 | 84 | adantl 481 |
. . . . . . . . . . . . 13
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (π β 1) β
(β€β₯βπ)) |
86 | 74, 83, 85 | leexp2ad 14224 |
. . . . . . . . . . . 12
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β ((absβπ₯)βπ) β€ ((absβπ₯)β(π β 1))) |
87 | 73, 86 | eqbrtrd 5170 |
. . . . . . . . . . 11
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ(π₯βπ)) β€ ((absβπ₯)β(π β 1))) |
88 | 69, 64, 63, 71, 87 | lemul2ad 12161 |
. . . . . . . . . 10
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β ((absβ(π΄βπ)) Β· (absβ(π₯βπ))) β€ ((absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1)))) |
89 | 67, 88 | eqbrtrd 5170 |
. . . . . . . . 9
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ((π΄βπ) Β· (π₯βπ))) β€ ((absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1)))) |
90 | 18, 49, 65, 89 | fsumle 15752 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ((π΄βπ) Β· (π₯βπ))) β€ Ξ£π β (0...(π β 1))((absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1)))) |
91 | 61 | recnd 11249 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((absβπ₯)β(π β 1)) β
β) |
92 | 63 | recnd 11249 |
. . . . . . . . 9
β’ (((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β§ π β (0...(π β 1))) β (absβ(π΄βπ)) β β) |
93 | 18, 91, 92 | fsummulc1 15738 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) = Ξ£π β (0...(π β 1))((absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1)))) |
94 | 90, 93 | breqtrrd 5176 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ((π΄βπ) Β· (π₯βπ))) β€ (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1)))) |
95 | 14 | adantr 480 |
. . . . . . . . . . . 12
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π β β) |
96 | | max2 13173 |
. . . . . . . . . . . . . 14
β’ ((1
β β β§ π
β β) β π
β€ if(1 β€ π, π, 1)) |
97 | 15, 14, 96 | sylancr 586 |
. . . . . . . . . . . . 13
β’ (π β π β€ if(1 β€ π, π, 1)) |
98 | 97 | adantr 480 |
. . . . . . . . . . . 12
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π β€ if(1 β€ π, π, 1)) |
99 | 95, 76, 53, 98, 80 | lelttrd 11379 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β π < (absβπ₯)) |
100 | 1, 99 | eqbrtrrid 5184 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) / πΈ) < (absβπ₯)) |
101 | 57, 53, 51 | ltdivmuld 13074 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((Ξ£π β (0...(π β 1))(absβ(π΄βπ)) / πΈ) < (absβπ₯) β Ξ£π β (0...(π β 1))(absβ(π΄βπ)) < (πΈ Β· (absβπ₯)))) |
102 | 100, 101 | mpbid 231 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ(π΄βπ)) < (πΈ Β· (absβπ₯))) |
103 | 52, 53 | remulcld 11251 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΈ Β· (absβπ₯)) β β) |
104 | 60 | nn0zd 12591 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (π β 1) β β€) |
105 | | 0red 11224 |
. . . . . . . . . . . 12
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 0 β β) |
106 | | 0lt1 11743 |
. . . . . . . . . . . . 13
β’ 0 <
1 |
107 | 106 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 0 < 1) |
108 | 105, 75, 53, 107, 81 | lttrd 11382 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 0 < (absβπ₯)) |
109 | | expgt0 14068 |
. . . . . . . . . . 11
β’
(((absβπ₯)
β β β§ (π
β 1) β β€ β§ 0 < (absβπ₯)) β 0 < ((absβπ₯)β(π β 1))) |
110 | 53, 104, 108, 109 | syl3anc 1370 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β 0 < ((absβπ₯)β(π β 1))) |
111 | | ltmul1 12071 |
. . . . . . . . . 10
β’
((Ξ£π β
(0...(π β
1))(absβ(π΄βπ)) β β β§ (πΈ Β· (absβπ₯)) β β β§ (((absβπ₯)β(π β 1)) β β β§ 0 <
((absβπ₯)β(π β 1)))) β
(Ξ£π β
(0...(π β
1))(absβ(π΄βπ)) < (πΈ Β· (absβπ₯)) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) < ((πΈ Β· (absβπ₯)) Β· ((absβπ₯)β(π β 1))))) |
112 | 57, 103, 61, 110, 111 | syl112anc 1373 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) < (πΈ Β· (absβπ₯)) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) < ((πΈ Β· (absβπ₯)) Β· ((absβπ₯)β(π β 1))))) |
113 | 102, 112 | mpbid 231 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) < ((πΈ Β· (absβπ₯)) Β· ((absβπ₯)β(π β 1)))) |
114 | 53 | recnd 11249 |
. . . . . . . . . . . 12
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβπ₯) β β) |
115 | | expm1t 14063 |
. . . . . . . . . . . 12
β’
(((absβπ₯)
β β β§ π
β β) β ((absβπ₯)βπ) = (((absβπ₯)β(π β 1)) Β· (absβπ₯))) |
116 | 114, 58, 115 | syl2anc 583 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((absβπ₯)βπ) = (((absβπ₯)β(π β 1)) Β· (absβπ₯))) |
117 | 91, 114 | mulcomd 11242 |
. . . . . . . . . . 11
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (((absβπ₯)β(π β 1)) Β· (absβπ₯)) = ((absβπ₯) Β· ((absβπ₯)β(π β 1)))) |
118 | 116, 117 | eqtrd 2771 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((absβπ₯)βπ) = ((absβπ₯) Β· ((absβπ₯)β(π β 1)))) |
119 | 118 | oveq2d 7428 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΈ Β· ((absβπ₯)βπ)) = (πΈ Β· ((absβπ₯) Β· ((absβπ₯)β(π β 1))))) |
120 | 52 | recnd 11249 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β πΈ β β) |
121 | 120, 114,
91 | mulassd 11244 |
. . . . . . . . 9
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β ((πΈ Β· (absβπ₯)) Β· ((absβπ₯)β(π β 1))) = (πΈ Β· ((absβπ₯) Β· ((absβπ₯)β(π β 1))))) |
122 | 119, 121 | eqtr4d 2774 |
. . . . . . . 8
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (πΈ Β· ((absβπ₯)βπ)) = ((πΈ Β· (absβπ₯)) Β· ((absβπ₯)β(π β 1)))) |
123 | 113, 122 | breqtrrd 5176 |
. . . . . . 7
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (Ξ£π β (0...(π β 1))(absβ(π΄βπ)) Β· ((absβπ₯)β(π β 1))) < (πΈ Β· ((absβπ₯)βπ))) |
124 | 50, 62, 55, 94, 123 | lelttrd 11379 |
. . . . . 6
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β Ξ£π β (0...(π β 1))(absβ((π΄βπ) Β· (π₯βπ))) < (πΈ Β· ((absβπ₯)βπ))) |
125 | 48, 50, 55, 56, 124 | lelttrd 11379 |
. . . . 5
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβΞ£π β (0...(π β 1))((π΄βπ) Β· (π₯βπ))) < (πΈ Β· ((absβπ₯)βπ))) |
126 | 47, 125 | eqbrtrd 5170 |
. . . 4
β’ ((π β§ (π₯ β β β§ if(1 β€ π, π, 1) < (absβπ₯))) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ))) |
127 | 126 | expr 456 |
. . 3
β’ ((π β§ π₯ β β) β (if(1 β€ π, π, 1) < (absβπ₯) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ)))) |
128 | 127 | ralrimiva 3145 |
. 2
β’ (π β βπ₯ β β (if(1 β€ π, π, 1) < (absβπ₯) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ)))) |
129 | | breq1 5151 |
. . 3
β’ (π = if(1 β€ π, π, 1) β (π < (absβπ₯) β if(1 β€ π, π, 1) < (absβπ₯))) |
130 | 129 | rspceaimv 3617 |
. 2
β’ ((if(1
β€ π, π, 1) β β β§ βπ₯ β β (if(1 β€ π, π, 1) < (absβπ₯) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ)))) β βπ β β βπ₯ β β (π < (absβπ₯) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ)))) |
131 | 17, 128, 130 | syl2anc 583 |
1
β’ (π β βπ β β βπ₯ β β (π < (absβπ₯) β (absβ((πΉβπ₯) β ((π΄βπ) Β· (π₯βπ)))) < (πΈ Β· ((absβπ₯)βπ)))) |