Step | Hyp | Ref
| Expression |
1 | | mettrifi.3 |
. . 3
β’ (π β π β (β€β₯βπ)) |
2 | | eluzfz2 13505 |
. . 3
β’ (π β
(β€β₯βπ) β π β (π...π)) |
3 | 1, 2 | syl 17 |
. 2
β’ (π β π β (π...π)) |
4 | | eleq1 2821 |
. . . . . 6
β’ (π₯ = π β (π₯ β (π...π) β π β (π...π))) |
5 | | fveq2 6888 |
. . . . . . . 8
β’ (π₯ = π β (πΉβπ₯) = (πΉβπ)) |
6 | 5 | oveq2d 7421 |
. . . . . . 7
β’ (π₯ = π β ((πΉβπ)π·(πΉβπ₯)) = ((πΉβπ)π·(πΉβπ))) |
7 | | oveq1 7412 |
. . . . . . . . 9
β’ (π₯ = π β (π₯ β 1) = (π β 1)) |
8 | 7 | oveq2d 7421 |
. . . . . . . 8
β’ (π₯ = π β (π...(π₯ β 1)) = (π...(π β 1))) |
9 | 8 | sumeq1d 15643 |
. . . . . . 7
β’ (π₯ = π β Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) |
10 | 6, 9 | breq12d 5160 |
. . . . . 6
β’ (π₯ = π β (((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
11 | 4, 10 | imbi12d 344 |
. . . . 5
β’ (π₯ = π β ((π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1)))) β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
12 | 11 | imbi2d 340 |
. . . 4
β’ (π₯ = π β ((π β (π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))))) β (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
13 | | eleq1 2821 |
. . . . . 6
β’ (π₯ = π β (π₯ β (π...π) β π β (π...π))) |
14 | | fveq2 6888 |
. . . . . . . 8
β’ (π₯ = π β (πΉβπ₯) = (πΉβπ)) |
15 | 14 | oveq2d 7421 |
. . . . . . 7
β’ (π₯ = π β ((πΉβπ)π·(πΉβπ₯)) = ((πΉβπ)π·(πΉβπ))) |
16 | | oveq1 7412 |
. . . . . . . . 9
β’ (π₯ = π β (π₯ β 1) = (π β 1)) |
17 | 16 | oveq2d 7421 |
. . . . . . . 8
β’ (π₯ = π β (π...(π₯ β 1)) = (π...(π β 1))) |
18 | 17 | sumeq1d 15643 |
. . . . . . 7
β’ (π₯ = π β Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) |
19 | 15, 18 | breq12d 5160 |
. . . . . 6
β’ (π₯ = π β (((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
20 | 13, 19 | imbi12d 344 |
. . . . 5
β’ (π₯ = π β ((π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1)))) β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
21 | 20 | imbi2d 340 |
. . . 4
β’ (π₯ = π β ((π β (π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))))) β (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
22 | | eleq1 2821 |
. . . . . 6
β’ (π₯ = (π + 1) β (π₯ β (π...π) β (π + 1) β (π...π))) |
23 | | fveq2 6888 |
. . . . . . . 8
β’ (π₯ = (π + 1) β (πΉβπ₯) = (πΉβ(π + 1))) |
24 | 23 | oveq2d 7421 |
. . . . . . 7
β’ (π₯ = (π + 1) β ((πΉβπ)π·(πΉβπ₯)) = ((πΉβπ)π·(πΉβ(π + 1)))) |
25 | | oveq1 7412 |
. . . . . . . . 9
β’ (π₯ = (π + 1) β (π₯ β 1) = ((π + 1) β 1)) |
26 | 25 | oveq2d 7421 |
. . . . . . . 8
β’ (π₯ = (π + 1) β (π...(π₯ β 1)) = (π...((π + 1) β 1))) |
27 | 26 | sumeq1d 15643 |
. . . . . . 7
β’ (π₯ = (π + 1) β Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1)))) |
28 | 24, 27 | breq12d 5160 |
. . . . . 6
β’ (π₯ = (π + 1) β (((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
29 | 22, 28 | imbi12d 344 |
. . . . 5
β’ (π₯ = (π + 1) β ((π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1)))) β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
30 | 29 | imbi2d 340 |
. . . 4
β’ (π₯ = (π + 1) β ((π β (π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))))) β (π β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
31 | | eleq1 2821 |
. . . . . 6
β’ (π₯ = π β (π₯ β (π...π) β π β (π...π))) |
32 | | fveq2 6888 |
. . . . . . . 8
β’ (π₯ = π β (πΉβπ₯) = (πΉβπ)) |
33 | 32 | oveq2d 7421 |
. . . . . . 7
β’ (π₯ = π β ((πΉβπ)π·(πΉβπ₯)) = ((πΉβπ)π·(πΉβπ))) |
34 | | oveq1 7412 |
. . . . . . . . 9
β’ (π₯ = π β (π₯ β 1) = (π β 1)) |
35 | 34 | oveq2d 7421 |
. . . . . . . 8
β’ (π₯ = π β (π...(π₯ β 1)) = (π...(π β 1))) |
36 | 35 | sumeq1d 15643 |
. . . . . . 7
β’ (π₯ = π β Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) |
37 | 33, 36 | breq12d 5160 |
. . . . . 6
β’ (π₯ = π β (((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
38 | 31, 37 | imbi12d 344 |
. . . . 5
β’ (π₯ = π β ((π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1)))) β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
39 | 38 | imbi2d 340 |
. . . 4
β’ (π₯ = π β ((π β (π₯ β (π...π) β ((πΉβπ)π·(πΉβπ₯)) β€ Ξ£π β (π...(π₯ β 1))((πΉβπ)π·(πΉβ(π + 1))))) β (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
40 | | 0le0 12309 |
. . . . . . . 8
β’ 0 β€
0 |
41 | 40 | a1i 11 |
. . . . . . 7
β’ (π β 0 β€ 0) |
42 | | mettrifi.2 |
. . . . . . . 8
β’ (π β π· β (Metβπ)) |
43 | | eluzfz1 13504 |
. . . . . . . . . 10
β’ (π β
(β€β₯βπ) β π β (π...π)) |
44 | 1, 43 | syl 17 |
. . . . . . . . 9
β’ (π β π β (π...π)) |
45 | | mettrifi.4 |
. . . . . . . . . 10
β’ ((π β§ π β (π...π)) β (πΉβπ) β π) |
46 | 45 | ralrimiva 3146 |
. . . . . . . . 9
β’ (π β βπ β (π...π)(πΉβπ) β π) |
47 | | fveq2 6888 |
. . . . . . . . . . 11
β’ (π = π β (πΉβπ) = (πΉβπ)) |
48 | 47 | eleq1d 2818 |
. . . . . . . . . 10
β’ (π = π β ((πΉβπ) β π β (πΉβπ) β π)) |
49 | 48 | rspcv 3608 |
. . . . . . . . 9
β’ (π β (π...π) β (βπ β (π...π)(πΉβπ) β π β (πΉβπ) β π)) |
50 | 44, 46, 49 | sylc 65 |
. . . . . . . 8
β’ (π β (πΉβπ) β π) |
51 | | met0 23840 |
. . . . . . . 8
β’ ((π· β (Metβπ) β§ (πΉβπ) β π) β ((πΉβπ)π·(πΉβπ)) = 0) |
52 | 42, 50, 51 | syl2anc 584 |
. . . . . . 7
β’ (π β ((πΉβπ)π·(πΉβπ)) = 0) |
53 | | eluzel2 12823 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯βπ) β π β β€) |
54 | 1, 53 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π β β€) |
55 | 54 | zred 12662 |
. . . . . . . . . . 11
β’ (π β π β β) |
56 | 55 | ltm1d 12142 |
. . . . . . . . . 10
β’ (π β (π β 1) < π) |
57 | | peano2zm 12601 |
. . . . . . . . . . 11
β’ (π β β€ β (π β 1) β
β€) |
58 | | fzn 13513 |
. . . . . . . . . . 11
β’ ((π β β€ β§ (π β 1) β β€)
β ((π β 1) <
π β (π...(π β 1)) = β
)) |
59 | 54, 57, 58 | syl2anc2 585 |
. . . . . . . . . 10
β’ (π β ((π β 1) < π β (π...(π β 1)) = β
)) |
60 | 56, 59 | mpbid 231 |
. . . . . . . . 9
β’ (π β (π...(π β 1)) = β
) |
61 | 60 | sumeq1d 15643 |
. . . . . . . 8
β’ (π β Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β β
((πΉβπ)π·(πΉβ(π + 1)))) |
62 | | sum0 15663 |
. . . . . . . 8
β’
Ξ£π β
β
((πΉβπ)π·(πΉβ(π + 1))) = 0 |
63 | 61, 62 | eqtrdi 2788 |
. . . . . . 7
β’ (π β Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) = 0) |
64 | 41, 52, 63 | 3brtr4d 5179 |
. . . . . 6
β’ (π β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) |
65 | 64 | a1d 25 |
. . . . 5
β’ (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
66 | 65 | a1i 11 |
. . . 4
β’ (π β β€ β (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
67 | | peano2fzr 13510 |
. . . . . . . . . 10
β’ ((π β
(β€β₯βπ) β§ (π + 1) β (π...π)) β π β (π...π)) |
68 | 67 | ex 413 |
. . . . . . . . 9
β’ (π β
(β€β₯βπ) β ((π + 1) β (π...π) β π β (π...π))) |
69 | 68 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯βπ)) β ((π + 1) β (π...π) β π β (π...π))) |
70 | 69 | imim1d 82 |
. . . . . . 7
β’ ((π β§ π β (β€β₯βπ)) β ((π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
71 | 42 | 3ad2ant1 1133 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π· β (Metβπ)) |
72 | 50 | 3ad2ant1 1133 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (πΉβπ) β π) |
73 | | simp3 1138 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π + 1) β (π...π)) |
74 | 46 | 3ad2ant1 1133 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β βπ β (π...π)(πΉβπ) β π) |
75 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (πΉβπ) = (πΉβ(π + 1))) |
76 | 75 | eleq1d 2818 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β ((πΉβπ) β π β (πΉβ(π + 1)) β π)) |
77 | 76 | rspcv 3608 |
. . . . . . . . . . . . 13
β’ ((π + 1) β (π...π) β (βπ β (π...π)(πΉβπ) β π β (πΉβ(π + 1)) β π)) |
78 | 73, 74, 77 | sylc 65 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (πΉβ(π + 1)) β π) |
79 | | fveq2 6888 |
. . . . . . . . . . . . . . . 16
β’ (π = π β (πΉβπ) = (πΉβπ)) |
80 | 79 | eleq1d 2818 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((πΉβπ) β π β (πΉβπ) β π)) |
81 | 80 | cbvralvw 3234 |
. . . . . . . . . . . . . 14
β’
(βπ β
(π...π)(πΉβπ) β π β βπ β (π...π)(πΉβπ) β π) |
82 | 74, 81 | sylib 217 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β βπ β (π...π)(πΉβπ) β π) |
83 | 69 | 3impia 1117 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β (π...π)) |
84 | | rsp 3244 |
. . . . . . . . . . . . 13
β’
(βπ β
(π...π)(πΉβπ) β π β (π β (π...π) β (πΉβπ) β π)) |
85 | 82, 83, 84 | sylc 65 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (πΉβπ) β π) |
86 | | mettri 23849 |
. . . . . . . . . . . 12
β’ ((π· β (Metβπ) β§ ((πΉβπ) β π β§ (πΉβ(π + 1)) β π β§ (πΉβπ) β π)) β ((πΉβπ)π·(πΉβ(π + 1))) β€ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1))))) |
87 | 71, 72, 78, 85, 86 | syl13anc 1372 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((πΉβπ)π·(πΉβ(π + 1))) β€ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1))))) |
88 | | metcl 23829 |
. . . . . . . . . . . . 13
β’ ((π· β (Metβπ) β§ (πΉβπ) β π β§ (πΉβ(π + 1)) β π) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
89 | 71, 72, 78, 88 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
90 | | metcl 23829 |
. . . . . . . . . . . . . 14
β’ ((π· β (Metβπ) β§ (πΉβπ) β π β§ (πΉβπ) β π) β ((πΉβπ)π·(πΉβπ)) β β) |
91 | 71, 72, 85, 90 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((πΉβπ)π·(πΉβπ)) β β) |
92 | | metcl 23829 |
. . . . . . . . . . . . . 14
β’ ((π· β (Metβπ) β§ (πΉβπ) β π β§ (πΉβ(π + 1)) β π) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
93 | 71, 85, 78, 92 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
94 | 91, 93 | readdcld 11239 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β β) |
95 | | fzfid 13934 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...π) β Fin) |
96 | 71 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π· β (Metβπ)) |
97 | | elfzuz3 13494 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π...π) β π β (β€β₯βπ)) |
98 | 83, 97 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β (β€β₯βπ)) |
99 | | fzss2 13537 |
. . . . . . . . . . . . . . . . 17
β’ (π β
(β€β₯βπ) β (π...π) β (π...π)) |
100 | 98, 99 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...π) β (π...π)) |
101 | 100 | sselda 3981 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π β (π...π)) |
102 | 45 | 3ad2antl1 1185 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (πΉβπ) β π) |
103 | 101, 102 | syldan 591 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (πΉβπ) β π) |
104 | | elfzuz 13493 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π...π) β π β (β€β₯βπ)) |
105 | 104 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π β (β€β₯βπ)) |
106 | | peano2uz 12881 |
. . . . . . . . . . . . . . . . 17
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯βπ)) |
107 | 105, 106 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (π + 1) β
(β€β₯βπ)) |
108 | | elfzuz3 13494 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π + 1) β (π...π) β π β (β€β₯β(π + 1))) |
109 | 73, 108 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β (β€β₯β(π + 1))) |
110 | 109 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π β (β€β₯β(π + 1))) |
111 | | elfzuz3 13494 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π...π) β π β (β€β₯βπ)) |
112 | 111 | adantl 482 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π β (β€β₯βπ)) |
113 | | eluzp1p1 12846 |
. . . . . . . . . . . . . . . . . 18
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯β(π + 1))) |
114 | 112, 113 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (π + 1) β
(β€β₯β(π + 1))) |
115 | | uztrn 12836 |
. . . . . . . . . . . . . . . . 17
β’ ((π β
(β€β₯β(π + 1)) β§ (π + 1) β
(β€β₯β(π + 1))) β π β (β€β₯β(π + 1))) |
116 | 110, 114,
115 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β π β (β€β₯β(π + 1))) |
117 | | elfzuzb 13491 |
. . . . . . . . . . . . . . . 16
β’ ((π + 1) β (π...π) β ((π + 1) β
(β€β₯βπ) β§ π β (β€β₯β(π + 1)))) |
118 | 107, 116,
117 | sylanbrc 583 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (π + 1) β (π...π)) |
119 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π + 1) β (πΉβπ) = (πΉβ(π + 1))) |
120 | 119 | eleq1d 2818 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π + 1) β ((πΉβπ) β π β (πΉβ(π + 1)) β π)) |
121 | 120 | rspccva 3611 |
. . . . . . . . . . . . . . . 16
β’
((βπ β
(π...π)(πΉβπ) β π β§ (π + 1) β (π...π)) β (πΉβ(π + 1)) β π) |
122 | 82, 121 | sylan 580 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ (π + 1) β (π...π)) β (πΉβ(π + 1)) β π) |
123 | 118, 122 | syldan 591 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β (πΉβ(π + 1)) β π) |
124 | | metcl 23829 |
. . . . . . . . . . . . . 14
β’ ((π· β (Metβπ) β§ (πΉβπ) β π β§ (πΉβ(π + 1)) β π) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
125 | 96, 103, 123, 124 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
126 | 95, 125 | fsumrecl 15676 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))) β β) |
127 | | letr 11304 |
. . . . . . . . . . . 12
β’ ((((πΉβπ)π·(πΉβ(π + 1))) β β β§ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β β β§ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))) β β) β ((((πΉβπ)π·(πΉβ(π + 1))) β€ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β§ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1)))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))))) |
128 | 89, 94, 126, 127 | syl3anc 1371 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((((πΉβπ)π·(πΉβ(π + 1))) β€ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β§ (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1)))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))))) |
129 | 87, 128 | mpand 693 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))))) |
130 | | fzfid 13934 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...(π β 1)) β Fin) |
131 | | fzssp1 13540 |
. . . . . . . . . . . . . . . 16
β’ (π...(π β 1)) β (π...((π β 1) + 1)) |
132 | | eluzelz 12828 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β
(β€β₯βπ) β π β β€) |
133 | 132 | 3ad2ant2 1134 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β β€) |
134 | 133 | zcnd 12663 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β β) |
135 | | ax-1cn 11164 |
. . . . . . . . . . . . . . . . . 18
β’ 1 β
β |
136 | | npcan 11465 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β β§ 1 β
β) β ((π β
1) + 1) = π) |
137 | 134, 135,
136 | sylancl 586 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((π β 1) + 1) = π) |
138 | 137 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...((π β 1) + 1)) = (π...π)) |
139 | 131, 138 | sseqtrid 4033 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...(π β 1)) β (π...π)) |
140 | 139 | sselda 3981 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...(π β 1))) β π β (π...π)) |
141 | 140, 125 | syldan 591 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...(π β 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
142 | 130, 141 | fsumrecl 15676 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) β β) |
143 | 91, 142, 93 | leadd1d 11804 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) β (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ (Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) + ((πΉβπ)π·(πΉβ(π + 1)))))) |
144 | | simp2 1137 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β π β (β€β₯βπ)) |
145 | 125 | recnd 11238 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β§ π β (π...π)) β ((πΉβπ)π·(πΉβ(π + 1))) β β) |
146 | | fvoveq1 7428 |
. . . . . . . . . . . . . 14
β’ (π = π β (πΉβ(π + 1)) = (πΉβ(π + 1))) |
147 | 79, 146 | oveq12d 7423 |
. . . . . . . . . . . . 13
β’ (π = π β ((πΉβπ)π·(πΉβ(π + 1))) = ((πΉβπ)π·(πΉβ(π + 1)))) |
148 | 144, 145,
147 | fsumm1 15693 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))) = (Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) + ((πΉβπ)π·(πΉβ(π + 1))))) |
149 | 148 | breq2d 5159 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))) β (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ (Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) + ((πΉβπ)π·(πΉβ(π + 1)))))) |
150 | 143, 149 | bitr4d 281 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) β (((πΉβπ)π·(πΉβπ)) + ((πΉβπ)π·(πΉβ(π + 1)))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))))) |
151 | | pncan 11462 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
152 | 134, 135,
151 | sylancl 586 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β ((π + 1) β 1) = π) |
153 | 152 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (π...((π + 1) β 1)) = (π...π)) |
154 | 153 | sumeq1d 15643 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))) = Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1)))) |
155 | 154 | breq2d 5159 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...π)((πΉβπ)π·(πΉβ(π + 1))))) |
156 | 129, 150,
155 | 3imtr4d 293 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯βπ) β§ (π + 1) β (π...π)) β (((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
157 | 156 | 3expia 1121 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯βπ)) β ((π + 1) β (π...π) β (((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
158 | 157 | a2d 29 |
. . . . . . 7
β’ ((π β§ π β (β€β₯βπ)) β (((π + 1) β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
159 | 70, 158 | syld 47 |
. . . . . 6
β’ ((π β§ π β (β€β₯βπ)) β ((π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
160 | 159 | expcom 414 |
. . . . 5
β’ (π β
(β€β₯βπ) β (π β ((π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
161 | 160 | a2d 29 |
. . . 4
β’ (π β
(β€β₯βπ) β ((π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) β (π β ((π + 1) β (π...π) β ((πΉβπ)π·(πΉβ(π + 1))) β€ Ξ£π β (π...((π + 1) β 1))((πΉβπ)π·(πΉβ(π + 1))))))) |
162 | 12, 21, 30, 39, 66, 161 | uzind4 12886 |
. . 3
β’ (π β
(β€β₯βπ) β (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))))) |
163 | 1, 162 | mpcom 38 |
. 2
β’ (π β (π β (π...π) β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1))))) |
164 | 3, 163 | mpd 15 |
1
β’ (π β ((πΉβπ)π·(πΉβπ)) β€ Ξ£π β (π...(π β 1))((πΉβπ)π·(πΉβ(π + 1)))) |