Metamath Proof Explorer


Theorem readvcot

Description: Real antiderivative of cotangent. (Contributed by SN, 7-Oct-2025)

Ref Expression
Hypothesis readvcot.d ⊢ D = y ∈ ℝ | sin ⁡ y ≠ 0
Assertion readvcot ⊢ dx ∈ D log ⁡ sin ⁡ x d ℝ x = x ∈ D ⟼ cos ⁡ x sin ⁡ x

Proof

Step Hyp Ref Expression
1 readvcot.d ⊢ D = y ∈ ℝ | sin ⁡ y ≠ 0
2 reelprrecn ⊢ ℝ ∈ ℝ ℂ
3 2 a1i ⊢ ⊤ → ℝ ∈ ℝ ℂ
4 fveq2 ⊢ y = x → sin ⁡ y = sin ⁡ x
5 4 neeq1d ⊢ y = x → sin ⁡ y ≠ 0 ↔ sin ⁡ x ≠ 0
6 5 1 elrab2 ⊢ x ∈ D ↔ x ∈ ℝ ∧ sin ⁡ x ≠ 0
7 resincl ⊢ x ∈ ℝ → sin ⁡ x ∈ ℝ
8 7 adantr ⊢ x ∈ ℝ ∧ sin ⁡ x ≠ 0 → sin ⁡ x ∈ ℝ
9 simpr ⊢ x ∈ ℝ ∧ sin ⁡ x ≠ 0 → sin ⁡ x ≠ 0
10 8 9 eldifsnd ⊢ x ∈ ℝ ∧ sin ⁡ x ≠ 0 → sin ⁡ x ∈ ℝ ∖ 0
11 6 10 sylbi ⊢ x ∈ D → sin ⁡ x ∈ ℝ ∖ 0
12 11 adantl ⊢ ⊤ ∧ x ∈ D → sin ⁡ x ∈ ℝ ∖ 0
13 fvexd ⊢ ⊤ ∧ x ∈ D → cos ⁡ x ∈ V
14 eldifi ⊢ z ∈ ℝ ∖ 0 → z ∈ ℝ
15 14 adantl ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ∈ ℝ
16 15 recnd ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ∈ ℂ
17 16 abscld ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ∈ ℝ
18 17 recnd ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ∈ ℂ
19 eldifsni ⊢ z ∈ ℝ ∖ 0 → z ≠ 0
20 19 adantl ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ≠ 0
21 16 20 absne0d ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → z ≠ 0
22 18 21 logcld ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → log ⁡ z ∈ ℂ
23 ovexd ⊢ ⊤ ∧ z ∈ ℝ ∖ 0 → 1 z ∈ V
24 7 recnd ⊢ x ∈ ℝ → sin ⁡ x ∈ ℂ
25 24 adantl ⊢ ⊤ ∧ x ∈ ℝ → sin ⁡ x ∈ ℂ
26 fvexd ⊢ ⊤ ∧ x ∈ ℝ → cos ⁡ x ∈ V
27 eqid ⊢ TopOpen ⁡ ℂ fld = TopOpen ⁡ ℂ fld
28 cnopn ⊢ ℂ ∈ TopOpen ⁡ ℂ fld
29 28 a1i ⊢ ⊤ → ℂ ∈ TopOpen ⁡ ℂ fld
30 ax-resscn ⊢ ℝ ⊆ ℂ
31 dfss2 ⊢ ℝ ⊆ ℂ ↔ ℝ ∩ ℂ = ℝ
32 30 31 mpbi ⊢ ℝ ∩ ℂ = ℝ
33 32 a1i ⊢ ⊤ → ℝ ∩ ℂ = ℝ
34 sincl ⊢ x ∈ ℂ → sin ⁡ x ∈ ℂ
35 34 adantl ⊢ ⊤ ∧ x ∈ ℂ → sin ⁡ x ∈ ℂ
36 fvexd ⊢ ⊤ ∧ x ∈ ℂ → cos ⁡ x ∈ V
37 dvsin ⊢ ℂ D sin = cos
38 sinf ⊢ sin : ℂ ⟶ ℂ
39 38 a1i ⊢ ⊤ → sin : ℂ ⟶ ℂ
40 39 feqmptd ⊢ ⊤ → sin = x ∈ ℂ ⟼ sin ⁡ x
41 40 oveq2d ⊢ ⊤ → ℂ D sin = dx ∈ ℂ sin ⁡ x d ℂ x
42 cosf ⊢ cos : ℂ ⟶ ℂ
43 42 a1i ⊢ ⊤ → cos : ℂ ⟶ ℂ
44 43 feqmptd ⊢ ⊤ → cos = x ∈ ℂ ⟼ cos ⁡ x
45 37 41 44 3eqtr3a ⊢ ⊤ → dx ∈ ℂ sin ⁡ x d ℂ x = x ∈ ℂ ⟼ cos ⁡ x
46 27 3 29 33 35 36 45 dvmptres3 ⊢ ⊤ → dx ∈ ℝ sin ⁡ x d ℝ x = x ∈ ℝ ⟼ cos ⁡ x
47 1 ssrab3 ⊢ D ⊆ ℝ
48 47 a1i ⊢ ⊤ → D ⊆ ℝ
49 tgioo4 ⊢ topGen ⁡ ran ⁡ . = TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
50 1 resuppsinopn ⊢ D ∈ topGen ⁡ ran ⁡ .
51 50 a1i ⊢ ⊤ → D ∈ topGen ⁡ ran ⁡ .
52 3 25 26 46 48 49 27 51 dvmptres ⊢ ⊤ → dx ∈ D sin ⁡ x d ℝ x = x ∈ D ⟼ cos ⁡ x
53 eqid ⊢ ℝ ∖ 0 = ℝ ∖ 0
54 53 readvrec ⊢ dz ∈ ℝ ∖ 0 log ⁡ z d ℝ z = z ∈ ℝ ∖ 0 ⟼ 1 z
55 54 a1i ⊢ ⊤ → dz ∈ ℝ ∖ 0 log ⁡ z d ℝ z = z ∈ ℝ ∖ 0 ⟼ 1 z
56 2fveq3 ⊢ z = sin ⁡ x → log ⁡ z = log ⁡ sin ⁡ x
57 oveq2 ⊢ z = sin ⁡ x → 1 z = 1 sin ⁡ x
58 3 3 12 13 22 23 52 55 56 57 dvmptco ⊢ ⊤ → dx ∈ D log ⁡ sin ⁡ x d ℝ x = x ∈ D ⟼ 1 sin ⁡ x ⁢ cos ⁡ x
59 58 mptru ⊢ dx ∈ D log ⁡ sin ⁡ x d ℝ x = x ∈ D ⟼ 1 sin ⁡ x ⁢ cos ⁡ x
60 6 simplbi ⊢ x ∈ D → x ∈ ℝ
61 60 recoscld ⊢ x ∈ D → cos ⁡ x ∈ ℝ
62 61 recnd ⊢ x ∈ D → cos ⁡ x ∈ ℂ
63 6 8 sylbi ⊢ x ∈ D → sin ⁡ x ∈ ℝ
64 63 recnd ⊢ x ∈ D → sin ⁡ x ∈ ℂ
65 6 9 sylbi ⊢ x ∈ D → sin ⁡ x ≠ 0
66 62 64 65 divrec2d ⊢ x ∈ D → cos ⁡ x sin ⁡ x = 1 sin ⁡ x ⁢ cos ⁡ x
67 66 mpteq2ia ⊢ x ∈ D ⟼ cos ⁡ x sin ⁡ x = x ∈ D ⟼ 1 sin ⁡ x ⁢ cos ⁡ x
68 59 67 eqtr4i ⊢ dx ∈ D log ⁡ sin ⁡ x d ℝ x = x ∈ D ⟼ cos ⁡ x sin ⁡ x