Step | Hyp | Ref
| Expression |
1 | | fourierdlem79.q |
. . . . . . . 8
β’ (π β π β (πβπ)) |
2 | | fourierdlem79.m |
. . . . . . . . 9
β’ (π β π β β) |
3 | | fourierdlem79.p |
. . . . . . . . . 10
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
4 | 3 | fourierdlem2 44812 |
. . . . . . . . 9
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
5 | 2, 4 | syl 17 |
. . . . . . . 8
β’ (π β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
6 | 1, 5 | mpbid 231 |
. . . . . . 7
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
7 | 6 | simpld 496 |
. . . . . 6
β’ (π β π β (β βm
(0...π))) |
8 | | elmapi 8840 |
. . . . . 6
β’ (π β (β
βm (0...π))
β π:(0...π)βΆβ) |
9 | 7, 8 | syl 17 |
. . . . 5
β’ (π β π:(0...π)βΆβ) |
10 | 9 | adantr 482 |
. . . 4
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
11 | | fourierdlem79.t |
. . . . . . . . 9
β’ π = (π΅ β π΄) |
12 | | fourierdlem79.e |
. . . . . . . . 9
β’ πΈ = (π₯ β β β¦ (π₯ + ((ββ((π΅ β π₯) / π)) Β· π))) |
13 | | fourierdlem79.l |
. . . . . . . . 9
β’ πΏ = (π¦ β (π΄(,]π΅) β¦ if(π¦ = π΅, π΄, π¦)) |
14 | | fourierdlem79.i |
. . . . . . . . 9
β’ πΌ = (π₯ β β β¦ sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < )) |
15 | 3, 2, 1, 11, 12, 13, 14 | fourierdlem37 44847 |
. . . . . . . 8
β’ (π β (πΌ:ββΆ(0..^π) β§ (π₯ β β β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}))) |
16 | 15 | simpld 496 |
. . . . . . 7
β’ (π β πΌ:ββΆ(0..^π)) |
17 | | fzossfz 13648 |
. . . . . . . 8
β’
(0..^π) β
(0...π) |
18 | 17 | a1i 11 |
. . . . . . 7
β’ (π β (0..^π) β (0...π)) |
19 | 16, 18 | fssd 6733 |
. . . . . 6
β’ (π β πΌ:ββΆ(0...π)) |
20 | 19 | adantr 482 |
. . . . 5
β’ ((π β§ π β (0..^π)) β πΌ:ββΆ(0...π)) |
21 | | fourierdlem79.c |
. . . . . . . . . . . . 13
β’ (π β πΆ β β) |
22 | | fourierdlem79.d |
. . . . . . . . . . . . 13
β’ (π β π· β β) |
23 | | fourierdlem79.cltd |
. . . . . . . . . . . . 13
β’ (π β πΆ < π·) |
24 | | fourierdlem79.o |
. . . . . . . . . . . . 13
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = πΆ β§ (πβπ) = π·) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
25 | | fourierdlem79.h |
. . . . . . . . . . . . 13
β’ π» = ({πΆ, π·} βͺ {π₯ β (πΆ[,]π·) β£ βπ β β€ (π₯ + (π Β· π)) β ran π}) |
26 | | fourierdlem79.n |
. . . . . . . . . . . . 13
β’ π = ((β―βπ») β 1) |
27 | | fourierdlem79.s |
. . . . . . . . . . . . 13
β’ π = (β©ππ Isom < , < ((0...π), π»)) |
28 | 11, 3, 2, 1, 21, 22, 23, 24, 25, 26, 27 | fourierdlem54 44863 |
. . . . . . . . . . . 12
β’ (π β ((π β β β§ π β (πβπ)) β§ π Isom < , < ((0...π), π»))) |
29 | 28 | simpld 496 |
. . . . . . . . . . 11
β’ (π β (π β β β§ π β (πβπ))) |
30 | 29 | simprd 497 |
. . . . . . . . . 10
β’ (π β π β (πβπ)) |
31 | 30 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π β (πβπ)) |
32 | 29 | simpld 496 |
. . . . . . . . . . 11
β’ (π β π β β) |
33 | 32 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π β β) |
34 | 24 | fourierdlem2 44812 |
. . . . . . . . . 10
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = πΆ β§ (πβπ) = π·) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
35 | 33, 34 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = πΆ β§ (πβπ) = π·) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
36 | 31, 35 | mpbid 231 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (π β (β βm
(0...π)) β§ (((πβ0) = πΆ β§ (πβπ) = π·) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
37 | 36 | simpld 496 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π β (β βm
(0...π))) |
38 | | elmapi 8840 |
. . . . . . 7
β’ (π β (β
βm (0...π))
β π:(0...π)βΆβ) |
39 | 37, 38 | syl 17 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
40 | | elfzofz 13645 |
. . . . . . 7
β’ (π β (0..^π) β π β (0...π)) |
41 | 40 | adantl 483 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π β (0...π)) |
42 | 39, 41 | ffvelcdmd 7085 |
. . . . 5
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
43 | 20, 42 | ffvelcdmd 7085 |
. . . 4
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) β (0...π)) |
44 | 10, 43 | ffvelcdmd 7085 |
. . 3
β’ ((π β§ π β (0..^π)) β (πβ(πΌβ(πβπ))) β β) |
45 | 44 | rexrd 11261 |
. 2
β’ ((π β§ π β (0..^π)) β (πβ(πΌβ(πβπ))) β
β*) |
46 | 16 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β πΌ:ββΆ(0..^π)) |
47 | 46, 42 | ffvelcdmd 7085 |
. . . . 5
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) β (0..^π)) |
48 | | fzofzp1 13726 |
. . . . 5
β’ ((πΌβ(πβπ)) β (0..^π) β ((πΌβ(πβπ)) + 1) β (0...π)) |
49 | 47, 48 | syl 17 |
. . . 4
β’ ((π β§ π β (0..^π)) β ((πΌβ(πβπ)) + 1) β (0...π)) |
50 | 10, 49 | ffvelcdmd 7085 |
. . 3
β’ ((π β§ π β (0..^π)) β (πβ((πΌβ(πβπ)) + 1)) β β) |
51 | 50 | rexrd 11261 |
. 2
β’ ((π β§ π β (0..^π)) β (πβ((πΌβ(πβπ)) + 1)) β
β*) |
52 | 14 | a1i 11 |
. . . . 5
β’ ((π β§ π β (0..^π)) β πΌ = (π₯ β β β¦ sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ))) |
53 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π₯ = (πβπ) β (πΈβπ₯) = (πΈβ(πβπ))) |
54 | 53 | fveq2d 6893 |
. . . . . . . . 9
β’ (π₯ = (πβπ) β (πΏβ(πΈβπ₯)) = (πΏβ(πΈβ(πβπ)))) |
55 | 54 | breq2d 5160 |
. . . . . . . 8
β’ (π₯ = (πβπ) β ((πβπ) β€ (πΏβ(πΈβπ₯)) β (πβπ) β€ (πΏβ(πΈβ(πβπ))))) |
56 | 55 | rabbidv 3441 |
. . . . . . 7
β’ (π₯ = (πβπ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} = {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}) |
57 | 56 | supeq1d 9438 |
. . . . . 6
β’ (π₯ = (πβπ) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
58 | 57 | adantl 483 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ π₯ = (πβπ)) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
59 | | ltso 11291 |
. . . . . . 7
β’ < Or
β |
60 | 59 | supex 9455 |
. . . . . 6
β’
sup({π β
(0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β
V |
61 | 60 | a1i 11 |
. . . . 5
β’ ((π β§ π β (0..^π)) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β
V) |
62 | 52, 58, 42, 61 | fvmptd 7003 |
. . . 4
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
63 | 62 | fveq2d 6893 |
. . 3
β’ ((π β§ π β (0..^π)) β (πβ(πΌβ(πβπ))) = (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ))) |
64 | | simpl 484 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π) |
65 | 64, 42 | jca 513 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (π β§ (πβπ) β β)) |
66 | | eleq1 2822 |
. . . . . . . . 9
β’ (π₯ = (πβπ) β (π₯ β β β (πβπ) β β)) |
67 | 66 | anbi2d 630 |
. . . . . . . 8
β’ (π₯ = (πβπ) β ((π β§ π₯ β β) β (π β§ (πβπ) β β))) |
68 | 57, 56 | eleq12d 2828 |
. . . . . . . 8
β’ (π₯ = (πβπ) β (sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))})) |
69 | 67, 68 | imbi12d 345 |
. . . . . . 7
β’ (π₯ = (πβπ) β (((π β§ π₯ β β) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}) β ((π β§ (πβπ) β β) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}))) |
70 | 15 | simprd 497 |
. . . . . . . 8
β’ (π β (π₯ β β β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))})) |
71 | 70 | imp 408 |
. . . . . . 7
β’ ((π β§ π₯ β β) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}) |
72 | 69, 71 | vtoclg 3557 |
. . . . . 6
β’ ((πβπ) β β β ((π β§ (πβπ) β β) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))})) |
73 | 42, 65, 72 | sylc 65 |
. . . . 5
β’ ((π β§ π β (0..^π)) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}) |
74 | | nfrab1 3452 |
. . . . . . 7
β’
β²π{π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} |
75 | | nfcv 2904 |
. . . . . . 7
β’
β²πβ |
76 | | nfcv 2904 |
. . . . . . 7
β’
β²π
< |
77 | 74, 75, 76 | nfsup 9443 |
. . . . . 6
β’
β²πsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) |
78 | | nfcv 2904 |
. . . . . 6
β’
β²π(0..^π) |
79 | | nfcv 2904 |
. . . . . . . 8
β’
β²ππ |
80 | 79, 77 | nffv 6899 |
. . . . . . 7
β’
β²π(πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
81 | | nfcv 2904 |
. . . . . . 7
β’
β²π
β€ |
82 | | nfcv 2904 |
. . . . . . 7
β’
β²π(πΏβ(πΈβ(πβπ))) |
83 | 80, 81, 82 | nfbr 5195 |
. . . . . 6
β’
β²π(πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) β€ (πΏβ(πΈβ(πβπ))) |
84 | | fveq2 6889 |
. . . . . . 7
β’ (π = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β (πβπ) = (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ))) |
85 | 84 | breq1d 5158 |
. . . . . 6
β’ (π = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β ((πβπ) β€ (πΏβ(πΈβ(πβπ))) β (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) β€ (πΏβ(πΈβ(πβπ))))) |
86 | 77, 78, 83, 85 | elrabf 3679 |
. . . . 5
β’
(sup({π β
(0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β (sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β (0..^π) β§ (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) β€ (πΏβ(πΈβ(πβπ))))) |
87 | 73, 86 | sylib 217 |
. . . 4
β’ ((π β§ π β (0..^π)) β (sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β (0..^π) β§ (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) β€ (πΏβ(πΈβ(πβπ))))) |
88 | 87 | simprd 497 |
. . 3
β’ ((π β§ π β (0..^π)) β (πβsup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) β€ (πΏβ(πΈβ(πβπ)))) |
89 | 63, 88 | eqbrtrd 5170 |
. 2
β’ ((π β§ π β (0..^π)) β (πβ(πΌβ(πβπ))) β€ (πΏβ(πΈβ(πβπ)))) |
90 | 2 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π β β) |
91 | 1 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π β (πβπ)) |
92 | 21 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β πΆ β β) |
93 | 22 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π· β β) |
94 | 23 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β πΆ < π·) |
95 | | 0zd 12567 |
. . . . . . 7
β’ (π β 0 β
β€) |
96 | 2 | nnzd 12582 |
. . . . . . 7
β’ (π β π β β€) |
97 | | 1zzd 12590 |
. . . . . . 7
β’ (π β 1 β
β€) |
98 | | 0le1 11734 |
. . . . . . . 8
β’ 0 β€
1 |
99 | 98 | a1i 11 |
. . . . . . 7
β’ (π β 0 β€ 1) |
100 | 2 | nnge1d 12257 |
. . . . . . 7
β’ (π β 1 β€ π) |
101 | 95, 96, 97, 99, 100 | elfzd 13489 |
. . . . . 6
β’ (π β 1 β (0...π)) |
102 | 101 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β 1 β (0...π)) |
103 | | simplr 768 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π β (0..^π)) |
104 | | fourierdlem79.z |
. . . . . . . 8
β’ π = ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) |
105 | | fzofzp1 13726 |
. . . . . . . . . . . . . 14
β’ (π β (0..^π) β (π + 1) β (0...π)) |
106 | 105 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (π + 1) β (0...π)) |
107 | 39, 106 | ffvelcdmd 7085 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
108 | 107, 42 | resubcld 11639 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) β (πβπ)) β β) |
109 | 108 | rehalfcld 12456 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (((πβ(π + 1)) β (πβπ)) / 2) β β) |
110 | 9, 101 | ffvelcdmd 7085 |
. . . . . . . . . . . . 13
β’ (π β (πβ1) β β) |
111 | 3, 2, 1 | fourierdlem11 44821 |
. . . . . . . . . . . . . 14
β’ (π β (π΄ β β β§ π΅ β β β§ π΄ < π΅)) |
112 | 111 | simp1d 1143 |
. . . . . . . . . . . . 13
β’ (π β π΄ β β) |
113 | 110, 112 | resubcld 11639 |
. . . . . . . . . . . 12
β’ (π β ((πβ1) β π΄) β β) |
114 | 113 | rehalfcld 12456 |
. . . . . . . . . . 11
β’ (π β (((πβ1) β π΄) / 2) β β) |
115 | 114 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (((πβ1) β π΄) / 2) β β) |
116 | 109, 115 | ifcld 4574 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β β) |
117 | 42, 116 | readdcld 11240 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β β) |
118 | 104, 117 | eqeltrid 2838 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π β β) |
119 | | 2re 12283 |
. . . . . . . . . . . . . 14
β’ 2 β
β |
120 | 119 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β 2 β β) |
121 | | elfzoelz 13629 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (0..^π) β π β β€) |
122 | 121 | zred 12663 |
. . . . . . . . . . . . . . . . 17
β’ (π β (0..^π) β π β β) |
123 | 122 | ltp1d 12141 |
. . . . . . . . . . . . . . . 16
β’ (π β (0..^π) β π < (π + 1)) |
124 | 123 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β π < (π + 1)) |
125 | 28 | simprd 497 |
. . . . . . . . . . . . . . . . 17
β’ (π β π Isom < , < ((0...π), π»)) |
126 | 125 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β π Isom < , < ((0...π), π»)) |
127 | | isorel 7320 |
. . . . . . . . . . . . . . . 16
β’ ((π Isom < , < ((0...π), π») β§ (π β (0...π) β§ (π + 1) β (0...π))) β (π < (π + 1) β (πβπ) < (πβ(π + 1)))) |
128 | 126, 41, 106, 127 | syl12anc 836 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π < (π + 1) β (πβπ) < (πβ(π + 1)))) |
129 | 124, 128 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
130 | 42, 107 | posdifd 11798 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β ((πβπ) < (πβ(π + 1)) β 0 < ((πβ(π + 1)) β (πβπ)))) |
131 | 129, 130 | mpbid 231 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β 0 < ((πβ(π + 1)) β (πβπ))) |
132 | | 2pos 12312 |
. . . . . . . . . . . . . 14
β’ 0 <
2 |
133 | 132 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β 0 < 2) |
134 | 108, 120,
131, 133 | divgt0d 12146 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β 0 < (((πβ(π + 1)) β (πβπ)) / 2)) |
135 | 109, 134 | elrpd 13010 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (((πβ(π + 1)) β (πβπ)) / 2) β
β+) |
136 | 119 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β 2 β
β) |
137 | 2 | nngt0d 12258 |
. . . . . . . . . . . . . . . . . 18
β’ (π β 0 < π) |
138 | | fzolb 13635 |
. . . . . . . . . . . . . . . . . 18
β’ (0 β
(0..^π) β (0 β
β€ β§ π β
β€ β§ 0 < π)) |
139 | 95, 96, 137, 138 | syl3anbrc 1344 |
. . . . . . . . . . . . . . . . 17
β’ (π β 0 β (0..^π)) |
140 | | 0re 11213 |
. . . . . . . . . . . . . . . . . 18
β’ 0 β
β |
141 | | eleq1 2822 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 0 β (π β (0..^π) β 0 β (0..^π))) |
142 | 141 | anbi2d 630 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 0 β ((π β§ π β (0..^π)) β (π β§ 0 β (0..^π)))) |
143 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 0 β (πβπ) = (πβ0)) |
144 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = 0 β (π + 1) = (0 + 1)) |
145 | 144 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 0 β (πβ(π + 1)) = (πβ(0 + 1))) |
146 | 143, 145 | breq12d 5161 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 0 β ((πβπ) < (πβ(π + 1)) β (πβ0) < (πβ(0 + 1)))) |
147 | 142, 146 | imbi12d 345 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 0 β (((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) β ((π β§ 0 β (0..^π)) β (πβ0) < (πβ(0 + 1))))) |
148 | 6 | simprd 497 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))) |
149 | 148 | simprd 497 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
150 | 149 | r19.21bi 3249 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
151 | 147, 150 | vtoclg 3557 |
. . . . . . . . . . . . . . . . . 18
β’ (0 β
β β ((π β§ 0
β (0..^π)) β
(πβ0) < (πβ(0 +
1)))) |
152 | 140, 151 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ 0 β (0..^π)) β (πβ0) < (πβ(0 + 1))) |
153 | 139, 152 | mpdan 686 |
. . . . . . . . . . . . . . . 16
β’ (π β (πβ0) < (πβ(0 + 1))) |
154 | 148 | simpld 496 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((πβ0) = π΄ β§ (πβπ) = π΅)) |
155 | 154 | simpld 496 |
. . . . . . . . . . . . . . . 16
β’ (π β (πβ0) = π΄) |
156 | | 0p1e1 12331 |
. . . . . . . . . . . . . . . . . 18
β’ (0 + 1) =
1 |
157 | 156 | fveq2i 6892 |
. . . . . . . . . . . . . . . . 17
β’ (πβ(0 + 1)) = (πβ1) |
158 | 157 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β (πβ(0 + 1)) = (πβ1)) |
159 | 153, 155,
158 | 3brtr3d 5179 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ < (πβ1)) |
160 | 112, 110 | posdifd 11798 |
. . . . . . . . . . . . . . 15
β’ (π β (π΄ < (πβ1) β 0 < ((πβ1) β π΄))) |
161 | 159, 160 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (π β 0 < ((πβ1) β π΄)) |
162 | 132 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β 0 < 2) |
163 | 113, 136,
161, 162 | divgt0d 12146 |
. . . . . . . . . . . . 13
β’ (π β 0 < (((πβ1) β π΄) / 2)) |
164 | 114, 163 | elrpd 13010 |
. . . . . . . . . . . 12
β’ (π β (((πβ1) β π΄) / 2) β
β+) |
165 | 164 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (((πβ1) β π΄) / 2) β
β+) |
166 | 135, 165 | ifcld 4574 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β
β+) |
167 | 42, 166 | ltaddrpd 13046 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πβπ) < ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
168 | 42, 117, 167 | ltled 11359 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πβπ) β€ ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
169 | 168, 104 | breqtrrdi 5190 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (πβπ) β€ π) |
170 | 42, 109 | readdcld 11240 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ) + (((πβ(π + 1)) β (πβπ)) / 2)) β β) |
171 | | iftrue 4534 |
. . . . . . . . . . . . 13
β’ (((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) = (((πβ(π + 1)) β (πβπ)) / 2)) |
172 | 171 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) = (((πβ(π + 1)) β (πβπ)) / 2)) |
173 | 109 | leidd 11777 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((πβ(π + 1)) β (πβπ)) / 2) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
174 | 173 | adantr 482 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ(π + 1)) β (πβπ)) / 2) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
175 | 172, 174 | eqbrtrd 5170 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
176 | | iffalse 4537 |
. . . . . . . . . . . . 13
β’ (Β¬
((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) = (((πβ1) β π΄) / 2)) |
177 | 176 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) = (((πβ1) β π΄) / 2)) |
178 | 113 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ1) β π΄) β β) |
179 | 108 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ(π + 1)) β (πβπ)) β β) |
180 | | 2rp 12976 |
. . . . . . . . . . . . . 14
β’ 2 β
β+ |
181 | 180 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β 2 β
β+) |
182 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) |
183 | 178, 179,
182 | nltled 11361 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ1) β π΄) β€ ((πβ(π + 1)) β (πβπ))) |
184 | 178, 179,
181, 183 | lediv1dd 13071 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ1) β π΄) / 2) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
185 | 177, 184 | eqbrtrd 5170 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
186 | 175, 185 | pm2.61dan 812 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ(π + 1)) β (πβπ)) / 2)) |
187 | 116, 109,
42, 186 | leadd2dd 11826 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β€ ((πβπ) + (((πβ(π + 1)) β (πβπ)) / 2))) |
188 | 42 | recnd 11239 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
189 | 107 | recnd 11239 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
190 | 188, 189 | addcomd 11413 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β ((πβπ) + (πβ(π + 1))) = ((πβ(π + 1)) + (πβπ))) |
191 | 190 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (((πβπ) + (πβ(π + 1))) / 2) = (((πβ(π + 1)) + (πβπ)) / 2)) |
192 | 191 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β ((((πβπ) + (πβ(π + 1))) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = ((((πβ(π + 1)) + (πβπ)) / 2) β (((πβ(π + 1)) β (πβπ)) / 2))) |
193 | | halfaddsub 12442 |
. . . . . . . . . . . . . . 15
β’ (((πβ(π + 1)) β β β§ (πβπ) β β) β (((((πβ(π + 1)) + (πβπ)) / 2) + (((πβ(π + 1)) β (πβπ)) / 2)) = (πβ(π + 1)) β§ ((((πβ(π + 1)) + (πβπ)) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = (πβπ))) |
194 | 189, 188,
193 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (((((πβ(π + 1)) + (πβπ)) / 2) + (((πβ(π + 1)) β (πβπ)) / 2)) = (πβ(π + 1)) β§ ((((πβ(π + 1)) + (πβπ)) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = (πβπ))) |
195 | 194 | simprd 497 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β ((((πβ(π + 1)) + (πβπ)) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = (πβπ)) |
196 | 192, 195 | eqtrd 2773 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β ((((πβπ) + (πβ(π + 1))) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = (πβπ)) |
197 | 188, 189 | addcld 11230 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β ((πβπ) + (πβ(π + 1))) β β) |
198 | 197 | halfcld 12454 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((πβπ) + (πβ(π + 1))) / 2) β β) |
199 | 109 | recnd 11239 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((πβ(π + 1)) β (πβπ)) / 2) β β) |
200 | 198, 199,
188 | subsub23d 43984 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (((((πβπ) + (πβ(π + 1))) / 2) β (((πβ(π + 1)) β (πβπ)) / 2)) = (πβπ) β ((((πβπ) + (πβ(π + 1))) / 2) β (πβπ)) = (((πβ(π + 1)) β (πβπ)) / 2))) |
201 | 196, 200 | mpbid 231 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((((πβπ) + (πβ(π + 1))) / 2) β (πβπ)) = (((πβ(π + 1)) β (πβπ)) / 2)) |
202 | 198, 188,
199 | subaddd 11586 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (((((πβπ) + (πβ(π + 1))) / 2) β (πβπ)) = (((πβ(π + 1)) β (πβπ)) / 2) β ((πβπ) + (((πβ(π + 1)) β (πβπ)) / 2)) = (((πβπ) + (πβ(π + 1))) / 2))) |
203 | 201, 202 | mpbid 231 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ) + (((πβ(π + 1)) β (πβπ)) / 2)) = (((πβπ) + (πβ(π + 1))) / 2)) |
204 | | avglt2 12448 |
. . . . . . . . . . . 12
β’ (((πβπ) β β β§ (πβ(π + 1)) β β) β ((πβπ) < (πβ(π + 1)) β (((πβπ) + (πβ(π + 1))) / 2) < (πβ(π + 1)))) |
205 | 42, 107, 204 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ) < (πβ(π + 1)) β (((πβπ) + (πβ(π + 1))) / 2) < (πβ(π + 1)))) |
206 | 129, 205 | mpbid 231 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (((πβπ) + (πβ(π + 1))) / 2) < (πβ(π + 1))) |
207 | 203, 206 | eqbrtrd 5170 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ) + (((πβ(π + 1)) β (πβπ)) / 2)) < (πβ(π + 1))) |
208 | 117, 170,
107, 187, 207 | lelttrd 11369 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) < (πβ(π + 1))) |
209 | 104, 208 | eqbrtrid 5183 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π < (πβ(π + 1))) |
210 | 107 | rexrd 11261 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β
β*) |
211 | | elico2 13385 |
. . . . . . . 8
β’ (((πβπ) β β β§ (πβ(π + 1)) β β*) β
(π β ((πβπ)[,)(πβ(π + 1))) β (π β β β§ (πβπ) β€ π β§ π < (πβ(π + 1))))) |
212 | 42, 210, 211 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π β ((πβπ)[,)(πβ(π + 1))) β (π β β β§ (πβπ) β€ π β§ π < (πβ(π + 1))))) |
213 | 118, 169,
209, 212 | mpbir3and 1343 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π β ((πβπ)[,)(πβ(π + 1)))) |
214 | 213 | adantr 482 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π β ((πβπ)[,)(πβ(π + 1)))) |
215 | 112 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π΄ β β) |
216 | 111 | simp2d 1144 |
. . . . . . . . 9
β’ (π β π΅ β β) |
217 | 216 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π΅ β β) |
218 | 111 | simp3d 1145 |
. . . . . . . . 9
β’ (π β π΄ < π΅) |
219 | 218 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π΄ < π΅) |
220 | 42 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πβπ) β β) |
221 | | simpr 486 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) = π΅) |
222 | 167, 104 | breqtrrdi 5190 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (πβπ) < π) |
223 | 216, 112 | resubcld 11639 |
. . . . . . . . . . . . . 14
β’ (π β (π΅ β π΄) β β) |
224 | 11, 223 | eqeltrid 2838 |
. . . . . . . . . . . . 13
β’ (π β π β β) |
225 | 224 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π β β) |
226 | 109 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ(π + 1)) β (πβπ)) / 2) β β) |
227 | 114 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ1) β π΄) / 2) β β) |
228 | 108 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ(π + 1)) β (πβπ)) β β) |
229 | 113 | ad2antrr 725 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ1) β π΄) β β) |
230 | 180 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β 2 β
β+) |
231 | | simpr 486 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) |
232 | 228, 229,
230, 231 | ltdiv1dd 13070 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ(π + 1)) β (πβπ)) / 2) < (((πβ1) β π΄) / 2)) |
233 | 226, 227,
232 | ltled 11359 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ(π + 1)) β (πβπ)) / 2) β€ (((πβ1) β π΄) / 2)) |
234 | 172, 233 | eqbrtrd 5170 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ1) β π΄) / 2)) |
235 | 176 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) = (((πβ1) β π΄) / 2)) |
236 | 114 | leidd 11777 |
. . . . . . . . . . . . . . . . 17
β’ (π β (((πβ1) β π΄) / 2) β€ (((πβ1) β π΄) / 2)) |
237 | 236 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (((πβ1) β π΄) / 2) β€ (((πβ1) β π΄) / 2)) |
238 | 235, 237 | eqbrtrd 5170 |
. . . . . . . . . . . . . . 15
β’ ((π β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ1) β π΄) / 2)) |
239 | 238 | adantlr 714 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ1) β π΄) / 2)) |
240 | 234, 239 | pm2.61dan 812 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ (((πβ1) β π΄) / 2)) |
241 | 223 | rehalfcld 12456 |
. . . . . . . . . . . . . . . 16
β’ (π β ((π΅ β π΄) / 2) β β) |
242 | 180 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ (π β 2 β
β+) |
243 | 112 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β π΄ β
β*) |
244 | 216 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β π΅ β
β*) |
245 | 3, 2, 1 | fourierdlem15 44825 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π:(0...π)βΆ(π΄[,]π΅)) |
246 | 245, 101 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (πβ1) β (π΄[,]π΅)) |
247 | | iccleub 13376 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π΄ β β*
β§ π΅ β
β* β§ (πβ1) β (π΄[,]π΅)) β (πβ1) β€ π΅) |
248 | 243, 244,
246, 247 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (πβ1) β€ π΅) |
249 | 110, 216,
112, 248 | lesub1dd 11827 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((πβ1) β π΄) β€ (π΅ β π΄)) |
250 | 113, 223,
242, 249 | lediv1dd 13071 |
. . . . . . . . . . . . . . . 16
β’ (π β (((πβ1) β π΄) / 2) β€ ((π΅ β π΄) / 2)) |
251 | 11 | eqcomi 2742 |
. . . . . . . . . . . . . . . . . 18
β’ (π΅ β π΄) = π |
252 | 251 | oveq1i 7416 |
. . . . . . . . . . . . . . . . 17
β’ ((π΅ β π΄) / 2) = (π / 2) |
253 | 112, 216 | posdifd 11798 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (π΄ < π΅ β 0 < (π΅ β π΄))) |
254 | 218, 253 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β 0 < (π΅ β π΄)) |
255 | 254, 11 | breqtrrdi 5190 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β 0 < π) |
256 | 224, 255 | elrpd 13010 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π β
β+) |
257 | | rphalflt 13000 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β+
β (π / 2) < π) |
258 | 256, 257 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π / 2) < π) |
259 | 252, 258 | eqbrtrid 5183 |
. . . . . . . . . . . . . . . 16
β’ (π β ((π΅ β π΄) / 2) < π) |
260 | 114, 241,
224, 250, 259 | lelttrd 11369 |
. . . . . . . . . . . . . . 15
β’ (π β (((πβ1) β π΄) / 2) < π) |
261 | 114, 224,
260 | ltled 11359 |
. . . . . . . . . . . . . 14
β’ (π β (((πβ1) β π΄) / 2) β€ π) |
262 | 261 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((πβ1) β π΄) / 2) β€ π) |
263 | 116, 115,
225, 240, 262 | letrd 11368 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β€ π) |
264 | 116, 225,
42, 263 | leadd2dd 11826 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β€ ((πβπ) + π)) |
265 | 104, 264 | eqbrtrid 5183 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π β€ ((πβπ) + π)) |
266 | 42 | rexrd 11261 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πβπ) β
β*) |
267 | 42, 225 | readdcld 11240 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) β β) |
268 | | elioc2 13384 |
. . . . . . . . . . 11
β’ (((πβπ) β β* β§ ((πβπ) + π) β β) β (π β ((πβπ)(,]((πβπ) + π)) β (π β β β§ (πβπ) < π β§ π β€ ((πβπ) + π)))) |
269 | 266, 267,
268 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (π β ((πβπ)(,]((πβπ) + π)) β (π β β β§ (πβπ) < π β§ π β€ ((πβπ) + π)))) |
270 | 118, 222,
265, 269 | mpbir3and 1343 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π β ((πβπ)(,]((πβπ) + π))) |
271 | 270 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β π β ((πβπ)(,]((πβπ) + π))) |
272 | 215, 217,
219, 11, 12, 220, 221, 271 | fourierdlem26 44836 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβπ) = (π΄ + (π β (πβπ)))) |
273 | 104 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π = ((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
274 | 273 | oveq1d 7421 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π β (πβπ)) = (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ))) |
275 | 274 | oveq2d 7422 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (π΄ + (π β (πβπ))) = (π΄ + (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ)))) |
276 | 275 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (π΄ + (π β (πβπ))) = (π΄ + (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ)))) |
277 | 116 | recnd 11239 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)) β β) |
278 | 188, 277 | pncan2d 11570 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ)) = if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) |
279 | 278 | oveq2d 7422 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (π΄ + (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ))) = (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
280 | 279 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (π΄ + (((πβπ) + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) β (πβπ))) = (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
281 | 272, 276,
280 | 3eqtrd 2777 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβπ) = (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2)))) |
282 | 171 | oveq2d 7422 |
. . . . . . . . . 10
β’ (((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) = (π΄ + (((πβ(π + 1)) β (πβπ)) / 2))) |
283 | 282 | adantl 483 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) = (π΄ + (((πβ(π + 1)) β (πβπ)) / 2))) |
284 | 112 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π΄ β β) |
285 | 284, 109 | readdcld 11240 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π΄ + (((πβ(π + 1)) β (πβπ)) / 2)) β β) |
286 | 285 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ(π + 1)) β (πβπ)) / 2)) β β) |
287 | 284, 115 | readdcld 11240 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π΄ + (((πβ1) β π΄) / 2)) β β) |
288 | 287 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ1) β π΄) / 2)) β β) |
289 | 110 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (πβ1) β β) |
290 | 112 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β π΄ β β) |
291 | 226, 227,
290, 232 | ltadd2dd 11370 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ(π + 1)) β (πβπ)) / 2)) < (π΄ + (((πβ1) β π΄) / 2))) |
292 | 110 | recnd 11239 |
. . . . . . . . . . . . . . . 16
β’ (π β (πβ1) β β) |
293 | 112 | recnd 11239 |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β β) |
294 | | halfaddsub 12442 |
. . . . . . . . . . . . . . . 16
β’ (((πβ1) β β β§
π΄ β β) β
(((((πβ1) + π΄) / 2) + (((πβ1) β π΄) / 2)) = (πβ1) β§ ((((πβ1) + π΄) / 2) β (((πβ1) β π΄) / 2)) = π΄)) |
295 | 292, 293,
294 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ (π β (((((πβ1) + π΄) / 2) + (((πβ1) β π΄) / 2)) = (πβ1) β§ ((((πβ1) + π΄) / 2) β (((πβ1) β π΄) / 2)) = π΄)) |
296 | 295 | simprd 497 |
. . . . . . . . . . . . . 14
β’ (π β ((((πβ1) + π΄) / 2) β (((πβ1) β π΄) / 2)) = π΄) |
297 | 296 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ (π β (((((πβ1) + π΄) / 2) β (((πβ1) β π΄) / 2)) + (((πβ1) β π΄) / 2)) = (π΄ + (((πβ1) β π΄) / 2))) |
298 | 110, 112 | readdcld 11240 |
. . . . . . . . . . . . . . . 16
β’ (π β ((πβ1) + π΄) β β) |
299 | 298 | rehalfcld 12456 |
. . . . . . . . . . . . . . 15
β’ (π β (((πβ1) + π΄) / 2) β β) |
300 | 299 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β (((πβ1) + π΄) / 2) β β) |
301 | 114 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β (((πβ1) β π΄) / 2) β β) |
302 | 300, 301 | npcand 11572 |
. . . . . . . . . . . . 13
β’ (π β (((((πβ1) + π΄) / 2) β (((πβ1) β π΄) / 2)) + (((πβ1) β π΄) / 2)) = (((πβ1) + π΄) / 2)) |
303 | 297, 302 | eqtr3d 2775 |
. . . . . . . . . . . 12
β’ (π β (π΄ + (((πβ1) β π΄) / 2)) = (((πβ1) + π΄) / 2)) |
304 | 110, 110 | readdcld 11240 |
. . . . . . . . . . . . . 14
β’ (π β ((πβ1) + (πβ1)) β β) |
305 | 112, 110,
110, 159 | ltadd2dd 11370 |
. . . . . . . . . . . . . 14
β’ (π β ((πβ1) + π΄) < ((πβ1) + (πβ1))) |
306 | 298, 304,
242, 305 | ltdiv1dd 13070 |
. . . . . . . . . . . . 13
β’ (π β (((πβ1) + π΄) / 2) < (((πβ1) + (πβ1)) / 2)) |
307 | 292 | 2timesd 12452 |
. . . . . . . . . . . . . . . 16
β’ (π β (2 Β· (πβ1)) = ((πβ1) + (πβ1))) |
308 | 307 | eqcomd 2739 |
. . . . . . . . . . . . . . 15
β’ (π β ((πβ1) + (πβ1)) = (2 Β· (πβ1))) |
309 | 308 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ (π β (((πβ1) + (πβ1)) / 2) = ((2 Β· (πβ1)) /
2)) |
310 | | 2cnd 12287 |
. . . . . . . . . . . . . . 15
β’ (π β 2 β
β) |
311 | | 2ne0 12313 |
. . . . . . . . . . . . . . . 16
β’ 2 β
0 |
312 | 311 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β 2 β 0) |
313 | 292, 310,
312 | divcan3d 11992 |
. . . . . . . . . . . . . 14
β’ (π β ((2 Β· (πβ1)) / 2) = (πβ1)) |
314 | 309, 313 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ (π β (((πβ1) + (πβ1)) / 2) = (πβ1)) |
315 | 306, 314 | breqtrd 5174 |
. . . . . . . . . . . 12
β’ (π β (((πβ1) + π΄) / 2) < (πβ1)) |
316 | 303, 315 | eqbrtrd 5170 |
. . . . . . . . . . 11
β’ (π β (π΄ + (((πβ1) β π΄) / 2)) < (πβ1)) |
317 | 316 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ1) β π΄) / 2)) < (πβ1)) |
318 | 286, 288,
289, 291, 317 | lttrd 11372 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ(π + 1)) β (πβπ)) / 2)) < (πβ1)) |
319 | 283, 318 | eqbrtrd 5170 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) < (πβ1)) |
320 | 176 | oveq2d 7422 |
. . . . . . . . . 10
β’ (Β¬
((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) = (π΄ + (((πβ1) β π΄) / 2))) |
321 | 320 | adantl 483 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) = (π΄ + (((πβ1) β π΄) / 2))) |
322 | 316 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + (((πβ1) β π΄) / 2)) < (πβ1)) |
323 | 321, 322 | eqbrtrd 5170 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ ((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄)) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) < (πβ1)) |
324 | 319, 323 | pm2.61dan 812 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) < (πβ1)) |
325 | 324 | adantr 482 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (π΄ + if(((πβ(π + 1)) β (πβπ)) < ((πβ1) β π΄), (((πβ(π + 1)) β (πβπ)) / 2), (((πβ1) β π΄) / 2))) < (πβ1)) |
326 | 281, 325 | eqbrtrd 5170 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβπ) < (πβ1)) |
327 | | eqid 2733 |
. . . . 5
β’ ((πβ1) β ((πΈβπ) β π)) = ((πβ1) β ((πΈβπ) β π)) |
328 | 11, 3, 90, 91, 92, 93, 94, 24, 25, 26, 27, 12, 102, 103, 214, 326, 327 | fourierdlem63 44872 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβ(πβ(π + 1))) β€ (πβ1)) |
329 | 14 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β πΌ = (π₯ β β β¦ sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ))) |
330 | 57 | adantl 483 |
. . . . . . . . 9
β’ ((((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β§ π₯ = (πβπ)) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}, β, < ) = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
331 | 60 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) β
V) |
332 | 329, 330,
220, 331 | fvmptd 7003 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΌβ(πβπ)) = sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
333 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ ((πΈβ(πβπ)) = π΅ β (πΏβ(πΈβ(πβπ))) = (πΏβπ΅)) |
334 | 13 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β πΏ = (π¦ β (π΄(,]π΅) β¦ if(π¦ = π΅, π΄, π¦))) |
335 | | iftrue 4534 |
. . . . . . . . . . . . . . 15
β’ (π¦ = π΅ β if(π¦ = π΅, π΄, π¦) = π΄) |
336 | 335 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ = π΅) β if(π¦ = π΅, π΄, π¦) = π΄) |
337 | | ubioc1 13374 |
. . . . . . . . . . . . . . 15
β’ ((π΄ β β*
β§ π΅ β
β* β§ π΄
< π΅) β π΅ β (π΄(,]π΅)) |
338 | 243, 244,
218, 337 | syl3anc 1372 |
. . . . . . . . . . . . . 14
β’ (π β π΅ β (π΄(,]π΅)) |
339 | 334, 336,
338, 112 | fvmptd 7003 |
. . . . . . . . . . . . 13
β’ (π β (πΏβπ΅) = π΄) |
340 | 333, 339 | sylan9eqr 2795 |
. . . . . . . . . . . 12
β’ ((π β§ (πΈβ(πβπ)) = π΅) β (πΏβ(πΈβ(πβπ))) = π΄) |
341 | 340 | breq2d 5160 |
. . . . . . . . . . 11
β’ ((π β§ (πΈβ(πβπ)) = π΅) β ((πβπ) β€ (πΏβ(πΈβ(πβπ))) β (πβπ) β€ π΄)) |
342 | 341 | rabbidv 3441 |
. . . . . . . . . 10
β’ ((π β§ (πΈβ(πβπ)) = π΅) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} = {π β (0..^π) β£ (πβπ) β€ π΄}) |
343 | 342 | supeq1d 9438 |
. . . . . . . . 9
β’ ((π β§ (πΈβ(πβπ)) = π΅) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) = sup({π β (0..^π) β£ (πβπ) β€ π΄}, β, < )) |
344 | 343 | adantlr 714 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) = sup({π β (0..^π) β£ (πβπ) β€ π΄}, β, < )) |
345 | | simpl 484 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {π β (0..^π) β£ (πβπ) β€ π΄}) β π) |
346 | | elrabi 3677 |
. . . . . . . . . . . . . . . . 17
β’ (π β {π β (0..^π) β£ (πβπ) β€ π΄} β π β (0..^π)) |
347 | 346 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {π β (0..^π) β£ (πβπ) β€ π΄}) β π β (0..^π)) |
348 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (πβπ) = (πβπ)) |
349 | 348 | breq1d 5158 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((πβπ) β€ π΄ β (πβπ) β€ π΄)) |
350 | 349 | elrab 3683 |
. . . . . . . . . . . . . . . . . 18
β’ (π β {π β (0..^π) β£ (πβπ) β€ π΄} β (π β (0..^π) β§ (πβπ) β€ π΄)) |
351 | 350 | simprbi 498 |
. . . . . . . . . . . . . . . . 17
β’ (π β {π β (0..^π) β£ (πβπ) β€ π΄} β (πβπ) β€ π΄) |
352 | 351 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {π β (0..^π) β£ (πβπ) β€ π΄}) β (πβπ) β€ π΄) |
353 | | simp3 1139 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β (πβπ) β€ π΄) |
354 | 112 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π΄ β β) |
355 | 110 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (πβ1) β β) |
356 | 9 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
357 | 18 | sselda 3982 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (0..^π)) β π β (0...π)) |
358 | 356, 357 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
359 | 358 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (πβπ) β β) |
360 | 159 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π΄ < (πβ1)) |
361 | | 1zzd 12590 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β 1 β
β€) |
362 | | elfzoelz 13629 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (0..^π) β π β β€) |
363 | 362 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π β β€) |
364 | | 1e0p1 12716 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ 1 = (0 +
1) |
365 | | simpr 486 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β Β¬ π β€ 0) |
366 | | 0red 11214 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β 0 β
β) |
367 | 363 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π β β) |
368 | 366, 367 | ltnled 11358 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (0 < π β Β¬ π β€ 0)) |
369 | 365, 368 | mpbird 257 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β 0 < π) |
370 | | 0zd 12567 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β 0 β
β€) |
371 | | zltp1le 12609 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((0
β β€ β§ π
β β€) β (0 < π β (0 + 1) β€ π)) |
372 | 370, 363,
371 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (0 < π β (0 + 1) β€ π)) |
373 | 369, 372 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (0 + 1) β€ π) |
374 | 364, 373 | eqbrtrid 5183 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β 1 β€ π) |
375 | | eluz2 12825 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β
(β€β₯β1) β (1 β β€ β§ π β β€ β§ 1 β€
π)) |
376 | 361, 363,
374, 375 | syl3anbrc 1344 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π β
(β€β₯β1)) |
377 | 9 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π:(0...π)βΆβ) |
378 | | 0zd 12567 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β 0 β β€) |
379 | 96 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β€) |
380 | | elfzelz 13498 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β (1...π) β π β β€) |
381 | 380 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β€) |
382 | | 0red 11214 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...π) β 0 β β) |
383 | 380 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...π) β π β β) |
384 | | 1red 11212 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...π) β 1 β β) |
385 | | 0lt1 11733 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ 0 <
1 |
386 | 385 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...π) β 0 < 1) |
387 | | elfzle1 13501 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...π) β 1 β€ π) |
388 | 382, 384,
383, 386, 387 | ltletrd 11371 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...π) β 0 < π) |
389 | 382, 383,
388 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β (1...π) β 0 β€ π) |
390 | 389 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β 0 β€ π) |
391 | 383 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β) |
392 | 96 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β π β β) |
393 | 392 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β) |
394 | 362 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (0..^π) β π β β) |
395 | 394 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β) |
396 | | elfzle2 13502 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...π) β π β€ π) |
397 | 396 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β€ π) |
398 | | elfzolt2 13638 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (0..^π) β π < π) |
399 | 398 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π < π) |
400 | 391, 395,
393, 397, 399 | lelttrd 11369 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π < π) |
401 | 391, 393,
400 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β€ π) |
402 | 378, 379,
381, 390, 401 | elfzd 13489 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β (0...π)) |
403 | 377, 402 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β (πβπ) β β) |
404 | 403 | adantlr 714 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β§ π β (1...π)) β (πβπ) β β) |
405 | 9 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π:(0...π)βΆβ) |
406 | | 0zd 12567 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β 0 β
β€) |
407 | 96 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β β€) |
408 | | elfzelz 13498 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...(π β 1)) β π β β€) |
409 | 408 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β β€) |
410 | | 0red 11214 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...(π β 1)) β 0 β
β) |
411 | 408 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...(π β 1)) β π β β) |
412 | | 1red 11212 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π β (1...(π β 1)) β 1 β
β) |
413 | 385 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π β (1...(π β 1)) β 0 <
1) |
414 | | elfzle1 13501 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π β (1...(π β 1)) β 1 β€ π) |
415 | 410, 412,
411, 413, 414 | ltletrd 11371 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...(π β 1)) β 0 < π) |
416 | 410, 411,
415 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...(π β 1)) β 0 β€ π) |
417 | 416 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β 0 β€ π) |
418 | 409 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β β) |
419 | 392 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β β) |
420 | 394 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β β) |
421 | 411 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β β) |
422 | | peano2rem 11524 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (π β β β (π β 1) β
β) |
423 | 394, 422 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (π β (0..^π) β (π β 1) β β) |
424 | 423 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (π β 1) β β) |
425 | 394 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β β) |
426 | | elfzle2 13502 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (π β (1...(π β 1)) β π β€ (π β 1)) |
427 | 426 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β€ (π β 1)) |
428 | 425 | ltm1d 12143 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (π β 1) < π) |
429 | 421, 424,
425, 427, 428 | lelttrd 11369 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π < π) |
430 | 429 | adantll 713 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π < π) |
431 | 398 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π < π) |
432 | 418, 420,
419, 430, 431 | lttrd 11372 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π < π) |
433 | 418, 419,
432 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β€ π) |
434 | 406, 407,
409, 417, 433 | elfzd 13489 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β (0...π)) |
435 | 405, 434 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (πβπ) β β) |
436 | 409 | peano2zd 12666 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) β β€) |
437 | 411, 412 | readdcld 11240 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...(π β 1)) β (π + 1) β β) |
438 | 411, 412,
415, 413 | addgt0d 11786 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (1...(π β 1)) β 0 < (π + 1)) |
439 | 410, 437,
438 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (1...(π β 1)) β 0 β€ (π + 1)) |
440 | 439 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β 0 β€ (π + 1)) |
441 | 437 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) β β) |
442 | 437 | recnd 11239 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β (1...(π β 1)) β (π + 1) β β) |
443 | | 1cnd 11206 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β (1...(π β 1)) β 1 β
β) |
444 | 442, 443 | npcand 11572 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (π β (1...(π β 1)) β (((π + 1) β 1) + 1) = (π + 1)) |
445 | 444 | eqcomd 2739 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (π β (1...(π β 1)) β (π + 1) = (((π + 1) β 1) + 1)) |
446 | 445 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (π + 1) = (((π + 1) β 1) + 1)) |
447 | | peano2re 11384 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β β β (π + 1) β
β) |
448 | | peano2rem 11524 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ ((π + 1) β β β
((π + 1) β 1) β
β) |
449 | 421, 447,
448 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β ((π + 1) β 1) β
β) |
450 | | peano2re 11384 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ ((π β 1) β β
β ((π β 1) + 1)
β β) |
451 | | peano2rem 11524 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β 1) + 1) β β
β (((π β 1) + 1)
β 1) β β) |
452 | 424, 450,
451 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (((π β 1) + 1) β 1) β
β) |
453 | | 1red 11212 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β 1 β
β) |
454 | | elfzel2 13496 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . 37
β’ (π β (1...(π β 1)) β (π β 1) β β€) |
455 | 454 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . 36
β’ (π β (1...(π β 1)) β (π β 1) β β) |
456 | 455, 412 | readdcld 11240 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (1...(π β 1)) β ((π β 1) + 1) β
β) |
457 | 411, 455,
412, 426 | leadd1dd 11825 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (1...(π β 1)) β (π + 1) β€ ((π β 1) + 1)) |
458 | 437, 456,
412, 457 | lesub1dd 11827 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β (1...(π β 1)) β ((π + 1) β 1) β€ (((π β 1) + 1) β 1)) |
459 | 458 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β ((π + 1) β 1) β€ (((π β 1) + 1) β 1)) |
460 | 449, 452,
453, 459 | leadd1dd 11825 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (((π + 1) β 1) + 1) β€ ((((π β 1) + 1) β 1) +
1)) |
461 | | peano2zm 12602 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . 38
β’ (π β β€ β (π β 1) β
β€) |
462 | 362, 461 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . 37
β’ (π β (0..^π) β (π β 1) β β€) |
463 | 462 | peano2zd 12666 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . 36
β’ (π β (0..^π) β ((π β 1) + 1) β
β€) |
464 | 463 | zcnd 12664 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (0..^π) β ((π β 1) + 1) β
β) |
465 | | 1cnd 11206 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (0..^π) β 1 β β) |
466 | 464, 465 | npcand 11572 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β (0..^π) β ((((π β 1) + 1) β 1) + 1) = ((π β 1) +
1)) |
467 | 394 | recnd 11239 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (0..^π) β π β β) |
468 | 467, 465 | npcand 11572 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (π β (0..^π) β ((π β 1) + 1) = π) |
469 | 466, 468 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (π β (0..^π) β ((((π β 1) + 1) β 1) + 1) = π) |
470 | 469 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β ((((π β 1) + 1) β 1) + 1) = π) |
471 | 460, 470 | breqtrd 5174 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (((π + 1) β 1) + 1) β€ π) |
472 | 446, 471 | eqbrtrd 5170 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β (π + 1) β€ π) |
473 | 472 | adantll 713 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) β€ π) |
474 | 441, 420,
419, 473, 431 | lelttrd 11369 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) < π) |
475 | 441, 419,
474 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) β€ π) |
476 | 406, 407,
436, 440, 475 | elfzd 13489 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (π + 1) β (0...π)) |
477 | 405, 476 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (πβ(π + 1)) β β) |
478 | | simpll 766 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π) |
479 | | 0zd 12567 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β 0 β
β€) |
480 | 408 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β β€) |
481 | 416 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β 0 β€ π) |
482 | | eluz2 12825 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β
(β€β₯β0) β (0 β β€ β§ π β β€ β§ 0 β€
π)) |
483 | 479, 480,
481, 482 | syl3anbrc 1344 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β
(β€β₯β0)) |
484 | | elfzoel2 13628 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β (0..^π) β π β β€) |
485 | 484 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β β€) |
486 | 485 | zred 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β β) |
487 | 398 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π < π) |
488 | 421, 425,
486, 429, 487 | lttrd 11372 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π < π) |
489 | | elfzo2 13632 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β (0..^π) β (π β (β€β₯β0)
β§ π β β€
β§ π < π)) |
490 | 483, 485,
488, 489 | syl3anbrc 1344 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β (0..^π) β§ π β (1...(π β 1))) β π β (0..^π)) |
491 | 490 | adantll 713 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β π β (0..^π)) |
492 | | eleq1 2822 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π β (π β (0..^π) β π β (0..^π))) |
493 | 492 | anbi2d 630 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = π β ((π β§ π β (0..^π)) β (π β§ π β (0..^π)))) |
494 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π β (πβπ) = (πβπ)) |
495 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π = π β (π + 1) = (π + 1)) |
496 | 495 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π β (πβ(π + 1)) = (πβ(π + 1))) |
497 | 494, 496 | breq12d 5161 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = π β ((πβπ) < (πβ(π + 1)) β (πβπ) < (πβ(π + 1)))) |
498 | 493, 497 | imbi12d 345 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π = π β (((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) β ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))))) |
499 | 498, 150 | chvarvv 2003 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
500 | 478, 491,
499 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (πβπ) < (πβ(π + 1))) |
501 | 435, 477,
500 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β (0..^π)) β§ π β (1...(π β 1))) β (πβπ) β€ (πβ(π + 1))) |
502 | 501 | adantlr 714 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β§ π β (1...(π β 1))) β (πβπ) β€ (πβ(π + 1))) |
503 | 376, 404,
502 | monoord 13995 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (πβ1) β€ (πβπ)) |
504 | 354, 355,
359, 360, 503 | ltletrd 11371 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β π΄ < (πβπ)) |
505 | 354, 359 | ltnled 11358 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β (π΄ < (πβπ) β Β¬ (πβπ) β€ π΄)) |
506 | 504, 505 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ 0) β Β¬ (πβπ) β€ π΄) |
507 | 506 | ex 414 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (Β¬ π β€ 0 β Β¬ (πβπ) β€ π΄)) |
508 | 507 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β (Β¬ π β€ 0 β Β¬ (πβπ) β€ π΄)) |
509 | 353, 508 | mt4d 117 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β π β€ 0) |
510 | | elfzole1 13637 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (0..^π) β 0 β€ π) |
511 | 510 | 3ad2ant2 1135 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β 0 β€ π) |
512 | 394 | 3ad2ant2 1135 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β π β β) |
513 | | 0red 11214 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β 0 β β) |
514 | 512, 513 | letri3d 11353 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β (π = 0 β (π β€ 0 β§ 0 β€ π))) |
515 | 509, 511,
514 | mpbir2and 712 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ (πβπ) β€ π΄) β π = 0) |
516 | 345, 347,
352, 515 | syl3anc 1372 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β {π β (0..^π) β£ (πβπ) β€ π΄}) β π = 0) |
517 | | velsn 4644 |
. . . . . . . . . . . . . . 15
β’ (π β {0} β π = 0) |
518 | 516, 517 | sylibr 233 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β {π β (0..^π) β£ (πβπ) β€ π΄}) β π β {0}) |
519 | 518 | ralrimiva 3147 |
. . . . . . . . . . . . 13
β’ (π β βπ β {π β (0..^π) β£ (πβπ) β€ π΄}π β {0}) |
520 | | dfss3 3970 |
. . . . . . . . . . . . 13
β’ ({π β (0..^π) β£ (πβπ) β€ π΄} β {0} β βπ β {π β (0..^π) β£ (πβπ) β€ π΄}π β {0}) |
521 | 519, 520 | sylibr 233 |
. . . . . . . . . . . 12
β’ (π β {π β (0..^π) β£ (πβπ) β€ π΄} β {0}) |
522 | 155, 112 | eqeltrd 2834 |
. . . . . . . . . . . . . . 15
β’ (π β (πβ0) β β) |
523 | 522, 155 | eqled 11314 |
. . . . . . . . . . . . . 14
β’ (π β (πβ0) β€ π΄) |
524 | 143 | breq1d 5158 |
. . . . . . . . . . . . . . 15
β’ (π = 0 β ((πβπ) β€ π΄ β (πβ0) β€ π΄)) |
525 | 524 | elrab 3683 |
. . . . . . . . . . . . . 14
β’ (0 β
{π β (0..^π) β£ (πβπ) β€ π΄} β (0 β (0..^π) β§ (πβ0) β€ π΄)) |
526 | 139, 523,
525 | sylanbrc 584 |
. . . . . . . . . . . . 13
β’ (π β 0 β {π β (0..^π) β£ (πβπ) β€ π΄}) |
527 | 526 | snssd 4812 |
. . . . . . . . . . . 12
β’ (π β {0} β {π β (0..^π) β£ (πβπ) β€ π΄}) |
528 | 521, 527 | eqssd 3999 |
. . . . . . . . . . 11
β’ (π β {π β (0..^π) β£ (πβπ) β€ π΄} = {0}) |
529 | 528 | supeq1d 9438 |
. . . . . . . . . 10
β’ (π β sup({π β (0..^π) β£ (πβπ) β€ π΄}, β, < ) = sup({0}, β, <
)) |
530 | | supsn 9464 |
. . . . . . . . . . . 12
β’ (( <
Or β β§ 0 β β) β sup({0}, β, < ) =
0) |
531 | 59, 140, 530 | mp2an 691 |
. . . . . . . . . . 11
β’ sup({0},
β, < ) = 0 |
532 | 531 | a1i 11 |
. . . . . . . . . 10
β’ (π β sup({0}, β, < ) =
0) |
533 | 529, 532 | eqtrd 2773 |
. . . . . . . . 9
β’ (π β sup({π β (0..^π) β£ (πβπ) β€ π΄}, β, < ) = 0) |
534 | 533 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β sup({π β (0..^π) β£ (πβπ) β€ π΄}, β, < ) = 0) |
535 | 332, 344,
534 | 3eqtrd 2777 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΌβ(πβπ)) = 0) |
536 | 535 | oveq1d 7421 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β ((πΌβ(πβπ)) + 1) = (0 + 1)) |
537 | 536 | fveq2d 6893 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πβ((πΌβ(πβπ)) + 1)) = (πβ(0 + 1))) |
538 | 537, 157 | eqtr2di 2790 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πβ1) = (πβ((πΌβ(πβπ)) + 1))) |
539 | 328, 538 | breqtrd 5174 |
. . 3
β’ (((π β§ π β (0..^π)) β§ (πΈβ(πβπ)) = π΅) β (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1))) |
540 | 65 | adantr 482 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (π β§ (πβπ) β β)) |
541 | | simplr 768 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β π β (0..^π)) |
542 | 13 | a1i 11 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β πΏ = (π¦ β (π΄(,]π΅) β¦ if(π¦ = π΅, π΄, π¦))) |
543 | | simpr 486 |
. . . . . . . . . . . . . . . 16
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β π¦ = (πΈβ(πβπ))) |
544 | | neqne 2949 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
(πΈβ(πβπ)) = π΅ β (πΈβ(πβπ)) β π΅) |
545 | 544 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β (πΈβ(πβπ)) β π΅) |
546 | 543, 545 | eqnetrd 3009 |
. . . . . . . . . . . . . . 15
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β π¦ β π΅) |
547 | 546 | neneqd 2946 |
. . . . . . . . . . . . . 14
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β Β¬ π¦ = π΅) |
548 | 547 | iffalsed 4539 |
. . . . . . . . . . . . 13
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β if(π¦ = π΅, π΄, π¦) = π¦) |
549 | 548, 543 | eqtrd 2773 |
. . . . . . . . . . . 12
β’ ((Β¬
(πΈβ(πβπ)) = π΅ β§ π¦ = (πΈβ(πβπ))) β if(π¦ = π΅, π΄, π¦) = (πΈβ(πβπ))) |
550 | 549 | adantll 713 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ π¦ = (πΈβ(πβπ))) β if(π¦ = π΅, π΄, π¦) = (πΈβ(πβπ))) |
551 | 112, 216,
218, 11, 12 | fourierdlem4 44814 |
. . . . . . . . . . . . . 14
β’ (π β πΈ:ββΆ(π΄(,]π΅)) |
552 | 551 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β πΈ:ββΆ(π΄(,]π΅)) |
553 | 552, 42 | ffvelcdmd 7085 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (πΈβ(πβπ)) β (π΄(,]π΅)) |
554 | 553 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) β (π΄(,]π΅)) |
555 | 542, 550,
554, 554 | fvmptd 7003 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΏβ(πΈβ(πβπ))) = (πΈβ(πβπ))) |
556 | 555 | eqcomd 2739 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) = (πΏβ(πΈβ(πβπ)))) |
557 | 112, 216,
218, 13 | fourierdlem17 44827 |
. . . . . . . . . . . . 13
β’ (π β πΏ:(π΄(,]π΅)βΆ(π΄[,]π΅)) |
558 | 557 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β πΏ:(π΄(,]π΅)βΆ(π΄[,]π΅)) |
559 | 112, 216 | iccssred 13408 |
. . . . . . . . . . . . 13
β’ (π β (π΄[,]π΅) β β) |
560 | 559 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π΄[,]π΅) β β) |
561 | 558, 560 | fssd 6733 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β πΏ:(π΄(,]π΅)βΆβ) |
562 | 561, 553 | ffvelcdmd 7085 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (πΏβ(πΈβ(πβπ))) β β) |
563 | 562 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΏβ(πΈβ(πβπ))) β β) |
564 | 556, 563 | eqeltrd 2834 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) β β) |
565 | 216 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β π΅ β β) |
566 | 243 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π΄ β
β*) |
567 | 216 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π΅ β β) |
568 | | elioc2 13384 |
. . . . . . . . . . . 12
β’ ((π΄ β β*
β§ π΅ β β)
β ((πΈβ(πβπ)) β (π΄(,]π΅) β ((πΈβ(πβπ)) β β β§ π΄ < (πΈβ(πβπ)) β§ (πΈβ(πβπ)) β€ π΅))) |
569 | 566, 567,
568 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πΈβ(πβπ)) β (π΄(,]π΅) β ((πΈβ(πβπ)) β β β§ π΄ < (πΈβ(πβπ)) β§ (πΈβ(πβπ)) β€ π΅))) |
570 | 553, 569 | mpbid 231 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πΈβ(πβπ)) β β β§ π΄ < (πΈβ(πβπ)) β§ (πΈβ(πβπ)) β€ π΅)) |
571 | 570 | simp3d 1145 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πΈβ(πβπ)) β€ π΅) |
572 | 571 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) β€ π΅) |
573 | 544 | necomd 2997 |
. . . . . . . . 9
β’ (Β¬
(πΈβ(πβπ)) = π΅ β π΅ β (πΈβ(πβπ))) |
574 | 573 | adantl 483 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β π΅ β (πΈβ(πβπ))) |
575 | 564, 565,
572, 574 | leneltd 11365 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) < π΅) |
576 | 575 | adantr 482 |
. . . . . 6
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ (πΌβ(πβπ)) = (π β 1)) β (πΈβ(πβπ)) < π΅) |
577 | | oveq1 7413 |
. . . . . . . . . . 11
β’ ((πΌβ(πβπ)) = (π β 1) β ((πΌβ(πβπ)) + 1) = ((π β 1) + 1)) |
578 | 2 | nncnd 12225 |
. . . . . . . . . . . 12
β’ (π β π β β) |
579 | | 1cnd 11206 |
. . . . . . . . . . . 12
β’ (π β 1 β
β) |
580 | 578, 579 | npcand 11572 |
. . . . . . . . . . 11
β’ (π β ((π β 1) + 1) = π) |
581 | 577, 580 | sylan9eqr 2795 |
. . . . . . . . . 10
β’ ((π β§ (πΌβ(πβπ)) = (π β 1)) β ((πΌβ(πβπ)) + 1) = π) |
582 | 581 | fveq2d 6893 |
. . . . . . . . 9
β’ ((π β§ (πΌβ(πβπ)) = (π β 1)) β (πβ((πΌβ(πβπ)) + 1)) = (πβπ)) |
583 | 154 | simprd 497 |
. . . . . . . . . 10
β’ (π β (πβπ) = π΅) |
584 | 583 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ (πΌβ(πβπ)) = (π β 1)) β (πβπ) = π΅) |
585 | 582, 584 | eqtr2d 2774 |
. . . . . . . 8
β’ ((π β§ (πΌβ(πβπ)) = (π β 1)) β π΅ = (πβ((πΌβ(πβπ)) + 1))) |
586 | 585 | adantlr 714 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πΌβ(πβπ)) = (π β 1)) β π΅ = (πβ((πΌβ(πβπ)) + 1))) |
587 | 586 | adantlr 714 |
. . . . . 6
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ (πΌβ(πβπ)) = (π β 1)) β π΅ = (πβ((πΌβ(πβπ)) + 1))) |
588 | 576, 587 | breqtrd 5174 |
. . . . 5
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ (πΌβ(πβπ)) = (π β 1)) β (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) |
589 | 556 | adantr 482 |
. . . . . 6
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΈβ(πβπ)) = (πΏβ(πΈβ(πβπ)))) |
590 | | ssrab2 4077 |
. . . . . . . . . . . . 13
β’ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β (0..^π) |
591 | | fzssz 13500 |
. . . . . . . . . . . . . . 15
β’
(0...π) β
β€ |
592 | 17, 591 | sstri 3991 |
. . . . . . . . . . . . . 14
β’
(0..^π) β
β€ |
593 | | zssre 12562 |
. . . . . . . . . . . . . 14
β’ β€
β β |
594 | 592, 593 | sstri 3991 |
. . . . . . . . . . . . 13
β’
(0..^π) β
β |
595 | 590, 594 | sstri 3991 |
. . . . . . . . . . . 12
β’ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β |
596 | 595 | a1i 11 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β) |
597 | 56 | neeq1d 3001 |
. . . . . . . . . . . . . . 15
β’ (π₯ = (πβπ) β ({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β β
β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
)) |
598 | 67, 597 | imbi12d 345 |
. . . . . . . . . . . . . 14
β’ (π₯ = (πβπ) β (((π β§ π₯ β β) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β β
) β ((π β§ (πβπ) β β) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
))) |
599 | 139 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β β) β 0 β (0..^π)) |
600 | 523 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π₯ β β) β§ (πΈβπ₯) = π΅) β (πβ0) β€ π΄) |
601 | | iftrue 4534 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΈβπ₯) = π΅ β if((πΈβπ₯) = π΅, π΄, (πΈβπ₯)) = π΄) |
602 | 601 | eqcomd 2739 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΈβπ₯) = π΅ β π΄ = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
603 | 602 | adantl 483 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π₯ β β) β§ (πΈβπ₯) = π΅) β π΄ = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
604 | 600, 603 | breqtrd 5174 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π₯ β β) β§ (πΈβπ₯) = π΅) β (πβ0) β€ if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
605 | 522 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π₯ β β) β (πβ0) β β) |
606 | 112 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π₯ β β) β π΄ β β) |
607 | 606 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π₯ β β) β π΄ β
β*) |
608 | 216 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π₯ β β) β π΅ β β) |
609 | | iocssre 13401 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π΄ β β*
β§ π΅ β β)
β (π΄(,]π΅) β
β) |
610 | 607, 608,
609 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π₯ β β) β (π΄(,]π΅) β β) |
611 | 551 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π₯ β β) β (πΈβπ₯) β (π΄(,]π΅)) |
612 | 610, 611 | sseldd 3983 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π₯ β β) β (πΈβπ₯) β β) |
613 | 155 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π₯ β β) β (πβ0) = π΄) |
614 | | elioc2 13384 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π΄ β β*
β§ π΅ β β)
β ((πΈβπ₯) β (π΄(,]π΅) β ((πΈβπ₯) β β β§ π΄ < (πΈβπ₯) β§ (πΈβπ₯) β€ π΅))) |
615 | 607, 608,
614 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π₯ β β) β ((πΈβπ₯) β (π΄(,]π΅) β ((πΈβπ₯) β β β§ π΄ < (πΈβπ₯) β§ (πΈβπ₯) β€ π΅))) |
616 | 611, 615 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π₯ β β) β ((πΈβπ₯) β β β§ π΄ < (πΈβπ₯) β§ (πΈβπ₯) β€ π΅)) |
617 | 616 | simp2d 1144 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π₯ β β) β π΄ < (πΈβπ₯)) |
618 | 613, 617 | eqbrtrd 5170 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π₯ β β) β (πβ0) < (πΈβπ₯)) |
619 | 605, 612,
618 | ltled 11359 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π₯ β β) β (πβ0) β€ (πΈβπ₯)) |
620 | 619 | adantr 482 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π₯ β β) β§ Β¬ (πΈβπ₯) = π΅) β (πβ0) β€ (πΈβπ₯)) |
621 | | iffalse 4537 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (Β¬
(πΈβπ₯) = π΅ β if((πΈβπ₯) = π΅, π΄, (πΈβπ₯)) = (πΈβπ₯)) |
622 | 621 | eqcomd 2739 |
. . . . . . . . . . . . . . . . . . . 20
β’ (Β¬
(πΈβπ₯) = π΅ β (πΈβπ₯) = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
623 | 622 | adantl 483 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π₯ β β) β§ Β¬ (πΈβπ₯) = π΅) β (πΈβπ₯) = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
624 | 620, 623 | breqtrd 5174 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π₯ β β) β§ Β¬ (πΈβπ₯) = π΅) β (πβ0) β€ if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
625 | 604, 624 | pm2.61dan 812 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β β) β (πβ0) β€ if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
626 | 13 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π₯ β β) β πΏ = (π¦ β (π΄(,]π΅) β¦ if(π¦ = π΅, π΄, π¦))) |
627 | | eqeq1 2737 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π¦ = (πΈβπ₯) β (π¦ = π΅ β (πΈβπ₯) = π΅)) |
628 | | id 22 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π¦ = (πΈβπ₯) β π¦ = (πΈβπ₯)) |
629 | 627, 628 | ifbieq2d 4554 |
. . . . . . . . . . . . . . . . . . 19
β’ (π¦ = (πΈβπ₯) β if(π¦ = π΅, π΄, π¦) = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
630 | 629 | adantl 483 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π₯ β β) β§ π¦ = (πΈβπ₯)) β if(π¦ = π΅, π΄, π¦) = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
631 | 606, 612 | ifcld 4574 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π₯ β β) β if((πΈβπ₯) = π΅, π΄, (πΈβπ₯)) β β) |
632 | 626, 630,
611, 631 | fvmptd 7003 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β β) β (πΏβ(πΈβπ₯)) = if((πΈβπ₯) = π΅, π΄, (πΈβπ₯))) |
633 | 625, 632 | breqtrrd 5176 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β β) β (πβ0) β€ (πΏβ(πΈβπ₯))) |
634 | 143 | breq1d 5158 |
. . . . . . . . . . . . . . . . 17
β’ (π = 0 β ((πβπ) β€ (πΏβ(πΈβπ₯)) β (πβ0) β€ (πΏβ(πΈβπ₯)))) |
635 | 634 | elrab 3683 |
. . . . . . . . . . . . . . . 16
β’ (0 β
{π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β (0 β (0..^π) β§ (πβ0) β€ (πΏβ(πΈβπ₯)))) |
636 | 599, 633,
635 | sylanbrc 584 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β β) β 0 β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))}) |
637 | | ne0i 4334 |
. . . . . . . . . . . . . . 15
β’ (0 β
{π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β β
) |
638 | 636, 637 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβπ₯))} β β
) |
639 | 598, 638 | vtoclg 3557 |
. . . . . . . . . . . . 13
β’ ((πβπ) β β β ((π β§ (πβπ) β β) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
)) |
640 | 42, 65, 639 | sylc 65 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
) |
641 | 640 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
) |
642 | 595 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β) |
643 | | fzofi 13936 |
. . . . . . . . . . . . . . 15
β’
(0..^π) β
Fin |
644 | | ssfi 9170 |
. . . . . . . . . . . . . . 15
β’
(((0..^π) β Fin
β§ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β (0..^π)) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β Fin) |
645 | 643, 590,
644 | mp2an 691 |
. . . . . . . . . . . . . 14
β’ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β Fin |
646 | 645 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β Fin) |
647 | | fimaxre2 12156 |
. . . . . . . . . . . . 13
β’ (({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β β§ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β Fin) β βπ₯ β β βπ β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}π β€ π₯) |
648 | 642, 646,
647 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β βπ₯ β β βπ β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}π β€ π₯) |
649 | 648 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β βπ₯ β β βπ β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}π β€ π₯) |
650 | | 0red 11214 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β 0 β β) |
651 | 594, 47 | sselid 3980 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) β β) |
652 | | 1red 11212 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β 1 β β) |
653 | 651, 652 | readdcld 11240 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β ((πΌβ(πβπ)) + 1) β β) |
654 | | elfzouz 13633 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΌβ(πβπ)) β (0..^π) β (πΌβ(πβπ)) β
(β€β₯β0)) |
655 | | eluzle 12832 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΌβ(πβπ)) β (β€β₯β0)
β 0 β€ (πΌβ(πβπ))) |
656 | 47, 654, 655 | 3syl 18 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β 0 β€ (πΌβ(πβπ))) |
657 | 385 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β 0 < 1) |
658 | 651, 652,
656, 657 | addgegt0d 11784 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β 0 < ((πΌβ(πβπ)) + 1)) |
659 | 650, 653,
658 | ltled 11359 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β 0 β€ ((πΌβ(πβπ)) + 1)) |
660 | 659 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β 0 β€ ((πΌβ(πβπ)) + 1)) |
661 | 651 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΌβ(πβπ)) β β) |
662 | | 1red 11212 |
. . . . . . . . . . . . . . . . . 18
β’ (π β 1 β
β) |
663 | 392, 662 | resubcld 11639 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π β 1) β β) |
664 | 663 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (π β 1) β β) |
665 | | 1red 11212 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β 1 β
β) |
666 | | elfzolt2 13638 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΌβ(πβπ)) β (0..^π) β (πΌβ(πβπ)) < π) |
667 | 47, 666 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) < π) |
668 | 43 | elfzelzd 13499 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) β β€) |
669 | 96 | adantr 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (0..^π)) β π β β€) |
670 | | zltlem1 12612 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΌβ(πβπ)) β β€ β§ π β β€) β ((πΌβ(πβπ)) < π β (πΌβ(πβπ)) β€ (π β 1))) |
671 | 668, 669,
670 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β ((πΌβ(πβπ)) < π β (πΌβ(πβπ)) β€ (π β 1))) |
672 | 667, 671 | mpbid 231 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) β€ (π β 1)) |
673 | 672 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΌβ(πβπ)) β€ (π β 1)) |
674 | | neqne 2949 |
. . . . . . . . . . . . . . . . . . 19
β’ (Β¬
(πΌβ(πβπ)) = (π β 1) β (πΌβ(πβπ)) β (π β 1)) |
675 | 674 | necomd 2997 |
. . . . . . . . . . . . . . . . . 18
β’ (Β¬
(πΌβ(πβπ)) = (π β 1) β (π β 1) β (πΌβ(πβπ))) |
676 | 675 | adantl 483 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (π β 1) β (πΌβ(πβπ))) |
677 | 661, 664,
673, 676 | leneltd 11365 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΌβ(πβπ)) < (π β 1)) |
678 | 661, 664,
665, 677 | ltadd1dd 11822 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((πΌβ(πβπ)) + 1) < ((π β 1) + 1)) |
679 | 580 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((π β 1) + 1) = π) |
680 | 678, 679 | breqtrd 5174 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((πΌβ(πβπ)) + 1) < π) |
681 | 49 | elfzelzd 13499 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β ((πΌβ(πβπ)) + 1) β β€) |
682 | 681 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((πΌβ(πβπ)) + 1) β β€) |
683 | | 0zd 12567 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β 0 β
β€) |
684 | 96 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β π β β€) |
685 | | elfzo 13631 |
. . . . . . . . . . . . . . 15
β’ ((((πΌβ(πβπ)) + 1) β β€ β§ 0 β β€
β§ π β β€)
β (((πΌβ(πβπ)) + 1) β (0..^π) β (0 β€ ((πΌβ(πβπ)) + 1) β§ ((πΌβ(πβπ)) + 1) < π))) |
686 | 682, 683,
684, 685 | syl3anc 1372 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (((πΌβ(πβπ)) + 1) β (0..^π) β (0 β€ ((πΌβ(πβπ)) + 1) β§ ((πΌβ(πβπ)) + 1) < π))) |
687 | 660, 680,
686 | mpbir2and 712 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((πΌβ(πβπ)) + 1) β (0..^π)) |
688 | 687 | adantr 482 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β ((πΌβ(πβπ)) + 1) β (0..^π)) |
689 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) |
690 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π = ((πΌβ(πβπ)) + 1) β (πβπ) = (πβ((πΌβ(πβπ)) + 1))) |
691 | 690 | breq1d 5158 |
. . . . . . . . . . . . 13
β’ (π = ((πΌβ(πβπ)) + 1) β ((πβπ) β€ (πΏβ(πΈβ(πβπ))) β (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ))))) |
692 | 691 | elrab 3683 |
. . . . . . . . . . . 12
β’ (((πΌβ(πβπ)) + 1) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β (((πΌβ(πβπ)) + 1) β (0..^π) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ))))) |
693 | 688, 689,
692 | sylanbrc 584 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β ((πΌβ(πβπ)) + 1) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}) |
694 | | suprub 12172 |
. . . . . . . . . . 11
β’ ((({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β β§ {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))} β β
β§ βπ₯ β β βπ β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}π β€ π₯) β§ ((πΌβ(πβπ)) + 1) β {π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}) β ((πΌβ(πβπ)) + 1) β€ sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
695 | 596, 641,
649, 693, 694 | syl31anc 1374 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β ((πΌβ(πβπ)) + 1) β€ sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < )) |
696 | 62 | eqcomd 2739 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) = (πΌβ(πβπ))) |
697 | 696 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β sup({π β (0..^π) β£ (πβπ) β€ (πΏβ(πΈβ(πβπ)))}, β, < ) = (πΌβ(πβπ))) |
698 | 695, 697 | breqtrd 5174 |
. . . . . . . . 9
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β ((πΌβ(πβπ)) + 1) β€ (πΌβ(πβπ))) |
699 | 651 | ltp1d 12141 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πΌβ(πβπ)) < ((πΌβ(πβπ)) + 1)) |
700 | 651, 653 | ltnled 11358 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πΌβ(πβπ)) < ((πΌβ(πβπ)) + 1) β Β¬ ((πΌβ(πβπ)) + 1) β€ (πΌβ(πβπ)))) |
701 | 699, 700 | mpbid 231 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β Β¬ ((πΌβ(πβπ)) + 1) β€ (πΌβ(πβπ))) |
702 | 701 | ad2antrr 725 |
. . . . . . . . 9
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β§ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) β Β¬ ((πΌβ(πβπ)) + 1) β€ (πΌβ(πβπ))) |
703 | 698, 702 | pm2.65da 816 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β Β¬ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ)))) |
704 | 562 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΏβ(πΈβ(πβπ))) β β) |
705 | 50 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πβ((πΌβ(πβπ)) + 1)) β β) |
706 | 704, 705 | ltnled 11358 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β ((πΏβ(πΈβ(πβπ))) < (πβ((πΌβ(πβπ)) + 1)) β Β¬ (πβ((πΌβ(πβπ)) + 1)) β€ (πΏβ(πΈβ(πβπ))))) |
707 | 703, 706 | mpbird 257 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΏβ(πΈβ(πβπ))) < (πβ((πΌβ(πβπ)) + 1))) |
708 | 707 | adantlr 714 |
. . . . . 6
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΏβ(πΈβ(πβπ))) < (πβ((πΌβ(πβπ)) + 1))) |
709 | 589, 708 | eqbrtrd 5170 |
. . . . 5
β’ ((((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β§ Β¬ (πΌβ(πβπ)) = (π β 1)) β (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) |
710 | 588, 709 | pm2.61dan 812 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) |
711 | 2 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β π β β) |
712 | 1 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β π β (πβπ)) |
713 | 21 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β πΆ β β) |
714 | 22 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β π· β β) |
715 | 23 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β πΆ < π·) |
716 | 49 | 3adant3 1133 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β ((πΌβ(πβπ)) + 1) β (0...π)) |
717 | | simp2 1138 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β π β (0..^π)) |
718 | 42 | leidd 11777 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πβπ) β€ (πβπ)) |
719 | | elico2 13385 |
. . . . . . . . 9
β’ (((πβπ) β β β§ (πβ(π + 1)) β β*) β
((πβπ) β ((πβπ)[,)(πβ(π + 1))) β ((πβπ) β β β§ (πβπ) β€ (πβπ) β§ (πβπ) < (πβ(π + 1))))) |
720 | 42, 210, 719 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ) β ((πβπ)[,)(πβ(π + 1))) β ((πβπ) β β β§ (πβπ) β€ (πβπ) β§ (πβπ) < (πβ(π + 1))))) |
721 | 42, 718, 129, 720 | mpbir3and 1343 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (πβπ) β ((πβπ)[,)(πβ(π + 1)))) |
722 | 721 | 3adant3 1133 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β (πβπ) β ((πβπ)[,)(πβ(π + 1)))) |
723 | | simp3 1139 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) |
724 | | eqid 2733 |
. . . . . 6
β’ ((πβ((πΌβ(πβπ)) + 1)) β ((πΈβ(πβπ)) β (πβπ))) = ((πβ((πΌβ(πβπ)) + 1)) β ((πΈβ(πβπ)) β (πβπ))) |
725 | 11, 3, 711, 712, 713, 714, 715, 24, 25, 26, 27, 12, 716, 717, 722, 723, 724 | fourierdlem63 44872 |
. . . . 5
β’ ((π β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1))) |
726 | 725 | 3adant1r 1178 |
. . . 4
β’ (((π β§ (πβπ) β β) β§ π β (0..^π) β§ (πΈβ(πβπ)) < (πβ((πΌβ(πβπ)) + 1))) β (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1))) |
727 | 540, 541,
710, 726 | syl3anc 1372 |
. . 3
β’ (((π β§ π β (0..^π)) β§ Β¬ (πΈβ(πβπ)) = π΅) β (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1))) |
728 | 539, 727 | pm2.61dan 812 |
. 2
β’ ((π β§ π β (0..^π)) β (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1))) |
729 | | ioossioo 13415 |
. 2
β’ ((((πβ(πΌβ(πβπ))) β β* β§ (πβ((πΌβ(πβπ)) + 1)) β β*) β§
((πβ(πΌβ(πβπ))) β€ (πΏβ(πΈβ(πβπ))) β§ (πΈβ(πβ(π + 1))) β€ (πβ((πΌβ(πβπ)) + 1)))) β ((πΏβ(πΈβ(πβπ)))(,)(πΈβ(πβ(π + 1)))) β ((πβ(πΌβ(πβπ)))(,)(πβ((πΌβ(πβπ)) + 1)))) |
730 | 45, 51, 89, 728, 729 | syl22anc 838 |
1
β’ ((π β§ π β (0..^π)) β ((πΏβ(πΈβ(πβπ)))(,)(πΈβ(πβ(π + 1)))) β ((πβ(πΌβ(πβπ)))(,)(πβ((πΌβ(πβπ)) + 1)))) |