Step | Hyp | Ref
| Expression |
1 | | elfzofz 13644 |
. . . . . 6
β’ (π β (0..^π) β π β (0...π)) |
2 | | pire 25959 |
. . . . . . . . . . . 12
β’ Ο
β β |
3 | 2 | renegcli 11517 |
. . . . . . . . . . 11
β’ -Ο
β β |
4 | 3 | a1i 11 |
. . . . . . . . . 10
β’ (π β -Ο β
β) |
5 | | fourierdlem74.xre |
. . . . . . . . . 10
β’ (π β π β β) |
6 | 4, 5 | readdcld 11239 |
. . . . . . . . 9
β’ (π β (-Ο + π) β β) |
7 | 2 | a1i 11 |
. . . . . . . . . 10
β’ (π β Ο β
β) |
8 | 7, 5 | readdcld 11239 |
. . . . . . . . 9
β’ (π β (Ο + π) β β) |
9 | 6, 8 | iccssred 13407 |
. . . . . . . 8
β’ (π β ((-Ο + π)[,](Ο + π)) β β) |
10 | 9 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β (0...π)) β ((-Ο + π)[,](Ο + π)) β β) |
11 | | fourierdlem74.p |
. . . . . . . . 9
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = (-Ο + π) β§ (πβπ) = (Ο + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
12 | | fourierdlem74.m |
. . . . . . . . 9
β’ (π β π β β) |
13 | | fourierdlem74.v |
. . . . . . . . 9
β’ (π β π β (πβπ)) |
14 | 11, 12, 13 | fourierdlem15 44824 |
. . . . . . . 8
β’ (π β π:(0...π)βΆ((-Ο + π)[,](Ο + π))) |
15 | 14 | ffvelcdmda 7083 |
. . . . . . 7
β’ ((π β§ π β (0...π)) β (πβπ) β ((-Ο + π)[,](Ο + π))) |
16 | 10, 15 | sseldd 3982 |
. . . . . 6
β’ ((π β§ π β (0...π)) β (πβπ) β β) |
17 | 1, 16 | sylan2 593 |
. . . . 5
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
18 | 17 | adantr 481 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβπ) β β) |
19 | 5 | ad2antrr 724 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β π β β) |
20 | 11 | fourierdlem2 44811 |
. . . . . . . . . 10
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = (-Ο + π) β§ (πβπ) = (Ο + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
21 | 12, 20 | syl 17 |
. . . . . . . . 9
β’ (π β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = (-Ο + π) β§ (πβπ) = (Ο + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
22 | 13, 21 | mpbid 231 |
. . . . . . . 8
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = (-Ο + π) β§ (πβπ) = (Ο + π)) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
23 | 22 | simprrd 772 |
. . . . . . 7
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
24 | 23 | r19.21bi 3248 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
25 | 24 | adantr 481 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβπ) < (πβ(π + 1))) |
26 | | eqcom 2739 |
. . . . . . 7
β’ ((πβ(π + 1)) = π β π = (πβ(π + 1))) |
27 | 26 | biimpi 215 |
. . . . . 6
β’ ((πβ(π + 1)) = π β π = (πβ(π + 1))) |
28 | 27 | adantl 482 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β π = (πβ(π + 1))) |
29 | 25, 28 | breqtrrd 5175 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβπ) < π) |
30 | | fourierdlem74.f |
. . . . . 6
β’ (π β πΉ:ββΆβ) |
31 | | ioossre 13381 |
. . . . . . 7
β’ ((πβπ)(,)π) β β |
32 | 31 | a1i 11 |
. . . . . 6
β’ (π β ((πβπ)(,)π) β β) |
33 | 30, 32 | fssresd 6755 |
. . . . 5
β’ (π β (πΉ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ) |
34 | 33 | ad2antrr 724 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πΉ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ) |
35 | | limcresi 25393 |
. . . . . . . 8
β’ ((πΉ βΎ (-β(,)π)) limβ π) β (((πΉ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π) |
36 | | fourierdlem74.w |
. . . . . . . 8
β’ (π β π β ((πΉ βΎ (-β(,)π)) limβ π)) |
37 | 35, 36 | sselid 3979 |
. . . . . . 7
β’ (π β π β (((πΉ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π)) |
38 | 37 | adantr 481 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π β (((πΉ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π)) |
39 | | mnfxr 11267 |
. . . . . . . . . 10
β’ -β
β β* |
40 | 39 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β -β β
β*) |
41 | 17 | rexrd 11260 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (πβπ) β
β*) |
42 | 17 | mnfltd 13100 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β -β < (πβπ)) |
43 | 40, 41, 42 | xrltled 13125 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β -β β€ (πβπ)) |
44 | | iooss1 13355 |
. . . . . . . . 9
β’
((-β β β* β§ -β β€ (πβπ)) β ((πβπ)(,)π) β (-β(,)π)) |
45 | 40, 43, 44 | syl2anc 584 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)π) β (-β(,)π)) |
46 | 45 | resabs1d 6010 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) = (πΉ βΎ ((πβπ)(,)π))) |
47 | 46 | oveq1d 7420 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π) = ((πΉ βΎ ((πβπ)(,)π)) limβ π)) |
48 | 38, 47 | eleqtrd 2835 |
. . . . 5
β’ ((π β§ π β (0..^π)) β π β ((πΉ βΎ ((πβπ)(,)π)) limβ π)) |
49 | 48 | adantr 481 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β π β ((πΉ βΎ ((πβπ)(,)π)) limβ π)) |
50 | | eqid 2732 |
. . . 4
β’ (β
D (πΉ βΎ ((πβπ)(,)π))) = (β D (πΉ βΎ ((πβπ)(,)π))) |
51 | | ax-resscn 11163 |
. . . . . . . . . 10
β’ β
β β |
52 | 51 | a1i 11 |
. . . . . . . . 9
β’ (π β β β
β) |
53 | 30, 52 | fssd 6732 |
. . . . . . . . 9
β’ (π β πΉ:ββΆβ) |
54 | | ssid 4003 |
. . . . . . . . . 10
β’ β
β β |
55 | 54 | a1i 11 |
. . . . . . . . 9
β’ (π β β β
β) |
56 | | eqid 2732 |
. . . . . . . . . 10
β’
(TopOpenββfld) =
(TopOpenββfld) |
57 | 56 | tgioo2 24310 |
. . . . . . . . . 10
β’
(topGenβran (,)) = ((TopOpenββfld)
βΎt β) |
58 | 56, 57 | dvres 25419 |
. . . . . . . . 9
β’
(((β β β β§ πΉ:ββΆβ) β§ (β
β β β§ ((πβπ)(,)π) β β)) β (β D (πΉ βΎ ((πβπ)(,)π))) = ((β D πΉ) βΎ ((intβ(topGenβran
(,)))β((πβπ)(,)π)))) |
59 | 52, 53, 55, 32, 58 | syl22anc 837 |
. . . . . . . 8
β’ (π β (β D (πΉ βΎ ((πβπ)(,)π))) = ((β D πΉ) βΎ ((intβ(topGenβran
(,)))β((πβπ)(,)π)))) |
60 | | fourierdlem74.g |
. . . . . . . . . . 11
β’ πΊ = (β D πΉ) |
61 | 60 | eqcomi 2741 |
. . . . . . . . . 10
β’ (β
D πΉ) = πΊ |
62 | | ioontr 44210 |
. . . . . . . . . 10
β’
((intβ(topGenβran (,)))β((πβπ)(,)π)) = ((πβπ)(,)π) |
63 | 61, 62 | reseq12i 5977 |
. . . . . . . . 9
β’ ((β
D πΉ) βΎ
((intβ(topGenβran (,)))β((πβπ)(,)π))) = (πΊ βΎ ((πβπ)(,)π)) |
64 | 63 | a1i 11 |
. . . . . . . 8
β’ (π β ((β D πΉ) βΎ
((intβ(topGenβran (,)))β((πβπ)(,)π))) = (πΊ βΎ ((πβπ)(,)π))) |
65 | 59, 64 | eqtrd 2772 |
. . . . . . 7
β’ (π β (β D (πΉ βΎ ((πβπ)(,)π))) = (πΊ βΎ ((πβπ)(,)π))) |
66 | 65 | dmeqd 5903 |
. . . . . 6
β’ (π β dom (β D (πΉ βΎ ((πβπ)(,)π))) = dom (πΊ βΎ ((πβπ)(,)π))) |
67 | 66 | ad2antrr 724 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β dom (β D (πΉ βΎ ((πβπ)(,)π))) = dom (πΊ βΎ ((πβπ)(,)π))) |
68 | | fourierdlem74.gcn |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πΊ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ) |
69 | 68 | adantr 481 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πΊ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ) |
70 | | oveq2 7413 |
. . . . . . . . . 10
β’ ((πβ(π + 1)) = π β ((πβπ)(,)(πβ(π + 1))) = ((πβπ)(,)π)) |
71 | 70 | reseq2d 5979 |
. . . . . . . . 9
β’ ((πβ(π + 1)) = π β (πΊ βΎ ((πβπ)(,)(πβ(π + 1)))) = (πΊ βΎ ((πβπ)(,)π))) |
72 | 71, 70 | feq12d 6702 |
. . . . . . . 8
β’ ((πβ(π + 1)) = π β ((πΊ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ β (πΊ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ)) |
73 | 72 | adantl 482 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β ((πΊ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ β (πΊ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ)) |
74 | 69, 73 | mpbid 231 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πΊ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ) |
75 | | fdm 6723 |
. . . . . 6
β’ ((πΊ βΎ ((πβπ)(,)π)):((πβπ)(,)π)βΆβ β dom (πΊ βΎ ((πβπ)(,)π)) = ((πβπ)(,)π)) |
76 | 74, 75 | syl 17 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β dom (πΊ βΎ ((πβπ)(,)π)) = ((πβπ)(,)π)) |
77 | 67, 76 | eqtrd 2772 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β dom (β D (πΉ βΎ ((πβπ)(,)π))) = ((πβπ)(,)π)) |
78 | | limcresi 25393 |
. . . . . . . 8
β’ ((πΊ βΎ (-β(,)π)) limβ π) β (((πΊ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π) |
79 | 45 | resabs1d 6010 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πΊ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) = (πΊ βΎ ((πβπ)(,)π))) |
80 | 79 | oveq1d 7420 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (((πΊ βΎ (-β(,)π)) βΎ ((πβπ)(,)π)) limβ π) = ((πΊ βΎ ((πβπ)(,)π)) limβ π)) |
81 | 78, 80 | sseqtrid 4033 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πΊ βΎ (-β(,)π)) limβ π) β ((πΊ βΎ ((πβπ)(,)π)) limβ π)) |
82 | | fourierdlem74.e |
. . . . . . . 8
β’ (π β πΈ β ((πΊ βΎ (-β(,)π)) limβ π)) |
83 | 82 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β πΈ β ((πΊ βΎ (-β(,)π)) limβ π)) |
84 | 81, 83 | sseldd 3982 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β πΈ β ((πΊ βΎ ((πβπ)(,)π)) limβ π)) |
85 | 59, 64 | eqtr2d 2773 |
. . . . . . . 8
β’ (π β (πΊ βΎ ((πβπ)(,)π)) = (β D (πΉ βΎ ((πβπ)(,)π)))) |
86 | 85 | oveq1d 7420 |
. . . . . . 7
β’ (π β ((πΊ βΎ ((πβπ)(,)π)) limβ π) = ((β D (πΉ βΎ ((πβπ)(,)π))) limβ π)) |
87 | 86 | adantr 481 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β ((πΊ βΎ ((πβπ)(,)π)) limβ π) = ((β D (πΉ βΎ ((πβπ)(,)π))) limβ π)) |
88 | 84, 87 | eleqtrd 2835 |
. . . . 5
β’ ((π β§ π β (0..^π)) β πΈ β ((β D (πΉ βΎ ((πβπ)(,)π))) limβ π)) |
89 | 88 | adantr 481 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β πΈ β ((β D (πΉ βΎ ((πβπ)(,)π))) limβ π)) |
90 | | eqid 2732 |
. . . 4
β’ (π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) = (π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) |
91 | | oveq2 7413 |
. . . . . . 7
β’ (π₯ = π β (π + π₯) = (π + π )) |
92 | 91 | fveq2d 6892 |
. . . . . 6
β’ (π₯ = π β ((πΉ βΎ ((πβπ)(,)π))β(π + π₯)) = ((πΉ βΎ ((πβπ)(,)π))β(π + π ))) |
93 | 92 | oveq1d 7420 |
. . . . 5
β’ (π₯ = π β (((πΉ βΎ ((πβπ)(,)π))β(π + π₯)) β π) = (((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π)) |
94 | 93 | cbvmptv 5260 |
. . . 4
β’ (π₯ β (((πβπ) β π)(,)0) β¦ (((πΉ βΎ ((πβπ)(,)π))β(π + π₯)) β π)) = (π β (((πβπ) β π)(,)0) β¦ (((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π)) |
95 | | id 22 |
. . . . 5
β’ (π₯ = π β π₯ = π ) |
96 | 95 | cbvmptv 5260 |
. . . 4
β’ (π₯ β (((πβπ) β π)(,)0) β¦ π₯) = (π β (((πβπ) β π)(,)0) β¦ π ) |
97 | 18, 19, 29, 34, 49, 50, 77, 89, 90, 94, 96 | fourierdlem60 44868 |
. . 3
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β πΈ β ((π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) limβ 0)) |
98 | | fourierdlem74.a |
. . . . 5
β’ π΄ = if((πβ(π + 1)) = π, πΈ, ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) |
99 | | iftrue 4533 |
. . . . 5
β’ ((πβ(π + 1)) = π β if((πβ(π + 1)) = π, πΈ, ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) = πΈ) |
100 | 98, 99 | eqtrid 2784 |
. . . 4
β’ ((πβ(π + 1)) = π β π΄ = πΈ) |
101 | 100 | adantl 482 |
. . 3
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β π΄ = πΈ) |
102 | | fourierdlem74.h |
. . . . . . 7
β’ π» = (π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
103 | 102 | reseq1i 5975 |
. . . . . 6
β’ (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = ((π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) βΎ ((πβπ)(,)(πβ(π + 1)))) |
104 | 103 | a1i 11 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = ((π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) βΎ ((πβπ)(,)(πβ(π + 1))))) |
105 | | ioossicc 13406 |
. . . . . . . 8
β’ ((πβπ)(,)(πβ(π + 1))) β ((πβπ)[,](πβ(π + 1))) |
106 | 3 | rexri 11268 |
. . . . . . . . . 10
β’ -Ο
β β* |
107 | 106 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β -Ο β
β*) |
108 | 2 | rexri 11268 |
. . . . . . . . . 10
β’ Ο
β β* |
109 | 108 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β Ο β
β*) |
110 | 3 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β -Ο β
β) |
111 | 2 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β Ο β
β) |
112 | 5 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β π β β) |
113 | 16, 112 | resubcld 11638 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β ((πβπ) β π) β β) |
114 | 4 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ (π β -Ο β
β) |
115 | 5 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ (π β π β β) |
116 | 114, 115 | pncand 11568 |
. . . . . . . . . . . . . . 15
β’ (π β ((-Ο + π) β π) = -Ο) |
117 | 116 | eqcomd 2738 |
. . . . . . . . . . . . . 14
β’ (π β -Ο = ((-Ο + π) β π)) |
118 | 117 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β -Ο = ((-Ο + π) β π)) |
119 | 6 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0...π)) β (-Ο + π) β β) |
120 | 8 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0...π)) β (Ο + π) β β) |
121 | | elicc2 13385 |
. . . . . . . . . . . . . . . . 17
β’ (((-Ο
+ π) β β β§
(Ο + π) β β)
β ((πβπ) β ((-Ο + π)[,](Ο + π)) β ((πβπ) β β β§ (-Ο + π) β€ (πβπ) β§ (πβπ) β€ (Ο + π)))) |
122 | 119, 120,
121 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0...π)) β ((πβπ) β ((-Ο + π)[,](Ο + π)) β ((πβπ) β β β§ (-Ο + π) β€ (πβπ) β§ (πβπ) β€ (Ο + π)))) |
123 | 15, 122 | mpbid 231 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0...π)) β ((πβπ) β β β§ (-Ο + π) β€ (πβπ) β§ (πβπ) β€ (Ο + π))) |
124 | 123 | simp2d 1143 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0...π)) β (-Ο + π) β€ (πβπ)) |
125 | 119, 16, 112, 124 | lesub1dd 11826 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β ((-Ο + π) β π) β€ ((πβπ) β π)) |
126 | 118, 125 | eqbrtrd 5169 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β -Ο β€ ((πβπ) β π)) |
127 | 123 | simp3d 1144 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0...π)) β (πβπ) β€ (Ο + π)) |
128 | 16, 120, 112, 127 | lesub1dd 11826 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β ((πβπ) β π) β€ ((Ο + π) β π)) |
129 | 111 | recnd 11238 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0...π)) β Ο β
β) |
130 | 115 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0...π)) β π β β) |
131 | 129, 130 | pncand 11568 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...π)) β ((Ο + π) β π) = Ο) |
132 | 128, 131 | breqtrd 5173 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...π)) β ((πβπ) β π) β€ Ο) |
133 | 110, 111,
113, 126, 132 | eliccd 44203 |
. . . . . . . . . . 11
β’ ((π β§ π β (0...π)) β ((πβπ) β π) β (-Ο[,]Ο)) |
134 | | fourierdlem74.q |
. . . . . . . . . . 11
β’ π = (π β (0...π) β¦ ((πβπ) β π)) |
135 | 133, 134 | fmptd 7110 |
. . . . . . . . . 10
β’ (π β π:(0...π)βΆ(-Ο[,]Ο)) |
136 | 135 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆ(-Ο[,]Ο)) |
137 | | simpr 485 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π β (0..^π)) |
138 | 107, 109,
136, 137 | fourierdlem8 44817 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ)[,](πβ(π + 1))) β
(-Ο[,]Ο)) |
139 | 105, 138 | sstrid 3992 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β
(-Ο[,]Ο)) |
140 | 139 | resmptd 6038 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β ((π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )))) |
141 | 140 | adantr 481 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β ((π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )))) |
142 | 1 | adantl 482 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π β (0...π)) |
143 | 1, 113 | sylan2 593 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ) β π) β β) |
144 | 134 | fvmpt2 7006 |
. . . . . . . . 9
β’ ((π β (0...π) β§ ((πβπ) β π) β β) β (πβπ) = ((πβπ) β π)) |
145 | 142, 143,
144 | syl2anc 584 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πβπ) = ((πβπ) β π)) |
146 | 145 | adantr 481 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβπ) = ((πβπ) β π)) |
147 | | fveq2 6888 |
. . . . . . . . . . . . . 14
β’ (π = π β (πβπ) = (πβπ)) |
148 | 147 | oveq1d 7420 |
. . . . . . . . . . . . 13
β’ (π = π β ((πβπ) β π) = ((πβπ) β π)) |
149 | 148 | cbvmptv 5260 |
. . . . . . . . . . . 12
β’ (π β (0...π) β¦ ((πβπ) β π)) = (π β (0...π) β¦ ((πβπ) β π)) |
150 | 134, 149 | eqtri 2760 |
. . . . . . . . . . 11
β’ π = (π β (0...π) β¦ ((πβπ) β π)) |
151 | 150 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π = (π β (0...π) β¦ ((πβπ) β π))) |
152 | | fveq2 6888 |
. . . . . . . . . . . 12
β’ (π = (π + 1) β (πβπ) = (πβ(π + 1))) |
153 | 152 | oveq1d 7420 |
. . . . . . . . . . 11
β’ (π = (π + 1) β ((πβπ) β π) = ((πβ(π + 1)) β π)) |
154 | 153 | adantl 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π = (π + 1)) β ((πβπ) β π) = ((πβ(π + 1)) β π)) |
155 | | fzofzp1 13725 |
. . . . . . . . . . 11
β’ (π β (0..^π) β (π + 1) β (0...π)) |
156 | 155 | adantl 482 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (π + 1) β (0...π)) |
157 | 22 | simpld 495 |
. . . . . . . . . . . . . 14
β’ (π β π β (β βm
(0...π))) |
158 | | elmapi 8839 |
. . . . . . . . . . . . . 14
β’ (π β (β
βm (0...π))
β π:(0...π)βΆβ) |
159 | 157, 158 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β π:(0...π)βΆβ) |
160 | 159 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
161 | 160, 156 | ffvelcdmd 7084 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
162 | 5 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β π β β) |
163 | 161, 162 | resubcld 11638 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) β π) β β) |
164 | 151, 154,
156, 163 | fvmptd 7002 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) = ((πβ(π + 1)) β π)) |
165 | 164 | adantr 481 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβ(π + 1)) = ((πβ(π + 1)) β π)) |
166 | | oveq1 7412 |
. . . . . . . . 9
β’ ((πβ(π + 1)) = π β ((πβ(π + 1)) β π) = (π β π)) |
167 | 166 | adantl 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β ((πβ(π + 1)) β π) = (π β π)) |
168 | 115 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((π β§ π β (0...π)) β§ (πβ(π + 1)) = π) β π β β) |
169 | 168 | subidd 11555 |
. . . . . . . . 9
β’ (((π β§ π β (0...π)) β§ (πβ(π + 1)) = π) β (π β π) = 0) |
170 | 1, 169 | sylanl2 679 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (π β π) = 0) |
171 | 165, 167,
170 | 3eqtrd 2776 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (πβ(π + 1)) = 0) |
172 | 146, 171 | oveq12d 7423 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β ((πβπ)(,)(πβ(π + 1))) = (((πβπ) β π)(,)0)) |
173 | | simplr 767 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β§ π = 0) β π β ((πβπ)(,)(πβ(π + 1)))) |
174 | | fourierdlem74.o |
. . . . . . . . . . . . 13
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
175 | 12 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π = 0) β π β β) |
176 | 4, 7, 5, 11, 174, 12, 13, 134 | fourierdlem14 44823 |
. . . . . . . . . . . . . 14
β’ (π β π β (πβπ)) |
177 | 176 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π = 0) β π β (πβπ)) |
178 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ ((π β§ π = 0) β π = 0) |
179 | | fourierdlem74.x |
. . . . . . . . . . . . . . . . . 18
β’ (π β π β ran π) |
180 | | ffn 6714 |
. . . . . . . . . . . . . . . . . . 19
β’ (π:(0...π)βΆ((-Ο + π)[,](Ο + π)) β π Fn (0...π)) |
181 | | fvelrnb 6949 |
. . . . . . . . . . . . . . . . . . 19
β’ (π Fn (0...π) β (π β ran π β βπ β (0...π)(πβπ) = π)) |
182 | 14, 180, 181 | 3syl 18 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π β ran π β βπ β (0...π)(πβπ) = π)) |
183 | 179, 182 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’ (π β βπ β (0...π)(πβπ) = π) |
184 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (0...π)) β π β (0...π)) |
185 | 134 | fvmpt2 7006 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β (0...π) β§ ((πβπ) β π) β (-Ο[,]Ο)) β (πβπ) = ((πβπ) β π)) |
186 | 184, 133,
185 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (0...π)) β (πβπ) = ((πβπ) β π)) |
187 | 186 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0...π)) β§ (πβπ) = π) β (πβπ) = ((πβπ) β π)) |
188 | | oveq1 7412 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πβπ) = π β ((πβπ) β π) = (π β π)) |
189 | 188 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0...π)) β§ (πβπ) = π) β ((πβπ) β π) = (π β π)) |
190 | 115 | subidd 11555 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (π β π) = 0) |
191 | 190 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0...π)) β§ (πβπ) = π) β (π β π) = 0) |
192 | 187, 189,
191 | 3eqtrd 2776 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (0...π)) β§ (πβπ) = π) β (πβπ) = 0) |
193 | 192 | ex 413 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0...π)) β ((πβπ) = π β (πβπ) = 0)) |
194 | 193 | reximdva 3168 |
. . . . . . . . . . . . . . . . 17
β’ (π β (βπ β (0...π)(πβπ) = π β βπ β (0...π)(πβπ) = 0)) |
195 | 183, 194 | mpd 15 |
. . . . . . . . . . . . . . . 16
β’ (π β βπ β (0...π)(πβπ) = 0) |
196 | 113, 134 | fmptd 7110 |
. . . . . . . . . . . . . . . . 17
β’ (π β π:(0...π)βΆβ) |
197 | | ffn 6714 |
. . . . . . . . . . . . . . . . 17
β’ (π:(0...π)βΆβ β π Fn (0...π)) |
198 | | fvelrnb 6949 |
. . . . . . . . . . . . . . . . 17
β’ (π Fn (0...π) β (0 β ran π β βπ β (0...π)(πβπ) = 0)) |
199 | 196, 197,
198 | 3syl 18 |
. . . . . . . . . . . . . . . 16
β’ (π β (0 β ran π β βπ β (0...π)(πβπ) = 0)) |
200 | 195, 199 | mpbird 256 |
. . . . . . . . . . . . . . 15
β’ (π β 0 β ran π) |
201 | 200 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π = 0) β 0 β ran π) |
202 | 178, 201 | eqeltrd 2833 |
. . . . . . . . . . . . 13
β’ ((π β§ π = 0) β π β ran π) |
203 | 174, 175,
177, 202 | fourierdlem12 44821 |
. . . . . . . . . . . 12
β’ (((π β§ π = 0) β§ π β (0..^π)) β Β¬ π β ((πβπ)(,)(πβ(π + 1)))) |
204 | 203 | an32s 650 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π = 0) β Β¬ π β ((πβπ)(,)(πβ(π + 1)))) |
205 | 204 | adantlr 713 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β§ π = 0) β Β¬ π β ((πβπ)(,)(πβ(π + 1)))) |
206 | 173, 205 | pm2.65da 815 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ π = 0) |
207 | 206 | adantlr 713 |
. . . . . . . 8
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ π = 0) |
208 | 207 | iffalsed 4538 |
. . . . . . 7
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) = (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
209 | | elioore 13350 |
. . . . . . . . . . . 12
β’ (π β ((πβπ)(,)(πβ(π + 1))) β π β β) |
210 | 209 | adantl 482 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
211 | | 0red 11213 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 β
β) |
212 | | elioo3g 13349 |
. . . . . . . . . . . . . . 15
β’ (π β ((πβπ)(,)(πβ(π + 1))) β (((πβπ) β β* β§ (πβ(π + 1)) β β* β§ π β β*)
β§ ((πβπ) < π β§ π < (πβ(π + 1))))) |
213 | 212 | biimpi 215 |
. . . . . . . . . . . . . 14
β’ (π β ((πβπ)(,)(πβ(π + 1))) β (((πβπ) β β* β§ (πβ(π + 1)) β β* β§ π β β*)
β§ ((πβπ) < π β§ π < (πβ(π + 1))))) |
214 | 213 | simprrd 772 |
. . . . . . . . . . . . 13
β’ (π β ((πβπ)(,)(πβ(π + 1))) β π < (πβ(π + 1))) |
215 | 214 | adantl 482 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π < (πβ(π + 1))) |
216 | 171 | adantr 481 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβ(π + 1)) = 0) |
217 | 215, 216 | breqtrd 5173 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π < 0) |
218 | 210, 211,
217 | ltnsymd 11359 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ 0 < π ) |
219 | 218 | iffalsed 4538 |
. . . . . . . . 9
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) = π) |
220 | 219 | oveq2d 7421 |
. . . . . . . 8
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β ((πΉβ(π + π )) β if(0 < π , π, π)) = ((πΉβ(π + π )) β π)) |
221 | 220 | oveq1d 7420 |
. . . . . . 7
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (((πΉβ(π + π )) β if(0 < π , π, π)) / π ) = (((πΉβ(π + π )) β π) / π )) |
222 | 41 | ad2antrr 724 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) β
β*) |
223 | 5 | rexrd 11260 |
. . . . . . . . . . . 12
β’ (π β π β
β*) |
224 | 223 | ad3antrrr 728 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β
β*) |
225 | 162 | ad2antrr 724 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
226 | 225, 210 | readdcld 11239 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) β β) |
227 | 115 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β π β β) |
228 | | iccssre 13402 |
. . . . . . . . . . . . . . . . . . 19
β’ ((-Ο
β β β§ Ο β β) β (-Ο[,]Ο) β
β) |
229 | 3, 2, 228 | mp2an 690 |
. . . . . . . . . . . . . . . . . 18
β’
(-Ο[,]Ο) β β |
230 | 229, 51 | sstri 3990 |
. . . . . . . . . . . . . . . . 17
β’
(-Ο[,]Ο) β β |
231 | 186, 133 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0...π)) β (πβπ) β (-Ο[,]Ο)) |
232 | 1, 231 | sylan2 593 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (πβπ) β (-Ο[,]Ο)) |
233 | 230, 232 | sselid 3979 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
234 | 227, 233 | addcomd 11412 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π + (πβπ)) = ((πβπ) + π)) |
235 | 145 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β ((πβπ) + π) = (((πβπ) β π) + π)) |
236 | 17 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
237 | 236, 227 | npcand 11571 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (((πβπ) β π) + π) = (πβπ)) |
238 | 234, 235,
237 | 3eqtrrd 2777 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (πβπ) = (π + (πβπ))) |
239 | 238 | adantr 481 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) = (π + (πβπ))) |
240 | 145, 143 | eqeltrd 2833 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
241 | 240 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) β β) |
242 | 209 | adantl 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
243 | 5 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
244 | 213 | simprld 770 |
. . . . . . . . . . . . . . 15
β’ (π β ((πβπ)(,)(πβ(π + 1))) β (πβπ) < π ) |
245 | 244 | adantl 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) < π ) |
246 | 241, 242,
243, 245 | ltadd2dd 11369 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + (πβπ)) < (π + π )) |
247 | 239, 246 | eqbrtrd 5169 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) < (π + π )) |
248 | 247 | adantlr 713 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) < (π + π )) |
249 | | ltaddneg 11425 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π β β) β (π < 0 β (π + π ) < π)) |
250 | 210, 225,
249 | syl2anc 584 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π < 0 β (π + π ) < π)) |
251 | 217, 250 | mpbid 231 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) < π) |
252 | 222, 224,
226, 248, 251 | eliood 44197 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) β ((πβπ)(,)π)) |
253 | | fvres 6907 |
. . . . . . . . . . 11
β’ ((π + π ) β ((πβπ)(,)π) β ((πΉ βΎ ((πβπ)(,)π))β(π + π )) = (πΉβ(π + π ))) |
254 | 253 | eqcomd 2738 |
. . . . . . . . . 10
β’ ((π + π ) β ((πβπ)(,)π) β (πΉβ(π + π )) = ((πΉ βΎ ((πβπ)(,)π))β(π + π ))) |
255 | 252, 254 | syl 17 |
. . . . . . . . 9
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) = ((πΉ βΎ ((πβπ)(,)π))β(π + π ))) |
256 | 255 | oveq1d 7420 |
. . . . . . . 8
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β ((πΉβ(π + π )) β π) = (((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π)) |
257 | 256 | oveq1d 7420 |
. . . . . . 7
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (((πΉβ(π + π )) β π) / π ) = ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) |
258 | 208, 221,
257 | 3eqtrd 2776 |
. . . . . 6
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) = ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) |
259 | 172, 258 | mpteq12dva 5236 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) = (π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π ))) |
260 | 104, 141,
259 | 3eqtrd 2776 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π ))) |
261 | 260, 171 | oveq12d 7423 |
. . 3
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((π β (((πβπ) β π)(,)0) β¦ ((((πΉ βΎ ((πβπ)(,)π))β(π + π )) β π) / π )) limβ 0)) |
262 | 97, 101, 261 | 3eltr4d 2848 |
. 2
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) = π) β π΄ β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
263 | | eqid 2732 |
. . . . 5
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) |
264 | | eqid 2732 |
. . . . 5
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ π ) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ π ) |
265 | | eqid 2732 |
. . . . 5
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
266 | 30 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β πΉ:ββΆβ) |
267 | 5 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
268 | 209 | adantl 482 |
. . . . . . . . . . 11
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
269 | 267, 268 | readdcld 11239 |
. . . . . . . . . 10
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) β β) |
270 | 266, 269 | ffvelcdmd 7084 |
. . . . . . . . 9
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) β β) |
271 | 270 | recnd 11238 |
. . . . . . . 8
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) β β) |
272 | 271 | adantlr 713 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) β β) |
273 | 272 | 3adantl3 1168 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) β β) |
274 | | fourierdlem74.y |
. . . . . . . . . 10
β’ (π β π β β) |
275 | 274 | recnd 11238 |
. . . . . . . . 9
β’ (π β π β β) |
276 | | limccl 25383 |
. . . . . . . . . 10
β’ ((πΉ βΎ (-β(,)π)) limβ π) β
β |
277 | 276, 36 | sselid 3979 |
. . . . . . . . 9
β’ (π β π β β) |
278 | 275, 277 | ifcld 4573 |
. . . . . . . 8
β’ (π β if(0 < π , π, π) β β) |
279 | 278 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) β β) |
280 | 279 | 3ad2antl1 1185 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) β β) |
281 | 273, 280 | subcld 11567 |
. . . . 5
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β ((πΉβ(π + π )) β if(0 < π , π, π)) β β) |
282 | 209 | recnd 11238 |
. . . . . . 7
β’ (π β ((πβπ)(,)(πβ(π + 1))) β π β β) |
283 | 282 | adantl 482 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
284 | | velsn 4643 |
. . . . . . . 8
β’ (π β {0} β π = 0) |
285 | 206, 284 | sylnibr 328 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ π β {0}) |
286 | 285 | 3adantl3 1168 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ π β {0}) |
287 | 283, 286 | eldifd 3958 |
. . . . 5
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β (β β
{0})) |
288 | | eqid 2732 |
. . . . . . . . . 10
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβ(π + π ))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβ(π + π ))) |
289 | | eqid 2732 |
. . . . . . . . . 10
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ π) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ π) |
290 | | eqid 2732 |
. . . . . . . . . 10
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π)) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π)) |
291 | 277 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
292 | 30 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β πΉ:ββΆβ) |
293 | | ioossre 13381 |
. . . . . . . . . . . 12
β’ ((πβπ)(,)(πβ(π + 1))) β β |
294 | 293 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
295 | 41 | adantr 481 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) β
β*) |
296 | 161 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β
β*) |
297 | 296 | adantr 481 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβ(π + 1)) β
β*) |
298 | 269 | adantlr 713 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) β β) |
299 | 196 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
300 | 299, 156 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
301 | 300 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβ(π + 1)) β β) |
302 | 214 | adantl 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π < (πβ(π + 1))) |
303 | 242, 301,
243, 302 | ltadd2dd 11369 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) < (π + (πβ(π + 1)))) |
304 | 164 | oveq2d 7421 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π + (πβ(π + 1))) = (π + ((πβ(π + 1)) β π))) |
305 | 161 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
306 | 227, 305 | pncan3d 11570 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π + ((πβ(π + 1)) β π)) = (πβ(π + 1))) |
307 | 304, 306 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (π + (πβ(π + 1))) = (πβ(π + 1))) |
308 | 307 | adantr 481 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + (πβ(π + 1))) = (πβ(π + 1))) |
309 | 303, 308 | breqtrd 5173 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) < (πβ(π + 1))) |
310 | 295, 297,
298, 247, 309 | eliood 44197 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π + π ) β ((πβπ)(,)(πβ(π + 1)))) |
311 | | ioossre 13381 |
. . . . . . . . . . . 12
β’ ((πβπ)(,)(πβ(π + 1))) β β |
312 | 311 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
313 | 242, 302 | ltned 11346 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β (πβ(π + 1))) |
314 | | fourierdlem74.r |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
315 | 307 | eqcomd 2738 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) = (π + (πβ(π + 1)))) |
316 | 315 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (π + (πβ(π + 1))))) |
317 | 314, 316 | eleqtrd 2835 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (π + (πβ(π + 1))))) |
318 | 300 | recnd 11238 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
319 | 292, 162,
294, 288, 310, 312, 313, 317, 318 | fourierdlem53 44861 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π
β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβ(π + π ))) limβ (πβ(π + 1)))) |
320 | | ioosscn 13382 |
. . . . . . . . . . . 12
β’ ((πβπ)(,)(πβ(π + 1))) β β |
321 | 320 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
322 | 277 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β π β β) |
323 | 289, 321,
322, 318 | constlimc 44326 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π) limβ (πβ(π + 1)))) |
324 | 288, 289,
290, 272, 291, 319, 323 | sublimc 44354 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π
β π) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π)) limβ (πβ(π + 1)))) |
325 | 324 | adantr 481 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (π
β π) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π)) limβ (πβ(π + 1)))) |
326 | | iftrue 4533 |
. . . . . . . . . 10
β’ ((πβ(π + 1)) < π β if((πβ(π + 1)) < π, π, π) = π) |
327 | 326 | oveq2d 7421 |
. . . . . . . . 9
β’ ((πβ(π + 1)) < π β (π
β if((πβ(π + 1)) < π, π, π)) = (π
β π)) |
328 | 327 | adantl 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (π
β if((πβ(π + 1)) < π, π, π)) = (π
β π)) |
329 | 209 | adantl 482 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
330 | | 0red 11213 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 β
β) |
331 | 300 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβ(π + 1)) β β) |
332 | 214 | adantl 482 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π < (πβ(π + 1))) |
333 | 164 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (πβ(π + 1)) = ((πβ(π + 1)) β π)) |
334 | 161 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (πβ(π + 1)) β β) |
335 | 5 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β π β β) |
336 | | simpr 485 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (πβ(π + 1)) < π) |
337 | 334, 335,
336 | ltled 11358 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (πβ(π + 1)) β€ π) |
338 | 334, 335 | suble0d 11801 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (((πβ(π + 1)) β π) β€ 0 β (πβ(π + 1)) β€ π)) |
339 | 337, 338 | mpbird 256 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β ((πβ(π + 1)) β π) β€ 0) |
340 | 333, 339 | eqbrtrd 5169 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (πβ(π + 1)) β€ 0) |
341 | 340 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβ(π + 1)) β€ 0) |
342 | 329, 331,
330, 332, 341 | ltletrd 11370 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π < 0) |
343 | 329, 330,
342 | ltnsymd 11359 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ 0 < π ) |
344 | 343 | iffalsed 4538 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) = π) |
345 | 344 | oveq2d 7421 |
. . . . . . . . . 10
β’ ((((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β ((πΉβ(π + π )) β if(0 < π , π, π)) = ((πΉβ(π + π )) β π)) |
346 | 345 | mpteq2dva 5247 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π))) |
347 | 346 | oveq1d 7420 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1))) = ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β π)) limβ (πβ(π + 1)))) |
348 | 325, 328,
347 | 3eltr4d 2848 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ (πβ(π + 1)) < π) β (π
β if((πβ(π + 1)) < π, π, π)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1)))) |
349 | 348 | 3adantl3 1168 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ (πβ(π + 1)) < π) β (π
β if((πβ(π + 1)) < π, π, π)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1)))) |
350 | | simpl1 1191 |
. . . . . . 7
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β π) |
351 | | simpl2 1192 |
. . . . . . 7
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β π β (0..^π)) |
352 | 5 | ad2antrr 724 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πβ(π + 1)) < π) β π β β) |
353 | 352 | 3adantl3 1168 |
. . . . . . . 8
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β π β β) |
354 | 161 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ Β¬ (πβ(π + 1)) < π) β (πβ(π + 1)) β β) |
355 | 354 | 3adantl3 1168 |
. . . . . . . 8
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β (πβ(π + 1)) β β) |
356 | | neqne 2948 |
. . . . . . . . . . 11
β’ (Β¬
(πβ(π + 1)) = π β (πβ(π + 1)) β π) |
357 | 356 | necomd 2996 |
. . . . . . . . . 10
β’ (Β¬
(πβ(π + 1)) = π β π β (πβ(π + 1))) |
358 | 357 | adantr 481 |
. . . . . . . . 9
β’ ((Β¬
(πβ(π + 1)) = π β§ Β¬ (πβ(π + 1)) < π) β π β (πβ(π + 1))) |
359 | 358 | 3ad2antl3 1187 |
. . . . . . . 8
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β π β (πβ(π + 1))) |
360 | | simpr 485 |
. . . . . . . 8
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β Β¬ (πβ(π + 1)) < π) |
361 | 353, 355,
359, 360 | lttri5d 43995 |
. . . . . . 7
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β π < (πβ(π + 1))) |
362 | | eqid 2732 |
. . . . . . . 8
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(0 < π , π, π)) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(0 < π , π, π)) |
363 | 272 | adantlr 713 |
. . . . . . . 8
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πΉβ(π + π )) β β) |
364 | 278 | ad3antrrr 728 |
. . . . . . . 8
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) β β) |
365 | 319 | adantr 481 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β π
β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβ(π + π ))) limβ (πβ(π + 1)))) |
366 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π β ((πβπ)(,)(πβ(π + 1))) β¦ π) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ π) |
367 | 275 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β π β β) |
368 | 366, 321,
367, 318 | constlimc 44326 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β π β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π) limβ (πβ(π + 1)))) |
369 | 368 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β π β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π) limβ (πβ(π + 1)))) |
370 | 5 | ad2antrr 724 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β π β β) |
371 | 161 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β (πβ(π + 1)) β β) |
372 | | simpr 485 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β π < (πβ(π + 1))) |
373 | 370, 371,
372 | ltnsymd 11359 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β Β¬ (πβ(π + 1)) < π) |
374 | 373 | iffalsed 4538 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β if((πβ(π + 1)) < π, π, π) = π) |
375 | | 0red 11213 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 β
β) |
376 | 240 | ad2antrr 724 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) β β) |
377 | 209 | adantl 482 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
378 | 190 | eqcomd 2738 |
. . . . . . . . . . . . . . . . 17
β’ (π β 0 = (π β π)) |
379 | 378 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β 0 = (π β π)) |
380 | 17 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β (πβπ) β β) |
381 | 41 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β (πβπ) β
β*) |
382 | 296 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β (πβ(π + 1)) β
β*) |
383 | 162 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β π β β) |
384 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ (πβπ)) β Β¬ π β€ (πβπ)) |
385 | 17 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ (πβπ)) β (πβπ) β β) |
386 | 5 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ (πβπ)) β π β β) |
387 | 385, 386 | ltnled 11357 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ (πβπ)) β ((πβπ) < π β Β¬ π β€ (πβπ))) |
388 | 384, 387 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ Β¬ π β€ (πβπ)) β (πβπ) < π) |
389 | 388 | adantlr 713 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β (πβπ) < π) |
390 | | simplr 767 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β π < (πβ(π + 1))) |
391 | 381, 382,
383, 389, 390 | eliood 44197 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β π β ((πβπ)(,)(πβ(π + 1)))) |
392 | 11, 12, 13, 179 | fourierdlem12 44821 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β Β¬ π β ((πβπ)(,)(πβ(π + 1)))) |
393 | 392 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ Β¬ π β€ (πβπ)) β Β¬ π β ((πβπ)(,)(πβ(π + 1)))) |
394 | 391, 393 | condan 816 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β π β€ (πβπ)) |
395 | 370, 380,
370, 394 | lesub1dd 11826 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β (π β π) β€ ((πβπ) β π)) |
396 | 379, 395 | eqbrtrd 5169 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β 0 β€ ((πβπ) β π)) |
397 | 145 | eqcomd 2738 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β ((πβπ) β π) = (πβπ)) |
398 | 397 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β ((πβπ) β π) = (πβπ)) |
399 | 396, 398 | breqtrd 5173 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β 0 β€ (πβπ)) |
400 | 399 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 β€ (πβπ)) |
401 | 244 | adantl 482 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (πβπ) < π ) |
402 | 375, 376,
377, 400, 401 | lelttrd 11368 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 < π ) |
403 | 402 | iftrued 4535 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) = π) |
404 | 403 | mpteq2dva 5247 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β (π β ((πβπ)(,)(πβ(π + 1))) β¦ if(0 < π , π, π)) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ π)) |
405 | 404 | oveq1d 7420 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ if(0 < π , π, π)) limβ (πβ(π + 1))) = ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π) limβ (πβ(π + 1)))) |
406 | 369, 374,
405 | 3eltr4d 2848 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β if((πβ(π + 1)) < π, π, π) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ if(0 < π , π, π)) limβ (πβ(π + 1)))) |
407 | 288, 362,
263, 363, 364, 365, 406 | sublimc 44354 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ π < (πβ(π + 1))) β (π
β if((πβ(π + 1)) < π, π, π)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1)))) |
408 | 350, 351,
361, 407 | syl21anc 836 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ Β¬ (πβ(π + 1)) < π) β (π
β if((πβ(π + 1)) < π, π, π)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1)))) |
409 | 349, 408 | pm2.61dan 811 |
. . . . 5
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (π
β if((πβ(π + 1)) < π, π, π)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ ((πΉβ(π + π )) β if(0 < π , π, π))) limβ (πβ(π + 1)))) |
410 | 321, 264,
318 | idlimc 44328 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π ) limβ (πβ(π + 1)))) |
411 | 410 | 3adant3 1132 |
. . . . 5
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (πβ(π + 1)) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ π ) limβ (πβ(π + 1)))) |
412 | 164 | 3adant3 1132 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (πβ(π + 1)) = ((πβ(π + 1)) β π)) |
413 | 305 | 3adant3 1132 |
. . . . . . 7
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (πβ(π + 1)) β β) |
414 | 227 | 3adant3 1132 |
. . . . . . 7
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β π β β) |
415 | 356 | 3ad2ant3 1135 |
. . . . . . 7
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (πβ(π + 1)) β π) |
416 | 413, 414,
415 | subne0d 11576 |
. . . . . 6
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β ((πβ(π + 1)) β π) β 0) |
417 | 412, 416 | eqnetrd 3008 |
. . . . 5
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (πβ(π + 1)) β 0) |
418 | 206 | 3adantl3 1168 |
. . . . . 6
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β Β¬ π = 0) |
419 | 418 | neqned 2947 |
. . . . 5
β’ (((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β 0) |
420 | 263, 264,
265, 281, 287, 409, 411, 417, 419 | divlimc 44358 |
. . . 4
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1))) β ((π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) limβ (πβ(π + 1)))) |
421 | | iffalse 4536 |
. . . . . 6
β’ (Β¬
(πβ(π + 1)) = π β if((πβ(π + 1)) = π, πΈ, ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) = ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) |
422 | 98, 421 | eqtrid 2784 |
. . . . 5
β’ (Β¬
(πβ(π + 1)) = π β π΄ = ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) |
423 | 422 | 3ad2ant3 1135 |
. . . 4
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β π΄ = ((π
β if((πβ(π + 1)) < π, π, π)) / (πβ(π + 1)))) |
424 | | ioossre 13381 |
. . . . . . . . . . . . 13
β’
(-β(,)π)
β β |
425 | 424 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β (-β(,)π) β
β) |
426 | 30, 425 | fssresd 6755 |
. . . . . . . . . . 11
β’ (π β (πΉ βΎ (-β(,)π)):(-β(,)π)βΆβ) |
427 | 424, 52 | sstrid 3992 |
. . . . . . . . . . 11
β’ (π β (-β(,)π) β
β) |
428 | 39 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β -β β
β*) |
429 | 5 | mnfltd 13100 |
. . . . . . . . . . . 12
β’ (π β -β < π) |
430 | 56, 428, 5, 429 | lptioo2cn 44347 |
. . . . . . . . . . 11
β’ (π β π β
((limPtβ(TopOpenββfld))β(-β(,)π))) |
431 | 426, 427,
430, 36 | limcrecl 44331 |
. . . . . . . . . 10
β’ (π β π β β) |
432 | 30, 5, 274, 431, 102 | fourierdlem9 44818 |
. . . . . . . . 9
β’ (π β π»:(-Ο[,]Ο)βΆβ) |
433 | 432 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β π»:(-Ο[,]Ο)βΆβ) |
434 | 433, 139 | feqresmpt 6958 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (π»βπ ))) |
435 | 139 | sselda 3981 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β (-Ο[,]Ο)) |
436 | | 0cnd 11203 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β 0 β
β) |
437 | 278 | ad2antrr 724 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(0 < π , π, π) β β) |
438 | 272, 437 | subcld 11567 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β ((πΉβ(π + π )) β if(0 < π , π, π)) β β) |
439 | 282 | adantl 482 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β β) |
440 | 206 | neqned 2947 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β π β 0) |
441 | 438, 439,
440 | divcld 11986 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (((πΉβ(π + π )) β if(0 < π , π, π)) / π ) β β) |
442 | 436, 441 | ifcld 4573 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) β β) |
443 | 102 | fvmpt2 7006 |
. . . . . . . . . 10
β’ ((π β (-Ο[,]Ο) β§
if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) β β) β (π»βπ ) = if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
444 | 435, 442,
443 | syl2anc 584 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π»βπ ) = if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
445 | 206 | iffalsed 4538 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) = (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
446 | 444, 445 | eqtrd 2772 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π β ((πβπ)(,)(πβ(π + 1)))) β (π»βπ ) = (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
447 | 446 | mpteq2dva 5247 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π β ((πβπ)(,)(πβ(π + 1))) β¦ (π»βπ )) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
448 | 434, 447 | eqtrd 2772 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
449 | 448 | 3adant3 1132 |
. . . . 5
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β (π» βΎ ((πβπ)(,)(πβ(π + 1)))) = (π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
450 | 449 | oveq1d 7420 |
. . . 4
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((π β ((πβπ)(,)(πβ(π + 1))) β¦ (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) limβ (πβ(π + 1)))) |
451 | 420, 423,
450 | 3eltr4d 2848 |
. . 3
β’ ((π β§ π β (0..^π) β§ Β¬ (πβ(π + 1)) = π) β π΄ β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
452 | 451 | 3expa 1118 |
. 2
β’ (((π β§ π β (0..^π)) β§ Β¬ (πβ(π + 1)) = π) β π΄ β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
453 | 262, 452 | pm2.61dan 811 |
1
β’ ((π β§ π β (0..^π)) β π΄ β ((π» βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |