Step | Hyp | Ref
| Expression |
1 | | nn0uz 12861 |
. . . . 5
β’
β0 = (β€β₯β0) |
2 | | 0zd 12567 |
. . . . 5
β’ (β€
β 0 β β€) |
3 | | eqidd 2734 |
. . . . 5
β’
((β€ β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ)) |
4 | | 0cnd 11204 |
. . . . . . . . 9
β’ ((π β β0
β§ (π = 0 β¨ 2 β₯
π)) β 0 β
β) |
5 | | ioran 983 |
. . . . . . . . . 10
β’ (Β¬
(π = 0 β¨ 2 β₯ π) β (Β¬ π = 0 β§ Β¬ 2 β₯ π)) |
6 | | neg1rr 12324 |
. . . . . . . . . . . . 13
β’ -1 β
β |
7 | | leibpilem1 26435 |
. . . . . . . . . . . . . 14
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
(π β β β§
((π β 1) / 2) β
β0)) |
8 | 7 | simprd 497 |
. . . . . . . . . . . . 13
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
((π β 1) / 2) β
β0) |
9 | | reexpcl 14041 |
. . . . . . . . . . . . 13
β’ ((-1
β β β§ ((π
β 1) / 2) β β0) β (-1β((π β 1) / 2)) β
β) |
10 | 6, 8, 9 | sylancr 588 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
(-1β((π β 1) /
2)) β β) |
11 | 7 | simpld 496 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
π β
β) |
12 | 10, 11 | nndivred 12263 |
. . . . . . . . . . 11
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
((-1β((π β 1) /
2)) / π) β
β) |
13 | 12 | recnd 11239 |
. . . . . . . . . 10
β’ ((π β β0
β§ (Β¬ π = 0 β§
Β¬ 2 β₯ π)) β
((-1β((π β 1) /
2)) / π) β
β) |
14 | 5, 13 | sylan2b 595 |
. . . . . . . . 9
β’ ((π β β0
β§ Β¬ (π = 0 β¨ 2
β₯ π)) β
((-1β((π β 1) /
2)) / π) β
β) |
15 | 4, 14 | ifclda 4563 |
. . . . . . . 8
β’ (π β β0
β if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)) β
β) |
16 | 15 | adantl 483 |
. . . . . . 7
β’
((β€ β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)) β β) |
17 | 16 | fmpttd 7112 |
. . . . . 6
β’ (β€
β (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π))):β0βΆβ) |
18 | 17 | ffvelcdmda 7084 |
. . . . 5
β’
((β€ β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) β β) |
19 | | 2nn0 12486 |
. . . . . . . . . . . . . 14
β’ 2 β
β0 |
20 | 19 | a1i 11 |
. . . . . . . . . . . . 13
β’ (β€
β 2 β β0) |
21 | | nn0mulcl 12505 |
. . . . . . . . . . . . 13
β’ ((2
β β0 β§ π β β0) β (2
Β· π) β
β0) |
22 | 20, 21 | sylan 581 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β (2 Β· π) β
β0) |
23 | | nn0p1nn 12508 |
. . . . . . . . . . . 12
β’ ((2
Β· π) β
β0 β ((2 Β· π) + 1) β β) |
24 | 22, 23 | syl 17 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β β) |
25 | 24 | nnrecred 12260 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β (1 / ((2 Β· π) + 1)) β β) |
26 | 25 | fmpttd 7112 |
. . . . . . . . 9
β’ (β€
β (π β
β0 β¦ (1 / ((2 Β· π) +
1))):β0βΆβ) |
27 | | nn0mulcl 12505 |
. . . . . . . . . . . . . 14
β’ ((2
β β0 β§ π β β0) β (2
Β· π) β
β0) |
28 | 20, 27 | sylan 581 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β (2 Β· π) β
β0) |
29 | 28 | nn0red 12530 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β (2 Β· π) β β) |
30 | | peano2nn0 12509 |
. . . . . . . . . . . . . . 15
β’ (π β β0
β (π + 1) β
β0) |
31 | 30 | adantl 483 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β0) β (π + 1) β
β0) |
32 | | nn0mulcl 12505 |
. . . . . . . . . . . . . 14
β’ ((2
β β0 β§ (π + 1) β β0) β (2
Β· (π + 1)) β
β0) |
33 | 19, 31, 32 | sylancr 588 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β (2 Β· (π + 1)) β
β0) |
34 | 33 | nn0red 12530 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β (2 Β· (π + 1)) β β) |
35 | | 1red 11212 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β 1 β β) |
36 | | nn0re 12478 |
. . . . . . . . . . . . . . 15
β’ (π β β0
β π β
β) |
37 | 36 | adantl 483 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β0) β π β β) |
38 | 37 | lep1d 12142 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β π β€ (π + 1)) |
39 | | peano2re 11384 |
. . . . . . . . . . . . . . 15
β’ (π β β β (π + 1) β
β) |
40 | 37, 39 | syl 17 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β0) β (π + 1) β β) |
41 | | 2re 12283 |
. . . . . . . . . . . . . . 15
β’ 2 β
β |
42 | 41 | a1i 11 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β0) β 2 β β) |
43 | | 2pos 12312 |
. . . . . . . . . . . . . . 15
β’ 0 <
2 |
44 | 43 | a1i 11 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β0) β 0 < 2) |
45 | | lemul2 12064 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ (π + 1) β β β§ (2
β β β§ 0 < 2)) β (π β€ (π + 1) β (2 Β· π) β€ (2 Β· (π + 1)))) |
46 | 37, 40, 42, 44, 45 | syl112anc 1375 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β (π β€ (π + 1) β (2 Β· π) β€ (2 Β· (π + 1)))) |
47 | 38, 46 | mpbid 231 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β (2 Β· π) β€ (2 Β· (π + 1))) |
48 | 29, 34, 35, 47 | leadd1dd 11825 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β€ ((2 Β· (π + 1)) + 1)) |
49 | | nn0p1nn 12508 |
. . . . . . . . . . . . . 14
β’ ((2
Β· π) β
β0 β ((2 Β· π) + 1) β β) |
50 | 28, 49 | syl 17 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β β) |
51 | 50 | nnred 12224 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β β) |
52 | 50 | nngt0d 12258 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β 0 < ((2 Β· π) + 1)) |
53 | | nn0p1nn 12508 |
. . . . . . . . . . . . . 14
β’ ((2
Β· (π + 1)) β
β0 β ((2 Β· (π + 1)) + 1) β β) |
54 | 33, 53 | syl 17 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β0) β ((2 Β· (π + 1)) + 1) β β) |
55 | 54 | nnred 12224 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β ((2 Β· (π + 1)) + 1) β β) |
56 | 54 | nngt0d 12258 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β0) β 0 < ((2 Β· (π + 1)) + 1)) |
57 | | lerec 12094 |
. . . . . . . . . . . 12
β’ (((((2
Β· π) + 1) β
β β§ 0 < ((2 Β· π) + 1)) β§ (((2 Β· (π + 1)) + 1) β β β§
0 < ((2 Β· (π +
1)) + 1))) β (((2 Β· π) + 1) β€ ((2 Β· (π + 1)) + 1) β (1 / ((2 Β· (π + 1)) + 1)) β€ (1 / ((2
Β· π) +
1)))) |
58 | 51, 52, 55, 56, 57 | syl22anc 838 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β (((2 Β· π) + 1) β€ ((2 Β· (π + 1)) + 1) β (1 / ((2 Β· (π + 1)) + 1)) β€ (1 / ((2
Β· π) +
1)))) |
59 | 48, 58 | mpbid 231 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β (1 / ((2 Β· (π + 1)) + 1)) β€ (1 / ((2 Β· π) + 1))) |
60 | | oveq2 7414 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β (2 Β· π) = (2 Β· (π + 1))) |
61 | 60 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ (π = (π + 1) β ((2 Β· π) + 1) = ((2 Β· (π + 1)) + 1)) |
62 | 61 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (π = (π + 1) β (1 / ((2 Β· π) + 1)) = (1 / ((2 Β·
(π + 1)) +
1))) |
63 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β β0
β¦ (1 / ((2 Β· π) + 1))) = (π β β0 β¦ (1 / ((2
Β· π) +
1))) |
64 | | ovex 7439 |
. . . . . . . . . . . 12
β’ (1 / ((2
Β· (π + 1)) + 1))
β V |
65 | 62, 63, 64 | fvmpt 6996 |
. . . . . . . . . . 11
β’ ((π + 1) β β0
β ((π β
β0 β¦ (1 / ((2 Β· π) + 1)))β(π + 1)) = (1 / ((2 Β· (π + 1)) + 1))) |
66 | 31, 65 | syl 17 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β ((π β β0 β¦ (1 / ((2
Β· π) +
1)))β(π + 1)) = (1 /
((2 Β· (π + 1)) +
1))) |
67 | | oveq2 7414 |
. . . . . . . . . . . . . 14
β’ (π = π β (2 Β· π) = (2 Β· π)) |
68 | 67 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’ (π = π β ((2 Β· π) + 1) = ((2 Β· π) + 1)) |
69 | 68 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (π = π β (1 / ((2 Β· π) + 1)) = (1 / ((2 Β· π) + 1))) |
70 | | ovex 7439 |
. . . . . . . . . . . 12
β’ (1 / ((2
Β· π) + 1)) β
V |
71 | 69, 63, 70 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β β0
β ((π β
β0 β¦ (1 / ((2 Β· π) + 1)))βπ) = (1 / ((2 Β· π) + 1))) |
72 | 71 | adantl 483 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β ((π β β0 β¦ (1 / ((2
Β· π) +
1)))βπ) = (1 / ((2
Β· π) +
1))) |
73 | 59, 66, 72 | 3brtr4d 5180 |
. . . . . . . . 9
β’
((β€ β§ π
β β0) β ((π β β0 β¦ (1 / ((2
Β· π) +
1)))β(π + 1)) β€
((π β
β0 β¦ (1 / ((2 Β· π) + 1)))βπ)) |
74 | | nnuz 12862 |
. . . . . . . . . 10
β’ β =
(β€β₯β1) |
75 | | 1zzd 12590 |
. . . . . . . . . 10
β’ (β€
β 1 β β€) |
76 | | ax-1cn 11165 |
. . . . . . . . . . 11
β’ 1 β
β |
77 | | divcnv 15796 |
. . . . . . . . . . 11
β’ (1 β
β β (π β
β β¦ (1 / π))
β 0) |
78 | 76, 77 | mp1i 13 |
. . . . . . . . . 10
β’ (β€
β (π β β
β¦ (1 / π)) β
0) |
79 | | nn0ex 12475 |
. . . . . . . . . . . 12
β’
β0 β V |
80 | 79 | mptex 7222 |
. . . . . . . . . . 11
β’ (π β β0
β¦ (1 / ((2 Β· π) + 1))) β V |
81 | 80 | a1i 11 |
. . . . . . . . . 10
β’ (β€
β (π β
β0 β¦ (1 / ((2 Β· π) + 1))) β V) |
82 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = π β (1 / π) = (1 / π)) |
83 | | eqid 2733 |
. . . . . . . . . . . . 13
β’ (π β β β¦ (1 /
π)) = (π β β β¦ (1 / π)) |
84 | | ovex 7439 |
. . . . . . . . . . . . 13
β’ (1 /
π) β
V |
85 | 82, 83, 84 | fvmpt 6996 |
. . . . . . . . . . . 12
β’ (π β β β ((π β β β¦ (1 /
π))βπ) = (1 / π)) |
86 | 85 | adantl 483 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β ((π
β β β¦ (1 / π))βπ) = (1 / π)) |
87 | | nnrecre 12251 |
. . . . . . . . . . . 12
β’ (π β β β (1 /
π) β
β) |
88 | 87 | adantl 483 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β (1 / π) β β) |
89 | 86, 88 | eqeltrd 2834 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β ((π
β β β¦ (1 / π))βπ) β β) |
90 | | nnnn0 12476 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β0) |
91 | 90 | adantl 483 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β π
β β0) |
92 | 91, 71 | syl 17 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β ((π
β β0 β¦ (1 / ((2 Β· π) + 1)))βπ) = (1 / ((2 Β· π) + 1))) |
93 | 90, 50 | sylan2 594 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β ((2 Β· π) + 1) β β) |
94 | 93 | nnrecred 12260 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β (1 / ((2 Β· π) + 1)) β β) |
95 | 92, 94 | eqeltrd 2834 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β ((π
β β0 β¦ (1 / ((2 Β· π) + 1)))βπ) β β) |
96 | | nnre 12216 |
. . . . . . . . . . . . . 14
β’ (π β β β π β
β) |
97 | 96 | adantl 483 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β π
β β) |
98 | 19, 91, 27 | sylancr 588 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β (2 Β· π) β
β0) |
99 | 98 | nn0red 12530 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β (2 Β· π) β β) |
100 | | peano2re 11384 |
. . . . . . . . . . . . . 14
β’ ((2
Β· π) β β
β ((2 Β· π) + 1)
β β) |
101 | 99, 100 | syl 17 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β ((2 Β· π) + 1) β β) |
102 | | nn0addge1 12515 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π β β0)
β π β€ (π + π)) |
103 | 97, 91, 102 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β π
β€ (π + π)) |
104 | 97 | recnd 11239 |
. . . . . . . . . . . . . . 15
β’
((β€ β§ π
β β) β π
β β) |
105 | 104 | 2timesd 12452 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β (2 Β· π) = (π + π)) |
106 | 103, 105 | breqtrrd 5176 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β π
β€ (2 Β· π)) |
107 | 99 | lep1d 12142 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β (2 Β· π) β€ ((2 Β· π) + 1)) |
108 | 97, 99, 101, 106, 107 | letrd 11368 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β π
β€ ((2 Β· π) +
1)) |
109 | | nngt0 12240 |
. . . . . . . . . . . . . 14
β’ (π β β β 0 <
π) |
110 | 109 | adantl 483 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β 0 < π) |
111 | 93 | nnred 12224 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β ((2 Β· π) + 1) β β) |
112 | 93 | nngt0d 12258 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β 0 < ((2 Β· π) + 1)) |
113 | | lerec 12094 |
. . . . . . . . . . . . 13
β’ (((π β β β§ 0 <
π) β§ (((2 Β·
π) + 1) β β
β§ 0 < ((2 Β· π) + 1))) β (π β€ ((2 Β· π) + 1) β (1 / ((2 Β· π) + 1)) β€ (1 / π))) |
114 | 97, 110, 111, 112, 113 | syl22anc 838 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β (π
β€ ((2 Β· π) + 1)
β (1 / ((2 Β· π)
+ 1)) β€ (1 / π))) |
115 | 108, 114 | mpbid 231 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β (1 / ((2 Β· π) + 1)) β€ (1 / π)) |
116 | 115, 92, 86 | 3brtr4d 5180 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β ((π
β β0 β¦ (1 / ((2 Β· π) + 1)))βπ) β€ ((π β β β¦ (1 / π))βπ)) |
117 | 93 | nnrpd 13011 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β ((2 Β· π) + 1) β
β+) |
118 | 117 | rpreccld 13023 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β (1 / ((2 Β· π) + 1)) β
β+) |
119 | 118 | rpge0d 13017 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β 0 β€ (1 / ((2 Β· π) + 1))) |
120 | 119, 92 | breqtrrd 5176 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β 0 β€ ((π β β0 β¦ (1 / ((2
Β· π) +
1)))βπ)) |
121 | 74, 75, 78, 81, 89, 95, 116, 120 | climsqz2 15583 |
. . . . . . . . 9
β’ (β€
β (π β
β0 β¦ (1 / ((2 Β· π) + 1))) β 0) |
122 | | neg1cn 12323 |
. . . . . . . . . . . . 13
β’ -1 β
β |
123 | 122 | a1i 11 |
. . . . . . . . . . . 12
β’ (β€
β -1 β β) |
124 | | expcl 14042 |
. . . . . . . . . . . 12
β’ ((-1
β β β§ π
β β0) β (-1βπ) β β) |
125 | 123, 124 | sylan 581 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β (-1βπ) β β) |
126 | 50 | nncnd 12225 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β β) |
127 | 50 | nnne0d 12259 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β0) β ((2 Β· π) + 1) β 0) |
128 | 125, 126,
127 | divrecd 11990 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β ((-1βπ) / ((2 Β· π) + 1)) = ((-1βπ) Β· (1 / ((2 Β· π) + 1)))) |
129 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = π β (-1βπ) = (-1βπ)) |
130 | 129, 68 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ (π = π β ((-1βπ) / ((2 Β· π) + 1)) = ((-1βπ) / ((2 Β· π) + 1))) |
131 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β β0
β¦ ((-1βπ) / ((2
Β· π) + 1))) = (π β β0
β¦ ((-1βπ) / ((2
Β· π) +
1))) |
132 | | ovex 7439 |
. . . . . . . . . . . 12
β’
((-1βπ) / ((2
Β· π) + 1)) β
V |
133 | 130, 131,
132 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β β0
β ((π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))βπ) = ((-1βπ) / ((2 Β· π) + 1))) |
134 | 133 | adantl 483 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β ((π β β0 β¦
((-1βπ) / ((2 Β·
π) + 1)))βπ) = ((-1βπ) / ((2 Β· π) + 1))) |
135 | 72 | oveq2d 7422 |
. . . . . . . . . 10
β’
((β€ β§ π
β β0) β ((-1βπ) Β· ((π β β0 β¦ (1 / ((2
Β· π) +
1)))βπ)) =
((-1βπ) Β· (1 /
((2 Β· π) +
1)))) |
136 | 128, 134,
135 | 3eqtr4d 2783 |
. . . . . . . . 9
β’
((β€ β§ π
β β0) β ((π β β0 β¦
((-1βπ) / ((2 Β·
π) + 1)))βπ) = ((-1βπ) Β· ((π β β0 β¦ (1 / ((2
Β· π) +
1)))βπ))) |
137 | 1, 2, 26, 73, 121, 136 | iseralt 15628 |
. . . . . . . 8
β’ (β€
β seq0( + , (π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))) β dom β
) |
138 | | climdm 15495 |
. . . . . . . 8
β’ (seq0( +
, (π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))) β dom β β seq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))) β ( β βseq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))))) |
139 | 137, 138 | sylib 217 |
. . . . . . 7
β’ (β€
β seq0( + , (π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))) β ( β βseq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))))) |
140 | | eqid 2733 |
. . . . . . . 8
β’ (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π))) = (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π))) |
141 | | fvex 6902 |
. . . . . . . 8
β’ ( β
βseq0( + , (π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1))))) β V |
142 | 131, 140,
141 | leibpilem2 26436 |
. . . . . . 7
β’ (seq0( +
, (π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))) β ( β βseq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1))))) β seq0( + , (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))) β (
β βseq0( + , (π
β β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))))) |
143 | 139, 142 | sylib 217 |
. . . . . 6
β’ (β€
β seq0( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β ( β βseq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1)))))) |
144 | | seqex 13965 |
. . . . . . 7
β’ seq0( + ,
(π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β V |
145 | 144, 141 | breldm 5907 |
. . . . . 6
β’ (seq0( +
, (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β ( β βseq0( + ,
(π β
β0 β¦ ((-1βπ) / ((2 Β· π) + 1))))) β seq0( + , (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))) β dom
β ) |
146 | 143, 145 | syl 17 |
. . . . 5
β’ (β€
β seq0( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β dom β ) |
147 | 1, 2, 3, 18, 146 | isumclim2 15701 |
. . . 4
β’ (β€
β seq0( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
148 | | eqid 2733 |
. . . . . . . 8
β’ (π₯ β (0[,]1) β¦
Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) = (π₯ β (0[,]1) β¦ Ξ£π β β0
(((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) |
149 | 17, 146, 148 | abelth2 25946 |
. . . . . . 7
β’ (β€
β (π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) β ((0[,]1)βcnββ)) |
150 | | nnrp 12982 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β+) |
151 | 150 | adantl 483 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β π
β β+) |
152 | 151 | rpreccld 13023 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β (1 / π) β
β+) |
153 | 152 | rpred 13013 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β (1 / π) β β) |
154 | 152 | rpge0d 13017 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β 0 β€ (1 / π)) |
155 | | nnge1 12237 |
. . . . . . . . . . . . 13
β’ (π β β β 1 β€
π) |
156 | 155 | adantl 483 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β 1 β€ π) |
157 | | nnre 12216 |
. . . . . . . . . . . . . . 15
β’ (π β β β π β
β) |
158 | 157 | adantl 483 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β π
β β) |
159 | 158 | recnd 11239 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β π
β β) |
160 | 159 | mulridd 11228 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β (π
Β· 1) = π) |
161 | 156, 160 | breqtrrd 5176 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β 1 β€ (π Β· 1)) |
162 | | 1red 11212 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β 1 β β) |
163 | | nngt0 12240 |
. . . . . . . . . . . . 13
β’ (π β β β 0 <
π) |
164 | 163 | adantl 483 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β 0 < π) |
165 | | ledivmul 12087 |
. . . . . . . . . . . 12
β’ ((1
β β β§ 1 β β β§ (π β β β§ 0 < π)) β ((1 / π) β€ 1 β 1 β€ (π Β· 1))) |
166 | 162, 162,
158, 164, 165 | syl112anc 1375 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β ((1 / π) β€ 1 β 1 β€ (π Β· 1))) |
167 | 161, 166 | mpbird 257 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β (1 / π) β€ 1) |
168 | | elicc01 13440 |
. . . . . . . . . 10
β’ ((1 /
π) β (0[,]1) β
((1 / π) β β
β§ 0 β€ (1 / π) β§
(1 / π) β€
1)) |
169 | 153, 154,
167, 168 | syl3anbrc 1344 |
. . . . . . . . 9
β’
((β€ β§ π
β β) β (1 / π) β (0[,]1)) |
170 | | iirev 24437 |
. . . . . . . . 9
β’ ((1 /
π) β (0[,]1) β (1
β (1 / π)) β
(0[,]1)) |
171 | 169, 170 | syl 17 |
. . . . . . . 8
β’
((β€ β§ π
β β) β (1 β (1 / π)) β (0[,]1)) |
172 | 171 | fmpttd 7112 |
. . . . . . 7
β’ (β€
β (π β β
β¦ (1 β (1 / π))):ββΆ(0[,]1)) |
173 | | 1cnd 11206 |
. . . . . . . . 9
β’ (β€
β 1 β β) |
174 | | nnex 12215 |
. . . . . . . . . . 11
β’ β
β V |
175 | 174 | mptex 7222 |
. . . . . . . . . 10
β’ (π β β β¦ (1
β (1 / π))) β
V |
176 | 175 | a1i 11 |
. . . . . . . . 9
β’ (β€
β (π β β
β¦ (1 β (1 / π))) β V) |
177 | 89 | recnd 11239 |
. . . . . . . . 9
β’
((β€ β§ π
β β) β ((π
β β β¦ (1 / π))βπ) β β) |
178 | 82 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (π = π β (1 β (1 / π)) = (1 β (1 / π))) |
179 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β β β¦ (1
β (1 / π))) = (π β β β¦ (1
β (1 / π))) |
180 | | ovex 7439 |
. . . . . . . . . . . 12
β’ (1
β (1 / π)) β
V |
181 | 178, 179,
180 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β β β ((π β β β¦ (1
β (1 / π)))βπ) = (1 β (1 / π))) |
182 | 85 | oveq2d 7422 |
. . . . . . . . . . 11
β’ (π β β β (1
β ((π β β
β¦ (1 / π))βπ)) = (1 β (1 / π))) |
183 | 181, 182 | eqtr4d 2776 |
. . . . . . . . . 10
β’ (π β β β ((π β β β¦ (1
β (1 / π)))βπ) = (1 β ((π β β β¦ (1 / π))βπ))) |
184 | 183 | adantl 483 |
. . . . . . . . 9
β’
((β€ β§ π
β β) β ((π
β β β¦ (1 β (1 / π)))βπ) = (1 β ((π β β β¦ (1 / π))βπ))) |
185 | 74, 75, 78, 173, 176, 177, 184 | climsubc2 15580 |
. . . . . . . 8
β’ (β€
β (π β β
β¦ (1 β (1 / π))) β (1 β 0)) |
186 | | 1m0e1 12330 |
. . . . . . . 8
β’ (1
β 0) = 1 |
187 | 185, 186 | breqtrdi 5189 |
. . . . . . 7
β’ (β€
β (π β β
β¦ (1 β (1 / π))) β 1) |
188 | | 1elunit 13444 |
. . . . . . . 8
β’ 1 β
(0[,]1) |
189 | 188 | a1i 11 |
. . . . . . 7
β’ (β€
β 1 β (0[,]1)) |
190 | 74, 75, 149, 172, 187, 189 | climcncf 24408 |
. . . . . 6
β’ (β€
β ((π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) β (π β β β¦ (1 β (1 / π)))) β ((π₯ β (0[,]1) β¦
Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)))β1)) |
191 | | eqidd 2734 |
. . . . . . . 8
β’ (β€
β (π β β
β¦ (1 β (1 / π))) = (π β β β¦ (1 β (1 / π)))) |
192 | | eqidd 2734 |
. . . . . . . 8
β’ (β€
β (π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) = (π₯ β (0[,]1) β¦ Ξ£π β β0
(((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)))) |
193 | | oveq1 7413 |
. . . . . . . . . 10
β’ (π₯ = (1 β (1 / π)) β (π₯βπ) = ((1 β (1 / π))βπ)) |
194 | 193 | oveq2d 7422 |
. . . . . . . . 9
β’ (π₯ = (1 β (1 / π)) β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
195 | 194 | sumeq2sdv 15647 |
. . . . . . . 8
β’ (π₯ = (1 β (1 / π)) β Ξ£π β β0
(((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)) = Ξ£π β β0 (((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) Β· ((1 β (1 /
π))βπ))) |
196 | 171, 191,
192, 195 | fmptco 7124 |
. . . . . . 7
β’ (β€
β ((π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) β (π β β β¦ (1 β (1 / π)))) = (π β β β¦ Ξ£π β β0
(((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)))) |
197 | | 0zd 12567 |
. . . . . . . . 9
β’
((β€ β§ π
β β) β 0 β β€) |
198 | 8 | adantll 713 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((β€ β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((π β 1) / 2) β
β0) |
199 | 6, 198, 9 | sylancr 588 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((β€ β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (-1β((π β 1) / 2)) β
β) |
200 | 199 | recnd 11239 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((β€ β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (-1β((π β 1) / 2)) β
β) |
201 | 200 | adantllr 718 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (-1β((π β 1) / 2)) β
β) |
202 | | 1re 11211 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ 1 β
β |
203 | | resubcl 11521 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((1
β β β§ (1 / π) β β) β (1 β (1 /
π)) β
β) |
204 | 202, 153,
203 | sylancr 588 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β€ β§ π
β β) β (1 β (1 / π)) β β) |
205 | 204 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (1 β (1 / π)) β β) |
206 | | simplr 768 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β π β β0) |
207 | 205, 206 | reexpcld 14125 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((1 β (1 / π))βπ) β β) |
208 | 207 | recnd 11239 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((1 β (1 / π))βπ) β β) |
209 | | nn0cn 12479 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β0
β π β
β) |
210 | 209 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β π β β) |
211 | 11 | adantll 713 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β π β β) |
212 | 211 | nnne0d 12259 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β π β 0) |
213 | 201, 208,
210, 212 | div12d 12023 |
. . . . . . . . . . . . . . . . . 18
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)) = (((1 β (1 / π))βπ) Β· ((-1β((π β 1) / 2)) / π))) |
214 | 13 | adantll 713 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((-1β((π β 1) / 2)) / π) β β) |
215 | 208, 214 | mulcomd 11232 |
. . . . . . . . . . . . . . . . . 18
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (((1 β (1 / π))βπ) Β· ((-1β((π β 1) / 2)) / π)) = (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ))) |
216 | 213, 215 | eqtrd 2773 |
. . . . . . . . . . . . . . . . 17
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)) = (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ))) |
217 | 5, 216 | sylan2b 595 |
. . . . . . . . . . . . . . . 16
β’
((((β€ β§ π
β β) β§ π
β β0) β§ Β¬ (π = 0 β¨ 2 β₯ π)) β ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)) = (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ))) |
218 | 217 | ifeq2da 4560 |
. . . . . . . . . . . . . . 15
β’
(((β€ β§ π
β β) β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))) = if((π = 0 β¨ 2 β₯ π), 0, (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ)))) |
219 | 204 | recnd 11239 |
. . . . . . . . . . . . . . . . . 18
β’
((β€ β§ π
β β) β (1 β (1 / π)) β β) |
220 | | expcl 14042 |
. . . . . . . . . . . . . . . . . 18
β’ (((1
β (1 / π)) β
β β§ π β
β0) β ((1 β (1 / π))βπ) β β) |
221 | 219, 220 | sylan 581 |
. . . . . . . . . . . . . . . . 17
β’
(((β€ β§ π
β β) β§ π
β β0) β ((1 β (1 / π))βπ) β β) |
222 | 221 | mul02d 11409 |
. . . . . . . . . . . . . . . 16
β’
(((β€ β§ π
β β) β§ π
β β0) β (0 Β· ((1 β (1 / π))βπ)) = 0) |
223 | 222 | ifeq1d 4547 |
. . . . . . . . . . . . . . 15
β’
(((β€ β§ π
β β) β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), (0 Β· ((1 β (1 / π))βπ)), (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ))) = if((π = 0 β¨ 2 β₯ π), 0, (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ)))) |
224 | 218, 223 | eqtr4d 2776 |
. . . . . . . . . . . . . 14
β’
(((β€ β§ π
β β) β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))) = if((π = 0 β¨ 2 β₯ π), (0 Β· ((1 β (1 / π))βπ)), (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ)))) |
225 | | ovif 7503 |
. . . . . . . . . . . . . 14
β’
(if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)) Β· ((1
β (1 / π))βπ)) = if((π = 0 β¨ 2 β₯ π), (0 Β· ((1 β (1 / π))βπ)), (((-1β((π β 1) / 2)) / π) Β· ((1 β (1 / π))βπ))) |
226 | 224, 225 | eqtr4di 2791 |
. . . . . . . . . . . . 13
β’
(((β€ β§ π
β β) β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))) = (if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)) Β· ((1 β (1 / π))βπ))) |
227 | | simpr 486 |
. . . . . . . . . . . . . 14
β’
(((β€ β§ π
β β) β§ π
β β0) β π β β0) |
228 | | c0ex 11205 |
. . . . . . . . . . . . . . 15
β’ 0 β
V |
229 | | ovex 7439 |
. . . . . . . . . . . . . . 15
β’
((-1β((π
β 1) / 2)) Β· (((1 β (1 / π))βπ) / π)) β V |
230 | 228, 229 | ifex 4578 |
. . . . . . . . . . . . . 14
β’ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))) β V |
231 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’ (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π)))) = (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))) |
232 | 231 | fvmpt2 7007 |
. . . . . . . . . . . . . 14
β’ ((π β β0
β§ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))) β V) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
233 | 227, 230,
232 | sylancl 587 |
. . . . . . . . . . . . 13
β’
(((β€ β§ π
β β) β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
234 | | ovex 7439 |
. . . . . . . . . . . . . . . 16
β’
((-1β((π
β 1) / 2)) / π)
β V |
235 | 228, 234 | ifex 4578 |
. . . . . . . . . . . . . . 15
β’ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)) β V |
236 | 140 | fvmpt2 7007 |
. . . . . . . . . . . . . . 15
β’ ((π β β0
β§ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)) β V) β
((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π))) |
237 | 227, 235,
236 | sylancl 587 |
. . . . . . . . . . . . . 14
β’
(((β€ β§ π
β β) β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π))) |
238 | 237 | oveq1d 7421 |
. . . . . . . . . . . . 13
β’
(((β€ β§ π
β β) β§ π
β β0) β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) = (if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)) Β· ((1 β (1 / π))βπ))) |
239 | 226, 233,
238 | 3eqtr4d 2783 |
. . . . . . . . . . . 12
β’
(((β€ β§ π
β β) β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
240 | 239 | ralrimiva 3147 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β βπ β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
241 | | nfv 1918 |
. . . . . . . . . . . 12
β’
β²π((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) |
242 | | nffvmpt1 6900 |
. . . . . . . . . . . . 13
β’
β²π((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) |
243 | | nffvmpt1 6900 |
. . . . . . . . . . . . . 14
β’
β²π((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) |
244 | | nfcv 2904 |
. . . . . . . . . . . . . 14
β’
β²π
Β· |
245 | | nfcv 2904 |
. . . . . . . . . . . . . 14
β’
β²π((1
β (1 / π))βπ) |
246 | 243, 244,
245 | nfov 7436 |
. . . . . . . . . . . . 13
β’
β²π(((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) |
247 | 242, 246 | nfeq 2917 |
. . . . . . . . . . . 12
β’
β²π((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) |
248 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = π β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
249 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π = π β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ)) |
250 | | oveq2 7414 |
. . . . . . . . . . . . . 14
β’ (π = π β ((1 β (1 / π))βπ) = ((1 β (1 / π))βπ)) |
251 | 249, 250 | oveq12d 7424 |
. . . . . . . . . . . . 13
β’ (π = π β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
252 | 248, 251 | eqeq12d 2749 |
. . . . . . . . . . . 12
β’ (π = π β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)))) |
253 | 241, 247,
252 | cbvralw 3304 |
. . . . . . . . . . 11
β’
(βπ β
β0 ((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) β βπ β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
254 | 240, 253 | sylib 217 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β βπ β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
255 | 254 | r19.21bi 3249 |
. . . . . . . . 9
β’
(((β€ β§ π
β β) β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) |
256 | | 0cnd 11204 |
. . . . . . . . . . . . 13
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (π = 0 β¨ 2 β₯ π)) β 0 β β) |
257 | 207, 211 | nndivred 12263 |
. . . . . . . . . . . . . . . 16
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (((1 β (1 / π))βπ) / π) β β) |
258 | 257 | recnd 11239 |
. . . . . . . . . . . . . . 15
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β (((1 β (1 / π))βπ) / π) β β) |
259 | 201, 258 | mulcld 11231 |
. . . . . . . . . . . . . 14
β’
((((β€ β§ π
β β) β§ π
β β0) β§ (Β¬ π = 0 β§ Β¬ 2 β₯ π)) β ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)) β β) |
260 | 5, 259 | sylan2b 595 |
. . . . . . . . . . . . 13
β’
((((β€ β§ π
β β) β§ π
β β0) β§ Β¬ (π = 0 β¨ 2 β₯ π)) β ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)) β β) |
261 | 256, 260 | ifclda 4563 |
. . . . . . . . . . . 12
β’
(((β€ β§ π
β β) β§ π
β β0) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))) β β) |
262 | 261 | fmpttd 7112 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β (π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))):β0βΆβ) |
263 | 262 | ffvelcdmda 7084 |
. . . . . . . . . 10
β’
(((β€ β§ π
β β) β§ π
β β0) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) β β) |
264 | 255, 263 | eqeltrrd 2835 |
. . . . . . . . 9
β’
(((β€ β§ π
β β) β§ π
β β0) β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ)) β β) |
265 | | 0nn0 12484 |
. . . . . . . . . . . 12
β’ 0 β
β0 |
266 | 265 | a1i 11 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β 0 β β0) |
267 | | 0p1e1 12331 |
. . . . . . . . . . . . 13
β’ (0 + 1) =
1 |
268 | | seqeq1 13966 |
. . . . . . . . . . . . 13
β’ ((0 + 1)
= 1 β seq(0 + 1)( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) = seq1( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))))) |
269 | 267, 268 | ax-mp 5 |
. . . . . . . . . . . 12
β’ seq(0 +
1)( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))))) = seq1( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) |
270 | | 1zzd 12590 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β 1 β β€) |
271 | | elnnuz 12863 |
. . . . . . . . . . . . . . 15
β’ (π β β β π β
(β€β₯β1)) |
272 | | nnne0 12243 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β β β π β 0) |
273 | 272 | neneqd 2946 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β β β Β¬
π = 0) |
274 | | biorf 936 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (Β¬
π = 0 β (2 β₯
π β (π = 0 β¨ 2 β₯ π))) |
275 | 273, 274 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β β β (2
β₯ π β (π = 0 β¨ 2 β₯ π))) |
276 | 275 | bicomd 222 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β β ((π = 0 β¨ 2 β₯ π) β 2 β₯ π)) |
277 | 276 | ifbid 4551 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))) = if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
278 | 90, 230, 232 | sylancl 587 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
279 | 228, 229 | ifex 4578 |
. . . . . . . . . . . . . . . . . . . . 21
β’ if(2
β₯ π, 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))) β V |
280 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β β β¦ if(2
β₯ π, 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π)))) = (π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))) |
281 | 280 | fvmpt2 7007 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ if(2
β₯ π, 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))) β V) β ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
282 | 279, 281 | mpan2 690 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β β ((π β β β¦ if(2
β₯ π, 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))) |
283 | 277, 278,
282 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
284 | 283 | rgen 3064 |
. . . . . . . . . . . . . . . . . 18
β’
βπ β
β ((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) |
285 | 284 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’
((β€ β§ π
β β) β βπ β β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
286 | | nfv 1918 |
. . . . . . . . . . . . . . . . . 18
β’
β²π((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) |
287 | | nffvmpt1 6900 |
. . . . . . . . . . . . . . . . . . 19
β’
β²π((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) |
288 | 242, 287 | nfeq 2917 |
. . . . . . . . . . . . . . . . . 18
β’
β²π((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) |
289 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
290 | 248, 289 | eqeq12d 2749 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ))) |
291 | 286, 288,
290 | cbvralw 3304 |
. . . . . . . . . . . . . . . . 17
β’
(βπ β
β ((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) β βπ β β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
292 | 285, 291 | sylib 217 |
. . . . . . . . . . . . . . . 16
β’
((β€ β§ π
β β) β βπ β β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
293 | 292 | r19.21bi 3249 |
. . . . . . . . . . . . . . 15
β’
(((β€ β§ π
β β) β§ π
β β) β ((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
294 | 271, 293 | sylan2br 596 |
. . . . . . . . . . . . . 14
β’
(((β€ β§ π
β β) β§ π
β (β€β₯β1)) β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ) = ((π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))βπ)) |
295 | 270, 294 | seqfeq 13990 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β seq1( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) = seq1( + , (π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))))) |
296 | 153, 162,
167 | abssubge0d 15375 |
. . . . . . . . . . . . . . 15
β’
((β€ β§ π
β β) β (absβ(1 β (1 / π))) = (1 β (1 / π))) |
297 | | ltsubrp 13007 |
. . . . . . . . . . . . . . . 16
β’ ((1
β β β§ (1 / π) β β+) β (1
β (1 / π)) <
1) |
298 | 202, 152,
297 | sylancr 588 |
. . . . . . . . . . . . . . 15
β’
((β€ β§ π
β β) β (1 β (1 / π)) < 1) |
299 | 296, 298 | eqbrtrd 5170 |
. . . . . . . . . . . . . 14
β’
((β€ β§ π
β β) β (absβ(1 β (1 / π))) < 1) |
300 | 280 | atantayl2 26433 |
. . . . . . . . . . . . . 14
β’ (((1
β (1 / π)) β
β β§ (absβ(1 β (1 / π))) < 1) β seq1( + , (π β β β¦ if(2
β₯ π, 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))) β (arctanβ(1 β (1 /
π)))) |
301 | 219, 299,
300 | syl2anc 585 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β seq1( + , (π β β β¦ if(2 β₯ π, 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) β (arctanβ(1 β (1 /
π)))) |
302 | 295, 301 | eqbrtrd 5170 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β seq1( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) β (arctanβ(1 β (1 /
π)))) |
303 | 269, 302 | eqbrtrid 5183 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β seq(0 + 1)( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) β (arctanβ(1 β (1 /
π)))) |
304 | 1, 266, 263, 303 | clim2ser2 15599 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β seq0( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) β ((arctanβ(1 β (1 /
π))) + (seq0( + , (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π)))))β0))) |
305 | | 0z 12566 |
. . . . . . . . . . . . . 14
β’ 0 β
β€ |
306 | | seq1 13976 |
. . . . . . . . . . . . . 14
β’ (0 β
β€ β (seq0( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))))β0) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))β0)) |
307 | 305, 306 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ (seq0( +
, (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))))β0) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))β0) |
308 | | iftrue 4534 |
. . . . . . . . . . . . . . . 16
β’ ((π = 0 β¨ 2 β₯ π) β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π))) = 0) |
309 | 308 | orcs 874 |
. . . . . . . . . . . . . . 15
β’ (π = 0 β if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))) = 0) |
310 | 309, 231,
228 | fvmpt 6996 |
. . . . . . . . . . . . . 14
β’ (0 β
β0 β ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))β0) = 0) |
311 | 265, 310 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) Β· (((1 β (1 / π))βπ) / π))))β0) = 0 |
312 | 307, 311 | eqtri 2761 |
. . . . . . . . . . . 12
β’ (seq0( +
, (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1 β (1 /
π))βπ) / π)))))β0) = 0 |
313 | 312 | oveq2i 7417 |
. . . . . . . . . . 11
β’
((arctanβ(1 β (1 / π))) + (seq0( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))))β0)) = ((arctanβ(1 β
(1 / π))) +
0) |
314 | | atanrecl 26406 |
. . . . . . . . . . . . . 14
β’ ((1
β (1 / π)) β
β β (arctanβ(1 β (1 / π))) β β) |
315 | 204, 314 | syl 17 |
. . . . . . . . . . . . 13
β’
((β€ β§ π
β β) β (arctanβ(1 β (1 / π))) β β) |
316 | 315 | recnd 11239 |
. . . . . . . . . . . 12
β’
((β€ β§ π
β β) β (arctanβ(1 β (1 / π))) β β) |
317 | 316 | addridd 11411 |
. . . . . . . . . . 11
β’
((β€ β§ π
β β) β ((arctanβ(1 β (1 / π))) + 0) = (arctanβ(1 β (1 /
π)))) |
318 | 313, 317 | eqtrid 2785 |
. . . . . . . . . 10
β’
((β€ β§ π
β β) β ((arctanβ(1 β (1 / π))) + (seq0( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π)))))β0)) = (arctanβ(1 β (1
/ π)))) |
319 | 304, 318 | breqtrd 5174 |
. . . . . . . . 9
β’
((β€ β§ π
β β) β seq0( + , (π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) Β· (((1
β (1 / π))βπ) / π))))) β (arctanβ(1 β (1 /
π)))) |
320 | 1, 197, 255, 264, 319 | isumclim 15700 |
. . . . . . . 8
β’
((β€ β§ π
β β) β Ξ£π β β0 (((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) Β· ((1 β (1 /
π))βπ)) = (arctanβ(1 β (1 / π)))) |
321 | 320 | mpteq2dva 5248 |
. . . . . . 7
β’ (β€
β (π β β
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· ((1 β (1 / π))βπ))) = (π β β β¦ (arctanβ(1
β (1 / π))))) |
322 | 196, 321 | eqtrd 2773 |
. . . . . 6
β’ (β€
β ((π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ))) β (π β β β¦ (1 β (1 / π)))) = (π β β β¦ (arctanβ(1
β (1 / π))))) |
323 | | oveq1 7413 |
. . . . . . . . . . . 12
β’ (π₯ = 1 β (π₯βπ) = (1βπ)) |
324 | | nn0z 12580 |
. . . . . . . . . . . . 13
β’ (π β β0
β π β
β€) |
325 | | 1exp 14054 |
. . . . . . . . . . . . 13
β’ (π β β€ β
(1βπ) =
1) |
326 | 324, 325 | syl 17 |
. . . . . . . . . . . 12
β’ (π β β0
β (1βπ) =
1) |
327 | 323, 326 | sylan9eq 2793 |
. . . . . . . . . . 11
β’ ((π₯ = 1 β§ π β β0) β (π₯βπ) = 1) |
328 | 327 | oveq2d 7422 |
. . . . . . . . . 10
β’ ((π₯ = 1 β§ π β β0) β (((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) Β· (π₯βπ)) = (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· 1)) |
329 | 17 | mptru 1549 |
. . . . . . . . . . . . 13
β’ (π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π))):β0βΆβ |
330 | 329 | ffvelcdmi 7083 |
. . . . . . . . . . . 12
β’ (π β β0
β ((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) β β) |
331 | 330 | mulridd 11228 |
. . . . . . . . . . 11
β’ (π β β0
β (((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· 1) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ)) |
332 | 331 | adantl 483 |
. . . . . . . . . 10
β’ ((π₯ = 1 β§ π β β0) β (((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) Β· 1) = ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
333 | 328, 332 | eqtrd 2773 |
. . . . . . . . 9
β’ ((π₯ = 1 β§ π β β0) β (((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) Β· (π₯βπ)) = ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ)) |
334 | 333 | sumeq2dv 15646 |
. . . . . . . 8
β’ (π₯ = 1 β Ξ£π β β0
(((π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
335 | | sumex 15631 |
. . . . . . . 8
β’
Ξ£π β
β0 ((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) β V |
336 | 334, 148,
335 | fvmpt 6996 |
. . . . . . 7
β’ (1 β
(0[,]1) β ((π₯ β
(0[,]1) β¦ Ξ£π
β β0 (((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)))β1) = Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
337 | 188, 336 | mp1i 13 |
. . . . . 6
β’ (β€
β ((π₯ β (0[,]1)
β¦ Ξ£π β
β0 (((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) Β· (π₯βπ)))β1) = Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
338 | 190, 322,
337 | 3brtr3d 5179 |
. . . . 5
β’ (β€
β (π β β
β¦ (arctanβ(1 β (1 / π)))) β Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ)) |
339 | | eqid 2733 |
. . . . . . . . 9
β’ (β
β (-β(,]0)) = (β β (-β(,]0)) |
340 | | eqid 2733 |
. . . . . . . . 9
β’ {π₯ β β β£ (1 +
(π₯β2)) β (β
β (-β(,]0))} = {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))} |
341 | 339, 340 | atancn 26431 |
. . . . . . . 8
β’ (arctan
βΎ {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))}) β ({π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}βcnββ) |
342 | 341 | a1i 11 |
. . . . . . 7
β’ (β€
β (arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) β ({π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}βcnββ)) |
343 | | unitssre 13473 |
. . . . . . . . 9
β’ (0[,]1)
β β |
344 | 339, 340 | ressatans 26429 |
. . . . . . . . 9
β’ β
β {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))} |
345 | 343, 344 | sstri 3991 |
. . . . . . . 8
β’ (0[,]1)
β {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))} |
346 | | fss 6732 |
. . . . . . . 8
β’ (((π β β β¦ (1
β (1 / π))):ββΆ(0[,]1) β§ (0[,]1)
β {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))}) β (π β β β¦ (1 β (1 / π))):ββΆ{π₯ β β β£ (1 +
(π₯β2)) β (β
β (-β(,]0))}) |
347 | 172, 345,
346 | sylancl 587 |
. . . . . . 7
β’ (β€
β (π β β
β¦ (1 β (1 / π))):ββΆ{π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}) |
348 | 344, 202 | sselii 3979 |
. . . . . . . 8
β’ 1 β
{π₯ β β β£
(1 + (π₯β2)) β
(β β (-β(,]0))} |
349 | 348 | a1i 11 |
. . . . . . 7
β’ (β€
β 1 β {π₯ β
β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) |
350 | 74, 75, 342, 347, 187, 349 | climcncf 24408 |
. . . . . 6
β’ (β€
β ((arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) β (π β β β¦ (1 β (1 / π)))) β ((arctan βΎ
{π₯ β β β£
(1 + (π₯β2)) β
(β β (-β(,]0))})β1)) |
351 | 345, 171 | sselid 3980 |
. . . . . . 7
β’
((β€ β§ π
β β) β (1 β (1 / π)) β {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}) |
352 | | cncff 24401 |
. . . . . . . . . 10
β’ ((arctan
βΎ {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))}) β ({π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}βcnββ) β (arctan βΎ {π₯ β β β£ (1 +
(π₯β2)) β (β
β (-β(,]0))}):{π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))}βΆβ) |
353 | 341, 352 | mp1i 13 |
. . . . . . . . 9
β’ (β€
β (arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}):{π₯ β
β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}βΆβ) |
354 | 353 | feqmptd 6958 |
. . . . . . . 8
β’ (β€
β (arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) = (π
β {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))} β¦ ((arctan βΎ {π₯ β β β£ (1 +
(π₯β2)) β (β
β (-β(,]0))})βπ))) |
355 | | fvres 6908 |
. . . . . . . . 9
β’ (π β {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))} β ((arctan βΎ {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))})βπ) = (arctanβπ)) |
356 | 355 | mpteq2ia 5251 |
. . . . . . . 8
β’ (π β {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))} β¦ ((arctan βΎ {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))})βπ)) = (π β {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))} β¦ (arctanβπ)) |
357 | 354, 356 | eqtrdi 2789 |
. . . . . . 7
β’ (β€
β (arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) = (π
β {π₯ β β
β£ (1 + (π₯β2))
β (β β (-β(,]0))} β¦ (arctanβπ))) |
358 | | fveq2 6889 |
. . . . . . 7
β’ (π = (1 β (1 / π)) β (arctanβπ) = (arctanβ(1 β (1
/ π)))) |
359 | 351, 191,
357, 358 | fmptco 7124 |
. . . . . 6
β’ (β€
β ((arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))}) β (π β β β¦ (1 β (1 / π)))) = (π β β β¦ (arctanβ(1
β (1 / π))))) |
360 | | fvres 6908 |
. . . . . . . 8
β’ (1 β
{π₯ β β β£
(1 + (π₯β2)) β
(β β (-β(,]0))} β ((arctan βΎ {π₯ β β β£ (1 + (π₯β2)) β (β
β (-β(,]0))})β1) = (arctanβ1)) |
361 | 348, 360 | mp1i 13 |
. . . . . . 7
β’ (β€
β ((arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))})β1) = (arctanβ1)) |
362 | | atan1 26423 |
. . . . . . 7
β’
(arctanβ1) = (Ο / 4) |
363 | 361, 362 | eqtrdi 2789 |
. . . . . 6
β’ (β€
β ((arctan βΎ {π₯
β β β£ (1 + (π₯β2)) β (β β
(-β(,]0))})β1) = (Ο / 4)) |
364 | 350, 359,
363 | 3brtr3d 5179 |
. . . . 5
β’ (β€
β (π β β
β¦ (arctanβ(1 β (1 / π)))) β (Ο / 4)) |
365 | | climuni 15493 |
. . . . 5
β’ (((π β β β¦
(arctanβ(1 β (1 / π)))) β Ξ£π β β0 ((π β β0
β¦ if((π = 0 β¨ 2
β₯ π), 0,
((-1β((π β 1) /
2)) / π)))βπ) β§ (π β β β¦ (arctanβ(1
β (1 / π)))) β
(Ο / 4)) β Ξ£π
β β0 ((π β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = (Ο / 4)) |
366 | 338, 364,
365 | syl2anc 585 |
. . . 4
β’ (β€
β Ξ£π β
β0 ((π
β β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))βπ) = (Ο / 4)) |
367 | 147, 366 | breqtrd 5174 |
. . 3
β’ (β€
β seq0( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β (Ο / 4)) |
368 | 367 | mptru 1549 |
. 2
β’ seq0( + ,
(π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β (Ο / 4) |
369 | | leibpi.1 |
. . 3
β’ πΉ = (π β β0 β¦
((-1βπ) / ((2 Β·
π) + 1))) |
370 | | ovex 7439 |
. . 3
β’ (Ο /
4) β V |
371 | 369, 140,
370 | leibpilem2 26436 |
. 2
β’ (seq0( +
, πΉ) β (Ο / 4)
β seq0( + , (π β
β0 β¦ if((π = 0 β¨ 2 β₯ π), 0, ((-1β((π β 1) / 2)) / π)))) β (Ο / 4)) |
372 | 368, 371 | mpbir 230 |
1
β’ seq0( + ,
πΉ) β (Ο /
4) |