Metamath Proof Explorer


Theorem dvsec

Description: Derivative of the secant function. (Contributed by Jon Pennant, 28-Aug-2026)

Ref Expression
Assertion dvsec D sec = x dom sec sec x tan x

Proof

Step Hyp Ref Expression
1 df-sec sec = x y | cos y 0 1 cos x
2 1 oveq2i D sec = dx y | cos y 0 1 cos x d x
3 cnelprrecn
4 3 a1i
5 1cnd 1
6 elrabi x y | cos y 0 x
7 coscl x cos x
8 6 7 syl x y | cos y 0 cos x
9 fveq2 y = x cos y = cos x
10 9 neeq1d y = x cos y 0 cos x 0
11 10 elrab x y | cos y 0 x cos x 0
12 11 simprbi x y | cos y 0 cos x 0
13 8 12 jca x y | cos y 0 cos x cos x 0
14 eldifsn cos x 0 cos x cos x 0
15 13 14 sylibr x y | cos y 0 cos x 0
16 15 adantl x y | cos y 0 cos x 0
17 sincl x sin x
18 6 17 syl x y | cos y 0 sin x
19 18 adantl x y | cos y 0 sin x
20 19 negcld x y | cos y 0 sin x
21 7 adantl x cos x
22 17 negcld x sin x
23 22 adantl x sin x
24 cosf cos :
25 24 a1i cos :
26 25 feqmptd cos = x cos x
27 26 mptru cos = x cos x
28 27 oveq2i D cos = dx cos x d x
29 dvcos D cos = x sin x
30 28 29 eqtr3i dx cos x d x = x sin x
31 30 a1i dx cos x d x = x sin x
32 ssrab2 y | cos y 0
33 32 a1i y | cos y 0
34 eqid TopOpen fld = TopOpen fld
35 34 cnfldtopon TopOpen fld TopOn
36 35 toponrestid TopOpen fld = TopOpen fld 𝑡
37 coscn cos : cn
38 ssid
39 34 36 36 cncfcn cn = TopOpen fld Cn TopOpen fld
40 38 38 39 mp2an cn = TopOpen fld Cn TopOpen fld
41 37 40 eleqtri cos TopOpen fld Cn TopOpen fld
42 cnn0opn 0 TopOpen fld
43 cnima cos TopOpen fld Cn TopOpen fld 0 TopOpen fld cos -1 0 TopOpen fld
44 41 42 43 mp2an cos -1 0 TopOpen fld
45 coscl y cos y
46 eldifsn cos y 0 cos y cos y 0
47 46 baib cos y cos y 0 cos y 0
48 45 47 syl y cos y 0 cos y 0
49 48 bicomd y cos y 0 cos y 0
50 49 rabbiia y | cos y 0 = y | cos y 0
51 25 feqmptd cos = y cos y
52 51 mptru cos = y cos y
53 52 mptpreima cos -1 0 = y | cos y 0
54 50 53 eqtr4i y | cos y 0 = cos -1 0
55 54 eleq1i y | cos y 0 TopOpen fld cos -1 0 TopOpen fld
56 44 55 mpbir y | cos y 0 TopOpen fld
57 56 a1i y | cos y 0 TopOpen fld
58 4 21 23 31 33 36 34 57 dvmptres dx y | cos y 0 cos x d x = x y | cos y 0 sin x
59 4 5 16 20 58 dvrecg dx y | cos y 0 1 cos x d x = x y | cos y 0 1 sin x cos x 2
60 59 mptru dx y | cos y 0 1 cos x d x = x y | cos y 0 1 sin x cos x 2
61 18 negcld x y | cos y 0 sin x
62 61 mullidd x y | cos y 0 1 sin x = sin x
63 sqval cos x cos x 2 = cos x cos x
64 8 63 syl x y | cos y 0 cos x 2 = cos x cos x
65 62 64 oveq12d x y | cos y 0 1 sin x cos x 2 = sin x cos x cos x
66 65 negeqd x y | cos y 0 1 sin x cos x 2 = sin x cos x cos x
67 8 8 mulcld x y | cos y 0 cos x cos x
68 8 8 12 12 mulne0d x y | cos y 0 cos x cos x 0
69 61 67 68 divnegd x y | cos y 0 sin x cos x cos x = sin x cos x cos x
70 18 negnegd x y | cos y 0 sin x = sin x
71 70 oveq1d x y | cos y 0 sin x cos x cos x = sin x cos x cos x
72 69 71 eqtrd x y | cos y 0 sin x cos x cos x = sin x cos x cos x
73 66 72 eqtrd x y | cos y 0 1 sin x cos x 2 = sin x cos x cos x
74 ax-1cn 1
75 74 a1i x y | cos y 0 1
76 75 8 18 8 12 12 divmuldivd x y | cos y 0 1 cos x sin x cos x = 1 sin x cos x cos x
77 18 mullidd x y | cos y 0 1 sin x = sin x
78 77 oveq1d x y | cos y 0 1 sin x cos x cos x = sin x cos x cos x
79 76 78 eqtrd x y | cos y 0 1 cos x sin x cos x = sin x cos x cos x
80 79 eqcomd x y | cos y 0 sin x cos x cos x = 1 cos x sin x cos x
81 73 80 eqtrd x y | cos y 0 1 sin x cos x 2 = 1 cos x sin x cos x
82 secval x cos x 0 sec x = 1 cos x
83 11 82 sylbi x y | cos y 0 sec x = 1 cos x
84 83 eqcomd x y | cos y 0 1 cos x = sec x
85 tanval x cos x 0 tan x = sin x cos x
86 11 85 sylbi x y | cos y 0 tan x = sin x cos x
87 86 eqcomd x y | cos y 0 sin x cos x = tan x
88 84 87 oveq12d x y | cos y 0 1 cos x sin x cos x = sec x tan x
89 81 88 eqtrd x y | cos y 0 1 sin x cos x 2 = sec x tan x
90 89 mpteq2ia x y | cos y 0 1 sin x cos x 2 = x y | cos y 0 sec x tan x
91 75 8 12 divcld x y | cos y 0 1 cos x
92 1 91 fmpti sec : y | cos y 0
93 92 fdmi dom sec = y | cos y 0
94 93 eqcomi y | cos y 0 = dom sec
95 94 mpteq1i x y | cos y 0 sec x tan x = x dom sec sec x tan x
96 90 95 eqtri x y | cos y 0 1 sin x cos x 2 = x dom sec sec x tan x
97 60 96 eqtri dx y | cos y 0 1 cos x d x = x dom sec sec x tan x
98 2 97 eqtri D sec = x dom sec sec x tan x