Step | Hyp | Ref
| Expression |
1 | | simpr 485 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ ๐ฅ โ โ) |
2 | | fourierdlem4.b |
. . . . . . . . . 10
โข (๐ โ ๐ต โ โ) |
3 | 2 | adantr 481 |
. . . . . . . . 9
โข ((๐ โง ๐ฅ โ โ) โ ๐ต โ โ) |
4 | 3, 1 | resubcld 11638 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ (๐ต โ ๐ฅ) โ โ) |
5 | | fourierdlem4.t |
. . . . . . . . . 10
โข ๐ = (๐ต โ ๐ด) |
6 | | fourierdlem4.a |
. . . . . . . . . . 11
โข (๐ โ ๐ด โ โ) |
7 | 2, 6 | resubcld 11638 |
. . . . . . . . . 10
โข (๐ โ (๐ต โ ๐ด) โ โ) |
8 | 5, 7 | eqeltrid 2837 |
. . . . . . . . 9
โข (๐ โ ๐ โ โ) |
9 | 8 | adantr 481 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ ๐ โ โ) |
10 | 5 | a1i 11 |
. . . . . . . . . 10
โข (๐ โ ๐ = (๐ต โ ๐ด)) |
11 | 2 | recnd 11238 |
. . . . . . . . . . 11
โข (๐ โ ๐ต โ โ) |
12 | 6 | recnd 11238 |
. . . . . . . . . . 11
โข (๐ โ ๐ด โ โ) |
13 | | fourierdlem4.altb |
. . . . . . . . . . . 12
โข (๐ โ ๐ด < ๐ต) |
14 | 6, 13 | gtned 11345 |
. . . . . . . . . . 11
โข (๐ โ ๐ต โ ๐ด) |
15 | 11, 12, 14 | subne0d 11576 |
. . . . . . . . . 10
โข (๐ โ (๐ต โ ๐ด) โ 0) |
16 | 10, 15 | eqnetrd 3008 |
. . . . . . . . 9
โข (๐ โ ๐ โ 0) |
17 | 16 | adantr 481 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ ๐ โ 0) |
18 | 4, 9, 17 | redivcld 12038 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ ((๐ต โ ๐ฅ) / ๐) โ โ) |
19 | 18 | flcld 13759 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ
(โโ((๐ต โ
๐ฅ) / ๐)) โ โค) |
20 | 19 | zred 12662 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ
(โโ((๐ต โ
๐ฅ) / ๐)) โ โ) |
21 | 20, 9 | remulcld 11240 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ
((โโ((๐ต โ
๐ฅ) / ๐)) ยท ๐) โ โ) |
22 | 1, 21 | readdcld 11239 |
. . 3
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โ โ) |
23 | 6 | adantr 481 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ ๐ด โ โ) |
24 | 23, 1 | resubcld 11638 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ (๐ด โ ๐ฅ) โ โ) |
25 | 24, 9, 17 | redivcld 12038 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ ((๐ด โ ๐ฅ) / ๐) โ โ) |
26 | 25, 9 | remulcld 11240 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) / ๐) ยท ๐) โ โ) |
27 | 11 | addridd 11410 |
. . . . . . . . . . . . . . 15
โข (๐ โ (๐ต + 0) = ๐ต) |
28 | 27 | eqcomd 2738 |
. . . . . . . . . . . . . 14
โข (๐ โ ๐ต = (๐ต + 0)) |
29 | 11, 12 | subcld 11567 |
. . . . . . . . . . . . . . . . 17
โข (๐ โ (๐ต โ ๐ด) โ โ) |
30 | 29 | subidd 11555 |
. . . . . . . . . . . . . . . 16
โข (๐ โ ((๐ต โ ๐ด) โ (๐ต โ ๐ด)) = 0) |
31 | 30 | eqcomd 2738 |
. . . . . . . . . . . . . . 15
โข (๐ โ 0 = ((๐ต โ ๐ด) โ (๐ต โ ๐ด))) |
32 | 31 | oveq2d 7421 |
. . . . . . . . . . . . . 14
โข (๐ โ (๐ต + 0) = (๐ต + ((๐ต โ ๐ด) โ (๐ต โ ๐ด)))) |
33 | 11, 29, 29 | addsub12d 11590 |
. . . . . . . . . . . . . . 15
โข (๐ โ (๐ต + ((๐ต โ ๐ด) โ (๐ต โ ๐ด))) = ((๐ต โ ๐ด) + (๐ต โ (๐ต โ ๐ด)))) |
34 | 11, 12 | nncand 11572 |
. . . . . . . . . . . . . . . 16
โข (๐ โ (๐ต โ (๐ต โ ๐ด)) = ๐ด) |
35 | 34 | oveq2d 7421 |
. . . . . . . . . . . . . . 15
โข (๐ โ ((๐ต โ ๐ด) + (๐ต โ (๐ต โ ๐ด))) = ((๐ต โ ๐ด) + ๐ด)) |
36 | 29, 12 | addcomd 11412 |
. . . . . . . . . . . . . . . 16
โข (๐ โ ((๐ต โ ๐ด) + ๐ด) = (๐ด + (๐ต โ ๐ด))) |
37 | 10 | eqcomd 2738 |
. . . . . . . . . . . . . . . . 17
โข (๐ โ (๐ต โ ๐ด) = ๐) |
38 | 37 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
โข (๐ โ (๐ด + (๐ต โ ๐ด)) = (๐ด + ๐)) |
39 | 36, 38 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
โข (๐ โ ((๐ต โ ๐ด) + ๐ด) = (๐ด + ๐)) |
40 | 33, 35, 39 | 3eqtrd 2776 |
. . . . . . . . . . . . . 14
โข (๐ โ (๐ต + ((๐ต โ ๐ด) โ (๐ต โ ๐ด))) = (๐ด + ๐)) |
41 | 28, 32, 40 | 3eqtrd 2776 |
. . . . . . . . . . . . 13
โข (๐ โ ๐ต = (๐ด + ๐)) |
42 | 41 | adantr 481 |
. . . . . . . . . . . 12
โข ((๐ โง ๐ฅ โ โ) โ ๐ต = (๐ด + ๐)) |
43 | 42 | oveq1d 7420 |
. . . . . . . . . . 11
โข ((๐ โง ๐ฅ โ โ) โ (๐ต โ ๐ฅ) = ((๐ด + ๐) โ ๐ฅ)) |
44 | 12 | adantr 481 |
. . . . . . . . . . . 12
โข ((๐ โง ๐ฅ โ โ) โ ๐ด โ โ) |
45 | 9 | recnd 11238 |
. . . . . . . . . . . 12
โข ((๐ โง ๐ฅ โ โ) โ ๐ โ โ) |
46 | 1 | recnd 11238 |
. . . . . . . . . . . 12
โข ((๐ โง ๐ฅ โ โ) โ ๐ฅ โ โ) |
47 | 44, 45, 46 | addsubd 11588 |
. . . . . . . . . . 11
โข ((๐ โง ๐ฅ โ โ) โ ((๐ด + ๐) โ ๐ฅ) = ((๐ด โ ๐ฅ) + ๐)) |
48 | 43, 47 | eqtrd 2772 |
. . . . . . . . . 10
โข ((๐ โง ๐ฅ โ โ) โ (๐ต โ ๐ฅ) = ((๐ด โ ๐ฅ) + ๐)) |
49 | 48 | oveq1d 7420 |
. . . . . . . . 9
โข ((๐ โง ๐ฅ โ โ) โ ((๐ต โ ๐ฅ) / ๐) = (((๐ด โ ๐ฅ) + ๐) / ๐)) |
50 | 44, 46 | subcld 11567 |
. . . . . . . . . 10
โข ((๐ โง ๐ฅ โ โ) โ (๐ด โ ๐ฅ) โ โ) |
51 | 50, 45, 45, 17 | divdird 12024 |
. . . . . . . . 9
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) + ๐) / ๐) = (((๐ด โ ๐ฅ) / ๐) + (๐ / ๐))) |
52 | 5, 29 | eqeltrid 2837 |
. . . . . . . . . . . 12
โข (๐ โ ๐ โ โ) |
53 | 52, 16 | dividd 11984 |
. . . . . . . . . . 11
โข (๐ โ (๐ / ๐) = 1) |
54 | 53 | adantr 481 |
. . . . . . . . . 10
โข ((๐ โง ๐ฅ โ โ) โ (๐ / ๐) = 1) |
55 | 54 | oveq2d 7421 |
. . . . . . . . 9
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) / ๐) + (๐ / ๐)) = (((๐ด โ ๐ฅ) / ๐) + 1)) |
56 | 49, 51, 55 | 3eqtrd 2776 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ ((๐ต โ ๐ฅ) / ๐) = (((๐ด โ ๐ฅ) / ๐) + 1)) |
57 | 56 | fveq2d 6892 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ
(โโ((๐ต โ
๐ฅ) / ๐)) = (โโ(((๐ด โ ๐ฅ) / ๐) + 1))) |
58 | 57 | oveq1d 7420 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ
((โโ((๐ต โ
๐ฅ) / ๐)) ยท ๐) = ((โโ(((๐ด โ ๐ฅ) / ๐) + 1)) ยท ๐)) |
59 | 58, 21 | eqeltrrd 2834 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ
((โโ(((๐ด
โ ๐ฅ) / ๐) + 1)) ยท ๐) โ
โ) |
60 | | peano2re 11383 |
. . . . . . . 8
โข (((๐ด โ ๐ฅ) / ๐) โ โ โ (((๐ด โ ๐ฅ) / ๐) + 1) โ โ) |
61 | 25, 60 | syl 17 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) / ๐) + 1) โ โ) |
62 | | reflcl 13757 |
. . . . . . 7
โข ((((๐ด โ ๐ฅ) / ๐) + 1) โ โ โ
(โโ(((๐ด โ
๐ฅ) / ๐) + 1)) โ โ) |
63 | 61, 62 | syl 17 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ
(โโ(((๐ด โ
๐ฅ) / ๐) + 1)) โ โ) |
64 | 6, 2 | posdifd 11797 |
. . . . . . . . . 10
โข (๐ โ (๐ด < ๐ต โ 0 < (๐ต โ ๐ด))) |
65 | 13, 64 | mpbid 231 |
. . . . . . . . 9
โข (๐ โ 0 < (๐ต โ ๐ด)) |
66 | 65, 10 | breqtrrd 5175 |
. . . . . . . 8
โข (๐ โ 0 < ๐) |
67 | 8, 66 | elrpd 13009 |
. . . . . . 7
โข (๐ โ ๐ โ
โ+) |
68 | 67 | adantr 481 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ ๐ โ
โ+) |
69 | | flltp1 13761 |
. . . . . . . 8
โข (((๐ด โ ๐ฅ) / ๐) โ โ โ ((๐ด โ ๐ฅ) / ๐) < ((โโ((๐ด โ ๐ฅ) / ๐)) + 1)) |
70 | 25, 69 | syl 17 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ ((๐ด โ ๐ฅ) / ๐) < ((โโ((๐ด โ ๐ฅ) / ๐)) + 1)) |
71 | | 1zzd 12589 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ โ) โ 1 โ
โค) |
72 | | fladdz 13786 |
. . . . . . . 8
โข ((((๐ด โ ๐ฅ) / ๐) โ โ โง 1 โ โค)
โ (โโ(((๐ด
โ ๐ฅ) / ๐) + 1)) =
((โโ((๐ด โ
๐ฅ) / ๐)) + 1)) |
73 | 25, 71, 72 | syl2anc 584 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ
(โโ(((๐ด โ
๐ฅ) / ๐) + 1)) = ((โโ((๐ด โ ๐ฅ) / ๐)) + 1)) |
74 | 70, 73 | breqtrrd 5175 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ ((๐ด โ ๐ฅ) / ๐) < (โโ(((๐ด โ ๐ฅ) / ๐) + 1))) |
75 | 25, 63, 68, 74 | ltmul1dd 13067 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) / ๐) ยท ๐) < ((โโ(((๐ด โ ๐ฅ) / ๐) + 1)) ยท ๐)) |
76 | 26, 59, 1, 75 | ltadd2dd 11369 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (((๐ด โ ๐ฅ) / ๐) ยท ๐)) < (๐ฅ + ((โโ(((๐ด โ ๐ฅ) / ๐) + 1)) ยท ๐))) |
77 | 50, 45, 17 | divcan1d 11987 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ (((๐ด โ ๐ฅ) / ๐) ยท ๐) = (๐ด โ ๐ฅ)) |
78 | 77 | oveq2d 7421 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (((๐ด โ ๐ฅ) / ๐) ยท ๐)) = (๐ฅ + (๐ด โ ๐ฅ))) |
79 | 46, 44 | pncan3d 11570 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (๐ด โ ๐ฅ)) = ๐ด) |
80 | 78, 79 | eqtrd 2772 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (((๐ด โ ๐ฅ) / ๐) ยท ๐)) = ๐ด) |
81 | 58 | oveq2d 7421 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) = (๐ฅ + ((โโ(((๐ด โ ๐ฅ) / ๐) + 1)) ยท ๐))) |
82 | 81 | eqcomd 2738 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ(((๐ด โ ๐ฅ) / ๐) + 1)) ยท ๐)) = (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐))) |
83 | 76, 80, 82 | 3brtr3d 5178 |
. . 3
โข ((๐ โง ๐ฅ โ โ) โ ๐ด < (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐))) |
84 | 18, 9 | remulcld 11240 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (((๐ต โ ๐ฅ) / ๐) ยท ๐) โ โ) |
85 | | flle 13760 |
. . . . . . 7
โข (((๐ต โ ๐ฅ) / ๐) โ โ โ
(โโ((๐ต โ
๐ฅ) / ๐)) โค ((๐ต โ ๐ฅ) / ๐)) |
86 | 18, 85 | syl 17 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ
(โโ((๐ต โ
๐ฅ) / ๐)) โค ((๐ต โ ๐ฅ) / ๐)) |
87 | 20, 18, 68 | lemul1d 13055 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ
((โโ((๐ต โ
๐ฅ) / ๐)) โค ((๐ต โ ๐ฅ) / ๐) โ ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐) โค (((๐ต โ ๐ฅ) / ๐) ยท ๐))) |
88 | 86, 87 | mpbid 231 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ
((โโ((๐ต โ
๐ฅ) / ๐)) ยท ๐) โค (((๐ต โ ๐ฅ) / ๐) ยท ๐)) |
89 | 21, 84, 1, 88 | leadd2dd 11825 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โค (๐ฅ + (((๐ต โ ๐ฅ) / ๐) ยท ๐))) |
90 | 4 | recnd 11238 |
. . . . . . 7
โข ((๐ โง ๐ฅ โ โ) โ (๐ต โ ๐ฅ) โ โ) |
91 | 90, 45, 17 | divcan1d 11987 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ (((๐ต โ ๐ฅ) / ๐) ยท ๐) = (๐ต โ ๐ฅ)) |
92 | 91 | oveq2d 7421 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (((๐ต โ ๐ฅ) / ๐) ยท ๐)) = (๐ฅ + (๐ต โ ๐ฅ))) |
93 | 11 | adantr 481 |
. . . . . 6
โข ((๐ โง ๐ฅ โ โ) โ ๐ต โ โ) |
94 | 46, 93 | pncan3d 11570 |
. . . . 5
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (๐ต โ ๐ฅ)) = ๐ต) |
95 | 92, 94 | eqtrd 2772 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + (((๐ต โ ๐ฅ) / ๐) ยท ๐)) = ๐ต) |
96 | 89, 95 | breqtrd 5173 |
. . 3
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โค ๐ต) |
97 | 23 | rexrd 11260 |
. . . 4
โข ((๐ โง ๐ฅ โ โ) โ ๐ด โ
โ*) |
98 | | elioc2 13383 |
. . . 4
โข ((๐ด โ โ*
โง ๐ต โ โ)
โ ((๐ฅ +
((โโ((๐ต โ
๐ฅ) / ๐)) ยท ๐)) โ (๐ด(,]๐ต) โ ((๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โ โ โง ๐ด < (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โง (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โค ๐ต))) |
99 | 97, 3, 98 | syl2anc 584 |
. . 3
โข ((๐ โง ๐ฅ โ โ) โ ((๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โ (๐ด(,]๐ต) โ ((๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โ โ โง ๐ด < (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โง (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โค ๐ต))) |
100 | 22, 83, 96, 99 | mpbir3and 1342 |
. 2
โข ((๐ โง ๐ฅ โ โ) โ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐)) โ (๐ด(,]๐ต)) |
101 | | fourierdlem4.e |
. 2
โข ๐ธ = (๐ฅ โ โ โฆ (๐ฅ + ((โโ((๐ต โ ๐ฅ) / ๐)) ยท ๐))) |
102 | 100, 101 | fmptd 7110 |
1
โข (๐ โ ๐ธ:โโถ(๐ด(,]๐ต)) |