Step | Hyp | Ref
| Expression |
1 | | fourierdlem83.s |
. . . 4
β’ π = (π β β β¦ (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))))) |
2 | 1 | a1i 11 |
. . 3
β’ (π β π = (π β β β¦ (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))))) |
3 | | oveq2 7413 |
. . . . . 6
β’ (π = π β (1...π) = (1...π)) |
4 | 3 | sumeq1d 15643 |
. . . . 5
β’ (π = π β Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) = Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))) |
5 | 4 | oveq2d 7421 |
. . . 4
β’ (π = π β (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))) = (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))))) |
6 | 5 | adantl 482 |
. . 3
β’ ((π β§ π = π) β (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))) = (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))))) |
7 | | fourierdlem83.n |
. . 3
β’ (π β π β β) |
8 | | id 22 |
. . . . . 6
β’ (π β π) |
9 | | 0nn0 12483 |
. . . . . . 7
β’ 0 β
β0 |
10 | 9 | a1i 11 |
. . . . . 6
β’ (π β 0 β
β0) |
11 | 9 | elexi 3493 |
. . . . . . 7
β’ 0 β
V |
12 | | eleq1 2821 |
. . . . . . . . 9
β’ (π = 0 β (π β β0 β 0 β
β0)) |
13 | 12 | anbi2d 629 |
. . . . . . . 8
β’ (π = 0 β ((π β§ π β β0) β (π β§ 0 β
β0))) |
14 | | fveq2 6888 |
. . . . . . . . 9
β’ (π = 0 β (π΄βπ) = (π΄β0)) |
15 | 14 | eleq1d 2818 |
. . . . . . . 8
β’ (π = 0 β ((π΄βπ) β β β (π΄β0) β β)) |
16 | 13, 15 | imbi12d 344 |
. . . . . . 7
β’ (π = 0 β (((π β§ π β β0) β (π΄βπ) β β) β ((π β§ 0 β β0) β
(π΄β0) β
β))) |
17 | | fourierdlem83.f |
. . . . . . . . . 10
β’ (π β πΉ:ββΆβ) |
18 | | fourierdlem83.c |
. . . . . . . . . 10
β’ πΆ =
(-Ο(,)Ο) |
19 | | fourierdlem83.fl1 |
. . . . . . . . . 10
β’ (π β (πΉ βΎ πΆ) β
πΏ1) |
20 | | fourierdlem83.a |
. . . . . . . . . 10
β’ π΄ = (π β β0 β¦
(β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο)) |
21 | | fourierdlem83.b |
. . . . . . . . . 10
β’ π΅ = (π β β β¦ (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο)) |
22 | 17, 18, 19, 20, 21 | fourierdlem22 44831 |
. . . . . . . . 9
β’ (π β ((π β β0 β (π΄βπ) β β) β§ (π β β β (π΅βπ) β β))) |
23 | 22 | simpld 495 |
. . . . . . . 8
β’ (π β (π β β0 β (π΄βπ) β β)) |
24 | 23 | imp 407 |
. . . . . . 7
β’ ((π β§ π β β0) β (π΄βπ) β β) |
25 | 11, 16, 24 | vtocl 3549 |
. . . . . 6
β’ ((π β§ 0 β
β0) β (π΄β0) β β) |
26 | 8, 10, 25 | syl2anc 584 |
. . . . 5
β’ (π β (π΄β0) β β) |
27 | 26 | rehalfcld 12455 |
. . . 4
β’ (π β ((π΄β0) / 2) β
β) |
28 | | fzfid 13934 |
. . . . 5
β’ (π β (1...π) β Fin) |
29 | | eleq1 2821 |
. . . . . . . . . . . . . 14
β’ (π = π β (π β β0 β π β
β0)) |
30 | 29 | anbi2d 629 |
. . . . . . . . . . . . 13
β’ (π = π β ((π β§ π β β0) β (π β§ π β
β0))) |
31 | | simpl 483 |
. . . . . . . . . . . . . . . . . 18
β’ ((π = π β§ π₯ β πΆ) β π = π) |
32 | 31 | oveq1d 7420 |
. . . . . . . . . . . . . . . . 17
β’ ((π = π β§ π₯ β πΆ) β (π Β· π₯) = (π Β· π₯)) |
33 | 32 | fveq2d 6892 |
. . . . . . . . . . . . . . . 16
β’ ((π = π β§ π₯ β πΆ) β (cosβ(π Β· π₯)) = (cosβ(π Β· π₯))) |
34 | 33 | oveq2d 7421 |
. . . . . . . . . . . . . . 15
β’ ((π = π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· π₯))) = ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) |
35 | 34 | itgeq2dv 25290 |
. . . . . . . . . . . . . 14
β’ (π = π β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ = β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯) |
36 | 35 | eleq1d 2818 |
. . . . . . . . . . . . 13
β’ (π = π β (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β)) |
37 | 30, 36 | imbi12d 344 |
. . . . . . . . . . . 12
β’ (π = π β (((π β§ π β β0) β
β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β) β ((π β§ π β β0) β
β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β))) |
38 | 17 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β0) β πΉ:ββΆβ) |
39 | 19 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β0) β (πΉ βΎ πΆ) β
πΏ1) |
40 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β0) β π β
β0) |
41 | 38, 18, 39, 20, 40 | fourierdlem16 44825 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β0) β (((π΄βπ) β β β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1) β§
β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β)) |
42 | 41 | simprd 496 |
. . . . . . . . . . . 12
β’ ((π β§ π β β0) β
β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β) |
43 | 37, 42 | chvarvv 2002 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β
β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β) |
44 | | pire 25959 |
. . . . . . . . . . . 12
β’ Ο
β β |
45 | 44 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β Ο
β β) |
46 | | 0re 11212 |
. . . . . . . . . . . . 13
β’ 0 β
β |
47 | | pipos 25961 |
. . . . . . . . . . . . 13
β’ 0 <
Ο |
48 | 46, 47 | gtneii 11322 |
. . . . . . . . . . . 12
β’ Ο β
0 |
49 | 48 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β Ο β
0) |
50 | 43, 45, 49 | redivcld 12038 |
. . . . . . . . . 10
β’ ((π β§ π β β0) β
(β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) β β) |
51 | 50, 20 | fmptd 7110 |
. . . . . . . . 9
β’ (π β π΄:β0βΆβ) |
52 | 51 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β π΄:β0βΆβ) |
53 | | elfznn 13526 |
. . . . . . . . . 10
β’ (π β (1...π) β π β β) |
54 | 53 | nnnn0d 12528 |
. . . . . . . . 9
β’ (π β (1...π) β π β β0) |
55 | 54 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β π β β0) |
56 | 52, 55 | ffvelcdmd 7084 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (π΄βπ) β β) |
57 | 55 | nn0red 12529 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β π β β) |
58 | | fourierdlem83.x |
. . . . . . . . . 10
β’ (π β π β β) |
59 | 58 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β π β β) |
60 | 57, 59 | remulcld 11240 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π Β· π) β β) |
61 | 60 | recoscld 16083 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (cosβ(π Β· π)) β β) |
62 | 56, 61 | remulcld 11240 |
. . . . . 6
β’ ((π β§ π β (1...π)) β ((π΄βπ) Β· (cosβ(π Β· π))) β β) |
63 | | eleq1 2821 |
. . . . . . . . . . . . . 14
β’ (π = π β (π β β β π β β)) |
64 | 63 | anbi2d 629 |
. . . . . . . . . . . . 13
β’ (π = π β ((π β§ π β β) β (π β§ π β β))) |
65 | | oveq1 7412 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (π Β· π₯) = (π Β· π₯)) |
66 | 65 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (sinβ(π Β· π₯)) = (sinβ(π Β· π₯))) |
67 | 66 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
β’ (π = π β ((πΉβπ₯) Β· (sinβ(π Β· π₯))) = ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) |
68 | 67 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π = π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (sinβ(π Β· π₯))) = ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) |
69 | 68 | itgeq2dv 25290 |
. . . . . . . . . . . . . 14
β’ (π = π β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ = β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯) |
70 | 69 | eleq1d 2818 |
. . . . . . . . . . . . 13
β’ (π = π β (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β)) |
71 | 64, 70 | imbi12d 344 |
. . . . . . . . . . . 12
β’ (π = π β (((π β§ π β β) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β) β ((π β§ π β β) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β))) |
72 | 17 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β πΉ:ββΆβ) |
73 | 19 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β (πΉ βΎ πΆ) β
πΏ1) |
74 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β π β β) |
75 | 72, 18, 73, 21, 74 | fourierdlem21 44830 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (((π΅βπ) β β β§ (π₯ β πΆ β¦ ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) β πΏ1) β§
β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β)) |
76 | 75 | simprd 496 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β) |
77 | 71, 76 | chvarvv 2002 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β) |
78 | 44 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β Ο β
β) |
79 | 48 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β Ο β
0) |
80 | 77, 78, 79 | redivcld 12038 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) β β) |
81 | 80, 21 | fmptd 7110 |
. . . . . . . . 9
β’ (π β π΅:ββΆβ) |
82 | 81 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β π΅:ββΆβ) |
83 | 53 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β π β β) |
84 | 82, 83 | ffvelcdmd 7084 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (π΅βπ) β β) |
85 | 60 | resincld 16082 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (sinβ(π Β· π)) β β) |
86 | 84, 85 | remulcld 11240 |
. . . . . 6
β’ ((π β§ π β (1...π)) β ((π΅βπ) Β· (sinβ(π Β· π))) β β) |
87 | 62, 86 | readdcld 11239 |
. . . . 5
β’ ((π β§ π β (1...π)) β (((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) β β) |
88 | 28, 87 | fsumrecl 15676 |
. . . 4
β’ (π β Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) β β) |
89 | 27, 88 | readdcld 11239 |
. . 3
β’ (π β (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))) β β) |
90 | 2, 6, 7, 89 | fvmptd 7002 |
. 2
β’ (π β (πβπ) = (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))))) |
91 | 20 | a1i 11 |
. . . . . . 7
β’ (π β π΄ = (π β β0 β¦
(β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο))) |
92 | | oveq1 7412 |
. . . . . . . . . . . . 13
β’ (π = 0 β (π Β· π₯) = (0 Β· π₯)) |
93 | 92 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π = 0 β (cosβ(π Β· π₯)) = (cosβ(0 Β· π₯))) |
94 | 93 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (π = 0 β ((πΉβπ₯) Β· (cosβ(π Β· π₯))) = ((πΉβπ₯) Β· (cosβ(0 Β· π₯)))) |
95 | 94 | adantr 481 |
. . . . . . . . . 10
β’ ((π = 0 β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· π₯))) = ((πΉβπ₯) Β· (cosβ(0 Β· π₯)))) |
96 | 95 | itgeq2dv 25290 |
. . . . . . . . 9
β’ (π = 0 β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ = β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯) |
97 | 96 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π = 0) β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ = β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯) |
98 | 97 | oveq1d 7420 |
. . . . . . 7
β’ ((π β§ π = 0) β (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) = (β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ / Ο)) |
99 | 17, 18, 19, 20, 10 | fourierdlem16 44825 |
. . . . . . . . 9
β’ (π β (((π΄β0) β β β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1) β§
β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ β β)) |
100 | 99 | simprd 496 |
. . . . . . . 8
β’ (π β β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ β β) |
101 | 44 | a1i 11 |
. . . . . . . 8
β’ (π β Ο β
β) |
102 | 48 | a1i 11 |
. . . . . . . 8
β’ (π β Ο β
0) |
103 | 100, 101,
102 | redivcld 12038 |
. . . . . . 7
β’ (π β (β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ / Ο) β β) |
104 | 91, 98, 10, 103 | fvmptd 7002 |
. . . . . 6
β’ (π β (π΄β0) = (β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ / Ο)) |
105 | | ioosscn 13382 |
. . . . . . . . . . . . . . 15
β’
(-Ο(,)Ο) β β |
106 | | id 22 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β πΆ β π₯ β πΆ) |
107 | 106, 18 | eleqtrdi 2843 |
. . . . . . . . . . . . . . 15
β’ (π₯ β πΆ β π₯ β (-Ο(,)Ο)) |
108 | 105, 107 | sselid 3979 |
. . . . . . . . . . . . . 14
β’ (π₯ β πΆ β π₯ β β) |
109 | 108 | mul02d 11408 |
. . . . . . . . . . . . 13
β’ (π₯ β πΆ β (0 Β· π₯) = 0) |
110 | 109 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π₯ β πΆ β (cosβ(0 Β· π₯)) =
(cosβ0)) |
111 | | cos0 16089 |
. . . . . . . . . . . 12
β’
(cosβ0) = 1 |
112 | 110, 111 | eqtrdi 2788 |
. . . . . . . . . . 11
β’ (π₯ β πΆ β (cosβ(0 Β· π₯)) = 1) |
113 | 112 | oveq2d 7421 |
. . . . . . . . . 10
β’ (π₯ β πΆ β ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) = ((πΉβπ₯) Β· 1)) |
114 | 113 | adantl 482 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) = ((πΉβπ₯) Β· 1)) |
115 | 17 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β πΆ) β πΉ:ββΆβ) |
116 | | ioossre 13381 |
. . . . . . . . . . . . . 14
β’
(-Ο(,)Ο) β β |
117 | 116, 107 | sselid 3979 |
. . . . . . . . . . . . 13
β’ (π₯ β πΆ β π₯ β β) |
118 | 117 | adantl 482 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β πΆ) β π₯ β β) |
119 | 115, 118 | ffvelcdmd 7084 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β (πΉβπ₯) β β) |
120 | 119 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β (πΉβπ₯) β β) |
121 | 120 | mulridd 11227 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· 1) = (πΉβπ₯)) |
122 | 114, 121 | eqtrd 2772 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) = (πΉβπ₯)) |
123 | 122 | itgeq2dv 25290 |
. . . . . . 7
β’ (π β β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ = β«πΆ(πΉβπ₯) dπ₯) |
124 | 123 | oveq1d 7420 |
. . . . . 6
β’ (π β (β«πΆ((πΉβπ₯) Β· (cosβ(0 Β· π₯))) dπ₯ / Ο) = (β«πΆ(πΉβπ₯) dπ₯ / Ο)) |
125 | 104, 124 | eqtrd 2772 |
. . . . 5
β’ (π β (π΄β0) = (β«πΆ(πΉβπ₯) dπ₯ / Ο)) |
126 | 125 | oveq1d 7420 |
. . . 4
β’ (π β ((π΄β0) / 2) = ((β«πΆ(πΉβπ₯) dπ₯ / Ο) / 2)) |
127 | 17 | feqmptd 6957 |
. . . . . . . . 9
β’ (π β πΉ = (π₯ β β β¦ (πΉβπ₯))) |
128 | 127 | reseq1d 5978 |
. . . . . . . 8
β’ (π β (πΉ βΎ πΆ) = ((π₯ β β β¦ (πΉβπ₯)) βΎ πΆ)) |
129 | 44 | a1i 11 |
. . . . . . . . . . . 12
β’ (π₯ β πΆ β Ο β
β) |
130 | 129 | renegcld 11637 |
. . . . . . . . . . 11
β’ (π₯ β πΆ β -Ο β
β) |
131 | | ioossicc 13406 |
. . . . . . . . . . . . 13
β’
(-Ο(,)Ο) β (-Ο[,]Ο) |
132 | 18, 131 | eqsstri 4015 |
. . . . . . . . . . . 12
β’ πΆ β
(-Ο[,]Ο) |
133 | 132 | sseli 3977 |
. . . . . . . . . . 11
β’ (π₯ β πΆ β π₯ β (-Ο[,]Ο)) |
134 | | eliccre 44204 |
. . . . . . . . . . 11
β’ ((-Ο
β β β§ Ο β β β§ π₯ β (-Ο[,]Ο)) β π₯ β
β) |
135 | 130, 129,
133, 134 | syl3anc 1371 |
. . . . . . . . . 10
β’ (π₯ β πΆ β π₯ β β) |
136 | 135 | ssriv 3985 |
. . . . . . . . 9
β’ πΆ β
β |
137 | | resmpt 6035 |
. . . . . . . . 9
β’ (πΆ β β β ((π₯ β β β¦ (πΉβπ₯)) βΎ πΆ) = (π₯ β πΆ β¦ (πΉβπ₯))) |
138 | 136, 137 | mp1i 13 |
. . . . . . . 8
β’ (π β ((π₯ β β β¦ (πΉβπ₯)) βΎ πΆ) = (π₯ β πΆ β¦ (πΉβπ₯))) |
139 | 128, 138 | eqtr2d 2773 |
. . . . . . 7
β’ (π β (π₯ β πΆ β¦ (πΉβπ₯)) = (πΉ βΎ πΆ)) |
140 | 139, 19 | eqeltrd 2833 |
. . . . . 6
β’ (π β (π₯ β πΆ β¦ (πΉβπ₯)) β
πΏ1) |
141 | 119, 140 | itgcl 25292 |
. . . . 5
β’ (π β β«πΆ(πΉβπ₯) dπ₯ β β) |
142 | 101 | recnd 11238 |
. . . . 5
β’ (π β Ο β
β) |
143 | | 2cnd 12286 |
. . . . 5
β’ (π β 2 β
β) |
144 | | 2ne0 12312 |
. . . . . 6
β’ 2 β
0 |
145 | 144 | a1i 11 |
. . . . 5
β’ (π β 2 β 0) |
146 | 141, 142,
143, 102, 145 | divdiv32d 12011 |
. . . 4
β’ (π β ((β«πΆ(πΉβπ₯) dπ₯ / Ο) / 2) = ((β«πΆ(πΉβπ₯) dπ₯ / 2) / Ο)) |
147 | 141, 143,
145 | divrecd 11989 |
. . . . . 6
β’ (π β (β«πΆ(πΉβπ₯) dπ₯ / 2) = (β«πΆ(πΉβπ₯) dπ₯ Β· (1 / 2))) |
148 | 143, 145 | reccld 11979 |
. . . . . . 7
β’ (π β (1 / 2) β
β) |
149 | 141, 148 | mulcomd 11231 |
. . . . . 6
β’ (π β (β«πΆ(πΉβπ₯) dπ₯ Β· (1 / 2)) = ((1 / 2) Β·
β«πΆ(πΉβπ₯) dπ₯)) |
150 | 148, 119,
140 | itgmulc2 25342 |
. . . . . 6
β’ (π β ((1 / 2) Β·
β«πΆ(πΉβπ₯) dπ₯) = β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯) |
151 | 147, 149,
150 | 3eqtrd 2776 |
. . . . 5
β’ (π β (β«πΆ(πΉβπ₯) dπ₯ / 2) = β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯) |
152 | 151 | oveq1d 7420 |
. . . 4
β’ (π β ((β«πΆ(πΉβπ₯) dπ₯ / 2) / Ο) = (β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ / Ο)) |
153 | 126, 146,
152 | 3eqtrd 2776 |
. . 3
β’ (π β ((π΄β0) / 2) = (β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ / Ο)) |
154 | 55, 50 | syldan 591 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) β β) |
155 | 20 | fvmpt2 7006 |
. . . . . . . . . 10
β’ ((π β β0
β§ (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) β β) β (π΄βπ) = (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο)) |
156 | 55, 154, 155 | syl2anc 584 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π΄βπ) = (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο)) |
157 | 156 | oveq1d 7420 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((π΄βπ) Β· (cosβ(π Β· π))) = ((β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) Β· (cosβ(π Β· π)))) |
158 | 154 | recnd 11238 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) β β) |
159 | 61 | recnd 11238 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (cosβ(π Β· π)) β β) |
160 | 158, 159 | mulcomd 11231 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο) Β· (cosβ(π Β· π))) = ((cosβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο))) |
161 | 55, 43 | syldan 591 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β) |
162 | 161 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ β β) |
163 | 142 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β Ο β
β) |
164 | 48 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β Ο β 0) |
165 | 159, 162,
163, 164 | divassd 12021 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (((cosβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯) / Ο) = ((cosβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο))) |
166 | 17 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π₯ β πΆ) β πΉ:ββΆβ) |
167 | 117 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π₯ β πΆ) β π₯ β β) |
168 | 166, 167 | ffvelcdmd 7084 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
169 | | nn0re 12477 |
. . . . . . . . . . . . . . . . 17
β’ (π β β0
β π β
β) |
170 | 169 | ad2antlr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π₯ β πΆ) β π β β) |
171 | 170, 167 | remulcld 11240 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π₯ β πΆ) β (π Β· π₯) β β) |
172 | 171 | recoscld 16083 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π₯ β πΆ) β (cosβ(π Β· π₯)) β β) |
173 | 168, 172 | remulcld 11240 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· π₯))) β β) |
174 | 54, 173 | sylanl2 679 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· π₯))) β β) |
175 | | ioombl 25073 |
. . . . . . . . . . . . . . . . . . 19
β’
(-Ο(,)Ο) β dom vol |
176 | 18, 175 | eqeltri 2829 |
. . . . . . . . . . . . . . . . . 18
β’ πΆ β dom vol |
177 | 176 | elexi 3493 |
. . . . . . . . . . . . . . . . 17
β’ πΆ β V |
178 | 177 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β πΆ β V) |
179 | | eqidd 2733 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (cosβ(π Β· π₯))) = (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) |
180 | | eqidd 2733 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (πΉβπ₯)) = (π₯ β πΆ β¦ (πΉβπ₯))) |
181 | 178, 172,
168, 179, 180 | offval2 7686 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β ((π₯ β πΆ β¦ (cosβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) = (π₯ β πΆ β¦ ((cosβ(π Β· π₯)) Β· (πΉβπ₯)))) |
182 | 172 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π₯ β πΆ) β (cosβ(π Β· π₯)) β β) |
183 | 120 | adantlr 713 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
184 | 182, 183 | mulcomd 11231 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π₯ β πΆ) β ((cosβ(π Β· π₯)) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) |
185 | 184 | mpteq2dva 5247 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ ((cosβ(π Β· π₯)) Β· (πΉβπ₯))) = (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· π₯))))) |
186 | 181, 185 | eqtr2d 2773 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) = ((π₯ β πΆ β¦ (cosβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯)))) |
187 | | coscn 25948 |
. . . . . . . . . . . . . . . . . 18
β’ cos
β (ββcnββ) |
188 | 187 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β0) β cos
β (ββcnββ)) |
189 | | ax-resscn 11163 |
. . . . . . . . . . . . . . . . . . . . 21
β’ β
β β |
190 | 136, 189 | sstri 3990 |
. . . . . . . . . . . . . . . . . . . 20
β’ πΆ β
β |
191 | 190 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β0) β πΆ β
β) |
192 | 169 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β0
β π β
β) |
193 | 192 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β0) β π β
β) |
194 | | ssid 4003 |
. . . . . . . . . . . . . . . . . . . 20
β’ β
β β |
195 | 194 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β0) β β
β β) |
196 | 191, 193,
195 | constcncfg 44574 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ π) β (πΆβcnββ)) |
197 | 191, 195 | idcncfg 44575 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ π₯) β (πΆβcnββ)) |
198 | 196, 197 | mulcncf 24954 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (π Β· π₯)) β (πΆβcnββ)) |
199 | 188, 198 | cncfmpt1f 24421 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (cosβ(π Β· π₯))) β (πΆβcnββ)) |
200 | | cnmbf 25167 |
. . . . . . . . . . . . . . . 16
β’ ((πΆ β dom vol β§ (π₯ β πΆ β¦ (cosβ(π Β· π₯))) β (πΆβcnββ)) β (π₯ β πΆ β¦ (cosβ(π Β· π₯))) β MblFn) |
201 | 176, 199,
200 | sylancr 587 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (cosβ(π Β· π₯))) β MblFn) |
202 | 140 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ (πΉβπ₯)) β
πΏ1) |
203 | | 1re 11210 |
. . . . . . . . . . . . . . . . 17
β’ 1 β
β |
204 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) β π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) |
205 | 169 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β β0
β§ π₯ β πΆ) β π β β) |
206 | 117 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β β0
β§ π₯ β πΆ) β π₯ β β) |
207 | 205, 206 | remulcld 11240 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β β0
β§ π₯ β πΆ) β (π Β· π₯) β β) |
208 | 207 | recoscld 16083 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β0
β§ π₯ β πΆ) β (cosβ(π Β· π₯)) β β) |
209 | 208 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β β0
β βπ₯ β
πΆ (cosβ(π Β· π₯)) β β) |
210 | 209 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β0
β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) β βπ₯ β πΆ (cosβ(π Β· π₯)) β β) |
211 | | dmmptg 6238 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(βπ₯ β
πΆ (cosβ(π Β· π₯)) β β β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯))) = πΆ) |
212 | 210, 211 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯))) = πΆ) |
213 | 204, 212 | eleqtrd 2835 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β0
β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) β π¦ β πΆ) |
214 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ π¦ β πΆ) β (π₯ β πΆ β¦ (cosβ(π Β· π₯))) = (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) |
215 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π₯ = π¦ β (π Β· π₯) = (π Β· π¦)) |
216 | 215 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π₯ = π¦ β (cosβ(π Β· π₯)) = (cosβ(π Β· π¦))) |
217 | 216 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β β0
β§ π¦ β πΆ) β§ π₯ = π¦) β (cosβ(π Β· π₯)) = (cosβ(π Β· π¦))) |
218 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ π¦ β πΆ) β π¦ β πΆ) |
219 | 169 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β β0
β§ π¦ β πΆ) β π β β) |
220 | 136, 218 | sselid 3979 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β β0
β§ π¦ β πΆ) β π¦ β β) |
221 | 219, 220 | remulcld 11240 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β0
β§ π¦ β πΆ) β (π Β· π¦) β β) |
222 | 221 | recoscld 16083 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ π¦ β πΆ) β (cosβ(π Β· π¦)) β β) |
223 | 214, 217,
218, 222 | fvmptd 7002 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β0
β§ π¦ β πΆ) β ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦) = (cosβ(π Β· π¦))) |
224 | 223 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) = (absβ(cosβ(π Β· π¦)))) |
225 | | abscosbd 43974 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π Β· π¦) β β β
(absβ(cosβ(π
Β· π¦))) β€
1) |
226 | 221, 225 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ π¦ β πΆ) β
(absβ(cosβ(π
Β· π¦))) β€
1) |
227 | 224, 226 | eqbrtrd 5169 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β0
β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1) |
228 | 213, 227 | syldan 591 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β0
β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1) |
229 | 228 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . 17
β’ (π β β0
β βπ¦ β dom
(π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1) |
230 | | breq2 5151 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 1 β ((absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π β (absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1)) |
231 | 230 | ralbidv 3177 |
. . . . . . . . . . . . . . . . . 18
β’ (π = 1 β (βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1)) |
232 | 231 | rspcev 3612 |
. . . . . . . . . . . . . . . . 17
β’ ((1
β β β§ βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ 1) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π) |
233 | 203, 229,
232 | sylancr 587 |
. . . . . . . . . . . . . . . 16
β’ (π β β0
β βπ β
β βπ¦ β
dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π) |
234 | 233 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π) |
235 | | bddmulibl 25347 |
. . . . . . . . . . . . . . 15
β’ (((π₯ β πΆ β¦ (cosβ(π Β· π₯))) β MblFn β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1 β§
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (cosβ(π Β· π₯)))βπ¦)) β€ π) β ((π₯ β πΆ β¦ (cosβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
236 | 201, 202,
234, 235 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β0) β ((π₯ β πΆ β¦ (cosβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
237 | 186, 236 | eqeltrd 2833 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β0) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) β
πΏ1) |
238 | 55, 237 | syldan 591 |
. . . . . . . . . . . 12
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) β
πΏ1) |
239 | 159, 174,
238 | itgmulc2 25342 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β ((cosβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯) = β«πΆ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) dπ₯) |
240 | 159 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· π)) β β) |
241 | 120 | adantlr 713 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
242 | 54, 182 | sylanl2 679 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· π₯)) β β) |
243 | 240, 241,
242 | mul12d 11419 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((cosβ(π Β· π)) Β· (cosβ(π Β· π₯))))) |
244 | 240, 242 | mulcomd 11231 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π)) Β· (cosβ(π Β· π₯))) = ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) |
245 | 244 | oveq2d 7421 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((cosβ(π Β· π)) Β· (cosβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))))) |
246 | 243, 245 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))))) |
247 | 246 | itgeq2dv 25290 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β β«πΆ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) dπ₯ = β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯) |
248 | 239, 247 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β ((cosβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯) = β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯) |
249 | 248 | oveq1d 7420 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (((cosβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯) / Ο) = (β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ / Ο)) |
250 | 165, 249 | eqtr3d 2774 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((cosβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· π₯))) dπ₯ / Ο)) = (β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ / Ο)) |
251 | 157, 160,
250 | 3eqtrd 2776 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β ((π΄βπ) Β· (cosβ(π Β· π))) = (β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ / Ο)) |
252 | 83, 80 | syldan 591 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) β β) |
253 | 21 | fvmpt2 7006 |
. . . . . . . . . 10
β’ ((π β β β§
(β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) β β) β (π΅βπ) = (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο)) |
254 | 83, 252, 253 | syl2anc 584 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π΅βπ) = (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο)) |
255 | 254 | oveq1d 7420 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((π΅βπ) Β· (sinβ(π Β· π))) = ((β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) Β· (sinβ(π Β· π)))) |
256 | 252 | recnd 11238 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) β β) |
257 | 85 | recnd 11238 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (sinβ(π Β· π)) β β) |
258 | 256, 257 | mulcomd 11231 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο) Β· (sinβ(π Β· π))) = ((sinβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο))) |
259 | 83, 77 | syldan 591 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β) |
260 | 259 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ β β) |
261 | 257, 260,
163, 164 | divassd 12021 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (((sinβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯) / Ο) = ((sinβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο))) |
262 | 119 | adantlr 713 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
263 | | nnre 12215 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β π β
β) |
264 | 263 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π₯ β πΆ) β π β β) |
265 | 117 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π₯ β πΆ) β π₯ β β) |
266 | 264, 265 | remulcld 11240 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π₯ β πΆ) β (π Β· π₯) β β) |
267 | 266 | resincld 16082 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π₯ β πΆ) β (sinβ(π Β· π₯)) β β) |
268 | 267 | adantll 712 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β) β§ π₯ β πΆ) β (sinβ(π Β· π₯)) β β) |
269 | 262, 268 | remulcld 11240 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (sinβ(π Β· π₯))) β β) |
270 | 53, 269 | sylanl2 679 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (sinβ(π Β· π₯))) β β) |
271 | 177 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β πΆ β V) |
272 | | eqidd 2733 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (sinβ(π Β· π₯))) = (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) |
273 | | eqidd 2733 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (πΉβπ₯)) = (π₯ β πΆ β¦ (πΉβπ₯))) |
274 | 271, 268,
262, 272, 273 | offval2 7686 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β ((π₯ β πΆ β¦ (sinβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) = (π₯ β πΆ β¦ ((sinβ(π Β· π₯)) Β· (πΉβπ₯)))) |
275 | 268 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β) β§ π₯ β πΆ) β (sinβ(π Β· π₯)) β β) |
276 | 120 | adantlr 713 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
277 | 275, 276 | mulcomd 11231 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β) β§ π₯ β πΆ) β ((sinβ(π Β· π₯)) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) |
278 | 277 | mpteq2dva 5247 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β (π₯ β πΆ β¦ ((sinβ(π Β· π₯)) Β· (πΉβπ₯))) = (π₯ β πΆ β¦ ((πΉβπ₯) Β· (sinβ(π Β· π₯))))) |
279 | 274, 278 | eqtr2d 2773 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) = ((π₯ β πΆ β¦ (sinβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯)))) |
280 | | sincn 25947 |
. . . . . . . . . . . . . . . . . 18
β’ sin
β (ββcnββ) |
281 | 280 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β) β sin β
(ββcnββ)) |
282 | 190 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β πΆ β
β) |
283 | 263 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β π β
β) |
284 | 194 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β β
β β) |
285 | 282, 283,
284 | constcncfg 44574 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β (π₯ β πΆ β¦ π) β (πΆβcnββ)) |
286 | 282, 284 | idcncfg 44575 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β (π₯ β πΆ β¦ π₯) β (πΆβcnββ)) |
287 | 285, 286 | mulcncf 24954 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β (π₯ β πΆ β¦ (π Β· π₯)) β (πΆβcnββ)) |
288 | 287 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (π Β· π₯)) β (πΆβcnββ)) |
289 | 281, 288 | cncfmpt1f 24421 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (sinβ(π Β· π₯))) β (πΆβcnββ)) |
290 | | cnmbf 25167 |
. . . . . . . . . . . . . . . 16
β’ ((πΆ β dom vol β§ (π₯ β πΆ β¦ (sinβ(π Β· π₯))) β (πΆβcnββ)) β (π₯ β πΆ β¦ (sinβ(π Β· π₯))) β MblFn) |
291 | 176, 289,
290 | sylancr 587 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (sinβ(π Β· π₯))) β MblFn) |
292 | 140 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β (π₯ β πΆ β¦ (πΉβπ₯)) β
πΏ1) |
293 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) β π¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) |
294 | 267 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β β β
βπ₯ β πΆ (sinβ(π Β· π₯)) β β) |
295 | | dmmptg 6238 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(βπ₯ β
πΆ (sinβ(π Β· π₯)) β β β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯))) = πΆ) |
296 | 294, 295 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β β dom
(π₯ β πΆ β¦ (sinβ(π Β· π₯))) = πΆ) |
297 | 296 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯))) = πΆ) |
298 | 293, 297 | eleqtrd 2835 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) β π¦ β πΆ) |
299 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π¦ β πΆ) β (π₯ β πΆ β¦ (sinβ(π Β· π₯))) = (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) |
300 | 215 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π₯ = π¦ β (sinβ(π Β· π₯)) = (sinβ(π Β· π¦))) |
301 | 300 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β β β§ π¦ β πΆ) β§ π₯ = π¦) β (sinβ(π Β· π₯)) = (sinβ(π Β· π¦))) |
302 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π¦ β πΆ) β π¦ β πΆ) |
303 | 263 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β β β§ π¦ β πΆ) β π β β) |
304 | 136, 302 | sselid 3979 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β β β§ π¦ β πΆ) β π¦ β β) |
305 | 303, 304 | remulcld 11240 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β β§ π¦ β πΆ) β (π Β· π¦) β β) |
306 | 305 | resincld 16082 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π¦ β πΆ) β (sinβ(π Β· π¦)) β β) |
307 | 299, 301,
302, 306 | fvmptd 7002 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π¦ β πΆ) β ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦) = (sinβ(π Β· π¦))) |
308 | 307 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) = (absβ(sinβ(π Β· π¦)))) |
309 | | abssinbd 43991 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π Β· π¦) β β β
(absβ(sinβ(π
Β· π¦))) β€
1) |
310 | 305, 309 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π¦ β πΆ) β (absβ(sinβ(π Β· π¦))) β€ 1) |
311 | 308, 310 | eqbrtrd 5169 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1) |
312 | 298, 311 | syldan 591 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β β§ π¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))) β (absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1) |
313 | 312 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β
βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1) |
314 | | breq2 5151 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 1 β ((absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π β (absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1)) |
315 | 314 | ralbidv 3177 |
. . . . . . . . . . . . . . . . . 18
β’ (π = 1 β (βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π β βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1)) |
316 | 315 | rspcev 3612 |
. . . . . . . . . . . . . . . . 17
β’ ((1
β β β§ βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ 1) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π) |
317 | 203, 313,
316 | sylancr 587 |
. . . . . . . . . . . . . . . 16
β’ (π β β β
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π) |
318 | 317 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π) |
319 | | bddmulibl 25347 |
. . . . . . . . . . . . . . 15
β’ (((π₯ β πΆ β¦ (sinβ(π Β· π₯))) β MblFn β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1 β§
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ (sinβ(π Β· π₯)))(absβ((π₯ β πΆ β¦ (sinβ(π Β· π₯)))βπ¦)) β€ π) β ((π₯ β πΆ β¦ (sinβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
320 | 291, 292,
318, 319 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β ((π₯ β πΆ β¦ (sinβ(π Β· π₯))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
321 | 279, 320 | eqeltrd 2833 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) β
πΏ1) |
322 | 83, 321 | syldan 591 |
. . . . . . . . . . . 12
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) β
πΏ1) |
323 | 257, 270,
322 | itgmulc2 25342 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β ((sinβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯) = β«πΆ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) dπ₯) |
324 | 257 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (sinβ(π Β· π)) β β) |
325 | 53, 275 | sylanl2 679 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (sinβ(π Β· π₯)) β β) |
326 | 324, 241,
325 | mul12d 11419 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((sinβ(π Β· π)) Β· (sinβ(π Β· π₯))))) |
327 | 324, 325 | mulcomd 11231 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π)) Β· (sinβ(π Β· π₯))) = ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) |
328 | 327 | oveq2d 7421 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((sinβ(π Β· π)) Β· (sinβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) |
329 | 326, 328 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) = ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) |
330 | 329 | itgeq2dv 25290 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β β«πΆ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) dπ₯ = β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯) |
331 | 323, 330 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β ((sinβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯) = β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯) |
332 | 331 | oveq1d 7420 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (((sinβ(π Β· π)) Β· β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯) / Ο) = (β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ / Ο)) |
333 | 261, 332 | eqtr3d 2774 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((sinβ(π Β· π)) Β· (β«πΆ((πΉβπ₯) Β· (sinβ(π Β· π₯))) dπ₯ / Ο)) = (β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ / Ο)) |
334 | 255, 258,
333 | 3eqtrd 2776 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β ((π΅βπ) Β· (sinβ(π Β· π))) = (β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ / Ο)) |
335 | 251, 334 | oveq12d 7423 |
. . . . . 6
β’ ((π β§ π β (1...π)) β (((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) = ((β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ / Ο) + (β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ / Ο))) |
336 | 54, 168 | sylanl2 679 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (πΉβπ₯) β β) |
337 | 55, 208 | sylan 580 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· π₯)) β β) |
338 | 61 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· π)) β β) |
339 | 337, 338 | remulcld 11240 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) β β) |
340 | 336, 339 | remulcld 11240 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) β β) |
341 | 241, 242,
240 | mul13d 43975 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) = ((cosβ(π Β· π)) Β· ((cosβ(π Β· π₯)) Β· (πΉβπ₯)))) |
342 | 242, 241 | mulcomd 11231 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π₯)) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (cosβ(π Β· π₯)))) |
343 | 342 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π)) Β· ((cosβ(π Β· π₯)) Β· (πΉβπ₯))) = ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯))))) |
344 | 341, 343 | eqtrd 2772 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) = ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯))))) |
345 | 344 | mpteq2dva 5247 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))))) = (π₯ β πΆ β¦ ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯)))))) |
346 | 159, 174,
238 | iblmulc2 25339 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((cosβ(π Β· π)) Β· ((πΉβπ₯) Β· (cosβ(π Β· π₯))))) β
πΏ1) |
347 | 345, 346 | eqeltrd 2833 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))))) β
πΏ1) |
348 | 340, 347 | itgcl 25292 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ β β) |
349 | 83, 267 | sylan 580 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (sinβ(π Β· π₯)) β β) |
350 | 85 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (sinβ(π Β· π)) β β) |
351 | 349, 350 | remulcld 11240 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))) β β) |
352 | 336, 351 | remulcld 11240 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) β β) |
353 | 241, 325,
324 | mul13d 43975 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) = ((sinβ(π Β· π)) Β· ((sinβ(π Β· π₯)) Β· (πΉβπ₯)))) |
354 | 325, 241 | mulcomd 11231 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π₯)) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (sinβ(π Β· π₯)))) |
355 | 354 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π)) Β· ((sinβ(π Β· π₯)) Β· (πΉβπ₯))) = ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯))))) |
356 | 353, 355 | eqtrd 2772 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) = ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯))))) |
357 | 356 | mpteq2dva 5247 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) = (π₯ β πΆ β¦ ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯)))))) |
358 | 257, 270,
322 | iblmulc2 25339 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((sinβ(π Β· π)) Β· ((πΉβπ₯) Β· (sinβ(π Β· π₯))))) β
πΏ1) |
359 | 357, 358 | eqeltrd 2833 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) β
πΏ1) |
360 | 352, 359 | itgcl 25292 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ β β) |
361 | 348, 360,
163, 164 | divdird 12024 |
. . . . . 6
β’ ((π β§ π β (1...π)) β ((β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ + β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯) / Ο) = ((β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ / Ο) + (β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯ / Ο))) |
362 | 53 | nncnd 12224 |
. . . . . . . . . . . . . . 15
β’ (π β (1...π) β π β β) |
363 | 362 | ad2antlr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π β β) |
364 | 108 | adantl 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π₯ β β) |
365 | 58 | recnd 11238 |
. . . . . . . . . . . . . . 15
β’ (π β π β β) |
366 | 365 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π β β) |
367 | 363, 364,
366 | subdid 11666 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π Β· (π₯ β π)) = ((π Β· π₯) β (π Β· π))) |
368 | 367 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· (π₯ β π))) = (cosβ((π Β· π₯) β (π Β· π)))) |
369 | 363, 364 | mulcld 11230 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π Β· π₯) β β) |
370 | 363, 366 | mulcld 11230 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π Β· π) β β) |
371 | | cossub 16108 |
. . . . . . . . . . . . 13
β’ (((π Β· π₯) β β β§ (π Β· π) β β) β (cosβ((π Β· π₯) β (π Β· π))) = (((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) + ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) |
372 | 369, 370,
371 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ((π Β· π₯) β (π Β· π))) = (((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) + ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) |
373 | 368, 372 | eqtrd 2772 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· (π₯ β π))) = (((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) + ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) |
374 | 373 | oveq2d 7421 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) = ((πΉβπ₯) Β· (((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) + ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))))) |
375 | 339 | recnd 11238 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) β β) |
376 | 351 | recnd 11238 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))) β β) |
377 | 241, 375,
376 | adddid 11234 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (((cosβ(π Β· π₯)) Β· (cosβ(π Β· π))) + ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) = (((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) + ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))))) |
378 | 374, 377 | eqtrd 2772 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) = (((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) + ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))))) |
379 | 378 | itgeq2dv 25290 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ = β«πΆ(((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) + ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) dπ₯) |
380 | 340, 347,
352, 359 | itgadd 25333 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β β«πΆ(((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) + ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π))))) dπ₯ = (β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ + β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯)) |
381 | 379, 380 | eqtr2d 2773 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ + β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯) = β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) |
382 | 381 | oveq1d 7420 |
. . . . . 6
β’ ((π β§ π β (1...π)) β ((β«πΆ((πΉβπ₯) Β· ((cosβ(π Β· π₯)) Β· (cosβ(π Β· π)))) dπ₯ + β«πΆ((πΉβπ₯) Β· ((sinβ(π Β· π₯)) Β· (sinβ(π Β· π)))) dπ₯) / Ο) = (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
383 | 335, 361,
382 | 3eqtr2d 2778 |
. . . . 5
β’ ((π β§ π β (1...π)) β (((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) = (β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
384 | 383 | sumeq2dv 15645 |
. . . 4
β’ (π β Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) = Ξ£π β (1...π)(β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
385 | 57 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π β β) |
386 | 117 | adantl 482 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π₯ β β) |
387 | 58 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β π β β) |
388 | 386, 387 | resubcld 11638 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π₯ β π) β β) |
389 | 385, 388 | remulcld 11240 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π Β· (π₯ β π)) β β) |
390 | 389 | recoscld 16083 |
. . . . . . 7
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· (π₯ β π))) β β) |
391 | 336, 390 | remulcld 11240 |
. . . . . 6
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) β β) |
392 | 177 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β πΆ β V) |
393 | | eqidd 2733 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) = (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) |
394 | | eqidd 2733 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (πΉβπ₯)) = (π₯ β πΆ β¦ (πΉβπ₯))) |
395 | 392, 390,
336, 393, 394 | offval2 7686 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) = (π₯ β πΆ β¦ ((cosβ(π Β· (π₯ β π))) Β· (πΉβπ₯)))) |
396 | 390 | recnd 11238 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (cosβ(π Β· (π₯ β π))) β β) |
397 | 396, 241 | mulcomd 11231 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β ((cosβ(π Β· (π₯ β π))) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) |
398 | 397 | mpteq2dva 5247 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((cosβ(π Β· (π₯ β π))) Β· (πΉβπ₯))) = (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))))) |
399 | 395, 398 | eqtr2d 2773 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) = ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯)))) |
400 | 187 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β cos β (ββcnββ)) |
401 | 83, 285 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ π) β (πΆβcnββ)) |
402 | 83, 286 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ π₯) β (πΆβcnββ)) |
403 | 190 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...π)) β πΆ β β) |
404 | 365 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...π)) β π β β) |
405 | 194 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...π)) β β β
β) |
406 | 403, 404,
405 | constcncfg 44574 |
. . . . . . . . . . . 12
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ π) β (πΆβcnββ)) |
407 | 402, 406 | subcncf 24953 |
. . . . . . . . . . 11
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (π₯ β π)) β (πΆβcnββ)) |
408 | 401, 407 | mulcncf 24954 |
. . . . . . . . . 10
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (π Β· (π₯ β π))) β (πΆβcnββ)) |
409 | 400, 408 | cncfmpt1f 24421 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) β (πΆβcnββ)) |
410 | | cnmbf 25167 |
. . . . . . . . 9
β’ ((πΆ β dom vol β§ (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) β (πΆβcnββ)) β (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) β MblFn) |
411 | 176, 409,
410 | sylancr 587 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) β MblFn) |
412 | 140 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ (πΉβπ₯)) β
πΏ1) |
413 | | simpr 485 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) β π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) |
414 | 390 | ralrimiva 3146 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (1...π)) β βπ₯ β πΆ (cosβ(π Β· (π₯ β π))) β β) |
415 | | dmmptg 6238 |
. . . . . . . . . . . . . 14
β’
(βπ₯ β
πΆ (cosβ(π Β· (π₯ β π))) β β β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) = πΆ) |
416 | 414, 415 | syl 17 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...π)) β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) = πΆ) |
417 | 416 | adantr 481 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) = πΆ) |
418 | 413, 417 | eleqtrd 2835 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) β π¦ β πΆ) |
419 | | eqidd 2733 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) = (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) |
420 | | oveq1 7412 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ = π¦ β (π₯ β π) = (π¦ β π)) |
421 | 420 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
β’ (π₯ = π¦ β (π Β· (π₯ β π)) = (π Β· (π¦ β π))) |
422 | 421 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ (π₯ = π¦ β (cosβ(π Β· (π₯ β π))) = (cosβ(π Β· (π¦ β π)))) |
423 | 422 | adantl 482 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (1...π)) β§ π¦ β πΆ) β§ π₯ = π¦) β (cosβ(π Β· (π₯ β π))) = (cosβ(π Β· (π¦ β π)))) |
424 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β π¦ β πΆ) |
425 | 57 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β π β β) |
426 | 55, 220 | sylan 580 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β π¦ β β) |
427 | 58 | ad2antrr 724 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β π β β) |
428 | 426, 427 | resubcld 11638 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (π¦ β π) β β) |
429 | 425, 428 | remulcld 11240 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (π Β· (π¦ β π)) β β) |
430 | 429 | recoscld 16083 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (cosβ(π Β· (π¦ β π))) β β) |
431 | 419, 423,
424, 430 | fvmptd 7002 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦) = (cosβ(π Β· (π¦ β π)))) |
432 | 431 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) = (absβ(cosβ(π Β· (π¦ β π))))) |
433 | | abscosbd 43974 |
. . . . . . . . . . . . 13
β’ ((π Β· (π¦ β π)) β β β
(absβ(cosβ(π
Β· (π¦ β π)))) β€ 1) |
434 | 429, 433 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (absβ(cosβ(π Β· (π¦ β π)))) β€ 1) |
435 | 432, 434 | eqbrtrd 5169 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1) |
436 | 418, 435 | syldan 591 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))) β (absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1) |
437 | 436 | ralrimiva 3146 |
. . . . . . . . 9
β’ ((π β§ π β (1...π)) β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1) |
438 | | breq2 5151 |
. . . . . . . . . . 11
β’ (π = 1 β ((absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ π β (absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1)) |
439 | 438 | ralbidv 3177 |
. . . . . . . . . 10
β’ (π = 1 β (βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ π β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1)) |
440 | 439 | rspcev 3612 |
. . . . . . . . 9
β’ ((1
β β β§ βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ 1) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ π) |
441 | 203, 437,
440 | sylancr 587 |
. . . . . . . 8
β’ ((π β§ π β (1...π)) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ π) |
442 | | bddmulibl 25347 |
. . . . . . . 8
β’ (((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) β MblFn β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1 β§
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))(absβ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π))))βπ¦)) β€ π) β ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
443 | 411, 412,
441, 442 | syl3anc 1371 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β ((π₯ β πΆ β¦ (cosβ(π Β· (π₯ β π)))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
444 | 399, 443 | eqeltrd 2833 |
. . . . . 6
β’ ((π β§ π β (1...π)) β (π₯ β πΆ β¦ ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) β
πΏ1) |
445 | 391, 444 | itgcl 25292 |
. . . . 5
β’ ((π β§ π β (1...π)) β β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ β β) |
446 | 28, 142, 445, 102 | fsumdivc 15728 |
. . . 4
β’ (π β (Ξ£π β (1...π)β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο) = Ξ£π β (1...π)(β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
447 | 176 | a1i 11 |
. . . . . . . 8
β’ (π β πΆ β dom vol) |
448 | | anass 469 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π β§ (π β (1...π) β§ π₯ β πΆ))) |
449 | | ancom 461 |
. . . . . . . . . . 11
β’ ((π β (1...π) β§ π₯ β πΆ) β (π₯ β πΆ β§ π β (1...π))) |
450 | 449 | anbi2i 623 |
. . . . . . . . . 10
β’ ((π β§ (π β (1...π) β§ π₯ β πΆ)) β (π β§ (π₯ β πΆ β§ π β (1...π)))) |
451 | 448, 450 | bitri 274 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π₯ β πΆ) β (π β§ (π₯ β πΆ β§ π β (1...π)))) |
452 | 451, 391 | sylbir 234 |
. . . . . . . 8
β’ ((π β§ (π₯ β πΆ β§ π β (1...π))) β ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) β β) |
453 | 447, 28, 452, 444 | itgfsum 25335 |
. . . . . . 7
β’ (π β ((π₯ β πΆ β¦ Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) β πΏ1 β§
β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ = Ξ£π β (1...π)β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯)) |
454 | 453 | simprd 496 |
. . . . . 6
β’ (π β β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ = Ξ£π β (1...π)β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) |
455 | 454 | eqcomd 2738 |
. . . . 5
β’ (π β Ξ£π β (1...π)β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ = β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) |
456 | 455 | oveq1d 7420 |
. . . 4
β’ (π β (Ξ£π β (1...π)β«πΆ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο) = (β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
457 | 384, 446,
456 | 3eqtr2d 2778 |
. . 3
β’ (π β Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π)))) = (β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) |
458 | 153, 457 | oveq12d 7423 |
. 2
β’ (π β (((π΄β0) / 2) + Ξ£π β (1...π)(((π΄βπ) Β· (cosβ(π Β· π))) + ((π΅βπ) Β· (sinβ(π Β· π))))) = ((β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ / Ο) + (β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο))) |
459 | | fourierdlem83.d |
. . . . . . . . . . 11
β’ π· = (π β β β¦ (π β β β¦ if((π mod (2 Β· Ο)) = 0,
(((2 Β· π) + 1) / (2
Β· Ο)), ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π /
2))))))) |
460 | 7 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β π β β) |
461 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π·βπ) = (π·βπ) |
462 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π β β β¦ (((1 /
2) + Ξ£π β
(1...π)(cosβ(π Β· π ))) / Ο)) = (π β β β¦ (((1 / 2) +
Ξ£π β (1...π)(cosβ(π Β· π ))) / Ο)) |
463 | 459, 460,
461, 462 | dirkertrigeq 44803 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β (π·βπ) = (π β β β¦ (((1 / 2) +
Ξ£π β (1...π)(cosβ(π Β· π ))) / Ο))) |
464 | | oveq2 7413 |
. . . . . . . . . . . . . . 15
β’ (π = (π₯ β π) β (π Β· π ) = (π Β· (π₯ β π))) |
465 | 464 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π = (π₯ β π) β (cosβ(π Β· π )) = (cosβ(π Β· (π₯ β π)))) |
466 | 465 | sumeq2sdv 15646 |
. . . . . . . . . . . . 13
β’ (π = (π₯ β π) β Ξ£π β (1...π)(cosβ(π Β· π )) = Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) |
467 | 466 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ (π = (π₯ β π) β ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· π ))) = ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))))) |
468 | 467 | oveq1d 7420 |
. . . . . . . . . . 11
β’ (π = (π₯ β π) β (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· π ))) / Ο) = (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο)) |
469 | 468 | adantl 482 |
. . . . . . . . . 10
β’ (((π β§ π₯ β πΆ) β§ π = (π₯ β π)) β (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· π ))) / Ο) = (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο)) |
470 | 58 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β π β β) |
471 | 118, 470 | resubcld 11638 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β (π₯ β π) β β) |
472 | | halfre 12422 |
. . . . . . . . . . . . 13
β’ (1 / 2)
β β |
473 | 472 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β πΆ) β (1 / 2) β
β) |
474 | | fzfid 13934 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β πΆ) β (1...π) β Fin) |
475 | 390 | an32s 650 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β πΆ) β§ π β (1...π)) β (cosβ(π Β· (π₯ β π))) β β) |
476 | 474, 475 | fsumrecl 15676 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β πΆ) β Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))) β β) |
477 | 473, 476 | readdcld 11239 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) β β) |
478 | 44 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β Ο β
β) |
479 | 48 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β Ο β 0) |
480 | 477, 478,
479 | redivcld 12038 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο) β
β) |
481 | 463, 469,
471, 480 | fvmptd 7002 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β ((π·βπ)β(π₯ β π)) = (((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο)) |
482 | 481, 480 | eqeltrd 2833 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β ((π·βπ)β(π₯ β π)) β β) |
483 | 119, 482 | remulcld 11240 |
. . . . . . 7
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) β β) |
484 | 177 | a1i 11 |
. . . . . . . . . 10
β’ (π β πΆ β V) |
485 | | eqidd 2733 |
. . . . . . . . . 10
β’ (π β (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) = (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) |
486 | | eqidd 2733 |
. . . . . . . . . 10
β’ (π β (π₯ β πΆ β¦ (πΉβπ₯)) = (π₯ β πΆ β¦ (πΉβπ₯))) |
487 | 484, 482,
119, 485, 486 | offval2 7686 |
. . . . . . . . 9
β’ (π β ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) = (π₯ β πΆ β¦ (((π·βπ)β(π₯ β π)) Β· (πΉβπ₯)))) |
488 | 482 | recnd 11238 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΆ) β ((π·βπ)β(π₯ β π)) β β) |
489 | 488, 120 | mulcomd 11231 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β (((π·βπ)β(π₯ β π)) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π)))) |
490 | 489 | mpteq2dva 5247 |
. . . . . . . . 9
β’ (π β (π₯ β πΆ β¦ (((π·βπ)β(π₯ β π)) Β· (πΉβπ₯))) = (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))))) |
491 | 487, 490 | eqtr2d 2773 |
. . . . . . . 8
β’ (π β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π)))) = ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯)))) |
492 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π₯ β (-Ο[,]Ο) β¦
((π·βπ)β(π₯ β π))) = (π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π))) |
493 | | eqid 2732 |
. . . . . . . . . . . 12
β’ (π₯ β β β¦ ((π·βπ)β(π₯ β π))) = (π₯ β β β¦ ((π·βπ)β(π₯ β π))) |
494 | 194 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β β β
β) |
495 | | cncfss 24406 |
. . . . . . . . . . . . . 14
β’ ((β
β β β§ β β β) β (ββcnββ) β (ββcnββ)) |
496 | 189, 494,
495 | sylancr 587 |
. . . . . . . . . . . . 13
β’ (π β (ββcnββ) β (ββcnββ)) |
497 | | simpr 485 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β β) β π₯ β β) |
498 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β β) β π β β) |
499 | 497, 498 | resubcld 11638 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β β) β (π₯ β π) β β) |
500 | | eqid 2732 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β β¦ (π₯ β π)) = (π₯ β β β¦ (π₯ β π)) |
501 | 499, 500 | fmptd 7110 |
. . . . . . . . . . . . . . 15
β’ (π β (π₯ β β β¦ (π₯ β π)):ββΆβ) |
502 | 189 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β
β) |
503 | 502, 494 | idcncfg 44575 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π₯ β β β¦ π₯) β (ββcnββ)) |
504 | 502, 365,
494 | constcncfg 44574 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π₯ β β β¦ π) β (ββcnββ)) |
505 | 503, 504 | subcncf 24953 |
. . . . . . . . . . . . . . . 16
β’ (π β (π₯ β β β¦ (π₯ β π)) β (ββcnββ)) |
506 | | cncfcdm 24405 |
. . . . . . . . . . . . . . . 16
β’ ((β
β β β§ (π₯
β β β¦ (π₯
β π)) β
(ββcnββ)) β
((π₯ β β β¦
(π₯ β π)) β (ββcnββ) β (π₯ β β β¦ (π₯ β π)):ββΆβ)) |
507 | 189, 505,
506 | sylancr 587 |
. . . . . . . . . . . . . . 15
β’ (π β ((π₯ β β β¦ (π₯ β π)) β (ββcnββ) β (π₯ β β β¦ (π₯ β π)):ββΆβ)) |
508 | 501, 507 | mpbird 256 |
. . . . . . . . . . . . . 14
β’ (π β (π₯ β β β¦ (π₯ β π)) β (ββcnββ)) |
509 | 459 | dirkercncf 44809 |
. . . . . . . . . . . . . . 15
β’ (π β β β (π·βπ) β (ββcnββ)) |
510 | 7, 509 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β (π·βπ) β (ββcnββ)) |
511 | 508, 510 | cncfcompt 44585 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β β β¦ ((π·βπ)β(π₯ β π))) β (ββcnββ)) |
512 | 496, 511 | sseldd 3982 |
. . . . . . . . . . . 12
β’ (π β (π₯ β β β¦ ((π·βπ)β(π₯ β π))) β (ββcnββ)) |
513 | 44 | renegcli 11517 |
. . . . . . . . . . . . . 14
β’ -Ο
β β |
514 | | iccssre 13402 |
. . . . . . . . . . . . . 14
β’ ((-Ο
β β β§ Ο β β) β (-Ο[,]Ο) β
β) |
515 | 513, 44, 514 | mp2an 690 |
. . . . . . . . . . . . 13
β’
(-Ο[,]Ο) β β |
516 | 515 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β (-Ο[,]Ο) β
β) |
517 | 459 | dirkerf 44799 |
. . . . . . . . . . . . . . . 16
β’ (π β β β (π·βπ):ββΆβ) |
518 | 7, 517 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (π β (π·βπ):ββΆβ) |
519 | 518 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β (-Ο[,]Ο)) β (π·βπ):ββΆβ) |
520 | 516 | sselda 3981 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β (-Ο[,]Ο)) β π₯ β
β) |
521 | 58 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β (-Ο[,]Ο)) β π β
β) |
522 | 520, 521 | resubcld 11638 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β (-Ο[,]Ο)) β (π₯ β π) β β) |
523 | 519, 522 | ffvelcdmd 7084 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β (-Ο[,]Ο)) β ((π·βπ)β(π₯ β π)) β β) |
524 | 523 | recnd 11238 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β (-Ο[,]Ο)) β ((π·βπ)β(π₯ β π)) β β) |
525 | 493, 512,
516, 494, 524 | cncfmptssg 44573 |
. . . . . . . . . . 11
β’ (π β (π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π))) β ((-Ο[,]Ο)βcnββ)) |
526 | 132 | a1i 11 |
. . . . . . . . . . 11
β’ (π β πΆ β (-Ο[,]Ο)) |
527 | 492, 525,
526, 494, 488 | cncfmptssg 44573 |
. . . . . . . . . 10
β’ (π β (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β (πΆβcnββ)) |
528 | | cnmbf 25167 |
. . . . . . . . . 10
β’ ((πΆ β dom vol β§ (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β (πΆβcnββ)) β (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β MblFn) |
529 | 176, 527,
528 | sylancr 587 |
. . . . . . . . 9
β’ (π β (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β MblFn) |
530 | 513 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β -Ο β
β) |
531 | | 0red 11213 |
. . . . . . . . . . . . . . 15
β’ (π β 0 β
β) |
532 | | negpilt0 43976 |
. . . . . . . . . . . . . . . 16
β’ -Ο
< 0 |
533 | 532 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β -Ο <
0) |
534 | 47 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β 0 <
Ο) |
535 | 530, 531,
101, 533, 534 | lttrd 11371 |
. . . . . . . . . . . . . 14
β’ (π β -Ο <
Ο) |
536 | 530, 101,
535 | ltled 11358 |
. . . . . . . . . . . . 13
β’ (π β -Ο β€
Ο) |
537 | 493, 512,
516, 502, 523 | cncfmptssg 44573 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π))) β ((-Ο[,]Ο)βcnββ)) |
538 | 530, 101,
536, 537 | evthiccabs 44195 |
. . . . . . . . . . . 12
β’ (π β (βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) β§ βπ§ β (-Ο[,]Ο)βπ€ β
(-Ο[,]Ο)(absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ§)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ€)))) |
539 | 538 | simpld 495 |
. . . . . . . . . . 11
β’ (π β βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ))) |
540 | | eqidd 2733 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β (-Ο[,]Ο)) β (π₯ β (-Ο[,]Ο) β¦
((π·βπ)β(π₯ β π))) = (π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))) |
541 | 420 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ = π¦ β ((π·βπ)β(π₯ β π)) = ((π·βπ)β(π¦ β π))) |
542 | 541 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π¦ β (-Ο[,]Ο)) β§ π₯ = π¦) β ((π·βπ)β(π₯ β π)) = ((π·βπ)β(π¦ β π))) |
543 | | simpr 485 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β (-Ο[,]Ο)) β π¦ β
(-Ο[,]Ο)) |
544 | 518 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β (-Ο[,]Ο)) β (π·βπ):ββΆβ) |
545 | 515, 543 | sselid 3979 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β (-Ο[,]Ο)) β π¦ β
β) |
546 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β (-Ο[,]Ο)) β π β
β) |
547 | 545, 546 | resubcld 11638 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β (-Ο[,]Ο)) β (π¦ β π) β β) |
548 | 544, 547 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β (-Ο[,]Ο)) β ((π·βπ)β(π¦ β π)) β β) |
549 | 540, 542,
543, 548 | fvmptd 7002 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β (-Ο[,]Ο)) β ((π₯ β (-Ο[,]Ο) β¦
((π·βπ)β(π₯ β π)))βπ¦) = ((π·βπ)β(π¦ β π))) |
550 | 549 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β (-Ο[,]Ο)) β
(absβ((π₯ β
(-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) = (absβ((π·βπ)β(π¦ β π)))) |
551 | 550 | adantlr 713 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (-Ο[,]Ο)) β§ π¦ β (-Ο[,]Ο)) β
(absβ((π₯ β
(-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) = (absβ((π·βπ)β(π¦ β π)))) |
552 | | eqidd 2733 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (-Ο[,]Ο)) β (π₯ β (-Ο[,]Ο) β¦
((π·βπ)β(π₯ β π))) = (π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))) |
553 | | oveq1 7412 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ = π β (π₯ β π) = (π β π)) |
554 | 553 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ = π β ((π·βπ)β(π₯ β π)) = ((π·βπ)β(π β π))) |
555 | 554 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (-Ο[,]Ο)) β§ π₯ = π) β ((π·βπ)β(π₯ β π)) = ((π·βπ)β(π β π))) |
556 | | simpr 485 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (-Ο[,]Ο)) β π β
(-Ο[,]Ο)) |
557 | 518 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (-Ο[,]Ο)) β (π·βπ):ββΆβ) |
558 | 515, 556 | sselid 3979 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (-Ο[,]Ο)) β π β
β) |
559 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β (-Ο[,]Ο)) β π β
β) |
560 | 558, 559 | resubcld 11638 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β (-Ο[,]Ο)) β (π β π) β β) |
561 | 557, 560 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (-Ο[,]Ο)) β ((π·βπ)β(π β π)) β β) |
562 | 552, 555,
556, 561 | fvmptd 7002 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (-Ο[,]Ο)) β ((π₯ β (-Ο[,]Ο) β¦
((π·βπ)β(π₯ β π)))βπ) = ((π·βπ)β(π β π))) |
563 | 562 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (-Ο[,]Ο)) β
(absβ((π₯ β
(-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) = (absβ((π·βπ)β(π β π)))) |
564 | 563 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (-Ο[,]Ο)) β§ π¦ β (-Ο[,]Ο)) β
(absβ((π₯ β
(-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) = (absβ((π·βπ)β(π β π)))) |
565 | 551, 564 | breq12d 5160 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (-Ο[,]Ο)) β§ π¦ β (-Ο[,]Ο)) β
((absβ((π₯ β
(-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) β (absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))))) |
566 | 565 | ralbidva 3175 |
. . . . . . . . . . . 12
β’ ((π β§ π β (-Ο[,]Ο)) β (βπ¦ β
(-Ο[,]Ο)(absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) β βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))))) |
567 | 566 | rexbidva 3176 |
. . . . . . . . . . 11
β’ (π β (βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π₯ β (-Ο[,]Ο) β¦ ((π·βπ)β(π₯ β π)))βπ)) β βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))))) |
568 | 539, 567 | mpbid 231 |
. . . . . . . . . 10
β’ (π β βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) |
569 | 561 | recnd 11238 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (-Ο[,]Ο)) β ((π·βπ)β(π β π)) β β) |
570 | 569 | abscld 15379 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (-Ο[,]Ο)) β
(absβ((π·βπ)β(π β π))) β β) |
571 | 570 | 3adant3 1132 |
. . . . . . . . . . . 12
β’ ((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β (absβ((π·βπ)β(π β π))) β β) |
572 | | nfv 1917 |
. . . . . . . . . . . . . 14
β’
β²π¦π |
573 | | nfv 1917 |
. . . . . . . . . . . . . 14
β’
β²π¦ π β
(-Ο[,]Ο) |
574 | | nfra1 3281 |
. . . . . . . . . . . . . 14
β’
β²π¦βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))) |
575 | 572, 573,
574 | nf3an 1904 |
. . . . . . . . . . . . 13
β’
β²π¦(π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) |
576 | | simpr 485 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) β π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) |
577 | 482 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β βπ₯ β πΆ ((π·βπ)β(π₯ β π)) β β) |
578 | | dmmptg 6238 |
. . . . . . . . . . . . . . . . . . 19
β’
(βπ₯ β
πΆ ((π·βπ)β(π₯ β π)) β β β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) = πΆ) |
579 | 577, 578 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) = πΆ) |
580 | 579 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) = πΆ) |
581 | 576, 580 | eleqtrd 2835 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) β π¦ β πΆ) |
582 | 581 | 3ad2antl1 1185 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) β π¦ β πΆ) |
583 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β πΆ) β (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) = (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) |
584 | 541 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π¦ β πΆ) β§ π₯ = π¦) β ((π·βπ)β(π₯ β π)) = ((π·βπ)β(π¦ β π))) |
585 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β πΆ) β π¦ β πΆ) |
586 | 518 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π¦ β πΆ) β (π·βπ):ββΆβ) |
587 | 136, 585 | sselid 3979 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π¦ β πΆ) β π¦ β β) |
588 | 58 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π¦ β πΆ) β π β β) |
589 | 587, 588 | resubcld 11638 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π¦ β πΆ) β (π¦ β π) β β) |
590 | 586, 589 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β πΆ) β ((π·βπ)β(π¦ β π)) β β) |
591 | 583, 584,
585, 590 | fvmptd 7002 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β πΆ) β ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦) = ((π·βπ)β(π¦ β π))) |
592 | 591 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) = (absβ((π·βπ)β(π¦ β π)))) |
593 | 592 | adantlr 713 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) = (absβ((π·βπ)β(π¦ β π)))) |
594 | | simplr 767 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) |
595 | 132 | sseli 3977 |
. . . . . . . . . . . . . . . . . . 19
β’ (π¦ β πΆ β π¦ β (-Ο[,]Ο)) |
596 | 595 | adantl 482 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β π¦ β (-Ο[,]Ο)) |
597 | | rspa 3245 |
. . . . . . . . . . . . . . . . . 18
β’
((βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))) β§ π¦ β (-Ο[,]Ο)) β
(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) |
598 | 594, 596,
597 | syl2anc 584 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β (absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) |
599 | 593, 598 | eqbrtrd 5169 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ βπ¦ β (-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π)))) |
600 | 599 | 3adantl2 1167 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β πΆ) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π)))) |
601 | 582, 600 | syldan 591 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β§ π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π)))) |
602 | 601 | ex 413 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β (π¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π))))) |
603 | 575, 602 | ralrimi 3254 |
. . . . . . . . . . . 12
β’ ((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π)))) |
604 | | breq2 5151 |
. . . . . . . . . . . . . 14
β’ (π = (absβ((π·βπ)β(π β π))) β ((absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π β (absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π))))) |
605 | 604 | ralbidv 3177 |
. . . . . . . . . . . . 13
β’ (π = (absβ((π·βπ)β(π β π))) β (βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π))))) |
606 | 605 | rspcev 3612 |
. . . . . . . . . . . 12
β’
(((absβ((π·βπ)β(π β π))) β β β§ βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ (absβ((π·βπ)β(π β π)))) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π) |
607 | 571, 603,
606 | syl2anc 584 |
. . . . . . . . . . 11
β’ ((π β§ π β (-Ο[,]Ο) β§ βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π)))) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π) |
608 | 607 | rexlimdv3a 3159 |
. . . . . . . . . 10
β’ (π β (βπ β (-Ο[,]Ο)βπ¦ β
(-Ο[,]Ο)(absβ((π·βπ)β(π¦ β π))) β€ (absβ((π·βπ)β(π β π))) β βπ β β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π)) |
609 | 568, 608 | mpd 15 |
. . . . . . . . 9
β’ (π β βπ β β βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π) |
610 | | bddmulibl 25347 |
. . . . . . . . 9
β’ (((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) β MblFn β§ (π₯ β πΆ β¦ (πΉβπ₯)) β πΏ1 β§
βπ β β
βπ¦ β dom (π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))(absβ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π)))βπ¦)) β€ π) β ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
611 | 529, 140,
609, 610 | syl3anc 1371 |
. . . . . . . 8
β’ (π β ((π₯ β πΆ β¦ ((π·βπ)β(π₯ β π))) βf Β· (π₯ β πΆ β¦ (πΉβπ₯))) β
πΏ1) |
612 | 491, 611 | eqeltrd 2833 |
. . . . . . 7
β’ (π β (π₯ β πΆ β¦ ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π)))) β
πΏ1) |
613 | 142, 483,
612 | itgmulc2 25342 |
. . . . . 6
β’ (π β (Ο Β· β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) = β«πΆ(Ο Β· ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π)))) dπ₯) |
614 | 142 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β Ο β
β) |
615 | 120, 488,
614 | mul13d 43975 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) = (Ο Β· (((π·βπ)β(π₯ β π)) Β· (πΉβπ₯)))) |
616 | 489 | oveq2d 7421 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β (Ο Β· (((π·βπ)β(π₯ β π)) Β· (πΉβπ₯))) = (Ο Β· ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))))) |
617 | 615, 616 | eqtrd 2772 |
. . . . . . 7
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) = (Ο Β· ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))))) |
618 | 617 | itgeq2dv 25290 |
. . . . . 6
β’ (π β β«πΆ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) dπ₯ = β«πΆ(Ο Β· ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π)))) dπ₯) |
619 | 613, 618 | eqtr4d 2775 |
. . . . 5
β’ (π β (Ο Β· β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) = β«πΆ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) dπ₯) |
620 | 148 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β (1 / 2) β
β) |
621 | 620, 120 | mulcomd 11231 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β ((1 / 2) Β· (πΉβπ₯)) = ((πΉβπ₯) Β· (1 / 2))) |
622 | 396 | an32s 650 |
. . . . . . . . . 10
β’ (((π β§ π₯ β πΆ) β§ π β (1...π)) β (cosβ(π Β· (π₯ β π))) β β) |
623 | 474, 120,
622 | fsummulc2 15726 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) = Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) |
624 | 623 | eqcomd 2738 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) = ((πΉβπ₯) Β· Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))))) |
625 | 621, 624 | oveq12d 7423 |
. . . . . . 7
β’ ((π β§ π₯ β πΆ) β (((1 / 2) Β· (πΉβπ₯)) + Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) = (((πΉβπ₯) Β· (1 / 2)) + ((πΉβπ₯) Β· Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))))) |
626 | 474, 622 | fsumcl 15675 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))) β β) |
627 | 120, 620,
626 | adddid 11234 |
. . . . . . 7
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))))) = (((πΉβπ₯) Β· (1 / 2)) + ((πΉβπ₯) Β· Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))))) |
628 | 481 | oveq1d 7420 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β (((π·βπ)β(π₯ β π)) Β· Ο) = ((((1 / 2) +
Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο) Β·
Ο)) |
629 | 620, 626 | addcld 11229 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΆ) β ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) β β) |
630 | 629, 614,
479 | divcan1d 11987 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΆ) β ((((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) / Ο) Β· Ο) = ((1 / 2) +
Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))))) |
631 | 628, 630 | eqtr2d 2773 |
. . . . . . . 8
β’ ((π β§ π₯ β πΆ) β ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π)))) = (((π·βπ)β(π₯ β π)) Β· Ο)) |
632 | 631 | oveq2d 7421 |
. . . . . . 7
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· ((1 / 2) + Ξ£π β (1...π)(cosβ(π Β· (π₯ β π))))) = ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο))) |
633 | 625, 627,
632 | 3eqtr2rd 2779 |
. . . . . 6
β’ ((π β§ π₯ β πΆ) β ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) = (((1 / 2) Β·
(πΉβπ₯)) + Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))))) |
634 | 633 | itgeq2dv 25290 |
. . . . 5
β’ (π β β«πΆ((πΉβπ₯) Β· (((π·βπ)β(π₯ β π)) Β· Ο)) dπ₯ = β«πΆ(((1 / 2) Β· (πΉβπ₯)) + Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) dπ₯) |
635 | | remulcl 11191 |
. . . . . . 7
β’ (((1 / 2)
β β β§ (πΉβπ₯) β β) β ((1 / 2) Β·
(πΉβπ₯)) β β) |
636 | 472, 119,
635 | sylancr 587 |
. . . . . 6
β’ ((π β§ π₯ β πΆ) β ((1 / 2) Β· (πΉβπ₯)) β β) |
637 | 148, 119,
140 | iblmulc2 25339 |
. . . . . 6
β’ (π β (π₯ β πΆ β¦ ((1 / 2) Β· (πΉβπ₯))) β
πΏ1) |
638 | 391 | an32s 650 |
. . . . . . 7
β’ (((π β§ π₯ β πΆ) β§ π β (1...π)) β ((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) β β) |
639 | 474, 638 | fsumrecl 15676 |
. . . . . 6
β’ ((π β§ π₯ β πΆ) β Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) β β) |
640 | 453 | simpld 495 |
. . . . . 6
β’ (π β (π₯ β πΆ β¦ Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) β
πΏ1) |
641 | 636, 637,
639, 640 | itgadd 25333 |
. . . . 5
β’ (π β β«πΆ(((1 / 2) Β· (πΉβπ₯)) + Ξ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π))))) dπ₯ = (β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ + β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯)) |
642 | 619, 634,
641 | 3eqtrrd 2777 |
. . . 4
β’ (π β (β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ + β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) = (Ο Β· β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯)) |
643 | 642 | oveq1d 7420 |
. . 3
β’ (π β ((β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ + β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) / Ο) = ((Ο Β· β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) / Ο)) |
644 | 636, 637 | itgcl 25292 |
. . . 4
β’ (π β β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ β β) |
645 | 639, 640 | itgcl 25292 |
. . . 4
β’ (π β β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ β β) |
646 | 644, 645,
142, 102 | divdird 12024 |
. . 3
β’ (π β ((β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ + β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯) / Ο) = ((β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ / Ο) + (β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο))) |
647 | 483, 612 | itgcl 25292 |
. . . 4
β’ (π β β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯ β β) |
648 | 647, 142,
102 | divcan3d 11991 |
. . 3
β’ (π β ((Ο Β· β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) / Ο) = β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) |
649 | 643, 646,
648 | 3eqtr3d 2780 |
. 2
β’ (π β ((β«πΆ((1 / 2) Β· (πΉβπ₯)) dπ₯ / Ο) + (β«πΆΞ£π β (1...π)((πΉβπ₯) Β· (cosβ(π Β· (π₯ β π)))) dπ₯ / Ο)) = β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) |
650 | 90, 458, 649 | 3eqtrd 2776 |
1
β’ (π β (πβπ) = β«πΆ((πΉβπ₯) Β· ((π·βπ)β(π₯ β π))) dπ₯) |