Step | Hyp | Ref
| Expression |
1 | | fourierdlem11.q |
. . . . . . 7
β’ (π β π β (πβπ)) |
2 | | fourierdlem11.m |
. . . . . . . 8
β’ (π β π β β) |
3 | | fourierdlem11.p |
. . . . . . . . 9
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
4 | 3 | fourierdlem2 45310 |
. . . . . . . 8
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
5 | 2, 4 | syl 17 |
. . . . . . 7
β’ (π β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
6 | 1, 5 | mpbid 231 |
. . . . . 6
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
7 | 6 | simprd 495 |
. . . . 5
β’ (π β (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))) |
8 | 7 | simpld 494 |
. . . 4
β’ (π β ((πβ0) = π΄ β§ (πβπ) = π΅)) |
9 | 8 | simpld 494 |
. . 3
β’ (π β (πβ0) = π΄) |
10 | 6 | simpld 494 |
. . . . 5
β’ (π β π β (β βm
(0...π))) |
11 | | elmapi 8839 |
. . . . 5
β’ (π β (β
βm (0...π))
β π:(0...π)βΆβ) |
12 | 10, 11 | syl 17 |
. . . 4
β’ (π β π:(0...π)βΆβ) |
13 | | 0zd 12567 |
. . . . 5
β’ (π β 0 β
β€) |
14 | 2 | nnzd 12582 |
. . . . 5
β’ (π β π β β€) |
15 | | 0red 11214 |
. . . . . 6
β’ (π β 0 β
β) |
16 | 15 | leidd 11777 |
. . . . 5
β’ (π β 0 β€ 0) |
17 | 2 | nnred 12224 |
. . . . . 6
β’ (π β π β β) |
18 | 2 | nngt0d 12258 |
. . . . . 6
β’ (π β 0 < π) |
19 | 15, 17, 18 | ltled 11359 |
. . . . 5
β’ (π β 0 β€ π) |
20 | 13, 14, 13, 16, 19 | elfzd 13489 |
. . . 4
β’ (π β 0 β (0...π)) |
21 | 12, 20 | ffvelcdmd 7077 |
. . 3
β’ (π β (πβ0) β β) |
22 | 9, 21 | eqeltrrd 2826 |
. 2
β’ (π β π΄ β β) |
23 | 8 | simprd 495 |
. . 3
β’ (π β (πβπ) = π΅) |
24 | 17 | leidd 11777 |
. . . . 5
β’ (π β π β€ π) |
25 | 13, 14, 14, 19, 24 | elfzd 13489 |
. . . 4
β’ (π β π β (0...π)) |
26 | 12, 25 | ffvelcdmd 7077 |
. . 3
β’ (π β (πβπ) β β) |
27 | 23, 26 | eqeltrrd 2826 |
. 2
β’ (π β π΅ β β) |
28 | | 1zzd 12590 |
. . . . 5
β’ (π β 1 β
β€) |
29 | | 0le1 11734 |
. . . . . 6
β’ 0 β€
1 |
30 | 29 | a1i 11 |
. . . . 5
β’ (π β 0 β€ 1) |
31 | 2 | nnge1d 12257 |
. . . . 5
β’ (π β 1 β€ π) |
32 | 13, 14, 28, 30, 31 | elfzd 13489 |
. . . 4
β’ (π β 1 β (0...π)) |
33 | 12, 32 | ffvelcdmd 7077 |
. . 3
β’ (π β (πβ1) β β) |
34 | | elfzo 13631 |
. . . . . . 7
β’ ((0
β β€ β§ 0 β β€ β§ π β β€) β (0 β (0..^π) β (0 β€ 0 β§ 0 <
π))) |
35 | 13, 13, 14, 34 | syl3anc 1368 |
. . . . . 6
β’ (π β (0 β (0..^π) β (0 β€ 0 β§ 0 <
π))) |
36 | 16, 18, 35 | mpbir2and 710 |
. . . . 5
β’ (π β 0 β (0..^π)) |
37 | | 0re 11213 |
. . . . . 6
β’ 0 β
β |
38 | | eleq1 2813 |
. . . . . . . . 9
β’ (π = 0 β (π β (0..^π) β 0 β (0..^π))) |
39 | 38 | anbi2d 628 |
. . . . . . . 8
β’ (π = 0 β ((π β§ π β (0..^π)) β (π β§ 0 β (0..^π)))) |
40 | | fveq2 6881 |
. . . . . . . . 9
β’ (π = 0 β (πβπ) = (πβ0)) |
41 | | oveq1 7408 |
. . . . . . . . . 10
β’ (π = 0 β (π + 1) = (0 + 1)) |
42 | 41 | fveq2d 6885 |
. . . . . . . . 9
β’ (π = 0 β (πβ(π + 1)) = (πβ(0 + 1))) |
43 | 40, 42 | breq12d 5151 |
. . . . . . . 8
β’ (π = 0 β ((πβπ) < (πβ(π + 1)) β (πβ0) < (πβ(0 + 1)))) |
44 | 39, 43 | imbi12d 344 |
. . . . . . 7
β’ (π = 0 β (((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) β ((π β§ 0 β (0..^π)) β (πβ0) < (πβ(0 + 1))))) |
45 | 7 | simprd 495 |
. . . . . . . 8
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
46 | 45 | r19.21bi 3240 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
47 | 44, 46 | vtoclg 3535 |
. . . . . 6
β’ (0 β
β β ((π β§ 0
β (0..^π)) β
(πβ0) < (πβ(0 +
1)))) |
48 | 37, 47 | ax-mp 5 |
. . . . 5
β’ ((π β§ 0 β (0..^π)) β (πβ0) < (πβ(0 + 1))) |
49 | 36, 48 | mpdan 684 |
. . . 4
β’ (π β (πβ0) < (πβ(0 + 1))) |
50 | | 0p1e1 12331 |
. . . . . 6
β’ (0 + 1) =
1 |
51 | 50 | a1i 11 |
. . . . 5
β’ (π β (0 + 1) =
1) |
52 | 51 | fveq2d 6885 |
. . . 4
β’ (π β (πβ(0 + 1)) = (πβ1)) |
53 | 49, 9, 52 | 3brtr3d 5169 |
. . 3
β’ (π β π΄ < (πβ1)) |
54 | | nnuz 12862 |
. . . . . 6
β’ β =
(β€β₯β1) |
55 | 2, 54 | eleqtrdi 2835 |
. . . . 5
β’ (π β π β
(β€β₯β1)) |
56 | 12 | adantr 480 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π:(0...π)βΆβ) |
57 | | 0zd 12567 |
. . . . . . . 8
β’ (π β (1...π) β 0 β β€) |
58 | | elfzel2 13496 |
. . . . . . . 8
β’ (π β (1...π) β π β β€) |
59 | | elfzelz 13498 |
. . . . . . . 8
β’ (π β (1...π) β π β β€) |
60 | | 0red 11214 |
. . . . . . . . 9
β’ (π β (1...π) β 0 β β) |
61 | 59 | zred 12663 |
. . . . . . . . 9
β’ (π β (1...π) β π β β) |
62 | | 1red 11212 |
. . . . . . . . . 10
β’ (π β (1...π) β 1 β β) |
63 | | 0lt1 11733 |
. . . . . . . . . . 11
β’ 0 <
1 |
64 | 63 | a1i 11 |
. . . . . . . . . 10
β’ (π β (1...π) β 0 < 1) |
65 | | elfzle1 13501 |
. . . . . . . . . 10
β’ (π β (1...π) β 1 β€ π) |
66 | 60, 62, 61, 64, 65 | ltletrd 11371 |
. . . . . . . . 9
β’ (π β (1...π) β 0 < π) |
67 | 60, 61, 66 | ltled 11359 |
. . . . . . . 8
β’ (π β (1...π) β 0 β€ π) |
68 | | elfzle2 13502 |
. . . . . . . 8
β’ (π β (1...π) β π β€ π) |
69 | 57, 58, 59, 67, 68 | elfzd 13489 |
. . . . . . 7
β’ (π β (1...π) β π β (0...π)) |
70 | 69 | adantl 481 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β (0...π)) |
71 | 56, 70 | ffvelcdmd 7077 |
. . . . 5
β’ ((π β§ π β (1...π)) β (πβπ) β β) |
72 | 12 | adantr 480 |
. . . . . . 7
β’ ((π β§ π β (1...(π β 1))) β π:(0...π)βΆβ) |
73 | | 0zd 12567 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β 0 β
β€) |
74 | 14 | adantr 480 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β π β β€) |
75 | | elfzelz 13498 |
. . . . . . . . 9
β’ (π β (1...(π β 1)) β π β β€) |
76 | 75 | adantl 481 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β π β β€) |
77 | | 0red 11214 |
. . . . . . . . . 10
β’ (π β (1...(π β 1)) β 0 β
β) |
78 | 75 | zred 12663 |
. . . . . . . . . 10
β’ (π β (1...(π β 1)) β π β β) |
79 | | 1red 11212 |
. . . . . . . . . . 11
β’ (π β (1...(π β 1)) β 1 β
β) |
80 | 63 | a1i 11 |
. . . . . . . . . . 11
β’ (π β (1...(π β 1)) β 0 <
1) |
81 | | elfzle1 13501 |
. . . . . . . . . . 11
β’ (π β (1...(π β 1)) β 1 β€ π) |
82 | 77, 79, 78, 80, 81 | ltletrd 11371 |
. . . . . . . . . 10
β’ (π β (1...(π β 1)) β 0 < π) |
83 | 77, 78, 82 | ltled 11359 |
. . . . . . . . 9
β’ (π β (1...(π β 1)) β 0 β€ π) |
84 | 83 | adantl 481 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β 0 β€ π) |
85 | 78 | adantl 481 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β π β β) |
86 | 17 | adantr 480 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β π β β) |
87 | | peano2rem 11524 |
. . . . . . . . . . 11
β’ (π β β β (π β 1) β
β) |
88 | 86, 87 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β (π β 1) β β) |
89 | | elfzle2 13502 |
. . . . . . . . . . 11
β’ (π β (1...(π β 1)) β π β€ (π β 1)) |
90 | 89 | adantl 481 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β π β€ (π β 1)) |
91 | 86 | ltm1d 12143 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β (π β 1) < π) |
92 | 85, 88, 86, 90, 91 | lelttrd 11369 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β π < π) |
93 | 85, 86, 92 | ltled 11359 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β π β€ π) |
94 | 73, 74, 76, 84, 93 | elfzd 13489 |
. . . . . . 7
β’ ((π β§ π β (1...(π β 1))) β π β (0...π)) |
95 | 72, 94 | ffvelcdmd 7077 |
. . . . . 6
β’ ((π β§ π β (1...(π β 1))) β (πβπ) β β) |
96 | 76 | peano2zd 12666 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β (π + 1) β β€) |
97 | | 0red 11214 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β 0 β
β) |
98 | | peano2re 11384 |
. . . . . . . . . 10
β’ (π β β β (π + 1) β
β) |
99 | 85, 98 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β (π + 1) β β) |
100 | | 1red 11212 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β 1 β
β) |
101 | 63 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β 0 <
1) |
102 | 78, 98 | syl 17 |
. . . . . . . . . . . 12
β’ (π β (1...(π β 1)) β (π + 1) β β) |
103 | 78 | ltp1d 12141 |
. . . . . . . . . . . 12
β’ (π β (1...(π β 1)) β π < (π + 1)) |
104 | 79, 78, 102, 81, 103 | lelttrd 11369 |
. . . . . . . . . . 11
β’ (π β (1...(π β 1)) β 1 < (π + 1)) |
105 | 104 | adantl 481 |
. . . . . . . . . 10
β’ ((π β§ π β (1...(π β 1))) β 1 < (π + 1)) |
106 | 97, 100, 99, 101, 105 | lttrd 11372 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β 0 < (π + 1)) |
107 | 97, 99, 106 | ltled 11359 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β 0 β€ (π + 1)) |
108 | 85, 88, 100, 90 | leadd1dd 11825 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β (π + 1) β€ ((π β 1) + 1)) |
109 | 2 | nncnd 12225 |
. . . . . . . . . . 11
β’ (π β π β β) |
110 | | 1cnd 11206 |
. . . . . . . . . . 11
β’ (π β 1 β
β) |
111 | 109, 110 | npcand 11572 |
. . . . . . . . . 10
β’ (π β ((π β 1) + 1) = π) |
112 | 111 | adantr 480 |
. . . . . . . . 9
β’ ((π β§ π β (1...(π β 1))) β ((π β 1) + 1) = π) |
113 | 108, 112 | breqtrd 5164 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β (π + 1) β€ π) |
114 | 73, 74, 96, 107, 113 | elfzd 13489 |
. . . . . . 7
β’ ((π β§ π β (1...(π β 1))) β (π + 1) β (0...π)) |
115 | 72, 114 | ffvelcdmd 7077 |
. . . . . 6
β’ ((π β§ π β (1...(π β 1))) β (πβ(π + 1)) β β) |
116 | | elfzo 13631 |
. . . . . . . . 9
β’ ((π β β€ β§ 0 β
β€ β§ π β
β€) β (π β
(0..^π) β (0 β€
π β§ π < π))) |
117 | 76, 73, 74, 116 | syl3anc 1368 |
. . . . . . . 8
β’ ((π β§ π β (1...(π β 1))) β (π β (0..^π) β (0 β€ π β§ π < π))) |
118 | 84, 92, 117 | mpbir2and 710 |
. . . . . . 7
β’ ((π β§ π β (1...(π β 1))) β π β (0..^π)) |
119 | 118, 46 | syldan 590 |
. . . . . 6
β’ ((π β§ π β (1...(π β 1))) β (πβπ) < (πβ(π + 1))) |
120 | 95, 115, 119 | ltled 11359 |
. . . . 5
β’ ((π β§ π β (1...(π β 1))) β (πβπ) β€ (πβ(π + 1))) |
121 | 55, 71, 120 | monoord 13995 |
. . . 4
β’ (π β (πβ1) β€ (πβπ)) |
122 | 121, 23 | breqtrd 5164 |
. . 3
β’ (π β (πβ1) β€ π΅) |
123 | 22, 33, 27, 53, 122 | ltletrd 11371 |
. 2
β’ (π β π΄ < π΅) |
124 | 22, 27, 123 | 3jca 1125 |
1
β’ (π β (π΄ β β β§ π΅ β β β§ π΄ < π΅)) |