Step | Hyp | Ref
| Expression |
1 | | fourierdlem93.4 |
. . . . . . . 8
β’ (π β π β (πβπ)) |
2 | | fourierdlem93.3 |
. . . . . . . . 9
β’ (π β π β β) |
3 | | fourierdlem93.1 |
. . . . . . . . . 10
β’ π = (π β β β¦ {π β (β βm
(0...π)) β£ (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))}) |
4 | 3 | fourierdlem2 44812 |
. . . . . . . . 9
β’ (π β β β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
5 | 2, 4 | syl 17 |
. . . . . . . 8
β’ (π β (π β (πβπ) β (π β (β βm
(0...π)) β§ (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))))) |
6 | 1, 5 | mpbid 231 |
. . . . . . 7
β’ (π β (π β (β βm
(0...π)) β§ (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1))))) |
7 | 6 | simprd 497 |
. . . . . 6
β’ (π β (((πβ0) = -Ο β§ (πβπ) = Ο) β§ βπ β (0..^π)(πβπ) < (πβ(π + 1)))) |
8 | 7 | simplld 767 |
. . . . 5
β’ (π β (πβ0) = -Ο) |
9 | 8 | eqcomd 2739 |
. . . 4
β’ (π β -Ο = (πβ0)) |
10 | 7 | simplrd 769 |
. . . . 5
β’ (π β (πβπ) = Ο) |
11 | 10 | eqcomd 2739 |
. . . 4
β’ (π β Ο = (πβπ)) |
12 | 9, 11 | oveq12d 7424 |
. . 3
β’ (π β (-Ο[,]Ο) = ((πβ0)[,](πβπ))) |
13 | 12 | itgeq1d 44660 |
. 2
β’ (π β β«(-Ο[,]Ο)(πΉβπ‘) dπ‘ = β«((πβ0)[,](πβπ))(πΉβπ‘) dπ‘) |
14 | | 0zd 12567 |
. . 3
β’ (π β 0 β
β€) |
15 | | nnuz 12862 |
. . . . 5
β’ β =
(β€β₯β1) |
16 | 2, 15 | eleqtrdi 2844 |
. . . 4
β’ (π β π β
(β€β₯β1)) |
17 | | 1e0p1 12716 |
. . . . . 6
β’ 1 = (0 +
1) |
18 | 17 | a1i 11 |
. . . . 5
β’ (π β 1 = (0 +
1)) |
19 | 18 | fveq2d 6893 |
. . . 4
β’ (π β
(β€β₯β1) = (β€β₯β(0 +
1))) |
20 | 16, 19 | eleqtrd 2836 |
. . 3
β’ (π β π β (β€β₯β(0 +
1))) |
21 | 3, 2, 1 | fourierdlem15 44825 |
. . . 4
β’ (π β π:(0...π)βΆ(-Ο[,]Ο)) |
22 | | pire 25960 |
. . . . . . 7
β’ Ο
β β |
23 | 22 | renegcli 11518 |
. . . . . 6
β’ -Ο
β β |
24 | | iccssre 13403 |
. . . . . 6
β’ ((-Ο
β β β§ Ο β β) β (-Ο[,]Ο) β
β) |
25 | 23, 22, 24 | mp2an 691 |
. . . . 5
β’
(-Ο[,]Ο) β β |
26 | 25 | a1i 11 |
. . . 4
β’ (π β (-Ο[,]Ο) β
β) |
27 | 21, 26 | fssd 6733 |
. . 3
β’ (π β π:(0...π)βΆβ) |
28 | 7 | simprd 497 |
. . . 4
β’ (π β βπ β (0..^π)(πβπ) < (πβ(π + 1))) |
29 | 28 | r19.21bi 3249 |
. . 3
β’ ((π β§ π β (0..^π)) β (πβπ) < (πβ(π + 1))) |
30 | | fourierdlem93.6 |
. . . . 5
β’ (π β πΉ:(-Ο[,]Ο)βΆβ) |
31 | 30 | adantr 482 |
. . . 4
β’ ((π β§ π‘ β ((πβ0)[,](πβπ))) β πΉ:(-Ο[,]Ο)βΆβ) |
32 | | simpr 486 |
. . . . 5
β’ ((π β§ π‘ β ((πβ0)[,](πβπ))) β π‘ β ((πβ0)[,](πβπ))) |
33 | 12 | eqcomd 2739 |
. . . . . 6
β’ (π β ((πβ0)[,](πβπ)) = (-Ο[,]Ο)) |
34 | 33 | adantr 482 |
. . . . 5
β’ ((π β§ π‘ β ((πβ0)[,](πβπ))) β ((πβ0)[,](πβπ)) = (-Ο[,]Ο)) |
35 | 32, 34 | eleqtrd 2836 |
. . . 4
β’ ((π β§ π‘ β ((πβ0)[,](πβπ))) β π‘ β (-Ο[,]Ο)) |
36 | 31, 35 | ffvelcdmd 7085 |
. . 3
β’ ((π β§ π‘ β ((πβ0)[,](πβπ))) β (πΉβπ‘) β β) |
37 | 27 | adantr 482 |
. . . . 5
β’ ((π β§ π β (0..^π)) β π:(0...π)βΆβ) |
38 | | elfzofz 13645 |
. . . . . 6
β’ (π β (0..^π) β π β (0...π)) |
39 | 38 | adantl 483 |
. . . . 5
β’ ((π β§ π β (0..^π)) β π β (0...π)) |
40 | 37, 39 | ffvelcdmd 7085 |
. . . 4
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
41 | | fzofzp1 13726 |
. . . . . 6
β’ (π β (0..^π) β (π + 1) β (0...π)) |
42 | 41 | adantl 483 |
. . . . 5
β’ ((π β§ π β (0..^π)) β (π + 1) β (0...π)) |
43 | 37, 42 | ffvelcdmd 7085 |
. . . 4
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
44 | 30 | feqmptd 6958 |
. . . . . . . . . 10
β’ (π β πΉ = (π‘ β (-Ο[,]Ο) β¦ (πΉβπ‘))) |
45 | 44 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β πΉ = (π‘ β (-Ο[,]Ο) β¦ (πΉβπ‘))) |
46 | 45 | reseq1d 5979 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = ((π‘ β (-Ο[,]Ο) β¦ (πΉβπ‘)) βΎ ((πβπ)(,)(πβ(π + 1))))) |
47 | | ioossicc 13407 |
. . . . . . . . . . 11
β’ ((πβπ)(,)(πβ(π + 1))) β ((πβπ)[,](πβ(π + 1))) |
48 | 47 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β ((πβπ)[,](πβ(π + 1)))) |
49 | 23 | rexri 11269 |
. . . . . . . . . . . . . 14
β’ -Ο
β β* |
50 | 49 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β -Ο β
β*) |
51 | 22 | rexri 11269 |
. . . . . . . . . . . . . 14
β’ Ο
β β* |
52 | 51 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β Ο β
β*) |
53 | 21 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β π:(0...π)βΆ(-Ο[,]Ο)) |
54 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β π β (0..^π)) |
55 | | simpr 486 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β π‘ β ((πβπ)[,](πβ(π + 1)))) |
56 | 50, 52, 53, 54, 55 | fourierdlem1 44811 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β π‘ β (-Ο[,]Ο)) |
57 | 56 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β βπ‘ β ((πβπ)[,](πβ(π + 1)))π‘ β (-Ο[,]Ο)) |
58 | | dfss3 3970 |
. . . . . . . . . . 11
β’ (((πβπ)[,](πβ(π + 1))) β (-Ο[,]Ο) β
βπ‘ β ((πβπ)[,](πβ(π + 1)))π‘ β (-Ο[,]Ο)) |
59 | 57, 58 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πβπ)[,](πβ(π + 1))) β
(-Ο[,]Ο)) |
60 | 48, 59 | sstrd 3992 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β
(-Ο[,]Ο)) |
61 | 60 | resmptd 6039 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((π‘ β (-Ο[,]Ο) β¦ (πΉβπ‘)) βΎ ((πβπ)(,)(πβ(π + 1)))) = (π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘))) |
62 | 46, 61 | eqtrd 2773 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = (π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘))) |
63 | 62 | eqcomd 2739 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) = (πΉ βΎ ((πβπ)(,)(πβ(π + 1))))) |
64 | | fourierdlem93.7 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
65 | 63, 64 | eqeltrd 2834 |
. . . . 5
β’ ((π β§ π β (0..^π)) β (π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
66 | | fourierdlem93.9 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
67 | 62 | oveq1d 7421 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) limβ (πβ(π + 1)))) |
68 | 66, 67 | eleqtrd 2836 |
. . . . 5
β’ ((π β§ π β (0..^π)) β πΏ β ((π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) limβ (πβ(π + 1)))) |
69 | | fourierdlem93.8 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
70 | 62 | oveq1d 7421 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ)) = ((π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) limβ (πβπ))) |
71 | 69, 70 | eleqtrd 2836 |
. . . . 5
β’ ((π β§ π β (0..^π)) β π
β ((π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) limβ (πβπ))) |
72 | 40, 43, 65, 68, 71 | iblcncfioo 44681 |
. . . 4
β’ ((π β§ π β (0..^π)) β (π‘ β ((πβπ)(,)(πβ(π + 1))) β¦ (πΉβπ‘)) β
πΏ1) |
73 | 30 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β πΉ:(-Ο[,]Ο)βΆβ) |
74 | 73, 56 | ffvelcdmd 7085 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β (πΉβπ‘) β β) |
75 | 40, 43, 72, 74 | ibliooicc 44674 |
. . 3
β’ ((π β§ π β (0..^π)) β (π‘ β ((πβπ)[,](πβ(π + 1))) β¦ (πΉβπ‘)) β
πΏ1) |
76 | 14, 20, 27, 29, 36, 75 | itgspltprt 44682 |
. 2
β’ (π β β«((πβ0)[,](πβπ))(πΉβπ‘) dπ‘ = Ξ£π β (0..^π)β«((πβπ)[,](πβ(π + 1)))(πΉβπ‘) dπ‘) |
77 | | fvres 6908 |
. . . . . . . 8
β’ (π‘ β ((πβπ)[,](πβ(π + 1))) β ((πΉ βΎ ((πβπ)[,](πβ(π + 1))))βπ‘) = (πΉβπ‘)) |
78 | 77 | eqcomd 2739 |
. . . . . . 7
β’ (π‘ β ((πβπ)[,](πβ(π + 1))) β (πΉβπ‘) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1))))βπ‘)) |
79 | 78 | adantl 483 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π‘ β ((πβπ)[,](πβ(π + 1)))) β (πΉβπ‘) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1))))βπ‘)) |
80 | 79 | itgeq2dv 25291 |
. . . . 5
β’ ((π β§ π β (0..^π)) β β«((πβπ)[,](πβ(π + 1)))(πΉβπ‘) dπ‘ = β«((πβπ)[,](πβ(π + 1)))((πΉ βΎ ((πβπ)[,](πβ(π + 1))))βπ‘) dπ‘) |
81 | | eqid 2733 |
. . . . . 6
β’ (π₯ β ((πβπ)[,](πβ(π + 1))) β¦ if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1))))βπ₯)))) = (π₯ β ((πβπ)[,](πβ(π + 1))) β¦ if(π₯ = (πβπ), π
, if(π₯ = (πβ(π + 1)), πΏ, (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1))))βπ₯)))) |
82 | 30 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β πΉ:(-Ο[,]Ο)βΆβ) |
83 | 82, 59 | fssresd 6756 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)[,](πβ(π + 1)))):((πβπ)[,](πβ(π + 1)))βΆβ) |
84 | 48 | resabs1d 6011 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) = (πΉ βΎ ((πβπ)(,)(πβ(π + 1))))) |
85 | 84, 64 | eqeltrd 2834 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) β (((πβπ)(,)(πβ(π + 1)))βcnββ)) |
86 | 84 | oveq1d 7421 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1)))) |
87 | 40, 43, 29, 83 | limcicciooub 44340 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβ(π + 1)))) |
88 | 86, 87 | eqtr3d 2775 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβ(π + 1))) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβ(π + 1)))) |
89 | 66, 88 | eleqtrd 2836 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β πΏ β ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβ(π + 1)))) |
90 | 84 | eqcomd 2739 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1))))) |
91 | 90 | oveq1d 7421 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ)) = (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ))) |
92 | 40, 43, 29, 83 | limciccioolb 44324 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ)) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβπ))) |
93 | 91, 92 | eqtrd 2773 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) limβ (πβπ)) = ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβπ))) |
94 | 69, 93 | eleqtrd 2836 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π
β ((πΉ βΎ ((πβπ)[,](πβ(π + 1)))) limβ (πβπ))) |
95 | | fourierdlem93.5 |
. . . . . . 7
β’ (π β π β β) |
96 | 95 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β π β β) |
97 | 81, 40, 43, 29, 83, 85, 89, 94, 96 | fourierdlem82 44891 |
. . . . 5
β’ ((π β§ π β (0..^π)) β β«((πβπ)[,](πβ(π + 1)))((πΉ βΎ ((πβπ)[,](πβ(π + 1))))βπ‘) dπ‘ = β«(((πβπ) β π)[,]((πβ(π + 1)) β π))((πΉ βΎ ((πβπ)[,](πβ(π + 1))))β(π + π‘)) dπ‘) |
98 | 40 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (πβπ) β β) |
99 | 43 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (πβ(π + 1)) β β) |
100 | 95 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β π β β) |
101 | 98, 100 | resubcld 11639 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β ((πβπ) β π) β β) |
102 | 99, 100 | resubcld 11639 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β ((πβ(π + 1)) β π) β β) |
103 | | simpr 486 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) |
104 | | eliccre 44205 |
. . . . . . . . . 10
β’ ((((πβπ) β π) β β β§ ((πβ(π + 1)) β π) β β β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β π‘ β β) |
105 | 101, 102,
103, 104 | syl3anc 1372 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β π‘ β β) |
106 | 100, 105 | readdcld 11240 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (π + π‘) β β) |
107 | | elicc2 13386 |
. . . . . . . . . . . 12
β’ ((((πβπ) β π) β β β§ ((πβ(π + 1)) β π) β β) β (π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π)) β (π‘ β β β§ ((πβπ) β π) β€ π‘ β§ π‘ β€ ((πβ(π + 1)) β π)))) |
108 | 101, 102,
107 | syl2anc 585 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π)) β (π‘ β β β§ ((πβπ) β π) β€ π‘ β§ π‘ β€ ((πβ(π + 1)) β π)))) |
109 | 103, 108 | mpbid 231 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (π‘ β β β§ ((πβπ) β π) β€ π‘ β§ π‘ β€ ((πβ(π + 1)) β π))) |
110 | 109 | simp2d 1144 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β ((πβπ) β π) β€ π‘) |
111 | 98, 100, 105 | lesubadd2d 11810 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (((πβπ) β π) β€ π‘ β (πβπ) β€ (π + π‘))) |
112 | 110, 111 | mpbid 231 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (πβπ) β€ (π + π‘)) |
113 | 109 | simp3d 1145 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β π‘ β€ ((πβ(π + 1)) β π)) |
114 | 100, 105,
99 | leaddsub2d 11813 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β ((π + π‘) β€ (πβ(π + 1)) β π‘ β€ ((πβ(π + 1)) β π))) |
115 | 113, 114 | mpbird 257 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (π + π‘) β€ (πβ(π + 1))) |
116 | 98, 99, 106, 112, 115 | eliccd 44204 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β (π + π‘) β ((πβπ)[,](πβ(π + 1)))) |
117 | | fvres 6908 |
. . . . . . 7
β’ ((π + π‘) β ((πβπ)[,](πβ(π + 1))) β ((πΉ βΎ ((πβπ)[,](πβ(π + 1))))β(π + π‘)) = (πΉβ(π + π‘))) |
118 | 116, 117 | syl 17 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) β ((πΉ βΎ ((πβπ)[,](πβ(π + 1))))β(π + π‘)) = (πΉβ(π + π‘))) |
119 | 118 | itgeq2dv 25291 |
. . . . 5
β’ ((π β§ π β (0..^π)) β β«(((πβπ) β π)[,]((πβ(π + 1)) β π))((πΉ βΎ ((πβπ)[,](πβ(π + 1))))β(π + π‘)) dπ‘ = β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
120 | 80, 97, 119 | 3eqtrd 2777 |
. . . 4
β’ ((π β§ π β (0..^π)) β β«((πβπ)[,](πβ(π + 1)))(πΉβπ‘) dπ‘ = β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
121 | 120 | sumeq2dv 15646 |
. . 3
β’ (π β Ξ£π β (0..^π)β«((πβπ)[,](πβ(π + 1)))(πΉβπ‘) dπ‘ = Ξ£π β (0..^π)β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
122 | | oveq2 7414 |
. . . . . . 7
β’ (π = π‘ β (π + π ) = (π + π‘)) |
123 | 122 | fveq2d 6893 |
. . . . . 6
β’ (π = π‘ β (πΉβ(π + π )) = (πΉβ(π + π‘))) |
124 | 123 | cbvitgv 25286 |
. . . . 5
β’
β«((-Ο β π)[,](Ο β π))(πΉβ(π + π )) dπ = β«((-Ο β π)[,](Ο β π))(πΉβ(π + π‘)) dπ‘ |
125 | 124 | a1i 11 |
. . . 4
β’ (π β β«((-Ο β π)[,](Ο β π))(πΉβ(π + π )) dπ = β«((-Ο β π)[,](Ο β π))(πΉβ(π + π‘)) dπ‘) |
126 | | fourierdlem93.2 |
. . . . . . . . 9
β’ π» = (π β (0...π) β¦ ((πβπ) β π)) |
127 | 126 | a1i 11 |
. . . . . . . 8
β’ (π β π» = (π β (0...π) β¦ ((πβπ) β π))) |
128 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π = 0 β (πβπ) = (πβ0)) |
129 | 128 | oveq1d 7421 |
. . . . . . . . 9
β’ (π = 0 β ((πβπ) β π) = ((πβ0) β π)) |
130 | 129 | adantl 483 |
. . . . . . . 8
β’ ((π β§ π = 0) β ((πβπ) β π) = ((πβ0) β π)) |
131 | 2 | nnzd 12582 |
. . . . . . . . 9
β’ (π β π β β€) |
132 | | 0le0 12310 |
. . . . . . . . . 10
β’ 0 β€
0 |
133 | 132 | a1i 11 |
. . . . . . . . 9
β’ (π β 0 β€ 0) |
134 | | 0red 11214 |
. . . . . . . . . 10
β’ (π β 0 β
β) |
135 | 2 | nnred 12224 |
. . . . . . . . . 10
β’ (π β π β β) |
136 | 2 | nngt0d 12258 |
. . . . . . . . . 10
β’ (π β 0 < π) |
137 | 134, 135,
136 | ltled 11359 |
. . . . . . . . 9
β’ (π β 0 β€ π) |
138 | 14, 131, 14, 133, 137 | elfzd 13489 |
. . . . . . . 8
β’ (π β 0 β (0...π)) |
139 | 8, 23 | eqeltrdi 2842 |
. . . . . . . . 9
β’ (π β (πβ0) β β) |
140 | 139, 95 | resubcld 11639 |
. . . . . . . 8
β’ (π β ((πβ0) β π) β β) |
141 | 127, 130,
138, 140 | fvmptd 7003 |
. . . . . . 7
β’ (π β (π»β0) = ((πβ0) β π)) |
142 | 8 | oveq1d 7421 |
. . . . . . 7
β’ (π β ((πβ0) β π) = (-Ο β π)) |
143 | 141, 142 | eqtr2d 2774 |
. . . . . 6
β’ (π β (-Ο β π) = (π»β0)) |
144 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π = π β (πβπ) = (πβπ)) |
145 | 144 | oveq1d 7421 |
. . . . . . . . 9
β’ (π = π β ((πβπ) β π) = ((πβπ) β π)) |
146 | 145 | adantl 483 |
. . . . . . . 8
β’ ((π β§ π = π) β ((πβπ) β π) = ((πβπ) β π)) |
147 | 135 | leidd 11777 |
. . . . . . . . 9
β’ (π β π β€ π) |
148 | 14, 131, 131, 137, 147 | elfzd 13489 |
. . . . . . . 8
β’ (π β π β (0...π)) |
149 | 10, 22 | eqeltrdi 2842 |
. . . . . . . . 9
β’ (π β (πβπ) β β) |
150 | 149, 95 | resubcld 11639 |
. . . . . . . 8
β’ (π β ((πβπ) β π) β β) |
151 | 127, 146,
148, 150 | fvmptd 7003 |
. . . . . . 7
β’ (π β (π»βπ) = ((πβπ) β π)) |
152 | 10 | oveq1d 7421 |
. . . . . . 7
β’ (π β ((πβπ) β π) = (Ο β π)) |
153 | 151, 152 | eqtr2d 2774 |
. . . . . 6
β’ (π β (Ο β π) = (π»βπ)) |
154 | 143, 153 | oveq12d 7424 |
. . . . 5
β’ (π β ((-Ο β π)[,](Ο β π)) = ((π»β0)[,](π»βπ))) |
155 | 154 | itgeq1d 44660 |
. . . 4
β’ (π β β«((-Ο β π)[,](Ο β π))(πΉβ(π + π‘)) dπ‘ = β«((π»β0)[,](π»βπ))(πΉβ(π + π‘)) dπ‘) |
156 | 27 | ffvelcdmda 7084 |
. . . . . . . 8
β’ ((π β§ π β (0...π)) β (πβπ) β β) |
157 | 95 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β (0...π)) β π β β) |
158 | 156, 157 | resubcld 11639 |
. . . . . . 7
β’ ((π β§ π β (0...π)) β ((πβπ) β π) β β) |
159 | 158, 126 | fmptd 7111 |
. . . . . 6
β’ (π β π»:(0...π)βΆβ) |
160 | 40, 43, 96, 29 | ltsub1dd 11823 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β ((πβπ) β π) < ((πβ(π + 1)) β π)) |
161 | 39, 158 | syldan 592 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβπ) β π) β β) |
162 | 126 | fvmpt2 7007 |
. . . . . . . 8
β’ ((π β (0...π) β§ ((πβπ) β π) β β) β (π»βπ) = ((πβπ) β π)) |
163 | 39, 161, 162 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π»βπ) = ((πβπ) β π)) |
164 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π = π β (πβπ) = (πβπ)) |
165 | 164 | oveq1d 7421 |
. . . . . . . . . . 11
β’ (π = π β ((πβπ) β π) = ((πβπ) β π)) |
166 | 165 | cbvmptv 5261 |
. . . . . . . . . 10
β’ (π β (0...π) β¦ ((πβπ) β π)) = (π β (0...π) β¦ ((πβπ) β π)) |
167 | 126, 166 | eqtri 2761 |
. . . . . . . . 9
β’ π» = (π β (0...π) β¦ ((πβπ) β π)) |
168 | 167 | a1i 11 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β π» = (π β (0...π) β¦ ((πβπ) β π))) |
169 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π = (π + 1) β (πβπ) = (πβ(π + 1))) |
170 | 169 | oveq1d 7421 |
. . . . . . . . 9
β’ (π = (π + 1) β ((πβπ) β π) = ((πβ(π + 1)) β π)) |
171 | 170 | adantl 483 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π = (π + 1)) β ((πβπ) β π) = ((πβ(π + 1)) β π)) |
172 | 43, 96 | resubcld 11639 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) β π) β β) |
173 | 168, 171,
42, 172 | fvmptd 7003 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π»β(π + 1)) = ((πβ(π + 1)) β π)) |
174 | 160, 163,
173 | 3brtr4d 5180 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (π»βπ) < (π»β(π + 1))) |
175 | | frn 6722 |
. . . . . . . . 9
β’ (πΉ:(-Ο[,]Ο)βΆβ
β ran πΉ β
β) |
176 | 30, 175 | syl 17 |
. . . . . . . 8
β’ (π β ran πΉ β β) |
177 | 176 | adantr 482 |
. . . . . . 7
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β ran πΉ β β) |
178 | | ffun 6718 |
. . . . . . . . . 10
β’ (πΉ:(-Ο[,]Ο)βΆβ
β Fun πΉ) |
179 | 30, 178 | syl 17 |
. . . . . . . . 9
β’ (π β Fun πΉ) |
180 | 179 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β Fun πΉ) |
181 | 23 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β -Ο β
β) |
182 | 22 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β Ο β
β) |
183 | 95 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β π β β) |
184 | 141, 140 | eqeltrd 2834 |
. . . . . . . . . . . . 13
β’ (π β (π»β0) β β) |
185 | 184 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π»β0) β β) |
186 | 151, 150 | eqeltrd 2834 |
. . . . . . . . . . . . 13
β’ (π β (π»βπ) β β) |
187 | 186 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π»βπ) β β) |
188 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β π‘ β ((π»β0)[,](π»βπ))) |
189 | | eliccre 44205 |
. . . . . . . . . . . 12
β’ (((π»β0) β β β§
(π»βπ) β β β§ π‘ β ((π»β0)[,](π»βπ))) β π‘ β β) |
190 | 185, 187,
188, 189 | syl3anc 1372 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β π‘ β β) |
191 | 183, 190 | readdcld 11240 |
. . . . . . . . . 10
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + π‘) β β) |
192 | 128 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π = 0) β (πβπ) = (πβ0)) |
193 | 192 | oveq1d 7421 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π = 0) β ((πβπ) β π) = ((πβ0) β π)) |
194 | 127, 193,
138, 140 | fvmptd 7003 |
. . . . . . . . . . . . . 14
β’ (π β (π»β0) = ((πβ0) β π)) |
195 | 194 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’ (π β (π + (π»β0)) = (π + ((πβ0) β π))) |
196 | 95 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
197 | 139 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β (πβ0) β β) |
198 | 196, 197 | pncan3d 11571 |
. . . . . . . . . . . . 13
β’ (π β (π + ((πβ0) β π)) = (πβ0)) |
199 | 195, 198,
8 | 3eqtrrd 2778 |
. . . . . . . . . . . 12
β’ (π β -Ο = (π + (π»β0))) |
200 | 199 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β -Ο = (π + (π»β0))) |
201 | | elicc2 13386 |
. . . . . . . . . . . . . . 15
β’ (((π»β0) β β β§
(π»βπ) β β) β (π‘ β ((π»β0)[,](π»βπ)) β (π‘ β β β§ (π»β0) β€ π‘ β§ π‘ β€ (π»βπ)))) |
202 | 185, 187,
201 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π‘ β ((π»β0)[,](π»βπ)) β (π‘ β β β§ (π»β0) β€ π‘ β§ π‘ β€ (π»βπ)))) |
203 | 188, 202 | mpbid 231 |
. . . . . . . . . . . . 13
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π‘ β β β§ (π»β0) β€ π‘ β§ π‘ β€ (π»βπ))) |
204 | 203 | simp2d 1144 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π»β0) β€ π‘) |
205 | 185, 190,
183, 204 | leadd2dd 11826 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + (π»β0)) β€ (π + π‘)) |
206 | 200, 205 | eqbrtrd 5170 |
. . . . . . . . . 10
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β -Ο β€ (π + π‘)) |
207 | 203 | simp3d 1145 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β π‘ β€ (π»βπ)) |
208 | 190, 187,
183, 207 | leadd2dd 11826 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + π‘) β€ (π + (π»βπ))) |
209 | 151 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’ (π β (π + (π»βπ)) = (π + ((πβπ) β π))) |
210 | 149 | recnd 11239 |
. . . . . . . . . . . . . 14
β’ (π β (πβπ) β β) |
211 | 196, 210 | pncan3d 11571 |
. . . . . . . . . . . . 13
β’ (π β (π + ((πβπ) β π)) = (πβπ)) |
212 | 209, 211,
10 | 3eqtrrd 2778 |
. . . . . . . . . . . 12
β’ (π β Ο = (π + (π»βπ))) |
213 | 212 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β Ο = (π + (π»βπ))) |
214 | 208, 213 | breqtrrd 5176 |
. . . . . . . . . 10
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + π‘) β€ Ο) |
215 | 181, 182,
191, 206, 214 | eliccd 44204 |
. . . . . . . . 9
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + π‘) β (-Ο[,]Ο)) |
216 | | fdm 6724 |
. . . . . . . . . . . 12
β’ (πΉ:(-Ο[,]Ο)βΆβ
β dom πΉ =
(-Ο[,]Ο)) |
217 | 30, 216 | syl 17 |
. . . . . . . . . . 11
β’ (π β dom πΉ = (-Ο[,]Ο)) |
218 | 217 | eqcomd 2739 |
. . . . . . . . . 10
β’ (π β (-Ο[,]Ο) = dom πΉ) |
219 | 218 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (-Ο[,]Ο) = dom πΉ) |
220 | 215, 219 | eleqtrd 2836 |
. . . . . . . 8
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (π + π‘) β dom πΉ) |
221 | | fvelrn 7076 |
. . . . . . . 8
β’ ((Fun
πΉ β§ (π + π‘) β dom πΉ) β (πΉβ(π + π‘)) β ran πΉ) |
222 | 180, 220,
221 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (πΉβ(π + π‘)) β ran πΉ) |
223 | 177, 222 | sseldd 3983 |
. . . . . 6
β’ ((π β§ π‘ β ((π»β0)[,](π»βπ))) β (πΉβ(π + π‘)) β β) |
224 | 163, 161 | eqeltrd 2834 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π»βπ) β β) |
225 | 173, 172 | eqeltrd 2834 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π»β(π + 1)) β β) |
226 | 82, 60 | fssresd 6756 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ) |
227 | 40 | rexrd 11261 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (πβπ) β
β*) |
228 | 227 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (πβπ) β
β*) |
229 | 43 | rexrd 11261 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β
β*) |
230 | 229 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (πβ(π + 1)) β
β*) |
231 | 95 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β π β β) |
232 | | elioore 13351 |
. . . . . . . . . . . . . . 15
β’ (π‘ β ((π»βπ)(,)(π»β(π + 1))) β π‘ β β) |
233 | 232 | adantl 483 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β π‘ β β) |
234 | 231, 233 | readdcld 11240 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + π‘) β β) |
235 | 163 | oveq2d 7422 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π + (π»βπ)) = (π + ((πβπ) β π))) |
236 | 196 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β π β β) |
237 | 40 | recnd 11239 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (πβπ) β β) |
238 | 236, 237 | pncan3d 11571 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π + ((πβπ) β π)) = (πβπ)) |
239 | | eqidd 2734 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβπ) = (πβπ)) |
240 | 235, 238,
239 | 3eqtrrd 2778 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (πβπ) = (π + (π»βπ))) |
241 | 240 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (πβπ) = (π + (π»βπ))) |
242 | 224 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π»βπ) β β) |
243 | | simpr 486 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β π‘ β ((π»βπ)(,)(π»β(π + 1)))) |
244 | 242 | rexrd 11261 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π»βπ) β
β*) |
245 | 225 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (π»β(π + 1)) β
β*) |
246 | 245 | adantr 482 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π»β(π + 1)) β
β*) |
247 | | elioo2 13362 |
. . . . . . . . . . . . . . . . . 18
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β*) β
(π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π‘ β β β§ (π»βπ) < π‘ β§ π‘ < (π»β(π + 1))))) |
248 | 244, 246,
247 | syl2anc 585 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π‘ β β β§ (π»βπ) < π‘ β§ π‘ < (π»β(π + 1))))) |
249 | 243, 248 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π‘ β β β§ (π»βπ) < π‘ β§ π‘ < (π»β(π + 1)))) |
250 | 249 | simp2d 1144 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π»βπ) < π‘) |
251 | 242, 233,
231, 250 | ltadd2dd 11370 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + (π»βπ)) < (π + π‘)) |
252 | 241, 251 | eqbrtrd 5170 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (πβπ) < (π + π‘)) |
253 | 225 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π»β(π + 1)) β β) |
254 | 249 | simp3d 1145 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β π‘ < (π»β(π + 1))) |
255 | 233, 253,
231, 254 | ltadd2dd 11370 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + π‘) < (π + (π»β(π + 1)))) |
256 | 173 | oveq2d 7422 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π + (π»β(π + 1))) = (π + ((πβ(π + 1)) β π))) |
257 | 43 | recnd 11239 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β β) |
258 | 236, 257 | pncan3d 11571 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π + ((πβ(π + 1)) β π)) = (πβ(π + 1))) |
259 | 256, 258 | eqtrd 2773 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π + (π»β(π + 1))) = (πβ(π + 1))) |
260 | 259 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + (π»β(π + 1))) = (πβ(π + 1))) |
261 | 255, 260 | breqtrd 5174 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + π‘) < (πβ(π + 1))) |
262 | 228, 230,
234, 252, 261 | eliood 44198 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π + π‘) β ((πβπ)(,)(πβ(π + 1)))) |
263 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) |
264 | 262, 263 | fmptd 7111 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)):((π»βπ)(,)(π»β(π + 1)))βΆ((πβπ)(,)(πβ(π + 1)))) |
265 | | fcompt 7128 |
. . . . . . . . . . 11
β’ (((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))):((πβπ)(,)(πβ(π + 1)))βΆβ β§ (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)):((π»βπ)(,)(π»β(π + 1)))βΆ((πβπ)(,)(πβ(π + 1)))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )))) |
266 | 226, 264,
265 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )))) |
267 | | oveq2 7414 |
. . . . . . . . . . . . . . . 16
β’ (π‘ = π β (π + π‘) = (π + π)) |
268 | 267 | cbvmptv 5261 |
. . . . . . . . . . . . . . 15
β’ (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π)) |
269 | 268 | fveq1i 6890 |
. . . . . . . . . . . . . 14
β’ ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ) = ((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ ) |
270 | 269 | fveq2i 6892 |
. . . . . . . . . . . . 13
β’ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ )) |
271 | 270 | mpteq2i 5253 |
. . . . . . . . . . . 12
β’ (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ ))) |
272 | 271 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ )))) |
273 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π = π‘ β ((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ ) = ((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘)) |
274 | 273 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ (π = π‘ β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ )) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘))) |
275 | 274 | cbvmptv 5261 |
. . . . . . . . . . . 12
β’ (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ ))) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘))) |
276 | 275 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ ))) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘)))) |
277 | | eqidd 2734 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β (π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π)) = (π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))) |
278 | | oveq2 7414 |
. . . . . . . . . . . . . . . 16
β’ (π = π‘ β (π + π) = (π + π‘)) |
279 | 278 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β§ π = π‘) β (π + π) = (π + π‘)) |
280 | 277, 279,
243, 234 | fvmptd 7003 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β ((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘) = (π + π‘)) |
281 | 280 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘)) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π + π‘))) |
282 | | fvres 6908 |
. . . . . . . . . . . . . 14
β’ ((π + π‘) β ((πβπ)(,)(πβ(π + 1))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π + π‘)) = (πΉβ(π + π‘))) |
283 | 262, 282 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β(π + π‘)) = (πΉβ(π + π‘))) |
284 | 281, 283 | eqtrd 2773 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1)))) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘)) = (πΉβ(π + π‘))) |
285 | 284 | mpteq2dva 5248 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π))βπ‘))) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘)))) |
286 | 272, 276,
285 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,)(π»β(π + 1))) β¦ ((πΉ βΎ ((πβπ)(,)(πβ(π + 1))))β((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘)))) |
287 | 266, 286 | eqtr2d 2774 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) = ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)))) |
288 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π‘ β β β¦ (π + π‘)) = (π‘ β β β¦ (π + π‘)) |
289 | | ssid 4004 |
. . . . . . . . . . . . . . 15
β’ β
β β |
290 | 289 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β β β β
β β) |
291 | | id 22 |
. . . . . . . . . . . . . 14
β’ (π β β β π β
β) |
292 | 290, 291,
290 | constcncfg 44575 |
. . . . . . . . . . . . 13
β’ (π β β β (π‘ β β β¦ π) β (ββcnββ)) |
293 | | cncfmptid 24421 |
. . . . . . . . . . . . . . 15
β’ ((β
β β β§ β β β) β (π‘ β β β¦ π‘) β (ββcnββ)) |
294 | 289, 289,
293 | mp2an 691 |
. . . . . . . . . . . . . 14
β’ (π‘ β β β¦ π‘) β (ββcnββ) |
295 | 294 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β β β (π‘ β β β¦ π‘) β (ββcnββ)) |
296 | 292, 295 | addcncf 24953 |
. . . . . . . . . . . 12
β’ (π β β β (π‘ β β β¦ (π + π‘)) β (ββcnββ)) |
297 | 236, 296 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π‘ β β β¦ (π + π‘)) β (ββcnββ)) |
298 | | ioosscn 13383 |
. . . . . . . . . . . 12
β’ ((π»βπ)(,)(π»β(π + 1))) β β |
299 | 298 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((π»βπ)(,)(π»β(π + 1))) β β) |
300 | | ioosscn 13383 |
. . . . . . . . . . . 12
β’ ((πβπ)(,)(πβ(π + 1))) β β |
301 | 300 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) β β) |
302 | 288, 297,
299, 301, 262 | cncfmptssg 44574 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β (((π»βπ)(,)(π»β(π + 1)))βcnβ((πβπ)(,)(πβ(π + 1))))) |
303 | 302, 64 | cncfco 24415 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (((π»βπ)(,)(π»β(π + 1)))βcnββ)) |
304 | 287, 303 | eqeltrd 2834 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) β (((π»βπ)(,)(π»β(π + 1)))βcnββ)) |
305 | 227 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (πβπ) β
β*) |
306 | 229 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (πβ(π + 1)) β
β*) |
307 | | simpr 486 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) |
308 | | vex 3479 |
. . . . . . . . . . . . . . . . . 18
β’ π β V |
309 | 263 | elrnmpt 5954 |
. . . . . . . . . . . . . . . . . 18
β’ (π β V β (π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘))) |
310 | 308, 309 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
β’ (π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘)) |
311 | 307, 310 | sylib 217 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘)) |
312 | | nfv 1918 |
. . . . . . . . . . . . . . . . . 18
β’
β²π‘(π β§ π β (0..^π)) |
313 | | nfmpt1 5256 |
. . . . . . . . . . . . . . . . . . . 20
β’
β²π‘(π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) |
314 | 313 | nfrn 5950 |
. . . . . . . . . . . . . . . . . . 19
β’
β²π‘ran
(π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) |
315 | 314 | nfcri 2891 |
. . . . . . . . . . . . . . . . . 18
β’
β²π‘ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) |
316 | 312, 315 | nfan 1903 |
. . . . . . . . . . . . . . . . 17
β’
β²π‘((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) |
317 | | nfv 1918 |
. . . . . . . . . . . . . . . . 17
β’
β²π‘ π β β |
318 | | simp3 1139 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π = (π + π‘)) |
319 | 95 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π β β) |
320 | 232 | 3ad2ant2 1135 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π‘ β β) |
321 | 319, 320 | readdcld 11240 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β (π + π‘) β β) |
322 | 318, 321 | eqeltrd 2834 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π β β) |
323 | 322 | 3exp 1120 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β π β β))) |
324 | 323 | ad2antrr 725 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β π β β))) |
325 | 316, 317,
324 | rexlimd 3264 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘) β π β β)) |
326 | 311, 325 | mpd 15 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β β) |
327 | | nfv 1918 |
. . . . . . . . . . . . . . . . 17
β’
β²π‘(πβπ) < π |
328 | 252 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β (πβπ) < (π + π‘)) |
329 | | simp3 1139 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π = (π + π‘)) |
330 | 328, 329 | breqtrrd 5176 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β (πβπ) < π) |
331 | 330 | 3exp 1120 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β (πβπ) < π))) |
332 | 331 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β (πβπ) < π))) |
333 | 316, 327,
332 | rexlimd 3264 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘) β (πβπ) < π)) |
334 | 311, 333 | mpd 15 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (πβπ) < π) |
335 | | nfv 1918 |
. . . . . . . . . . . . . . . . 17
β’
β²π‘ π < (πβ(π + 1)) |
336 | 261 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β (π + π‘) < (πβ(π + 1))) |
337 | 329, 336 | eqbrtrd 5170 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)(,)(π»β(π + 1))) β§ π = (π + π‘)) β π < (πβ(π + 1))) |
338 | 337 | 3exp 1120 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β π < (πβ(π + 1))))) |
339 | 338 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β (π = (π + π‘) β π < (πβ(π + 1))))) |
340 | 316, 335,
339 | rexlimd 3264 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (βπ‘ β ((π»βπ)(,)(π»β(π + 1)))π = (π + π‘) β π < (πβ(π + 1)))) |
341 | 311, 340 | mpd 15 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π < (πβ(π + 1))) |
342 | 305, 306,
326, 334, 341 | eliood 44198 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β ((πβπ)(,)(πβ(π + 1)))) |
343 | 217 | ineq2d 4212 |
. . . . . . . . . . . . . . . . 17
β’ (π β (((πβπ)(,)(πβ(π + 1))) β© dom πΉ) = (((πβπ)(,)(πβ(π + 1))) β©
(-Ο[,]Ο))) |
344 | 343 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (((πβπ)(,)(πβ(π + 1))) β© dom πΉ) = (((πβπ)(,)(πβ(π + 1))) β©
(-Ο[,]Ο))) |
345 | | dmres 6002 |
. . . . . . . . . . . . . . . . 17
β’ dom
(πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = (((πβπ)(,)(πβ(π + 1))) β© dom πΉ) |
346 | 345 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = (((πβπ)(,)(πβ(π + 1))) β© dom πΉ)) |
347 | | dfss 3966 |
. . . . . . . . . . . . . . . . 17
β’ (((πβπ)(,)(πβ(π + 1))) β (-Ο[,]Ο) β ((πβπ)(,)(πβ(π + 1))) = (((πβπ)(,)(πβ(π + 1))) β©
(-Ο[,]Ο))) |
348 | 60, 347 | sylib 217 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β ((πβπ)(,)(πβ(π + 1))) = (((πβπ)(,)(πβ(π + 1))) β©
(-Ο[,]Ο))) |
349 | 344, 346,
348 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = ((πβπ)(,)(πβ(π + 1)))) |
350 | 349 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) = ((πβπ)(,)(πβ(π + 1)))) |
351 | 342, 350 | eleqtrrd 2837 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1))))) |
352 | 326, 341 | ltned 11347 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β (πβ(π + 1))) |
353 | 352 | neneqd 2946 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β Β¬ π = (πβ(π + 1))) |
354 | | velsn 4644 |
. . . . . . . . . . . . . 14
β’ (π β {(πβ(π + 1))} β π = (πβ(π + 1))) |
355 | 353, 354 | sylnibr 329 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β Β¬ π β {(πβ(π + 1))}) |
356 | 351, 355 | eldifd 3959 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβ(π + 1))})) |
357 | 356 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β βπ β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβ(π + 1))})) |
358 | | dfss3 3970 |
. . . . . . . . . . 11
β’ (ran
(π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβ(π + 1))}) β βπ β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβ(π + 1))})) |
359 | 357, 358 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβ(π + 1))})) |
360 | | eqid 2733 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β¦ (π + π )) = (π β β β¦ (π + π )) |
361 | 196 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β β) β π β β) |
362 | | simpr 486 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β β) β π β β) |
363 | 361, 362 | addcomd 11413 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β β) β (π + π ) = (π + π)) |
364 | 363 | mpteq2dva 5248 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π β β β¦ (π + π )) = (π β β β¦ (π + π))) |
365 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β β¦ (π + π)) = (π β β β¦ (π + π)) |
366 | 365 | addccncf 24425 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β (π β β β¦ (π + π)) β (ββcnββ)) |
367 | 196, 366 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π β β β¦ (π + π)) β (ββcnββ)) |
368 | 364, 367 | eqeltrd 2834 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π β β β¦ (π + π )) β (ββcnββ)) |
369 | 368 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β (π β β β¦ (π + π )) β (ββcnββ)) |
370 | 224 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (0..^π)) β (π»βπ) β
β*) |
371 | | iocssre 13401 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β) β ((π»βπ)(,](π»β(π + 1))) β β) |
372 | 370, 225,
371 | syl2anc 585 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β ((π»βπ)(,](π»β(π + 1))) β β) |
373 | | ax-resscn 11164 |
. . . . . . . . . . . . . . . . . 18
β’ β
β β |
374 | 372, 373 | sstrdi 3994 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β ((π»βπ)(,](π»β(π + 1))) β β) |
375 | 289 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β β β
β) |
376 | 196 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)(,](π»β(π + 1)))) β π β β) |
377 | 374 | sselda 3982 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)(,](π»β(π + 1)))) β π β β) |
378 | 376, 377 | addcld 11230 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)(,](π»β(π + 1)))) β (π + π ) β β) |
379 | 360, 369,
374, 375, 378 | cncfmptssg 44574 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β (((π»βπ)(,](π»β(π + 1)))βcnββ)) |
380 | | eqid 2733 |
. . . . . . . . . . . . . . . . . 18
β’
(TopOpenββfld) =
(TopOpenββfld) |
381 | | eqid 2733 |
. . . . . . . . . . . . . . . . . 18
β’
((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) =
((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) |
382 | 380 | cnfldtop 24292 |
. . . . . . . . . . . . . . . . . . . 20
β’
(TopOpenββfld) β Top |
383 | | unicntop 24294 |
. . . . . . . . . . . . . . . . . . . . 21
β’ β =
βͺ
(TopOpenββfld) |
384 | 383 | restid 17376 |
. . . . . . . . . . . . . . . . . . . 20
β’
((TopOpenββfld) β Top β
((TopOpenββfld) βΎt β) =
(TopOpenββfld)) |
385 | 382, 384 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . 19
β’
((TopOpenββfld) βΎt β) =
(TopOpenββfld) |
386 | 385 | eqcomi 2742 |
. . . . . . . . . . . . . . . . . 18
β’
(TopOpenββfld) =
((TopOpenββfld) βΎt
β) |
387 | 380, 381,
386 | cncfcn 24418 |
. . . . . . . . . . . . . . . . 17
β’ ((((π»βπ)(,](π»β(π + 1))) β β β§ β β
β) β (((π»βπ)(,](π»β(π + 1)))βcnββ) =
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) Cn
(TopOpenββfld))) |
388 | 374, 375,
387 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (((π»βπ)(,](π»β(π + 1)))βcnββ) =
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) Cn
(TopOpenββfld))) |
389 | 379, 388 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) Cn
(TopOpenββfld))) |
390 | 380 | cnfldtopon 24291 |
. . . . . . . . . . . . . . . . . 18
β’
(TopOpenββfld) β
(TopOnββ) |
391 | 390 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β
(TopOpenββfld) β
(TopOnββ)) |
392 | | resttopon 22657 |
. . . . . . . . . . . . . . . . 17
β’
(((TopOpenββfld) β (TopOnββ)
β§ ((π»βπ)(,](π»β(π + 1))) β β) β
((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) β (TopOnβ((π»βπ)(,](π»β(π + 1))))) |
393 | 391, 374,
392 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β
((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) β (TopOnβ((π»βπ)(,](π»β(π + 1))))) |
394 | | cncnp 22776 |
. . . . . . . . . . . . . . . 16
β’
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) β (TopOnβ((π»βπ)(,](π»β(π + 1)))) β§
(TopOpenββfld) β (TopOnββ)) β
((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) Cn
(TopOpenββfld)) β ((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )):((π»βπ)(,](π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)(,](π»β(π + 1)))(π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)))) |
395 | 393, 391,
394 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β ((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) Cn
(TopOpenββfld)) β ((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )):((π»βπ)(,](π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)(,](π»β(π + 1)))(π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)))) |
396 | 389, 395 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β ((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )):((π»βπ)(,](π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)(,](π»β(π + 1)))(π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘))) |
397 | 396 | simprd 497 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β βπ‘ β ((π»βπ)(,](π»β(π + 1)))(π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)) |
398 | | ubioc1 13374 |
. . . . . . . . . . . . . 14
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β* β§
(π»βπ) < (π»β(π + 1))) β (π»β(π + 1)) β ((π»βπ)(,](π»β(π + 1)))) |
399 | 370, 245,
174, 398 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (π»β(π + 1)) β ((π»βπ)(,](π»β(π + 1)))) |
400 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π‘ = (π»β(π + 1)) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) = ((((TopOpenββfld)
βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))β(π»β(π + 1)))) |
401 | 400 | eleq2d 2820 |
. . . . . . . . . . . . . 14
β’ (π‘ = (π»β(π + 1)) β ((π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) β (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))β(π»β(π + 1))))) |
402 | 401 | rspccva 3612 |
. . . . . . . . . . . . 13
β’
((βπ‘ β
((π»βπ)(,](π»β(π + 1)))(π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) β§ (π»β(π + 1)) β ((π»βπ)(,](π»β(π + 1)))) β (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))β(π»β(π + 1)))) |
403 | 397, 399,
402 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))β(π»β(π + 1)))) |
404 | | ioounsn 13451 |
. . . . . . . . . . . . . 14
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β* β§
(π»βπ) < (π»β(π + 1))) β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) = ((π»βπ)(,](π»β(π + 1)))) |
405 | 370, 245,
174, 404 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) = ((π»βπ)(,](π»β(π + 1)))) |
406 | 259 | eqcomd 2739 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) = (π + (π»β(π + 1)))) |
407 | 406 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ π = (π»β(π + 1))) β (πβ(π + 1)) = (π + (π»β(π + 1)))) |
408 | | iftrue 4534 |
. . . . . . . . . . . . . . . 16
β’ (π = (π»β(π + 1)) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (πβ(π + 1))) |
409 | 408 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ π = (π»β(π + 1))) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (πβ(π + 1))) |
410 | | oveq2 7414 |
. . . . . . . . . . . . . . . 16
β’ (π = (π»β(π + 1)) β (π + π ) = (π + (π»β(π + 1)))) |
411 | 410 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ π = (π»β(π + 1))) β (π + π ) = (π + (π»β(π + 1)))) |
412 | 407, 409,
411 | 3eqtr4d 2783 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ π = (π»β(π + 1))) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
413 | | iffalse 4537 |
. . . . . . . . . . . . . . . 16
β’ (Β¬
π = (π»β(π + 1)) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) |
414 | 413 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) |
415 | | eqidd 2734 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) |
416 | | oveq2 7414 |
. . . . . . . . . . . . . . . . 17
β’ (π‘ = π β (π + π‘) = (π + π )) |
417 | 416 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β§ π‘ = π ) β (π + π‘) = (π + π )) |
418 | | velsn 4644 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β {(π»β(π + 1))} β π = (π»β(π + 1))) |
419 | 418 | notbii 320 |
. . . . . . . . . . . . . . . . . . 19
β’ (Β¬
π β {(π»β(π + 1))} β Β¬ π = (π»β(π + 1))) |
420 | | elun 4148 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»β(π + 1))})) |
421 | 420 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»β(π + 1))})) |
422 | 421 | orcomd 870 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β (π β {(π»β(π + 1))} β¨ π β ((π»βπ)(,)(π»β(π + 1))))) |
423 | 422 | ord 863 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β (Β¬ π β {(π»β(π + 1))} β π β ((π»βπ)(,)(π»β(π + 1))))) |
424 | 419, 423 | biimtrrid 242 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β (Β¬ π = (π»β(π + 1)) β π β ((π»βπ)(,)(π»β(π + 1))))) |
425 | 424 | imp 408 |
. . . . . . . . . . . . . . . . 17
β’ ((π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β§ Β¬ π = (π»β(π + 1))) β π β ((π»βπ)(,)(π»β(π + 1)))) |
426 | 425 | adantll 713 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β π β ((π»βπ)(,)(π»β(π + 1)))) |
427 | 95 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β π β β) |
428 | | elioore 13351 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β ((π»βπ)(,)(π»β(π + 1))) β π β β) |
429 | 428 | adantl 483 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)(,)(π»β(π + 1)))) β π β β) |
430 | | elsni 4645 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β {(π»β(π + 1))} β π = (π»β(π + 1))) |
431 | 430 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ π β {(π»β(π + 1))}) β π = (π»β(π + 1))) |
432 | 225 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ π β {(π»β(π + 1))}) β (π»β(π + 1)) β β) |
433 | 431, 432 | eqeltrd 2834 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π β {(π»β(π + 1))}) β π β β) |
434 | 429, 433 | jaodan 957 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (0..^π)) β§ (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»β(π + 1))})) β π β β) |
435 | 420, 434 | sylan2b 595 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β π β β) |
436 | 427, 435 | readdcld 11240 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β (π + π ) β β) |
437 | 436 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β (π + π ) β β) |
438 | 415, 417,
426, 437 | fvmptd 7003 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ) = (π + π )) |
439 | 414, 438 | eqtrd 2773 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β§ Β¬ π = (π»β(π + 1))) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
440 | 412, 439 | pm2.61dan 812 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) β if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
441 | 405, 440 | mpteq12dva 5237 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β¦ if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β ((π»βπ)(,](π»β(π + 1))) β¦ (π + π ))) |
442 | 405 | oveq2d 7422 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β
((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) =
((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1))))) |
443 | 442 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β
(((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) CnP
(TopOpenββfld)) =
(((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))) |
444 | 443 | fveq1d 6891 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) CnP
(TopOpenββfld))β(π»β(π + 1))) =
((((TopOpenββfld) βΎt ((π»βπ)(,](π»β(π + 1)))) CnP
(TopOpenββfld))β(π»β(π + 1)))) |
445 | 403, 441,
444 | 3eltr4d 2849 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β¦ if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) CnP
(TopOpenββfld))β(π»β(π + 1)))) |
446 | | eqid 2733 |
. . . . . . . . . . . 12
β’
((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) =
((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) |
447 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β¦ if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β¦ if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) |
448 | 264, 301 | fssd 6733 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)):((π»βπ)(,)(π»β(π + 1)))βΆβ) |
449 | 225 | recnd 11239 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π»β(π + 1)) β β) |
450 | 446, 380,
447, 448, 299, 449 | ellimc 25382 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβ(π + 1)) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) limβ (π»β(π + 1))) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))}) β¦ if(π = (π»β(π + 1)), (πβ(π + 1)), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»β(π + 1))})) CnP
(TopOpenββfld))β(π»β(π + 1))))) |
451 | 445, 450 | mpbird 257 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (πβ(π + 1)) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) limβ (π»β(π + 1)))) |
452 | 359, 451,
66 | limccog 44323 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β πΏ β (((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) limβ (π»β(π + 1)))) |
453 | 266, 286 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘)))) |
454 | 453 | oveq1d 7421 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) limβ (π»β(π + 1))) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) limβ (π»β(π + 1)))) |
455 | 452, 454 | eleqtrd 2836 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β πΏ β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) limβ (π»β(π + 1)))) |
456 | 40 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β (πβπ) β β) |
457 | 456, 334 | gtned 11346 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β (πβπ)) |
458 | 457 | neneqd 2946 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β Β¬ π = (πβπ)) |
459 | | velsn 4644 |
. . . . . . . . . . . . . 14
β’ (π β {(πβπ)} β π = (πβπ)) |
460 | 458, 459 | sylnibr 329 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β Β¬ π β {(πβπ)}) |
461 | 351, 460 | eldifd 3959 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0..^π)) β§ π β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) β π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβπ)})) |
462 | 461 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β βπ β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβπ)})) |
463 | | dfss3 3970 |
. . . . . . . . . . 11
β’ (ran
(π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβπ)}) β βπ β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))π β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβπ)})) |
464 | 462, 463 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β ran (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) β (dom (πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β {(πβπ)})) |
465 | | icossre 13402 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π»βπ) β β β§ (π»β(π + 1)) β β*) β
((π»βπ)[,)(π»β(π + 1))) β β) |
466 | 224, 245,
465 | syl2anc 585 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (0..^π)) β ((π»βπ)[,)(π»β(π + 1))) β β) |
467 | 466, 373 | sstrdi 3994 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (0..^π)) β ((π»βπ)[,)(π»β(π + 1))) β β) |
468 | 196 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)[,)(π»β(π + 1)))) β π β β) |
469 | 467 | sselda 3982 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)[,)(π»β(π + 1)))) β π β β) |
470 | 468, 469 | addcld 11230 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β ((π»βπ)[,)(π»β(π + 1)))) β (π + π ) β β) |
471 | 360, 369,
467, 375, 470 | cncfmptssg 44574 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β (((π»βπ)[,)(π»β(π + 1)))βcnββ)) |
472 | | eqid 2733 |
. . . . . . . . . . . . . . . . . 18
β’
((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) =
((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) |
473 | 380, 472,
386 | cncfcn 24418 |
. . . . . . . . . . . . . . . . 17
β’ ((((π»βπ)[,)(π»β(π + 1))) β β β§ β β
β) β (((π»βπ)[,)(π»β(π + 1)))βcnββ) =
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) Cn
(TopOpenββfld))) |
474 | 467, 375,
473 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β (((π»βπ)[,)(π»β(π + 1)))βcnββ) =
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) Cn
(TopOpenββfld))) |
475 | 471, 474 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) Cn
(TopOpenββfld))) |
476 | | resttopon 22657 |
. . . . . . . . . . . . . . . . 17
β’
(((TopOpenββfld) β (TopOnββ)
β§ ((π»βπ)[,)(π»β(π + 1))) β β) β
((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) β (TopOnβ((π»βπ)[,)(π»β(π + 1))))) |
477 | 391, 467,
476 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (0..^π)) β
((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) β (TopOnβ((π»βπ)[,)(π»β(π + 1))))) |
478 | | cncnp 22776 |
. . . . . . . . . . . . . . . 16
β’
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) β (TopOnβ((π»βπ)[,)(π»β(π + 1)))) β§
(TopOpenββfld) β (TopOnββ)) β
((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) Cn
(TopOpenββfld)) β ((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )):((π»βπ)[,)(π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)[,)(π»β(π + 1)))(π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)))) |
479 | 477, 391,
478 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (0..^π)) β ((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) Cn
(TopOpenββfld)) β ((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )):((π»βπ)[,)(π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)[,)(π»β(π + 1)))(π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)))) |
480 | 475, 479 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β ((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )):((π»βπ)[,)(π»β(π + 1)))βΆβ β§ βπ‘ β ((π»βπ)[,)(π»β(π + 1)))(π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘))) |
481 | 480 | simprd 497 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β βπ‘ β ((π»βπ)[,)(π»β(π + 1)))(π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘)) |
482 | | lbico1 13375 |
. . . . . . . . . . . . . 14
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β* β§
(π»βπ) < (π»β(π + 1))) β (π»βπ) β ((π»βπ)[,)(π»β(π + 1)))) |
483 | 370, 245,
174, 482 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (π»βπ) β ((π»βπ)[,)(π»β(π + 1)))) |
484 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π‘ = (π»βπ) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) = ((((TopOpenββfld)
βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))β(π»βπ))) |
485 | 484 | eleq2d 2820 |
. . . . . . . . . . . . . 14
β’ (π‘ = (π»βπ) β ((π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) β (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))β(π»βπ)))) |
486 | 485 | rspccva 3612 |
. . . . . . . . . . . . 13
β’
((βπ‘ β
((π»βπ)[,)(π»β(π + 1)))(π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))βπ‘) β§ (π»βπ) β ((π»βπ)[,)(π»β(π + 1)))) β (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))β(π»βπ))) |
487 | 481, 483,
486 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π )) β
((((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))β(π»βπ))) |
488 | | uncom 4153 |
. . . . . . . . . . . . . 14
β’ (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) = ({(π»βπ)} βͺ ((π»βπ)(,)(π»β(π + 1)))) |
489 | | snunioo 13452 |
. . . . . . . . . . . . . . 15
β’ (((π»βπ) β β* β§ (π»β(π + 1)) β β* β§
(π»βπ) < (π»β(π + 1))) β ({(π»βπ)} βͺ ((π»βπ)(,)(π»β(π + 1)))) = ((π»βπ)[,)(π»β(π + 1)))) |
490 | 370, 245,
174, 489 | syl3anc 1372 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β ({(π»βπ)} βͺ ((π»βπ)(,)(π»β(π + 1)))) = ((π»βπ)[,)(π»β(π + 1)))) |
491 | 488, 490 | eqtrid 2785 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) = ((π»βπ)[,)(π»β(π + 1)))) |
492 | | iftrue 4534 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π»βπ) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (πβπ)) |
493 | 492 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π = (π»βπ)) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (πβπ)) |
494 | 240 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π = (π»βπ)) β (πβπ) = (π + (π»βπ))) |
495 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π»βπ) β (π + π ) = (π + (π»βπ))) |
496 | 495 | eqcomd 2739 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π»βπ) β (π + (π»βπ)) = (π + π )) |
497 | 496 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (0..^π)) β§ π = (π»βπ)) β (π + (π»βπ)) = (π + π )) |
498 | 493, 494,
497 | 3eqtrd 2777 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (0..^π)) β§ π = (π»βπ)) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
499 | 498 | adantlr 714 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ π = (π»βπ)) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
500 | | iffalse 4537 |
. . . . . . . . . . . . . . . 16
β’ (Β¬
π = (π»βπ) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) |
501 | 500 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) |
502 | | eqidd 2734 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) = (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) |
503 | 416 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β§ π‘ = π ) β (π + π‘) = (π + π )) |
504 | | velsn 4644 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β {(π»βπ)} β π = (π»βπ)) |
505 | 504 | notbii 320 |
. . . . . . . . . . . . . . . . . . 19
β’ (Β¬
π β {(π»βπ)} β Β¬ π = (π»βπ)) |
506 | | elun 4148 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»βπ)})) |
507 | 506 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»βπ)})) |
508 | 507 | orcomd 870 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β (π β {(π»βπ)} β¨ π β ((π»βπ)(,)(π»β(π + 1))))) |
509 | 508 | ord 863 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β (Β¬ π β {(π»βπ)} β π β ((π»βπ)(,)(π»β(π + 1))))) |
510 | 505, 509 | biimtrrid 242 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β (Β¬ π = (π»βπ) β π β ((π»βπ)(,)(π»β(π + 1))))) |
511 | 510 | imp 408 |
. . . . . . . . . . . . . . . . 17
β’ ((π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β§ Β¬ π = (π»βπ)) β π β ((π»βπ)(,)(π»β(π + 1)))) |
512 | 511 | adantll 713 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β π β ((π»βπ)(,)(π»β(π + 1)))) |
513 | 95 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β π β β) |
514 | | elsni 4645 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β {(π»βπ)} β π = (π»βπ)) |
515 | 514 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ π β {(π»βπ)}) β π = (π»βπ)) |
516 | 224 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (0..^π)) β§ π β {(π»βπ)}) β (π»βπ) β β) |
517 | 515, 516 | eqeltrd 2834 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (0..^π)) β§ π β {(π»βπ)}) β π β β) |
518 | 429, 517 | jaodan 957 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (0..^π)) β§ (π β ((π»βπ)(,)(π»β(π + 1))) β¨ π β {(π»βπ)})) β π β β) |
519 | 506, 518 | sylan2b 595 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β π β β) |
520 | 513, 519 | readdcld 11240 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β (π + π ) β β) |
521 | 520 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β (π + π ) β β) |
522 | 502, 503,
512, 521 | fvmptd 7003 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ) = (π + π )) |
523 | 501, 522 | eqtrd 2773 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β§ Β¬ π = (π»βπ)) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
524 | 499, 523 | pm2.61dan 812 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0..^π)) β§ π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) β if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ )) = (π + π )) |
525 | 491, 524 | mpteq12dva 5237 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β¦ if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β ((π»βπ)[,)(π»β(π + 1))) β¦ (π + π ))) |
526 | 491 | oveq2d 7422 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (0..^π)) β
((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) = ((TopOpenββfld)
βΎt ((π»βπ)[,)(π»β(π + 1))))) |
527 | 526 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0..^π)) β
(((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) CnP
(TopOpenββfld)) =
(((TopOpenββfld) βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))) |
528 | 527 | fveq1d 6891 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) CnP
(TopOpenββfld))β(π»βπ)) = ((((TopOpenββfld)
βΎt ((π»βπ)[,)(π»β(π + 1)))) CnP
(TopOpenββfld))β(π»βπ))) |
529 | 487, 525,
528 | 3eltr4d 2849 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β¦ if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) CnP
(TopOpenββfld))β(π»βπ))) |
530 | | eqid 2733 |
. . . . . . . . . . . 12
β’
((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) = ((TopOpenββfld)
βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) |
531 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β¦ if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) = (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β¦ if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) |
532 | 224 | recnd 11239 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β (π»βπ) β β) |
533 | 530, 380,
531, 448, 299, 532 | ellimc 25382 |
. . . . . . . . . . 11
β’ ((π β§ π β (0..^π)) β ((πβπ) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) limβ (π»βπ)) β (π β (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)}) β¦ if(π = (π»βπ), (πβπ), ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))βπ ))) β
((((TopOpenββfld) βΎt (((π»βπ)(,)(π»β(π + 1))) βͺ {(π»βπ)})) CnP
(TopOpenββfld))β(π»βπ)))) |
534 | 529, 533 | mpbird 257 |
. . . . . . . . . 10
β’ ((π β§ π β (0..^π)) β (πβπ) β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘)) limβ (π»βπ))) |
535 | 464, 534,
69 | limccog 44323 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β π
β (((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) limβ (π»βπ))) |
536 | 453 | oveq1d 7421 |
. . . . . . . . 9
β’ ((π β§ π β (0..^π)) β (((πΉ βΎ ((πβπ)(,)(πβ(π + 1)))) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (π + π‘))) limβ (π»βπ)) = ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) limβ (π»βπ))) |
537 | 535, 536 | eleqtrd 2836 |
. . . . . . . 8
β’ ((π β§ π β (0..^π)) β π
β ((π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) limβ (π»βπ))) |
538 | 224, 225,
304, 455, 537 | iblcncfioo 44681 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)(,)(π»β(π + 1))) β¦ (πΉβ(π + π‘))) β
πΏ1) |
539 | 30 | ad2antrr 725 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β πΉ:(-Ο[,]Ο)βΆβ) |
540 | 49 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β -Ο β
β*) |
541 | 51 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β Ο β
β*) |
542 | 21 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β π:(0...π)βΆ(-Ο[,]Ο)) |
543 | | simplr 768 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β π β (0..^π)) |
544 | | simpr 486 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β π‘ β ((π»βπ)[,](π»β(π + 1)))) |
545 | 163, 173 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0..^π)) β ((π»βπ)[,](π»β(π + 1))) = (((πβπ) β π)[,]((πβ(π + 1)) β π))) |
546 | 545 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β ((π»βπ)[,](π»β(π + 1))) = (((πβπ) β π)[,]((πβ(π + 1)) β π))) |
547 | 544, 546 | eleqtrd 2836 |
. . . . . . . . . 10
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β π‘ β (((πβπ) β π)[,]((πβ(π + 1)) β π))) |
548 | 547, 116 | syldan 592 |
. . . . . . . . 9
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β (π + π‘) β ((πβπ)[,](πβ(π + 1)))) |
549 | 540, 541,
542, 543, 548 | fourierdlem1 44811 |
. . . . . . . 8
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β (π + π‘) β (-Ο[,]Ο)) |
550 | 539, 549 | ffvelcdmd 7085 |
. . . . . . 7
β’ (((π β§ π β (0..^π)) β§ π‘ β ((π»βπ)[,](π»β(π + 1)))) β (πΉβ(π + π‘)) β β) |
551 | 224, 225,
538, 550 | ibliooicc 44674 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β (π‘ β ((π»βπ)[,](π»β(π + 1))) β¦ (πΉβ(π + π‘))) β
πΏ1) |
552 | 14, 20, 159, 174, 223, 551 | itgspltprt 44682 |
. . . . 5
β’ (π β β«((π»β0)[,](π»βπ))(πΉβ(π + π‘)) dπ‘ = Ξ£π β (0..^π)β«((π»βπ)[,](π»β(π + 1)))(πΉβ(π + π‘)) dπ‘) |
553 | 545 | itgeq1d 44660 |
. . . . . 6
β’ ((π β§ π β (0..^π)) β β«((π»βπ)[,](π»β(π + 1)))(πΉβ(π + π‘)) dπ‘ = β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
554 | 553 | sumeq2dv 15646 |
. . . . 5
β’ (π β Ξ£π β (0..^π)β«((π»βπ)[,](π»β(π + 1)))(πΉβ(π + π‘)) dπ‘ = Ξ£π β (0..^π)β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
555 | 552, 554 | eqtrd 2773 |
. . . 4
β’ (π β β«((π»β0)[,](π»βπ))(πΉβ(π + π‘)) dπ‘ = Ξ£π β (0..^π)β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
556 | 125, 155,
555 | 3eqtrd 2777 |
. . 3
β’ (π β β«((-Ο β π)[,](Ο β π))(πΉβ(π + π )) dπ = Ξ£π β (0..^π)β«(((πβπ) β π)[,]((πβ(π + 1)) β π))(πΉβ(π + π‘)) dπ‘) |
557 | 121, 556 | eqtr4d 2776 |
. 2
β’ (π β Ξ£π β (0..^π)β«((πβπ)[,](πβ(π + 1)))(πΉβπ‘) dπ‘ = β«((-Ο β π)[,](Ο β π))(πΉβ(π + π )) dπ ) |
558 | 13, 76, 557 | 3eqtrd 2777 |
1
β’ (π β β«(-Ο[,]Ο)(πΉβπ‘) dπ‘ = β«((-Ο β π)[,](Ο β π))(πΉβ(π + π )) dπ ) |