Step | Hyp | Ref
| Expression |
1 | | fourierdlem92.a |
. . . 4
β’ (π β π΄ β β) |
2 | 1 | adantr 482 |
. . 3
β’ ((π β§ 0 < π) β π΄ β β) |
3 | | fourierdlem92.b |
. . . 4
β’ (π β π΅ β β) |
4 | 3 | adantr 482 |
. . 3
β’ ((π β§ 0 < π) β π΅ β β) |
5 | | fourierdlem92.p |
. . 3
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
6 | | fourierdlem92.m |
. . . 4
β’ (π β π β β) |
7 | 6 | adantr 482 |
. . 3
β’ ((π β§ 0 < π) β π β β) |
8 | | fourierdlem92.t |
. . . . 5
β’ (π β π β β) |
9 | 8 | adantr 482 |
. . . 4
β’ ((π β§ 0 < π) β π β β) |
10 | | simpr 486 |
. . . 4
β’ ((π β§ 0 < π) β 0 < π) |
11 | 9, 10 | elrpd 13010 |
. . 3
β’ ((π β§ 0 < π) β π β
β+) |
12 | | fourierdlem92.q |
. . . 4
β’ (π β π β (πβπ)) |
13 | 12 | adantr 482 |
. . 3
β’ ((π β§ 0 < π) β π β (πβπ)) |
14 | | fourierdlem92.fper |
. . . 4
β’ ((π β§ π₯ β (π΄[,]π΅)) β (πΉβ(π₯ + π)) = (πΉβπ₯)) |
15 | 14 | adantlr 714 |
. . 3
β’ (((π β§ 0 < π) β§ π₯ β (π΄[,]π΅)) β (πΉβ(π₯ + π)) = (πΉβπ₯)) |
16 | | fveq2 6889 |
. . . . 5
β’ (π = π β (πβπ) = (πβπ)) |
17 | 16 | oveq1d 7421 |
. . . 4
β’ (π = π β ((πβπ) + π) = ((πβπ) + π)) |
18 | 17 | cbvmptv 5261 |
. . 3
β’ (π β (0...π) β¦ ((πβπ) + π)) = (π β (0...π) β¦ ((πβπ) + π)) |
19 | | fourierdlem92.f |
. . . 4
β’ (π β πΉ:ββΆβ) |
20 | 19 | adantr 482 |
. . 3
β’ ((π β§ 0 < π) β πΉ:ββΆβ) |
21 | | fourierdlem92.cncf |
. . . 4
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
22 | 21 | adantlr 714 |
. . 3
β’ (((π β§ 0 < π) β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
23 | | fourierdlem92.r |
. . . 4
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
24 | 23 | adantlr 714 |
. . 3
β’ (((π β§ 0 < π) β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
25 | | fourierdlem92.l |
. . . 4
β’ ((π β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
26 | 25 | adantlr 714 |
. . 3
β’ (((π β§ 0 < π) β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
27 | | eqeq1 2737 |
. . . . 5
β’ (π¦ = π₯ β (π¦ = (πβπ) β π₯ = (πβπ))) |
28 | | eqeq1 2737 |
. . . . . 6
β’ (π¦ = π₯ β (π¦ = (πβ(π + 1)) β π₯ = (πβ(π + 1)))) |
29 | | fveq2 6889 |
. . . . . 6
β’ (π¦ = π₯ β (πΉβπ¦) = (πΉβπ₯)) |
30 | 28, 29 | ifbieq2d 4554 |
. . . . 5
β’ (π¦ = π₯ β if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦)) = if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯))) |
31 | 27, 30 | ifbieq2d 4554 |
. . . 4
β’ (π¦ = π₯ β if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))) = if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯)))) |
32 | 31 | cbvmptv 5261 |
. . 3
β’ (π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦)))) = (π₯ β ((πβπ)[,](πβ(π + 1))) β¦ if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯)))) |
33 | | eqid 2733 |
. . 3
β’ (π₯ β (((π β (0...π) β¦ ((πβπ) + π))βπ)[,]((π β (0...π) β¦ ((πβπ) + π))β(π + 1))) β¦ ((π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))))β(π₯ β π))) = (π₯ β (((π β (0...π) β¦ ((πβπ) + π))βπ)[,]((π β (0...π) β¦ ((πβπ) + π))β(π + 1))) β¦ ((π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))))β(π₯ β π))) |
34 | 2, 4, 5, 7, 11, 13, 15, 18, 20, 22, 24, 26, 32, 33 | fourierdlem81 44890 |
. 2
β’ ((π β§ 0 < π) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
35 | | simpr 486 |
. . . . . . . 8
β’ ((π β§ π = 0) β π = 0) |
36 | 35 | oveq2d 7422 |
. . . . . . 7
β’ ((π β§ π = 0) β (π΄ + π) = (π΄ + 0)) |
37 | 1 | recnd 11239 |
. . . . . . . . 9
β’ (π β π΄ β β) |
38 | 37 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π = 0) β π΄ β β) |
39 | 38 | addridd 11411 |
. . . . . . 7
β’ ((π β§ π = 0) β (π΄ + 0) = π΄) |
40 | 36, 39 | eqtrd 2773 |
. . . . . 6
β’ ((π β§ π = 0) β (π΄ + π) = π΄) |
41 | 35 | oveq2d 7422 |
. . . . . . 7
β’ ((π β§ π = 0) β (π΅ + π) = (π΅ + 0)) |
42 | 3 | recnd 11239 |
. . . . . . . . 9
β’ (π β π΅ β β) |
43 | 42 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π = 0) β π΅ β β) |
44 | 43 | addridd 11411 |
. . . . . . 7
β’ ((π β§ π = 0) β (π΅ + 0) = π΅) |
45 | 41, 44 | eqtrd 2773 |
. . . . . 6
β’ ((π β§ π = 0) β (π΅ + π) = π΅) |
46 | 40, 45 | oveq12d 7424 |
. . . . 5
β’ ((π β§ π = 0) β ((π΄ + π)[,](π΅ + π)) = (π΄[,]π΅)) |
47 | 46 | itgeq1d 44660 |
. . . 4
β’ ((π β§ π = 0) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
48 | 47 | adantlr 714 |
. . 3
β’ (((π β§ Β¬ 0 < π) β§ π = 0) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
49 | | simpll 766 |
. . . 4
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β π) |
50 | | simpr 486 |
. . . . . . 7
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β Β¬ π = 0) |
51 | | simplr 768 |
. . . . . . 7
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β Β¬ 0 < π) |
52 | | ioran 983 |
. . . . . . 7
β’ (Β¬
(π = 0 β¨ 0 < π) β (Β¬ π = 0 β§ Β¬ 0 < π)) |
53 | 50, 51, 52 | sylanbrc 584 |
. . . . . 6
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β Β¬ (π = 0 β¨ 0 < π)) |
54 | 49, 8 | syl 17 |
. . . . . . 7
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β π β β) |
55 | | 0red 11214 |
. . . . . . 7
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β 0 β
β) |
56 | 54, 55 | lttrid 11349 |
. . . . . 6
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β (π < 0 β Β¬ (π = 0 β¨ 0 < π))) |
57 | 53, 56 | mpbird 257 |
. . . . 5
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β π < 0) |
58 | 54 | lt0neg1d 11780 |
. . . . 5
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β (π < 0 β 0 < -π)) |
59 | 57, 58 | mpbid 231 |
. . . 4
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β 0 < -π) |
60 | 1, 8 | readdcld 11240 |
. . . . . . . . . . . 12
β’ (π β (π΄ + π) β β) |
61 | 60 | recnd 11239 |
. . . . . . . . . . 11
β’ (π β (π΄ + π) β β) |
62 | 8 | recnd 11239 |
. . . . . . . . . . 11
β’ (π β π β β) |
63 | 61, 62 | negsubd 11574 |
. . . . . . . . . 10
β’ (π β ((π΄ + π) + -π) = ((π΄ + π) β π)) |
64 | 37, 62 | pncand 11569 |
. . . . . . . . . 10
β’ (π β ((π΄ + π) β π) = π΄) |
65 | 63, 64 | eqtrd 2773 |
. . . . . . . . 9
β’ (π β ((π΄ + π) + -π) = π΄) |
66 | 3, 8 | readdcld 11240 |
. . . . . . . . . . . 12
β’ (π β (π΅ + π) β β) |
67 | 66 | recnd 11239 |
. . . . . . . . . . 11
β’ (π β (π΅ + π) β β) |
68 | 67, 62 | negsubd 11574 |
. . . . . . . . . 10
β’ (π β ((π΅ + π) + -π) = ((π΅ + π) β π)) |
69 | 42, 62 | pncand 11569 |
. . . . . . . . . 10
β’ (π β ((π΅ + π) β π) = π΅) |
70 | 68, 69 | eqtrd 2773 |
. . . . . . . . 9
β’ (π β ((π΅ + π) + -π) = π΅) |
71 | 65, 70 | oveq12d 7424 |
. . . . . . . 8
β’ (π β (((π΄ + π) + -π)[,]((π΅ + π) + -π)) = (π΄[,]π΅)) |
72 | 71 | eqcomd 2739 |
. . . . . . 7
β’ (π β (π΄[,]π΅) = (((π΄ + π) + -π)[,]((π΅ + π) + -π))) |
73 | 72 | itgeq1d 44660 |
. . . . . 6
β’ (π β β«(π΄[,]π΅)(πΉβπ₯) dπ₯ = β«(((π΄ + π) + -π)[,]((π΅ + π) + -π))(πΉβπ₯) dπ₯) |
74 | 73 | adantr 482 |
. . . . 5
β’ ((π β§ 0 < -π) β β«(π΄[,]π΅)(πΉβπ₯) dπ₯ = β«(((π΄ + π) + -π)[,]((π΅ + π) + -π))(πΉβπ₯) dπ₯) |
75 | 1 | adantr 482 |
. . . . . . 7
β’ ((π β§ 0 < -π) β π΄ β β) |
76 | 8 | adantr 482 |
. . . . . . 7
β’ ((π β§ 0 < -π) β π β β) |
77 | 75, 76 | readdcld 11240 |
. . . . . 6
β’ ((π β§ 0 < -π) β (π΄ + π) β β) |
78 | 3 | adantr 482 |
. . . . . . 7
β’ ((π β§ 0 < -π) β π΅ β β) |
79 | 78, 76 | readdcld 11240 |
. . . . . 6
β’ ((π β§ 0 < -π) β (π΅ + π) β β) |
80 | | eqid 2733 |
. . . . . 6
β’ (π β β β¦ {π β (β
βm (0...π))
β£ (((πβ0) =
(π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
81 | 6 | adantr 482 |
. . . . . 6
β’ ((π β§ 0 < -π) β π β β) |
82 | 76 | renegcld 11638 |
. . . . . . 7
β’ ((π β§ 0 < -π) β -π β β) |
83 | | simpr 486 |
. . . . . . 7
β’ ((π β§ 0 < -π) β 0 < -π) |
84 | 82, 83 | elrpd 13010 |
. . . . . 6
β’ ((π β§ 0 < -π) β -π β
β+) |
85 | 5 | fourierdlem2 44812 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
86 | 6, 85 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
87 | 12, 86 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
88 | 87 | simpld 496 |
. . . . . . . . . . . . . . 15
β’ (π β π β (β βm
(0...π))) |
89 | | elmapi 8840 |
. . . . . . . . . . . . . . 15
β’ (π β (β
βm (0...π))
β π:(0...π)βΆβ) |
90 | 88, 89 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β π:(0...π)βΆβ) |
91 | 90 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β (πβπ) β β) |
92 | 8 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β π β β) |
93 | 91, 92 | readdcld 11240 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β ((πβπ) + π) β β) |
94 | | fourierdlem92.s |
. . . . . . . . . . . 12
β’ π = (π β (0...π) β¦ ((πβπ) + π)) |
95 | 93, 94 | fmptd 7111 |
. . . . . . . . . . 11
β’ (π β π:(0...π)βΆβ) |
96 | | reex 11198 |
. . . . . . . . . . . . 13
β’ β
β V |
97 | 96 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β β β
V) |
98 | | ovex 7439 |
. . . . . . . . . . . . 13
β’
(0...π) β
V |
99 | 98 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β (0...π) β V) |
100 | 97, 99 | elmapd 8831 |
. . . . . . . . . . 11
β’ (π β (π β (β βm
(0...π)) β π:(0...π)βΆβ)) |
101 | 95, 100 | mpbird 257 |
. . . . . . . . . 10
β’ (π β π β (β βm
(0...π))) |
102 | 94 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β π = (π β (0...π) β¦ ((πβπ) + π))) |
103 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π = 0 β (πβπ) = (πβ0)) |
104 | 103 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ (π = 0 β ((πβπ) + π) = ((πβ0) + π)) |
105 | 104 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π = 0) β ((πβπ) + π) = ((πβ0) + π)) |
106 | | 0zd 12567 |
. . . . . . . . . . . . . 14
β’ (π β 0 β
β€) |
107 | 6 | nnzd 12582 |
. . . . . . . . . . . . . 14
β’ (π β π β β€) |
108 | | 0le0 12310 |
. . . . . . . . . . . . . . 15
β’ 0 β€
0 |
109 | 108 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β 0 β€ 0) |
110 | | nnnn0 12476 |
. . . . . . . . . . . . . . . 16
β’ (π β β β π β
β0) |
111 | 110 | nn0ge0d 12532 |
. . . . . . . . . . . . . . 15
β’ (π β β β 0 β€
π) |
112 | 6, 111 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β 0 β€ π) |
113 | 106, 107,
106, 109, 112 | elfzd 13489 |
. . . . . . . . . . . . 13
β’ (π β 0 β (0...π)) |
114 | 90, 113 | ffvelcdmd 7085 |
. . . . . . . . . . . . . 14
β’ (π β (πβ0) β β) |
115 | 114, 8 | readdcld 11240 |
. . . . . . . . . . . . 13
β’ (π β ((πβ0) + π) β β) |
116 | 102, 105,
113, 115 | fvmptd 7003 |
. . . . . . . . . . . 12
β’ (π β (πβ0) = ((πβ0) + π)) |
117 | | simprll 778 |
. . . . . . . . . . . . . 14
β’ ((π β (β
βm (0...π))
β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))) β (πβ0) = π΄) |
118 | 87, 117 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β (πβ0) = π΄) |
119 | 118 | oveq1d 7421 |
. . . . . . . . . . . 12
β’ (π β ((πβ0) + π) = (π΄ + π)) |
120 | 116, 119 | eqtrd 2773 |
. . . . . . . . . . 11
β’ (π β (πβ0) = (π΄ + π)) |
121 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π = π β (πβπ) = (πβπ)) |
122 | 121 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ (π = π β ((πβπ) + π) = ((πβπ) + π)) |
123 | 122 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π = π) β ((πβπ) + π) = ((πβπ) + π)) |
124 | 6 | nnnn0d 12529 |
. . . . . . . . . . . . . . 15
β’ (π β π β
β0) |
125 | | nn0uz 12861 |
. . . . . . . . . . . . . . 15
β’
β0 = (β€β₯β0) |
126 | 124, 125 | eleqtrdi 2844 |
. . . . . . . . . . . . . 14
β’ (π β π β
(β€β₯β0)) |
127 | | eluzfz2 13506 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯β0) β π β (0...π)) |
128 | 126, 127 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β π β (0...π)) |
129 | 90, 128 | ffvelcdmd 7085 |
. . . . . . . . . . . . . 14
β’ (π β (πβπ) β β) |
130 | 129, 8 | readdcld 11240 |
. . . . . . . . . . . . 13
β’ (π β ((πβπ) + π) β β) |
131 | 102, 123,
128, 130 | fvmptd 7003 |
. . . . . . . . . . . 12
β’ (π β (πβπ) = ((πβπ) + π)) |
132 | | simprlr 779 |
. . . . . . . . . . . . . 14
β’ ((π β (β
βm (0...π))
β§ (((πβ0) = π΄ β§ (πβπ) = π΅) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))) β (πβπ) = π΅) |
133 | 87, 132 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β (πβπ) = π΅) |
134 | 133 | oveq1d 7421 |
. . . . . . . . . . . 12
β’ (π β ((πβπ) + π) = (π΅ + π)) |
135 | 131, 134 | eqtrd 2773 |
. . . . . . . . . . 11
β’ (π β (πβπ) = (π΅ + π)) |
136 | 120, 135 | jca 513 |
. . . . . . . . . 10
β’ (π β ((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π))) |
137 | 90 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
138 | | elfzofz 13645 |
. . . . . . . . . . . . . . 15
β’ (π β (0..^π) β π β (0...π)) |
139 | 138 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β π β (0...π)) |
140 | 137, 139 | ffvelcdmd 7085 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
141 | | fzofzp1 13726 |
. . . . . . . . . . . . . . 15
β’ (π β (0..^π) β (π + 1) β (0...π)) |
142 | 141 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (π + 1) β (0...π)) |
143 | 137, 142 | ffvelcdmd 7085 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
144 | 8 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β π β β) |
145 | 87 | simprrd 773 |
. . . . . . . . . . . . . 14
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
146 | 145 | r19.21bi 3249 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
147 | 140, 143,
144, 146 | ltadd1dd 11822 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) < ((πβ(π + 1)) + π)) |
148 | 140, 144 | readdcld 11240 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) β β) |
149 | 94 | fvmpt2 7007 |
. . . . . . . . . . . . 13
β’ ((π β (0...π) β§ ((πβπ) + π) β β) β (πβπ) = ((πβπ) + π)) |
150 | 139, 148,
149 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (πβπ) = ((πβπ) + π)) |
151 | 94, 18 | eqtr4i 2764 |
. . . . . . . . . . . . . 14
β’ π = (π β (0...π) β¦ ((πβπ) + π)) |
152 | 151 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β π = (π β (0...π) β¦ ((πβπ) + π))) |
153 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (πβπ) = (πβ(π + 1))) |
154 | 153 | oveq1d 7421 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β ((πβπ) + π) = ((πβ(π + 1)) + π)) |
155 | 154 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π = (π + 1)) β ((πβπ) + π) = ((πβ(π + 1)) + π)) |
156 | 143, 144 | readdcld 11240 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) + π) β β) |
157 | 152, 155,
142, 156 | fvmptd 7003 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) = ((πβ(π + 1)) + π)) |
158 | 147, 150,
157 | 3brtr4d 5180 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
159 | 158 | ralrimiva 3147 |
. . . . . . . . . 10
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
160 | 101, 136,
159 | jca32 517 |
. . . . . . . . 9
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
161 | | fourierdlem92.h |
. . . . . . . . . . 11
β’ π» = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
162 | 161 | fourierdlem2 44812 |
. . . . . . . . . 10
β’ (π β β β (π β (π»βπ) β (π β (β βm
(0...π)) β§ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
163 | 6, 162 | syl 17 |
. . . . . . . . 9
β’ (π β (π β (π»βπ) β (π β (β βm
(0...π)) β§ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
164 | 160, 163 | mpbird 257 |
. . . . . . . 8
β’ (π β π β (π»βπ)) |
165 | 161 | fveq1i 6890 |
. . . . . . . 8
β’ (π»βπ) = ((π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))})βπ) |
166 | 164, 165 | eleqtrdi 2844 |
. . . . . . 7
β’ (π β π β ((π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))})βπ)) |
167 | 166 | adantr 482 |
. . . . . 6
β’ ((π β§ 0 < -π) β π β ((π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (π΄ + π) β§ (πβπ) = (π΅ + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))})βπ)) |
168 | 60 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΄ + π) β β) |
169 | 66 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΅ + π) β β) |
170 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β ((π΄ + π)[,](π΅ + π))) |
171 | | eliccre 44205 |
. . . . . . . . . . . 12
β’ (((π΄ + π) β β β§ (π΅ + π) β β β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β β) |
172 | 168, 169,
170, 171 | syl3anc 1372 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β β) |
173 | 172 | recnd 11239 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β β) |
174 | 62 | negcld 11555 |
. . . . . . . . . . 11
β’ (π β -π β β) |
175 | 174 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β -π β β) |
176 | 173, 175 | addcld 11230 |
. . . . . . . . 9
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) β β) |
177 | | simpl 484 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π) |
178 | 1 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π΄ β β) |
179 | 3 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π΅ β β) |
180 | 8 | renegcld 11638 |
. . . . . . . . . . . . 13
β’ (π β -π β β) |
181 | 180 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β -π β β) |
182 | 172, 181 | readdcld 11240 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) β β) |
183 | 63, 64 | eqtr2d 2774 |
. . . . . . . . . . . . 13
β’ (π β π΄ = ((π΄ + π) + -π)) |
184 | 183 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π΄ = ((π΄ + π) + -π)) |
185 | 168 | rexrd 11261 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΄ + π) β
β*) |
186 | 169 | rexrd 11261 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΅ + π) β
β*) |
187 | | iccgelb 13377 |
. . . . . . . . . . . . . 14
β’ (((π΄ + π) β β* β§ (π΅ + π) β β* β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΄ + π) β€ π₯) |
188 | 185, 186,
170, 187 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΄ + π) β€ π₯) |
189 | 168, 172,
181, 188 | leadd1dd 11825 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π΄ + π) + -π) β€ (π₯ + -π)) |
190 | 184, 189 | eqbrtrd 5170 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π΄ β€ (π₯ + -π)) |
191 | | iccleub 13376 |
. . . . . . . . . . . . . 14
β’ (((π΄ + π) β β* β§ (π΅ + π) β β* β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β€ (π΅ + π)) |
192 | 185, 186,
170, 191 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π₯ β€ (π΅ + π)) |
193 | 172, 169,
181, 192 | leadd1dd 11825 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) β€ ((π΅ + π) + -π)) |
194 | 169 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π΅ + π) β β) |
195 | 62 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β π β β) |
196 | 194, 195 | negsubd 11574 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π΅ + π) + -π) = ((π΅ + π) β π)) |
197 | 69 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π΅ + π) β π) = π΅) |
198 | 196, 197 | eqtrd 2773 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π΅ + π) + -π) = π΅) |
199 | 193, 198 | breqtrd 5174 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) β€ π΅) |
200 | 178, 179,
182, 190, 199 | eliccd 44204 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) β (π΄[,]π΅)) |
201 | 177, 200 | jca 513 |
. . . . . . . . 9
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π β§ (π₯ + -π) β (π΄[,]π΅))) |
202 | | eleq1 2822 |
. . . . . . . . . . . 12
β’ (π¦ = (π₯ + -π) β (π¦ β (π΄[,]π΅) β (π₯ + -π) β (π΄[,]π΅))) |
203 | 202 | anbi2d 630 |
. . . . . . . . . . 11
β’ (π¦ = (π₯ + -π) β ((π β§ π¦ β (π΄[,]π΅)) β (π β§ (π₯ + -π) β (π΄[,]π΅)))) |
204 | | oveq1 7413 |
. . . . . . . . . . . . 13
β’ (π¦ = (π₯ + -π) β (π¦ + π) = ((π₯ + -π) + π)) |
205 | 204 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (π¦ = (π₯ + -π) β (πΉβ(π¦ + π)) = (πΉβ((π₯ + -π) + π))) |
206 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π¦ = (π₯ + -π) β (πΉβπ¦) = (πΉβ(π₯ + -π))) |
207 | 205, 206 | eqeq12d 2749 |
. . . . . . . . . . 11
β’ (π¦ = (π₯ + -π) β ((πΉβ(π¦ + π)) = (πΉβπ¦) β (πΉβ((π₯ + -π) + π)) = (πΉβ(π₯ + -π)))) |
208 | 203, 207 | imbi12d 345 |
. . . . . . . . . 10
β’ (π¦ = (π₯ + -π) β (((π β§ π¦ β (π΄[,]π΅)) β (πΉβ(π¦ + π)) = (πΉβπ¦)) β ((π β§ (π₯ + -π) β (π΄[,]π΅)) β (πΉβ((π₯ + -π) + π)) = (πΉβ(π₯ + -π))))) |
209 | | eleq1 2822 |
. . . . . . . . . . . . 13
β’ (π₯ = π¦ β (π₯ β (π΄[,]π΅) β π¦ β (π΄[,]π΅))) |
210 | 209 | anbi2d 630 |
. . . . . . . . . . . 12
β’ (π₯ = π¦ β ((π β§ π₯ β (π΄[,]π΅)) β (π β§ π¦ β (π΄[,]π΅)))) |
211 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π₯ = π¦ β (π₯ + π) = (π¦ + π)) |
212 | 211 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ (π₯ = π¦ β (πΉβ(π₯ + π)) = (πΉβ(π¦ + π))) |
213 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π₯ = π¦ β (πΉβπ₯) = (πΉβπ¦)) |
214 | 212, 213 | eqeq12d 2749 |
. . . . . . . . . . . 12
β’ (π₯ = π¦ β ((πΉβ(π₯ + π)) = (πΉβπ₯) β (πΉβ(π¦ + π)) = (πΉβπ¦))) |
215 | 210, 214 | imbi12d 345 |
. . . . . . . . . . 11
β’ (π₯ = π¦ β (((π β§ π₯ β (π΄[,]π΅)) β (πΉβ(π₯ + π)) = (πΉβπ₯)) β ((π β§ π¦ β (π΄[,]π΅)) β (πΉβ(π¦ + π)) = (πΉβπ¦)))) |
216 | 215, 14 | chvarvv 2003 |
. . . . . . . . . 10
β’ ((π β§ π¦ β (π΄[,]π΅)) β (πΉβ(π¦ + π)) = (πΉβπ¦)) |
217 | 208, 216 | vtoclg 3557 |
. . . . . . . . 9
β’ ((π₯ + -π) β β β ((π β§ (π₯ + -π) β (π΄[,]π΅)) β (πΉβ((π₯ + -π) + π)) = (πΉβ(π₯ + -π)))) |
218 | 176, 201,
217 | sylc 65 |
. . . . . . . 8
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (πΉβ((π₯ + -π) + π)) = (πΉβ(π₯ + -π))) |
219 | 173, 195 | negsubd 11574 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (π₯ + -π) = (π₯ β π)) |
220 | 219 | oveq1d 7421 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π₯ + -π) + π) = ((π₯ β π) + π)) |
221 | 173, 195 | npcand 11572 |
. . . . . . . . . 10
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π₯ β π) + π) = π₯) |
222 | 220, 221 | eqtrd 2773 |
. . . . . . . . 9
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β ((π₯ + -π) + π) = π₯) |
223 | 222 | fveq2d 6893 |
. . . . . . . 8
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (πΉβ((π₯ + -π) + π)) = (πΉβπ₯)) |
224 | 218, 223 | eqtr3d 2775 |
. . . . . . 7
β’ ((π β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (πΉβ(π₯ + -π)) = (πΉβπ₯)) |
225 | 224 | adantlr 714 |
. . . . . 6
β’ (((π β§ 0 < -π) β§ π₯ β ((π΄ + π)[,](π΅ + π))) β (πΉβ(π₯ + -π)) = (πΉβπ₯)) |
226 | | fveq2 6889 |
. . . . . . . 8
β’ (π = π β (πβπ) = (πβπ)) |
227 | 226 | oveq1d 7421 |
. . . . . . 7
β’ (π = π β ((πβπ) + -π) = ((πβπ) + -π)) |
228 | 227 | cbvmptv 5261 |
. . . . . 6
β’ (π β (0...π) β¦ ((πβπ) + -π)) = (π β (0...π) β¦ ((πβπ) + -π)) |
229 | 19 | adantr 482 |
. . . . . 6
β’ ((π β§ 0 < -π) β πΉ:ββΆβ) |
230 | 19 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β πΉ:ββΆβ) |
231 | | ioossre 13382 |
. . . . . . . . . . 11
β’ ((πβπ)(,)(πβ(π + 1))) β β |
232 | 231 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
233 | 230, 232 | feqresmpt 6959 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = (π₯ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ₯))) |
234 | 150, 157 | oveq12d 7424 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) = (((πβπ) + π)(,)((πβ(π + 1)) + π))) |
235 | 140, 143,
144 | iooshift 44222 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (((πβπ) + π)(,)((πβ(π + 1)) + π)) = {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) |
236 | 234, 235 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) = {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) |
237 | 236 | mpteq1d 5243 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π₯ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ₯)) = (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ (πΉβπ₯))) |
238 | | simpll 766 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β π) |
239 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β π β (0..^π)) |
240 | 235 | eleq2d 2820 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π)) β π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)})) |
241 | 240 | biimpar 479 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) |
242 | 140 | rexrd 11261 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (πβπ) β
β*) |
243 | 242 | 3adant3 1133 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβπ) β
β*) |
244 | 143 | rexrd 11261 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β
β*) |
245 | 244 | 3adant3 1133 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβ(π + 1)) β
β*) |
246 | | elioore 13351 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π)) β π₯ β β) |
247 | 246 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π₯ β β) |
248 | 8 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π β β) |
249 | 247, 248 | resubcld 11639 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) β β) |
250 | 249 | 3adant2 1132 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) β β) |
251 | 140 | recnd 11239 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
252 | 62 | adantr 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β π β β) |
253 | 251, 252 | pncand 11569 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (((πβπ) + π) β π) = (πβπ)) |
254 | 253 | eqcomd 2739 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβπ) = (((πβπ) + π) β π)) |
255 | 254 | 3adant3 1133 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβπ) = (((πβπ) + π) β π)) |
256 | 148 | 3adant3 1133 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβπ) + π) β β) |
257 | 247 | 3adant2 1132 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π₯ β β) |
258 | 8 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π β β) |
259 | 148 | rexrd 11261 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) β
β*) |
260 | 259 | 3adant3 1133 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβπ) + π) β
β*) |
261 | 156 | rexrd 11261 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) + π) β
β*) |
262 | 261 | 3adant3 1133 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβ(π + 1)) + π) β
β*) |
263 | | simp3 1139 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) |
264 | | ioogtlb 44195 |
. . . . . . . . . . . . . . . . 17
β’ ((((πβπ) + π) β β* β§ ((πβ(π + 1)) + π) β β* β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβπ) + π) < π₯) |
265 | 260, 262,
263, 264 | syl3anc 1372 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβπ) + π) < π₯) |
266 | 256, 257,
258, 265 | ltsub1dd 11823 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (((πβπ) + π) β π) < (π₯ β π)) |
267 | 255, 266 | eqbrtrd 5170 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβπ) < (π₯ β π)) |
268 | 156 | 3adant3 1133 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((πβ(π + 1)) + π) β β) |
269 | | iooltub 44210 |
. . . . . . . . . . . . . . . . 17
β’ ((((πβπ) + π) β β* β§ ((πβ(π + 1)) + π) β β* β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π₯ < ((πβ(π + 1)) + π)) |
270 | 260, 262,
263, 269 | syl3anc 1372 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π₯ < ((πβ(π + 1)) + π)) |
271 | 257, 268,
258, 270 | ltsub1dd 11823 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) < (((πβ(π + 1)) + π) β π)) |
272 | 143 | recnd 11239 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
273 | 272, 252 | pncand 11569 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (((πβ(π + 1)) + π) β π) = (πβ(π + 1))) |
274 | 273 | 3adant3 1133 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (((πβ(π + 1)) + π) β π) = (πβ(π + 1))) |
275 | 271, 274 | breqtrd 5174 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) < (πβ(π + 1))) |
276 | 243, 245,
250, 267, 275 | eliood 44198 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) β ((πβπ)(,)(πβ(π + 1)))) |
277 | 238, 239,
241, 276 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (π₯ β π) β ((πβπ)(,)(πβ(π + 1)))) |
278 | | fvres 6908 |
. . . . . . . . . . . 12
β’ ((π₯ β π) β ((πβπ)(,)(πβ(π + 1))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π)) = (πΉβ(π₯ β π))) |
279 | 277, 278 | syl 17 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π)) = (πΉβ(π₯ β π))) |
280 | 238, 241,
249 | syl2anc 585 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (π₯ β π) β β) |
281 | 1 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π΄ β β) |
282 | 3 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π΅ β β) |
283 | 64 | eqcomd 2739 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π΄ = ((π΄ + π) β π)) |
284 | 283 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π΄ = ((π΄ + π) β π)) |
285 | 60 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π΄ + π) β β) |
286 | 1 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (0..^π)) β π΄ β β) |
287 | 1 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β π΄ β
β*) |
288 | 287 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (0..^π)) β π΄ β
β*) |
289 | 3 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β π΅ β
β*) |
290 | 289 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (0..^π)) β π΅ β
β*) |
291 | 5, 6, 12 | fourierdlem15 44825 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β π:(0...π)βΆ(π΄[,]π΅)) |
292 | 291 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆ(π΄[,]π΅)) |
293 | 292, 139 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (0..^π)) β (πβπ) β (π΄[,]π΅)) |
294 | | iccgelb 13377 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π΄ β β*
β§ π΅ β
β* β§ (πβπ) β (π΄[,]π΅)) β π΄ β€ (πβπ)) |
295 | 288, 290,
293, 294 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (0..^π)) β π΄ β€ (πβπ)) |
296 | 286, 140,
144, 295 | leadd1dd 11825 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (0..^π)) β (π΄ + π) β€ ((πβπ) + π)) |
297 | 296 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π΄ + π) β€ ((πβπ) + π)) |
298 | 285, 256,
257, 297, 265 | lelttrd 11369 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π΄ + π) < π₯) |
299 | 285, 257,
258, 298 | ltsub1dd 11823 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β ((π΄ + π) β π) < (π₯ β π)) |
300 | 284, 299 | eqbrtrd 5170 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π΄ < (π₯ β π)) |
301 | 281, 250,
300 | ltled 11359 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β π΄ β€ (π₯ β π)) |
302 | 143 | 3adant3 1133 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβ(π + 1)) β β) |
303 | 292, 142 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β (π΄[,]π΅)) |
304 | | iccleub 13376 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π΄ β β*
β§ π΅ β
β* β§ (πβ(π + 1)) β (π΄[,]π΅)) β (πβ(π + 1)) β€ π΅) |
305 | 288, 290,
303, 304 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β€ π΅) |
306 | 305 | 3adant3 1133 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (πβ(π + 1)) β€ π΅) |
307 | 250, 302,
282, 275, 306 | ltletrd 11371 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) < π΅) |
308 | 250, 282,
307 | ltled 11359 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) β€ π΅) |
309 | 281, 282,
250, 301, 308 | eliccd 44204 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π) β§ π₯ β (((πβπ) + π)(,)((πβ(π + 1)) + π))) β (π₯ β π) β (π΄[,]π΅)) |
310 | 238, 239,
241, 309 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (π₯ β π) β (π΄[,]π΅)) |
311 | 238, 310 | jca 513 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (π β§ (π₯ β π) β (π΄[,]π΅))) |
312 | | eleq1 2822 |
. . . . . . . . . . . . . . 15
β’ (π¦ = (π₯ β π) β (π¦ β (π΄[,]π΅) β (π₯ β π) β (π΄[,]π΅))) |
313 | 312 | anbi2d 630 |
. . . . . . . . . . . . . 14
β’ (π¦ = (π₯ β π) β ((π β§ π¦ β (π΄[,]π΅)) β (π β§ (π₯ β π) β (π΄[,]π΅)))) |
314 | | oveq1 7413 |
. . . . . . . . . . . . . . . 16
β’ (π¦ = (π₯ β π) β (π¦ + π) = ((π₯ β π) + π)) |
315 | 314 | fveq2d 6893 |
. . . . . . . . . . . . . . 15
β’ (π¦ = (π₯ β π) β (πΉβ(π¦ + π)) = (πΉβ((π₯ β π) + π))) |
316 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π¦ = (π₯ β π) β (πΉβπ¦) = (πΉβ(π₯ β π))) |
317 | 315, 316 | eqeq12d 2749 |
. . . . . . . . . . . . . 14
β’ (π¦ = (π₯ β π) β ((πΉβ(π¦ + π)) = (πΉβπ¦) β (πΉβ((π₯ β π) + π)) = (πΉβ(π₯ β π)))) |
318 | 313, 317 | imbi12d 345 |
. . . . . . . . . . . . 13
β’ (π¦ = (π₯ β π) β (((π β§ π¦ β (π΄[,]π΅)) β (πΉβ(π¦ + π)) = (πΉβπ¦)) β ((π β§ (π₯ β π) β (π΄[,]π΅)) β (πΉβ((π₯ β π) + π)) = (πΉβ(π₯ β π))))) |
319 | 318, 216 | vtoclg 3557 |
. . . . . . . . . . . 12
β’ ((π₯ β π) β β β ((π β§ (π₯ β π) β (π΄[,]π΅)) β (πΉβ((π₯ β π) + π)) = (πΉβ(π₯ β π)))) |
320 | 280, 311,
319 | sylc 65 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (πΉβ((π₯ β π) + π)) = (πΉβ(π₯ β π))) |
321 | 241, 246 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β π₯ β β) |
322 | | recn 11197 |
. . . . . . . . . . . . . . 15
β’ (π₯ β β β π₯ β
β) |
323 | 322 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β) β π₯ β β) |
324 | 62 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β) β π β β) |
325 | 323, 324 | npcand 11572 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β β) β ((π₯ β π) + π) = π₯) |
326 | 325 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β β) β (πΉβ((π₯ β π) + π)) = (πΉβπ₯)) |
327 | 238, 321,
326 | syl2anc 585 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (πΉβ((π₯ β π) + π)) = (πΉβπ₯)) |
328 | 279, 320,
327 | 3eqtr2rd 2780 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}) β (πΉβπ₯) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π))) |
329 | 328 | mpteq2dva 5248 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ (πΉβπ₯)) = (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π)))) |
330 | 233, 237,
329 | 3eqtrd 2777 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π)))) |
331 | | ioosscn 13383 |
. . . . . . . . . . 11
β’ ((πβπ)(,)(πβ(π + 1))) β β |
332 | 331 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
333 | | eqeq1 2737 |
. . . . . . . . . . . . 13
β’ (π€ = π₯ β (π€ = (π§ + π) β π₯ = (π§ + π))) |
334 | 333 | rexbidv 3179 |
. . . . . . . . . . . 12
β’ (π€ = π₯ β (βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π) β βπ§ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π§ + π))) |
335 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π§ = π¦ β (π§ + π) = (π¦ + π)) |
336 | 335 | eqeq2d 2744 |
. . . . . . . . . . . . 13
β’ (π§ = π¦ β (π₯ = (π§ + π) β π₯ = (π¦ + π))) |
337 | 336 | cbvrexvw 3236 |
. . . . . . . . . . . 12
β’
(βπ§ β
((πβπ)(,)(πβ(π + 1)))π₯ = (π§ + π) β βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)) |
338 | 334, 337 | bitrdi 287 |
. . . . . . . . . . 11
β’ (π€ = π₯ β (βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π) β βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π))) |
339 | 338 | cbvrabv 3443 |
. . . . . . . . . 10
β’ {π€ β β β£
βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} = {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)} |
340 | | eqid 2733 |
. . . . . . . . . 10
β’ (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π))) = (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π))) |
341 | 332, 252,
339, 21, 340 | cncfshift 44577 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π))) β ({π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}βcnββ)) |
342 | 236 | eqcomd 2739 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} = ((πβπ)(,)(πβ(π + 1)))) |
343 | 342 | oveq1d 7421 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ({π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)}βcnββ) = (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
344 | 341, 343 | eleqtrd 2836 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (π₯ β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π₯ β π))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
345 | 330, 344 | eqeltrd 2834 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
346 | 345 | adantlr 714 |
. . . . . 6
β’ (((π β§ 0 < -π) β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
347 | | ffdm 6745 |
. . . . . . . . . . . 12
β’ (πΉ:ββΆβ β
(πΉ:dom πΉβΆβ β§ dom πΉ β β)) |
348 | 19, 347 | syl 17 |
. . . . . . . . . . 11
β’ (π β (πΉ:dom πΉβΆβ β§ dom πΉ β β)) |
349 | 348 | simpld 496 |
. . . . . . . . . 10
β’ (π β πΉ:dom πΉβΆβ) |
350 | 349 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β πΉ:dom πΉβΆβ) |
351 | | ioossre 13382 |
. . . . . . . . . 10
β’ ((πβπ)(,)(πβ(π + 1))) β β |
352 | | fdm 6724 |
. . . . . . . . . . 11
β’ (πΉ:ββΆβ β
dom πΉ =
β) |
353 | 230, 352 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β dom πΉ = β) |
354 | 351, 353 | sseqtrrid 4035 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β dom πΉ) |
355 | 339 | eqcomi 2742 |
. . . . . . . . 9
β’ {π₯ β β β£
βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)} = {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} |
356 | 232, 342,
353 | 3sstr4d 4029 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β {π€ β β β£ βπ§ β ((πβπ)(,)(πβ(π + 1)))π€ = (π§ + π)} β dom πΉ) |
357 | 339, 356 | eqsstrrid 4031 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)} β dom πΉ) |
358 | | simpll 766 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π) |
359 | 358, 287 | syl 17 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π΄ β
β*) |
360 | 358, 289 | syl 17 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π΅ β
β*) |
361 | 358, 291 | syl 17 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π:(0...π)βΆ(π΄[,]π΅)) |
362 | | simplr 768 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π β (0..^π)) |
363 | | ioossicc 13407 |
. . . . . . . . . . . . 13
β’ ((πβπ)(,)(πβ(π + 1))) β ((πβπ)[,](πβ(π + 1))) |
364 | 363 | sseli 3978 |
. . . . . . . . . . . 12
β’ (π§ β ((πβπ)(,)(πβ(π + 1))) β π§ β ((πβπ)[,](πβ(π + 1)))) |
365 | 364 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π§ β ((πβπ)[,](πβ(π + 1)))) |
366 | 359, 360,
361, 362, 365 | fourierdlem1 44811 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β π§ β (π΄[,]π΅)) |
367 | | eleq1 2822 |
. . . . . . . . . . . . 13
β’ (π₯ = π§ β (π₯ β (π΄[,]π΅) β π§ β (π΄[,]π΅))) |
368 | 367 | anbi2d 630 |
. . . . . . . . . . . 12
β’ (π₯ = π§ β ((π β§ π₯ β (π΄[,]π΅)) β (π β§ π§ β (π΄[,]π΅)))) |
369 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π₯ = π§ β (π₯ + π) = (π§ + π)) |
370 | 369 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ (π₯ = π§ β (πΉβ(π₯ + π)) = (πΉβ(π§ + π))) |
371 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π₯ = π§ β (πΉβπ₯) = (πΉβπ§)) |
372 | 370, 371 | eqeq12d 2749 |
. . . . . . . . . . . 12
β’ (π₯ = π§ β ((πΉβ(π₯ + π)) = (πΉβπ₯) β (πΉβ(π§ + π)) = (πΉβπ§))) |
373 | 368, 372 | imbi12d 345 |
. . . . . . . . . . 11
β’ (π₯ = π§ β (((π β§ π₯ β (π΄[,]π΅)) β (πΉβ(π₯ + π)) = (πΉβπ₯)) β ((π β§ π§ β (π΄[,]π΅)) β (πΉβ(π§ + π)) = (πΉβπ§)))) |
374 | 373, 14 | chvarvv 2003 |
. . . . . . . . . 10
β’ ((π β§ π§ β (π΄[,]π΅)) β (πΉβ(π§ + π)) = (πΉβπ§)) |
375 | 358, 366,
374 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π§ β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π§ + π)) = (πΉβπ§)) |
376 | 350, 332,
354, 252, 355, 357, 375, 23 | limcperiod 44331 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)}) limβ ((πβπ) + π))) |
377 | 355, 342 | eqtrid 2785 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)} = ((πβπ)(,)(πβ(π + 1)))) |
378 | 377 | reseq2d 5980 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πΉ βΎ {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)}) = (πΉ βΎ ((πβπ)(,)(πβ(π + 1))))) |
379 | 150 | eqcomd 2739 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) = (πβπ)) |
380 | 378, 379 | oveq12d 7424 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)}) limβ ((πβπ) + π)) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
381 | 376, 380 | eleqtrd 2836 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
382 | 381 | adantlr 714 |
. . . . . 6
β’ (((π β§ 0 < -π) β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
383 | 350, 332,
354, 252, 355, 357, 375, 25 | limcperiod 44331 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β πΏ β ((πΉ βΎ {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)}) limβ ((πβ(π + 1)) + π))) |
384 | 157 | eqcomd 2739 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) + π) = (πβ(π + 1))) |
385 | 378, 384 | oveq12d 7424 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ {π₯ β β β£ βπ¦ β ((πβπ)(,)(πβ(π + 1)))π₯ = (π¦ + π)}) limβ ((πβ(π + 1)) + π)) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
386 | 383, 385 | eleqtrd 2836 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
387 | 386 | adantlr 714 |
. . . . . 6
β’ (((π β§ 0 < -π) β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
388 | | eqeq1 2737 |
. . . . . . . 8
β’ (π¦ = π₯ β (π¦ = (πβπ) β π₯ = (πβπ))) |
389 | | eqeq1 2737 |
. . . . . . . . 9
β’ (π¦ = π₯ β (π¦ = (πβ(π + 1)) β π₯ = (πβ(π + 1)))) |
390 | 389, 29 | ifbieq2d 4554 |
. . . . . . . 8
β’ (π¦ = π₯ β if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦)) = if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯))) |
391 | 388, 390 | ifbieq2d 4554 |
. . . . . . 7
β’ (π¦ = π₯ β if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))) = if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯)))) |
392 | 391 | cbvmptv 5261 |
. . . . . 6
β’ (π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦)))) = (π₯ β ((πβπ)[,](πβ(π + 1))) β¦ if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (πΉβπ₯)))) |
393 | | eqid 2733 |
. . . . . 6
β’ (π₯ β (((π β (0...π) β¦ ((πβπ) + -π))βπ)[,]((π β (0...π) β¦ ((πβπ) + -π))β(π + 1))) β¦ ((π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))))β(π₯ β -π))) = (π₯ β (((π β (0...π) β¦ ((πβπ) + -π))βπ)[,]((π β (0...π) β¦ ((πβπ) + -π))β(π + 1))) β¦ ((π¦ β ((πβπ)[,](πβ(π + 1))) β¦ if(π¦ = (πβπ), π
, if(π¦ = (πβ(π + 1)), πΏ, (πΉβπ¦))))β(π₯ β -π))) |
394 | 77, 79, 80, 81, 84, 167, 225, 228, 229, 346, 382, 387, 392, 393 | fourierdlem81 44890 |
. . . . 5
β’ ((π β§ 0 < -π) β β«(((π΄ + π) + -π)[,]((π΅ + π) + -π))(πΉβπ₯) dπ₯ = β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯) |
395 | 74, 394 | eqtr2d 2774 |
. . . 4
β’ ((π β§ 0 < -π) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
396 | 49, 59, 395 | syl2anc 585 |
. . 3
β’ (((π β§ Β¬ 0 < π) β§ Β¬ π = 0) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
397 | 48, 396 | pm2.61dan 812 |
. 2
β’ ((π β§ Β¬ 0 < π) β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |
398 | 34, 397 | pm2.61dan 812 |
1
β’ (π β β«((π΄ + π)[,](π΅ + π))(πΉβπ₯) dπ₯ = β«(π΄[,]π΅)(πΉβπ₯) dπ₯) |