Step | Hyp | Ref
| Expression |
1 | | df-tan 16012 |
. . . 4
β’ tan =
(π₯ β (β‘cos β (β β {0})) β¦
((sinβπ₯) /
(cosβπ₯))) |
2 | | cnvimass 6078 |
. . . . . . . . 9
β’ (β‘cos β (β β {0})) β
dom cos |
3 | | cosf 16065 |
. . . . . . . . . 10
β’
cos:ββΆβ |
4 | 3 | fdmi 6727 |
. . . . . . . . 9
β’ dom cos =
β |
5 | 2, 4 | sseqtri 4018 |
. . . . . . . 8
β’ (β‘cos β (β β {0})) β
β |
6 | 5 | sseli 3978 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
π₯ β
β) |
7 | 6 | sincld 16070 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
(sinβπ₯) β
β) |
8 | 6 | coscld 16071 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
(cosβπ₯) β
β) |
9 | | ffn 6715 |
. . . . . . . 8
β’
(cos:ββΆβ β cos Fn β) |
10 | | elpreima 7057 |
. . . . . . . 8
β’ (cos Fn
β β (π₯ β
(β‘cos β (β β {0}))
β (π₯ β β
β§ (cosβπ₯) β
(β β {0})))) |
11 | 3, 9, 10 | mp2b 10 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
(π₯ β β β§
(cosβπ₯) β
(β β {0}))) |
12 | | eldifsni 4793 |
. . . . . . . 8
β’
((cosβπ₯)
β (β β {0}) β (cosβπ₯) β 0) |
13 | 12 | adantl 483 |
. . . . . . 7
β’ ((π₯ β β β§
(cosβπ₯) β
(β β {0})) β (cosβπ₯) β 0) |
14 | 11, 13 | sylbi 216 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
(cosβπ₯) β
0) |
15 | 7, 8, 14 | divrecd 11990 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β
((sinβπ₯) /
(cosβπ₯)) =
((sinβπ₯) Β· (1
/ (cosβπ₯)))) |
16 | 15 | mpteq2ia 5251 |
. . . 4
β’ (π₯ β (β‘cos β (β β {0})) β¦
((sinβπ₯) /
(cosβπ₯))) = (π₯ β (β‘cos β (β β {0})) β¦
((sinβπ₯) Β· (1
/ (cosβπ₯)))) |
17 | 1, 16 | eqtri 2761 |
. . 3
β’ tan =
(π₯ β (β‘cos β (β β {0})) β¦
((sinβπ₯) Β· (1
/ (cosβπ₯)))) |
18 | 17 | oveq2i 7417 |
. 2
β’ (β
D tan) = (β D (π₯
β (β‘cos β (β β
{0})) β¦ ((sinβπ₯) Β· (1 / (cosβπ₯))))) |
19 | | cnelprrecn 11200 |
. . . . 5
β’ β
β {β, β} |
20 | 19 | a1i 11 |
. . . 4
β’ (β€
β β β {β, β}) |
21 | | difss 4131 |
. . . . . . . . 9
β’ (β
β {0}) β β |
22 | | imass2 6099 |
. . . . . . . . 9
β’ ((β
β {0}) β β β (β‘cos β (β β {0})) β
(β‘cos β
β)) |
23 | 21, 22 | ax-mp 5 |
. . . . . . . 8
β’ (β‘cos β (β β {0})) β
(β‘cos β β) |
24 | | fimacnv 6737 |
. . . . . . . . 9
β’
(cos:ββΆβ β (β‘cos β β) =
β) |
25 | 3, 24 | ax-mp 5 |
. . . . . . . 8
β’ (β‘cos β β) =
β |
26 | 23, 25 | sseqtri 4018 |
. . . . . . 7
β’ (β‘cos β (β β {0})) β
β |
27 | 26 | sseli 3978 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
π₯ β
β) |
28 | 27 | sincld 16070 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β
(sinβπ₯) β
β) |
29 | 28 | adantl 483 |
. . . 4
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β (sinβπ₯)
β β) |
30 | 8 | adantl 483 |
. . . 4
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β (cosβπ₯)
β β) |
31 | | sincl 16066 |
. . . . . 6
β’ (π₯ β β β
(sinβπ₯) β
β) |
32 | 31 | adantl 483 |
. . . . 5
β’
((β€ β§ π₯
β β) β (sinβπ₯) β β) |
33 | | coscl 16067 |
. . . . . 6
β’ (π₯ β β β
(cosβπ₯) β
β) |
34 | 33 | adantl 483 |
. . . . 5
β’
((β€ β§ π₯
β β) β (cosβπ₯) β β) |
35 | | dvsin 25491 |
. . . . . 6
β’ (β
D sin) = cos |
36 | | sinf 16064 |
. . . . . . . . 9
β’
sin:ββΆβ |
37 | 36 | a1i 11 |
. . . . . . . 8
β’ (β€
β sin:ββΆβ) |
38 | 37 | feqmptd 6958 |
. . . . . . 7
β’ (β€
β sin = (π₯ β
β β¦ (sinβπ₯))) |
39 | 38 | oveq2d 7422 |
. . . . . 6
β’ (β€
β (β D sin) = (β D (π₯ β β β¦ (sinβπ₯)))) |
40 | 3 | a1i 11 |
. . . . . . 7
β’ (β€
β cos:ββΆβ) |
41 | 40 | feqmptd 6958 |
. . . . . 6
β’ (β€
β cos = (π₯ β
β β¦ (cosβπ₯))) |
42 | 35, 39, 41 | 3eqtr3a 2797 |
. . . . 5
β’ (β€
β (β D (π₯ β
β β¦ (sinβπ₯))) = (π₯ β β β¦ (cosβπ₯))) |
43 | 26 | a1i 11 |
. . . . 5
β’ (β€
β (β‘cos β (β β
{0})) β β) |
44 | | eqid 2733 |
. . . . . . 7
β’
(TopOpenββfld) =
(TopOpenββfld) |
45 | 44 | cnfldtopon 24291 |
. . . . . 6
β’
(TopOpenββfld) β
(TopOnββ) |
46 | 45 | toponrestid 22415 |
. . . . 5
β’
(TopOpenββfld) =
((TopOpenββfld) βΎt
β) |
47 | | dvtanlem 36526 |
. . . . . 6
β’ (β‘cos β (β β {0})) β
(TopOpenββfld) |
48 | 47 | a1i 11 |
. . . . 5
β’ (β€
β (β‘cos β (β β
{0})) β (TopOpenββfld)) |
49 | 20, 32, 34, 42, 43, 46, 44, 48 | dvmptres 25472 |
. . . 4
β’ (β€
β (β D (π₯ β
(β‘cos β (β β {0}))
β¦ (sinβπ₯))) =
(π₯ β (β‘cos β (β β {0})) β¦
(cosβπ₯))) |
50 | 8, 14 | reccld 11980 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β (1
/ (cosβπ₯)) β
β) |
51 | 50 | adantl 483 |
. . . 4
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β (1 / (cosβπ₯)) β β) |
52 | | ovexd 7441 |
. . . 4
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β (-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) β V) |
53 | 11 | simprbi 498 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
(cosβπ₯) β
(β β {0})) |
54 | 53 | adantl 483 |
. . . . 5
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β (cosβπ₯)
β (β β {0})) |
55 | 29 | negcld 11555 |
. . . . 5
β’
((β€ β§ π₯
β (β‘cos β (β β
{0}))) β -(sinβπ₯) β β) |
56 | | eldifi 4126 |
. . . . . . 7
β’ (π¦ β (β β {0})
β π¦ β
β) |
57 | | eldifsni 4793 |
. . . . . . 7
β’ (π¦ β (β β {0})
β π¦ β
0) |
58 | 56, 57 | reccld 11980 |
. . . . . 6
β’ (π¦ β (β β {0})
β (1 / π¦) β
β) |
59 | 58 | adantl 483 |
. . . . 5
β’
((β€ β§ π¦
β (β β {0})) β (1 / π¦) β β) |
60 | | negex 11455 |
. . . . . 6
β’ -(1 /
(π¦β2)) β
V |
61 | 60 | a1i 11 |
. . . . 5
β’
((β€ β§ π¦
β (β β {0})) β -(1 / (π¦β2)) β V) |
62 | 32 | negcld 11555 |
. . . . . 6
β’
((β€ β§ π₯
β β) β -(sinβπ₯) β β) |
63 | 41 | oveq2d 7422 |
. . . . . . 7
β’ (β€
β (β D cos) = (β D (π₯ β β β¦ (cosβπ₯)))) |
64 | | dvcos 25492 |
. . . . . . 7
β’ (β
D cos) = (π₯ β β
β¦ -(sinβπ₯)) |
65 | 63, 64 | eqtr3di 2788 |
. . . . . 6
β’ (β€
β (β D (π₯ β
β β¦ (cosβπ₯))) = (π₯ β β β¦ -(sinβπ₯))) |
66 | 20, 34, 62, 65, 43, 46, 44, 48 | dvmptres 25472 |
. . . . 5
β’ (β€
β (β D (π₯ β
(β‘cos β (β β {0}))
β¦ (cosβπ₯))) =
(π₯ β (β‘cos β (β β {0})) β¦
-(sinβπ₯))) |
67 | | ax-1cn 11165 |
. . . . . 6
β’ 1 β
β |
68 | | dvrec 25464 |
. . . . . 6
β’ (1 β
β β (β D (π¦ β (β β {0}) β¦ (1 /
π¦))) = (π¦ β (β β {0}) β¦ -(1 /
(π¦β2)))) |
69 | 67, 68 | mp1i 13 |
. . . . 5
β’ (β€
β (β D (π¦ β
(β β {0}) β¦ (1 / π¦))) = (π¦ β (β β {0}) β¦ -(1 /
(π¦β2)))) |
70 | | oveq2 7414 |
. . . . 5
β’ (π¦ = (cosβπ₯) β (1 / π¦) = (1 / (cosβπ₯))) |
71 | | oveq1 7413 |
. . . . . . 7
β’ (π¦ = (cosβπ₯) β (π¦β2) = ((cosβπ₯)β2)) |
72 | 71 | oveq2d 7422 |
. . . . . 6
β’ (π¦ = (cosβπ₯) β (1 / (π¦β2)) = (1 / ((cosβπ₯)β2))) |
73 | 72 | negeqd 11451 |
. . . . 5
β’ (π¦ = (cosβπ₯) β -(1 / (π¦β2)) = -(1 / ((cosβπ₯)β2))) |
74 | 20, 20, 54, 55, 59, 61, 66, 69, 70, 73 | dvmptco 25481 |
. . . 4
β’ (β€
β (β D (π₯ β
(β‘cos β (β β {0}))
β¦ (1 / (cosβπ₯)))) = (π₯ β (β‘cos β (β β {0})) β¦
(-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)))) |
75 | 20, 29, 30, 49, 51, 52, 74 | dvmptmul 25470 |
. . 3
β’ (β€
β (β D (π₯ β
(β‘cos β (β β {0}))
β¦ ((sinβπ₯)
Β· (1 / (cosβπ₯))))) = (π₯ β (β‘cos β (β β {0})) β¦
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯))))) |
76 | 75 | mptru 1549 |
. 2
β’ (β
D (π₯ β (β‘cos β (β β {0})) β¦
((sinβπ₯) Β· (1
/ (cosβπ₯))))) =
(π₯ β (β‘cos β (β β {0})) β¦
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯)))) |
77 | | ovex 7439 |
. . . . 5
β’
((sinβπ₯) /
(cosβπ₯)) β
V |
78 | 77, 1 | dmmpti 6692 |
. . . 4
β’ dom tan =
(β‘cos β (β β
{0})) |
79 | 78 | eqcomi 2742 |
. . 3
β’ (β‘cos β (β β {0})) = dom
tan |
80 | 8 | sqcld 14106 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
((cosβπ₯)β2)
β β) |
81 | 7 | sqcld 14106 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
((sinβπ₯)β2)
β β) |
82 | | sqne0 14085 |
. . . . . . . . 9
β’
((cosβπ₯)
β β β (((cosβπ₯)β2) β 0 β (cosβπ₯) β 0)) |
83 | 8, 82 | syl 17 |
. . . . . . . 8
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯)β2)
β 0 β (cosβπ₯)
β 0)) |
84 | 14, 83 | mpbird 257 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
((cosβπ₯)β2) β
0) |
85 | 80, 81, 80, 84 | divdird 12025 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
((((cosβπ₯)β2) +
((sinβπ₯)β2)) /
((cosβπ₯)β2)) =
((((cosβπ₯)β2) /
((cosβπ₯)β2)) +
(((sinβπ₯)β2) /
((cosβπ₯)β2)))) |
86 | 80, 81 | addcomd 11413 |
. . . . . . . 8
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯)β2) +
((sinβπ₯)β2)) =
(((sinβπ₯)β2) +
((cosβπ₯)β2))) |
87 | | sincossq 16116 |
. . . . . . . . 9
β’ (π₯ β β β
(((sinβπ₯)β2) +
((cosβπ₯)β2)) =
1) |
88 | 6, 87 | syl 17 |
. . . . . . . 8
β’ (π₯ β (β‘cos β (β β {0})) β
(((sinβπ₯)β2) +
((cosβπ₯)β2)) =
1) |
89 | 86, 88 | eqtrd 2773 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯)β2) +
((sinβπ₯)β2)) =
1) |
90 | 89 | oveq1d 7421 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
((((cosβπ₯)β2) +
((sinβπ₯)β2)) /
((cosβπ₯)β2)) =
(1 / ((cosβπ₯)β2))) |
91 | 85, 90 | eqtr3d 2775 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β
((((cosβπ₯)β2) /
((cosβπ₯)β2)) +
(((sinβπ₯)β2) /
((cosβπ₯)β2))) =
(1 / ((cosβπ₯)β2))) |
92 | 8, 14 | recidd 11982 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
((cosβπ₯) Β· (1
/ (cosβπ₯))) =
1) |
93 | 80, 84 | dividd 11985 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯)β2) /
((cosβπ₯)β2)) =
1) |
94 | 92, 93 | eqtr4d 2776 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
((cosβπ₯) Β· (1
/ (cosβπ₯))) =
(((cosβπ₯)β2) /
((cosβπ₯)β2))) |
95 | 7, 7, 80, 84 | div23d 12024 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
(((sinβπ₯) Β·
(sinβπ₯)) /
((cosβπ₯)β2)) =
(((sinβπ₯) /
((cosβπ₯)β2))
Β· (sinβπ₯))) |
96 | 7 | sqvald 14105 |
. . . . . . . 8
β’ (π₯ β (β‘cos β (β β {0})) β
((sinβπ₯)β2) =
((sinβπ₯) Β·
(sinβπ₯))) |
97 | 96 | oveq1d 7421 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
(((sinβπ₯)β2) /
((cosβπ₯)β2)) =
(((sinβπ₯) Β·
(sinβπ₯)) /
((cosβπ₯)β2))) |
98 | 80, 84 | reccld 11980 |
. . . . . . . . . 10
β’ (π₯ β (β‘cos β (β β {0})) β (1
/ ((cosβπ₯)β2))
β β) |
99 | 98, 7 | mul2negd 11666 |
. . . . . . . . 9
β’ (π₯ β (β‘cos β (β β {0})) β
(-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) = ((1 / ((cosβπ₯)β2)) Β·
(sinβπ₯))) |
100 | 7, 80, 84 | divrec2d 11991 |
. . . . . . . . 9
β’ (π₯ β (β‘cos β (β β {0})) β
((sinβπ₯) /
((cosβπ₯)β2)) =
((1 / ((cosβπ₯)β2)) Β· (sinβπ₯))) |
101 | 99, 100 | eqtr4d 2776 |
. . . . . . . 8
β’ (π₯ β (β‘cos β (β β {0})) β
(-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) = ((sinβπ₯) / ((cosβπ₯)β2))) |
102 | 101 | oveq1d 7421 |
. . . . . . 7
β’ (π₯ β (β‘cos β (β β {0})) β
((-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) Β· (sinβπ₯)) = (((sinβπ₯) / ((cosβπ₯)β2)) Β·
(sinβπ₯))) |
103 | 95, 97, 102 | 3eqtr4rd 2784 |
. . . . . 6
β’ (π₯ β (β‘cos β (β β {0})) β
((-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) Β· (sinβπ₯)) = (((sinβπ₯)β2) / ((cosβπ₯)β2))) |
104 | 94, 103 | oveq12d 7424 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯))) =
((((cosβπ₯)β2) /
((cosβπ₯)β2)) +
(((sinβπ₯)β2) /
((cosβπ₯)β2)))) |
105 | | 2nn0 12486 |
. . . . . 6
β’ 2 β
β0 |
106 | | expneg 14032 |
. . . . . 6
β’
(((cosβπ₯)
β β β§ 2 β β0) β ((cosβπ₯)β-2) = (1 /
((cosβπ₯)β2))) |
107 | 8, 105, 106 | sylancl 587 |
. . . . 5
β’ (π₯ β (β‘cos β (β β {0})) β
((cosβπ₯)β-2) =
(1 / ((cosβπ₯)β2))) |
108 | 91, 104, 107 | 3eqtr4d 2783 |
. . . 4
β’ (π₯ β (β‘cos β (β β {0})) β
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯))) =
((cosβπ₯)β-2)) |
109 | 108 | rgen 3064 |
. . 3
β’
βπ₯ β
(β‘cos β (β β
{0}))(((cosβπ₯)
Β· (1 / (cosβπ₯))) + ((-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) Β· (sinβπ₯))) = ((cosβπ₯)β-2) |
110 | | mpteq12 5240 |
. . 3
β’ (((β‘cos β (β β {0})) = dom tan
β§ βπ₯ β
(β‘cos β (β β
{0}))(((cosβπ₯)
Β· (1 / (cosβπ₯))) + ((-(1 / ((cosβπ₯)β2)) Β· -(sinβπ₯)) Β· (sinβπ₯))) = ((cosβπ₯)β-2)) β (π₯ β (β‘cos β (β β {0})) β¦
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯)))) =
(π₯ β dom tan β¦
((cosβπ₯)β-2))) |
111 | 79, 109, 110 | mp2an 691 |
. 2
β’ (π₯ β (β‘cos β (β β {0})) β¦
(((cosβπ₯) Β· (1
/ (cosβπ₯))) + ((-(1 /
((cosβπ₯)β2))
Β· -(sinβπ₯))
Β· (sinβπ₯)))) =
(π₯ β dom tan β¦
((cosβπ₯)β-2)) |
112 | 18, 76, 111 | 3eqtri 2765 |
1
β’ (β
D tan) = (π₯ β dom tan
β¦ ((cosβπ₯)β-2)) |