MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  dvatan Structured version   Visualization version   GIF version

Theorem dvatan 27100
Description: The derivative of the arctangent. (Contributed by Mario Carneiro, 7-Apr-2015.)
Hypotheses
Ref Expression
atansopn.d 𝐷 = (ℂ ∖ (-∞(,]0))
atansopn.s 𝑆 = {𝑦 ∈ ℂ ∣ (1 + (𝑦↑2)) ∈ 𝐷}
Assertion
Ref Expression
dvatan (ℂ D (arctan ↾ 𝑆)) = (𝑥𝑆 ↦ (1 / (1 + (𝑥↑2))))
Distinct variable groups:   𝑥,𝑦,𝐷   𝑥,𝑆
Allowed substitution hint:   𝑆(𝑦)

Proof of Theorem dvatan
StepHypRef Expression
1 cnelprrecn 11188 . . . . 5 ℂ ∈ {ℝ, ℂ}
21a1i 11 . . . 4 (⊤ → ℂ ∈ {ℝ, ℂ})
3 ax-1cn 11153 . . . . . . 7 1 ∈ ℂ
4 ax-icn 11154 . . . . . . . 8 i ∈ ℂ
5 atansopn.d . . . . . . . . . . . 12 𝐷 = (ℂ ∖ (-∞(,]0))
6 atansopn.s . . . . . . . . . . . 12 𝑆 = {𝑦 ∈ ℂ ∣ (1 + (𝑦↑2)) ∈ 𝐷}
75, 6atansssdm 27098 . . . . . . . . . . 11 𝑆 ⊆ dom arctan
8 simpr 489 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → 𝑥𝑆)
97, 8sselid 3935 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → 𝑥 ∈ dom arctan)
10 atandm2 27042 . . . . . . . . . 10 (𝑥 ∈ dom arctan ↔ (𝑥 ∈ ℂ ∧ (1 − (i · 𝑥)) ≠ 0 ∧ (1 + (i · 𝑥)) ≠ 0))
119, 10sylib 221 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (𝑥 ∈ ℂ ∧ (1 − (i · 𝑥)) ≠ 0 ∧ (1 + (i · 𝑥)) ≠ 0))
1211simp1d 1160 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → 𝑥 ∈ ℂ)
13 mulcl 11179 . . . . . . . 8 ((i ∈ ℂ ∧ 𝑥 ∈ ℂ) → (i · 𝑥) ∈ ℂ)
144, 12, 13sylancr 598 . . . . . . 7 ((⊤ ∧ 𝑥𝑆) → (i · 𝑥) ∈ ℂ)
15 subcl 11451 . . . . . . 7 ((1 ∈ ℂ ∧ (i · 𝑥) ∈ ℂ) → (1 − (i · 𝑥)) ∈ ℂ)
163, 14, 15sylancr 598 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 − (i · 𝑥)) ∈ ℂ)
1711simp2d 1161 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 − (i · 𝑥)) ≠ 0)
1816, 17logcld 26735 . . . . 5 ((⊤ ∧ 𝑥𝑆) → (log‘(1 − (i · 𝑥))) ∈ ℂ)
19 addcl 11177 . . . . . . 7 ((1 ∈ ℂ ∧ (i · 𝑥) ∈ ℂ) → (1 + (i · 𝑥)) ∈ ℂ)
203, 14, 19sylancr 598 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 + (i · 𝑥)) ∈ ℂ)
2111simp3d 1162 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 + (i · 𝑥)) ≠ 0)
2220, 21logcld 26735 . . . . 5 ((⊤ ∧ 𝑥𝑆) → (log‘(1 + (i · 𝑥))) ∈ ℂ)
2318, 22subcld 11564 . . . 4 ((⊤ ∧ 𝑥𝑆) → ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))) ∈ ℂ)
24 ovexd 7445 . . . 4 ((⊤ ∧ 𝑥𝑆) → ((2 / i) / (1 + (𝑥↑2))) ∈ V)
25 ovexd 7445 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 / (𝑥 + i)) ∈ V)
265, 6atans2 27096 . . . . . . . . . 10 (𝑥𝑆 ↔ (𝑥 ∈ ℂ ∧ (1 − (i · 𝑥)) ∈ 𝐷 ∧ (1 + (i · 𝑥)) ∈ 𝐷))
2726simp2bi 1164 . . . . . . . . 9 (𝑥𝑆 → (1 − (i · 𝑥)) ∈ 𝐷)
2827adantl 486 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (1 − (i · 𝑥)) ∈ 𝐷)
29 negex 11450 . . . . . . . . 9 -i ∈ V
3029a1i 11 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → -i ∈ V)
315logdmss 26807 . . . . . . . . . 10 𝐷 ⊆ (ℂ ∖ {0})
32 simpr 489 . . . . . . . . . 10 ((⊤ ∧ 𝑦𝐷) → 𝑦𝐷)
3331, 32sselid 3935 . . . . . . . . 9 ((⊤ ∧ 𝑦𝐷) → 𝑦 ∈ (ℂ ∖ {0}))
34 logf1o 26729 . . . . . . . . . . 11 log:(ℂ ∖ {0})–1-1-onto→ran log
35 f1of 6820 . . . . . . . . . . 11 (log:(ℂ ∖ {0})–1-1-onto→ran log → log:(ℂ ∖ {0})⟶ran log)
3634, 35ax-mp 5 . . . . . . . . . 10 log:(ℂ ∖ {0})⟶ran log
3736ffvelcdmi 7078 . . . . . . . . 9 (𝑦 ∈ (ℂ ∖ {0}) → (log‘𝑦) ∈ ran log)
38 logrncn 26727 . . . . . . . . 9 ((log‘𝑦) ∈ ran log → (log‘𝑦) ∈ ℂ)
3933, 37, 383syl 19 . . . . . . . 8 ((⊤ ∧ 𝑦𝐷) → (log‘𝑦) ∈ ℂ)
40 ovexd 7445 . . . . . . . 8 ((⊤ ∧ 𝑦𝐷) → (1 / 𝑦) ∈ V)
414a1i 11 . . . . . . . . . . 11 (⊤ → i ∈ ℂ)
4241, 13sylan 591 . . . . . . . . . 10 ((⊤ ∧ 𝑥 ∈ ℂ) → (i · 𝑥) ∈ ℂ)
433, 42, 15sylancr 598 . . . . . . . . 9 ((⊤ ∧ 𝑥 ∈ ℂ) → (1 − (i · 𝑥)) ∈ ℂ)
4429a1i 11 . . . . . . . . 9 ((⊤ ∧ 𝑥 ∈ ℂ) → -i ∈ V)
45 1cnd 11197 . . . . . . . . . . 11 ((⊤ ∧ 𝑥 ∈ ℂ) → 1 ∈ ℂ)
46 0cnd 11194 . . . . . . . . . . 11 ((⊤ ∧ 𝑥 ∈ ℂ) → 0 ∈ ℂ)
47 1cnd 11197 . . . . . . . . . . . 12 (⊤ → 1 ∈ ℂ)
482, 47dvmptc 26117 . . . . . . . . . . 11 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ 1)) = (𝑥 ∈ ℂ ↦ 0))
494a1i 11 . . . . . . . . . . 11 ((⊤ ∧ 𝑥 ∈ ℂ) → i ∈ ℂ)
50 simpr 489 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥 ∈ ℂ) → 𝑥 ∈ ℂ)
512dvmptid 26116 . . . . . . . . . . . . 13 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ 𝑥)) = (𝑥 ∈ ℂ ↦ 1))
522, 50, 45, 51, 41dvmptcmul 26123 . . . . . . . . . . . 12 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (i · 𝑥))) = (𝑥 ∈ ℂ ↦ (i · 1)))
534mulridi 11208 . . . . . . . . . . . . 13 (i · 1) = i
5453mpteq2i 5207 . . . . . . . . . . . 12 (𝑥 ∈ ℂ ↦ (i · 1)) = (𝑥 ∈ ℂ ↦ i)
5552, 54eqtrdi 2814 . . . . . . . . . . 11 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (i · 𝑥))) = (𝑥 ∈ ℂ ↦ i))
562, 45, 46, 48, 42, 49, 55dvmptsub 26126 . . . . . . . . . 10 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (1 − (i · 𝑥)))) = (𝑥 ∈ ℂ ↦ (0 − i)))
57 df-neg 11439 . . . . . . . . . . 11 -i = (0 − i)
5857mpteq2i 5207 . . . . . . . . . 10 (𝑥 ∈ ℂ ↦ -i) = (𝑥 ∈ ℂ ↦ (0 − i))
5956, 58eqtr4di 2816 . . . . . . . . 9 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (1 − (i · 𝑥)))) = (𝑥 ∈ ℂ ↦ -i))
606ssrab3 4036 . . . . . . . . . 10 𝑆 ⊆ ℂ
6160a1i 11 . . . . . . . . 9 (⊤ → 𝑆 ⊆ ℂ)
62 eqid 2763 . . . . . . . . . . 11 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
6362cnfldtopon 24939 . . . . . . . . . 10 (TopOpen‘ℂfld) ∈ (TopOn‘ℂ)
6463toponrestid 23078 . . . . . . . . 9 (TopOpen‘ℂfld) = ((TopOpen‘ℂfld) ↾t ℂ)
655, 6atansopn 27097 . . . . . . . . . 10 𝑆 ∈ (TopOpen‘ℂfld)
6665a1i 11 . . . . . . . . 9 (⊤ → 𝑆 ∈ (TopOpen‘ℂfld))
672, 43, 44, 59, 61, 64, 62, 66dvmptres 26122 . . . . . . . 8 (⊤ → (ℂ D (𝑥𝑆 ↦ (1 − (i · 𝑥)))) = (𝑥𝑆 ↦ -i))
68 fssres 6744 . . . . . . . . . . . . . 14 ((log:(ℂ ∖ {0})⟶ran log ∧ 𝐷 ⊆ (ℂ ∖ {0})) → (log ↾ 𝐷):𝐷⟶ran log)
6936, 31, 68mp2an 704 . . . . . . . . . . . . 13 (log ↾ 𝐷):𝐷⟶ran log
7069a1i 11 . . . . . . . . . . . 12 (⊤ → (log ↾ 𝐷):𝐷⟶ran log)
7170feqmptd 6949 . . . . . . . . . . 11 (⊤ → (log ↾ 𝐷) = (𝑦𝐷 ↦ ((log ↾ 𝐷)‘𝑦)))
72 fvres 6900 . . . . . . . . . . . 12 (𝑦𝐷 → ((log ↾ 𝐷)‘𝑦) = (log‘𝑦))
7372mpteq2ia 5206 . . . . . . . . . . 11 (𝑦𝐷 ↦ ((log ↾ 𝐷)‘𝑦)) = (𝑦𝐷 ↦ (log‘𝑦))
7471, 73eqtr2di 2815 . . . . . . . . . 10 (⊤ → (𝑦𝐷 ↦ (log‘𝑦)) = (log ↾ 𝐷))
7574oveq2d 7426 . . . . . . . . 9 (⊤ → (ℂ D (𝑦𝐷 ↦ (log‘𝑦))) = (ℂ D (log ↾ 𝐷)))
765dvlog 26816 . . . . . . . . 9 (ℂ D (log ↾ 𝐷)) = (𝑦𝐷 ↦ (1 / 𝑦))
7775, 76eqtrdi 2814 . . . . . . . 8 (⊤ → (ℂ D (𝑦𝐷 ↦ (log‘𝑦))) = (𝑦𝐷 ↦ (1 / 𝑦)))
78 fveq2 6881 . . . . . . . 8 (𝑦 = (1 − (i · 𝑥)) → (log‘𝑦) = (log‘(1 − (i · 𝑥))))
79 oveq2 7418 . . . . . . . 8 (𝑦 = (1 − (i · 𝑥)) → (1 / 𝑦) = (1 / (1 − (i · 𝑥))))
802, 2, 28, 30, 39, 40, 67, 77, 78, 79dvmptco 26131 . . . . . . 7 (⊤ → (ℂ D (𝑥𝑆 ↦ (log‘(1 − (i · 𝑥))))) = (𝑥𝑆 ↦ ((1 / (1 − (i · 𝑥))) · -i)))
81 irec 14233 . . . . . . . . . 10 (1 / i) = -i
8281oveq2i 7421 . . . . . . . . 9 ((1 / (1 − (i · 𝑥))) · (1 / i)) = ((1 / (1 − (i · 𝑥))) · -i)
834a1i 11 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → i ∈ ℂ)
84 ine0 11644 . . . . . . . . . . . 12 i ≠ 0
8584a1i 11 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → i ≠ 0)
8616, 83, 17, 85recdiv2d 12004 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((1 / (1 − (i · 𝑥))) / i) = (1 / ((1 − (i · 𝑥)) · i)))
8716, 17reccld 11979 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → (1 / (1 − (i · 𝑥))) ∈ ℂ)
8887, 83, 85divrecd 11989 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((1 / (1 − (i · 𝑥))) / i) = ((1 / (1 − (i · 𝑥))) · (1 / i)))
89 1cnd 11197 . . . . . . . . . . . . . 14 ((⊤ ∧ 𝑥𝑆) → 1 ∈ ℂ)
9089, 14, 83subdird 11666 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥𝑆) → ((1 − (i · 𝑥)) · i) = ((1 · i) − ((i · 𝑥) · i)))
914mullidi 11209 . . . . . . . . . . . . . . 15 (1 · i) = i
9291a1i 11 . . . . . . . . . . . . . 14 ((⊤ ∧ 𝑥𝑆) → (1 · i) = i)
9383, 12, 83mul32d 11415 . . . . . . . . . . . . . . 15 ((⊤ ∧ 𝑥𝑆) → ((i · 𝑥) · i) = ((i · i) · 𝑥))
94 ixi 11838 . . . . . . . . . . . . . . . . 17 (i · i) = -1
9594oveq1i 7420 . . . . . . . . . . . . . . . 16 ((i · i) · 𝑥) = (-1 · 𝑥)
9612mulm1d 11661 . . . . . . . . . . . . . . . 16 ((⊤ ∧ 𝑥𝑆) → (-1 · 𝑥) = -𝑥)
9795, 96eqtrid 2810 . . . . . . . . . . . . . . 15 ((⊤ ∧ 𝑥𝑆) → ((i · i) · 𝑥) = -𝑥)
9893, 97eqtrd 2798 . . . . . . . . . . . . . 14 ((⊤ ∧ 𝑥𝑆) → ((i · 𝑥) · i) = -𝑥)
9992, 98oveq12d 7428 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥𝑆) → ((1 · i) − ((i · 𝑥) · i)) = (i − -𝑥))
100 subneg 11502 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ 𝑥 ∈ ℂ) → (i − -𝑥) = (i + 𝑥))
1014, 12, 100sylancr 598 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥𝑆) → (i − -𝑥) = (i + 𝑥))
10290, 99, 1013eqtrd 2802 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((1 − (i · 𝑥)) · i) = (i + 𝑥))
10383, 12, 102comraddd 11419 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((1 − (i · 𝑥)) · i) = (𝑥 + i))
104103oveq2d 7426 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → (1 / ((1 − (i · 𝑥)) · i)) = (1 / (𝑥 + i)))
10586, 88, 1043eqtr3d 2806 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → ((1 / (1 − (i · 𝑥))) · (1 / i)) = (1 / (𝑥 + i)))
10682, 105eqtr3id 2812 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → ((1 / (1 − (i · 𝑥))) · -i) = (1 / (𝑥 + i)))
107106mpteq2dva 5204 . . . . . . 7 (⊤ → (𝑥𝑆 ↦ ((1 / (1 − (i · 𝑥))) · -i)) = (𝑥𝑆 ↦ (1 / (𝑥 + i))))
10880, 107eqtrd 2798 . . . . . 6 (⊤ → (ℂ D (𝑥𝑆 ↦ (log‘(1 − (i · 𝑥))))) = (𝑥𝑆 ↦ (1 / (𝑥 + i))))
109 ovexd 7445 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (1 / (𝑥 − i)) ∈ V)
11026simp3bi 1165 . . . . . . . . 9 (𝑥𝑆 → (1 + (i · 𝑥)) ∈ 𝐷)
111110adantl 486 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (1 + (i · 𝑥)) ∈ 𝐷)
1123, 42, 19sylancr 598 . . . . . . . . 9 ((⊤ ∧ 𝑥 ∈ ℂ) → (1 + (i · 𝑥)) ∈ ℂ)
1132, 45, 46, 48, 42, 49, 55dvmptadd 26119 . . . . . . . . . 10 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (1 + (i · 𝑥)))) = (𝑥 ∈ ℂ ↦ (0 + i)))
1144addlidi 11393 . . . . . . . . . . 11 (0 + i) = i
115114mpteq2i 5207 . . . . . . . . . 10 (𝑥 ∈ ℂ ↦ (0 + i)) = (𝑥 ∈ ℂ ↦ i)
116113, 115eqtrdi 2814 . . . . . . . . 9 (⊤ → (ℂ D (𝑥 ∈ ℂ ↦ (1 + (i · 𝑥)))) = (𝑥 ∈ ℂ ↦ i))
1172, 112, 49, 116, 61, 64, 62, 66dvmptres 26122 . . . . . . . 8 (⊤ → (ℂ D (𝑥𝑆 ↦ (1 + (i · 𝑥)))) = (𝑥𝑆 ↦ i))
118 fveq2 6881 . . . . . . . 8 (𝑦 = (1 + (i · 𝑥)) → (log‘𝑦) = (log‘(1 + (i · 𝑥))))
119 oveq2 7418 . . . . . . . 8 (𝑦 = (1 + (i · 𝑥)) → (1 / 𝑦) = (1 / (1 + (i · 𝑥))))
1202, 2, 111, 83, 39, 40, 117, 77, 118, 119dvmptco 26131 . . . . . . 7 (⊤ → (ℂ D (𝑥𝑆 ↦ (log‘(1 + (i · 𝑥))))) = (𝑥𝑆 ↦ ((1 / (1 + (i · 𝑥))) · i)))
12189, 20, 83, 21, 85divdiv2d 12018 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (1 / ((1 + (i · 𝑥)) / i)) = ((1 · i) / (1 + (i · 𝑥))))
12289, 14, 83, 85divdird 12024 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((1 + (i · 𝑥)) / i) = ((1 / i) + ((i · 𝑥) / i)))
12381a1i 11 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → (1 / i) = -i)
12412, 83, 85divcan3d 11991 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((i · 𝑥) / i) = 𝑥)
125123, 124oveq12d 7428 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((1 / i) + ((i · 𝑥) / i)) = (-i + 𝑥))
126 negicn 11453 . . . . . . . . . . . . 13 -i ∈ ℂ
127 addcom 11391 . . . . . . . . . . . . 13 ((-i ∈ ℂ ∧ 𝑥 ∈ ℂ) → (-i + 𝑥) = (𝑥 + -i))
128126, 12, 127sylancr 598 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → (-i + 𝑥) = (𝑥 + -i))
129 negsub 11501 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → (𝑥 + -i) = (𝑥 − i))
13012, 4, 129sylancl 597 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → (𝑥 + -i) = (𝑥 − i))
131128, 130eqtrd 2798 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → (-i + 𝑥) = (𝑥 − i))
132122, 125, 1313eqtrd 2802 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((1 + (i · 𝑥)) / i) = (𝑥 − i))
133132oveq2d 7426 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (1 / ((1 + (i · 𝑥)) / i)) = (1 / (𝑥 − i)))
13489, 83, 20, 21div23d 12023 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → ((1 · i) / (1 + (i · 𝑥))) = ((1 / (1 + (i · 𝑥))) · i))
135121, 133, 1343eqtr3rd 2807 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → ((1 / (1 + (i · 𝑥))) · i) = (1 / (𝑥 − i)))
136135mpteq2dva 5204 . . . . . . 7 (⊤ → (𝑥𝑆 ↦ ((1 / (1 + (i · 𝑥))) · i)) = (𝑥𝑆 ↦ (1 / (𝑥 − i))))
137120, 136eqtrd 2798 . . . . . 6 (⊤ → (ℂ D (𝑥𝑆 ↦ (log‘(1 + (i · 𝑥))))) = (𝑥𝑆 ↦ (1 / (𝑥 − i))))
1382, 18, 25, 108, 22, 109, 137dvmptsub 26126 . . . . 5 (⊤ → (ℂ D (𝑥𝑆 ↦ ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))) = (𝑥𝑆 ↦ ((1 / (𝑥 + i)) − (1 / (𝑥 − i)))))
139 subcl 11451 . . . . . . . . 9 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → (𝑥 − i) ∈ ℂ)
14012, 4, 139sylancl 597 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (𝑥 − i) ∈ ℂ)
141 addcl 11177 . . . . . . . . 9 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → (𝑥 + i) ∈ ℂ)
14212, 4, 141sylancl 597 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (𝑥 + i) ∈ ℂ)
14312sqcld 14176 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (𝑥↑2) ∈ ℂ)
144 addcl 11177 . . . . . . . . 9 ((1 ∈ ℂ ∧ (𝑥↑2) ∈ ℂ) → (1 + (𝑥↑2)) ∈ ℂ)
1453, 143, 144sylancr 598 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (1 + (𝑥↑2)) ∈ ℂ)
146 atandm4 27044 . . . . . . . . . 10 (𝑥 ∈ dom arctan ↔ (𝑥 ∈ ℂ ∧ (1 + (𝑥↑2)) ≠ 0))
147146simprbi 502 . . . . . . . . 9 (𝑥 ∈ dom arctan → (1 + (𝑥↑2)) ≠ 0)
1489, 147syl 18 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → (1 + (𝑥↑2)) ≠ 0)
149140, 142, 145, 148divsubdird 12025 . . . . . . 7 ((⊤ ∧ 𝑥𝑆) → (((𝑥 − i) − (𝑥 + i)) / (1 + (𝑥↑2))) = (((𝑥 − i) / (1 + (𝑥↑2))) − ((𝑥 + i) / (1 + (𝑥↑2)))))
150130oveq1d 7425 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((𝑥 + -i) − (𝑥 + i)) = ((𝑥 − i) − (𝑥 + i)))
151126a1i 11 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → -i ∈ ℂ)
15212, 151, 83pnpcand 11601 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((𝑥 + -i) − (𝑥 + i)) = (-i − i))
153150, 152eqtr3d 2800 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) − (𝑥 + i)) = (-i − i))
154 2cn 12311 . . . . . . . . . . . 12 2 ∈ ℂ
155154, 4, 84divreci 11955 . . . . . . . . . . 11 (2 / i) = (2 · (1 / i))
15681oveq2i 7421 . . . . . . . . . . 11 (2 · (1 / i)) = (2 · -i)
157155, 156eqtri 2786 . . . . . . . . . 10 (2 / i) = (2 · -i)
1581262timesi 12373 . . . . . . . . . 10 (2 · -i) = (-i + -i)
159126, 4negsubi 11531 . . . . . . . . . 10 (-i + -i) = (-i − i)
160157, 158, 1593eqtri 2790 . . . . . . . . 9 (2 / i) = (-i − i)
161153, 160eqtr4di 2816 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) − (𝑥 + i)) = (2 / i))
162161oveq1d 7425 . . . . . . 7 ((⊤ ∧ 𝑥𝑆) → (((𝑥 − i) − (𝑥 + i)) / (1 + (𝑥↑2))) = ((2 / i) / (1 + (𝑥↑2))))
163140mulridd 11221 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) · 1) = (𝑥 − i))
164140, 142mulcomd 11225 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) · (𝑥 + i)) = ((𝑥 + i) · (𝑥 − i)))
165 i2 14234 . . . . . . . . . . . . . 14 (i↑2) = -1
166165oveq2i 7421 . . . . . . . . . . . . 13 ((𝑥↑2) − (i↑2)) = ((𝑥↑2) − -1)
167 subneg 11502 . . . . . . . . . . . . . 14 (((𝑥↑2) ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑥↑2) − -1) = ((𝑥↑2) + 1))
168143, 3, 167sylancl 597 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥𝑆) → ((𝑥↑2) − -1) = ((𝑥↑2) + 1))
169166, 168eqtrid 2810 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((𝑥↑2) − (i↑2)) = ((𝑥↑2) + 1))
170 subsq 14242 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → ((𝑥↑2) − (i↑2)) = ((𝑥 + i) · (𝑥 − i)))
17112, 4, 170sylancl 597 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((𝑥↑2) − (i↑2)) = ((𝑥 + i) · (𝑥 − i)))
172 addcom 11391 . . . . . . . . . . . . 13 (((𝑥↑2) ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑥↑2) + 1) = (1 + (𝑥↑2)))
173143, 3, 172sylancl 597 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((𝑥↑2) + 1) = (1 + (𝑥↑2)))
174169, 171, 1733eqtr3d 2806 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((𝑥 + i) · (𝑥 − i)) = (1 + (𝑥↑2)))
175164, 174eqtrd 2798 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) · (𝑥 + i)) = (1 + (𝑥↑2)))
176163, 175oveq12d 7428 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (((𝑥 − i) · 1) / ((𝑥 − i) · (𝑥 + i))) = ((𝑥 − i) / (1 + (𝑥↑2))))
177 subneg 11502 . . . . . . . . . . . 12 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → (𝑥 − -i) = (𝑥 + i))
17812, 4, 177sylancl 597 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → (𝑥 − -i) = (𝑥 + i))
179 atandm 27041 . . . . . . . . . . . . . 14 (𝑥 ∈ dom arctan ↔ (𝑥 ∈ ℂ ∧ 𝑥 ≠ -i ∧ 𝑥 ≠ i))
1809, 179sylib 221 . . . . . . . . . . . . 13 ((⊤ ∧ 𝑥𝑆) → (𝑥 ∈ ℂ ∧ 𝑥 ≠ -i ∧ 𝑥 ≠ i))
181180simp2d 1161 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → 𝑥 ≠ -i)
182 subeq0 11479 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ -i ∈ ℂ) → ((𝑥 − -i) = 0 ↔ 𝑥 = -i))
183182necon3bid 3002 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ -i ∈ ℂ) → ((𝑥 − -i) ≠ 0 ↔ 𝑥 ≠ -i))
18412, 126, 183sylancl 597 . . . . . . . . . . . 12 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − -i) ≠ 0 ↔ 𝑥 ≠ -i))
185181, 184mpbird 260 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → (𝑥 − -i) ≠ 0)
186178, 185eqnetrrd 3026 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → (𝑥 + i) ≠ 0)
187180simp3d 1162 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → 𝑥 ≠ i)
188 subeq0 11479 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → ((𝑥 − i) = 0 ↔ 𝑥 = i))
189188necon3bid 3002 . . . . . . . . . . . 12 ((𝑥 ∈ ℂ ∧ i ∈ ℂ) → ((𝑥 − i) ≠ 0 ↔ 𝑥 ≠ i))
19012, 4, 189sylancl 597 . . . . . . . . . . 11 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) ≠ 0 ↔ 𝑥 ≠ i))
191187, 190mpbird 260 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → (𝑥 − i) ≠ 0)
19289, 142, 140, 186, 191divcan5d 12012 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (((𝑥 − i) · 1) / ((𝑥 − i) · (𝑥 + i))) = (1 / (𝑥 + i)))
193176, 192eqtr3d 2800 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → ((𝑥 − i) / (1 + (𝑥↑2))) = (1 / (𝑥 + i)))
194142mulridd 11221 . . . . . . . . . 10 ((⊤ ∧ 𝑥𝑆) → ((𝑥 + i) · 1) = (𝑥 + i))
195194, 174oveq12d 7428 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (((𝑥 + i) · 1) / ((𝑥 + i) · (𝑥 − i))) = ((𝑥 + i) / (1 + (𝑥↑2))))
19689, 140, 142, 191, 186divcan5d 12012 . . . . . . . . 9 ((⊤ ∧ 𝑥𝑆) → (((𝑥 + i) · 1) / ((𝑥 + i) · (𝑥 − i))) = (1 / (𝑥 − i)))
197195, 196eqtr3d 2800 . . . . . . . 8 ((⊤ ∧ 𝑥𝑆) → ((𝑥 + i) / (1 + (𝑥↑2))) = (1 / (𝑥 − i)))
198193, 197oveq12d 7428 . . . . . . 7 ((⊤ ∧ 𝑥𝑆) → (((𝑥 − i) / (1 + (𝑥↑2))) − ((𝑥 + i) / (1 + (𝑥↑2)))) = ((1 / (𝑥 + i)) − (1 / (𝑥 − i))))
199149, 162, 1983eqtr3rd 2807 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → ((1 / (𝑥 + i)) − (1 / (𝑥 − i))) = ((2 / i) / (1 + (𝑥↑2))))
200199mpteq2dva 5204 . . . . 5 (⊤ → (𝑥𝑆 ↦ ((1 / (𝑥 + i)) − (1 / (𝑥 − i)))) = (𝑥𝑆 ↦ ((2 / i) / (1 + (𝑥↑2)))))
201138, 200eqtrd 2798 . . . 4 (⊤ → (ℂ D (𝑥𝑆 ↦ ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))) = (𝑥𝑆 ↦ ((2 / i) / (1 + (𝑥↑2)))))
202 halfcl 12465 . . . . 5 (i ∈ ℂ → (i / 2) ∈ ℂ)
2034, 202mp1i 14 . . . 4 (⊤ → (i / 2) ∈ ℂ)
2042, 23, 24, 201, 203dvmptcmul 26123 . . 3 (⊤ → (ℂ D (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥))))))) = (𝑥𝑆 ↦ ((i / 2) · ((2 / i) / (1 + (𝑥↑2))))))
205 df-atan 27032 . . . . . . 7 arctan = (𝑥 ∈ (ℂ ∖ {-i, i}) ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥))))))
206205reseq1i 5974 . . . . . 6 (arctan ↾ 𝑆) = ((𝑥 ∈ (ℂ ∖ {-i, i}) ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))) ↾ 𝑆)
207 atanf 27045 . . . . . . . . 9 arctan:(ℂ ∖ {-i, i})⟶ℂ
208207fdmi 6717 . . . . . . . 8 dom arctan = (ℂ ∖ {-i, i})
2097, 208sseqtri 3985 . . . . . . 7 𝑆 ⊆ (ℂ ∖ {-i, i})
210 resmpt 6039 . . . . . . 7 (𝑆 ⊆ (ℂ ∖ {-i, i}) → ((𝑥 ∈ (ℂ ∖ {-i, i}) ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))) ↾ 𝑆) = (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))))
211209, 210ax-mp 5 . . . . . 6 ((𝑥 ∈ (ℂ ∖ {-i, i}) ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))) ↾ 𝑆) = (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥))))))
212206, 211eqtri 2786 . . . . 5 (arctan ↾ 𝑆) = (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥))))))
213212a1i 11 . . . 4 (⊤ → (arctan ↾ 𝑆) = (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥)))))))
214213oveq2d 7426 . . 3 (⊤ → (ℂ D (arctan ↾ 𝑆)) = (ℂ D (𝑥𝑆 ↦ ((i / 2) · ((log‘(1 − (i · 𝑥))) − (log‘(1 + (i · 𝑥))))))))
215 2ne0 12342 . . . . . . 7 2 ≠ 0
216 divcan6 11917 . . . . . . 7 (((i ∈ ℂ ∧ i ≠ 0) ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → ((i / 2) · (2 / i)) = 1)
2174, 84, 154, 215, 216mp4an 705 . . . . . 6 ((i / 2) · (2 / i)) = 1
218217oveq1i 7420 . . . . 5 (((i / 2) · (2 / i)) / (1 + (𝑥↑2))) = (1 / (1 + (𝑥↑2)))
2194, 202mp1i 14 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (i / 2) ∈ ℂ)
220154, 4, 84divcli 11952 . . . . . . 7 (2 / i) ∈ ℂ
221220a1i 11 . . . . . 6 ((⊤ ∧ 𝑥𝑆) → (2 / i) ∈ ℂ)
222219, 221, 145, 148divassd 12021 . . . . 5 ((⊤ ∧ 𝑥𝑆) → (((i / 2) · (2 / i)) / (1 + (𝑥↑2))) = ((i / 2) · ((2 / i) / (1 + (𝑥↑2)))))
223218, 222eqtr3id 2812 . . . 4 ((⊤ ∧ 𝑥𝑆) → (1 / (1 + (𝑥↑2))) = ((i / 2) · ((2 / i) / (1 + (𝑥↑2)))))
224223mpteq2dva 5204 . . 3 (⊤ → (𝑥𝑆 ↦ (1 / (1 + (𝑥↑2)))) = (𝑥𝑆 ↦ ((i / 2) · ((2 / i) / (1 + (𝑥↑2))))))
225204, 214, 2243eqtr4d 2808 . 2 (⊤ → (ℂ D (arctan ↾ 𝑆)) = (𝑥𝑆 ↦ (1 / (1 + (𝑥↑2)))))
226225mptru 1577 1 (ℂ D (arctan ↾ 𝑆)) = (𝑥𝑆 ↦ (1 / (1 + (𝑥↑2))))
Colors of variables: wff setvar class
Syntax hints:  wb 209  wa 400  w3a 1103   = wceq 1570  wtru 1571  wcel 2143  wne 2958  {crab 3416  Vcvv 3455  cdif 3902  wss 3905  {csn 4589  {cpr 4591  cmpt 5192  dom cdm 5661  ran crn 5662  cres 5663  wf 6532  1-1-ontowf1o 6535  cfv 6536  (class class class)co 7410  cc 11093  cr 11094  0cc0 11095  1c1 11096  ici 11097   + caddc 11098   · cmul 11100  -∞cmnf 11236  cmin 11436  -cneg 11437   / cdiv 11866  2c2 12290  (,]cioc 13368  cexp 14093  TopOpenctopn 17469  fldccnfld 21522   D cdv 26022  logclog 26719  arctancatan 27029
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-inf2 9606  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172  ax-pre-sup 11173  ax-addf 11174
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-iin 4959  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7674  df-om 7859  df-1st 7982  df-2nd 7983  df-supp 8153  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-er 8690  df-map 8822  df-pm 8823  df-ixp 8892  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-fsupp 9318  df-fi 9367  df-sup 9398  df-inf 9399  df-oi 9468  df-card 9921  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-div 11867  df-nn 12229  df-2 12298  df-3 12299  df-4 12300  df-5 12301  df-6 12302  df-7 12303  df-8 12304  df-9 12305  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12858  df-q 12968  df-rp 13012  df-xneg 13132  df-xadd 13133  df-xmul 13134  df-ioo 13371  df-ioc 13372  df-ico 13373  df-icc 13374  df-fz 13531  df-fzo 13679  df-fl 13821  df-mod 13899  df-seq 14034  df-exp 14094  df-fac 14306  df-bc 14335  df-hash 14363  df-shft 15100  df-cj 15146  df-re 15147  df-im 15148  df-sqrt 15282  df-abs 15283  df-limsup 15518  df-clim 15535  df-rlim 15536  df-sum 15734  df-ef 16116  df-sin 16118  df-cos 16119  df-tan 16120  df-pi 16121  df-struct 17202  df-sets 17219  df-slot 17237  df-ndx 17249  df-base 17265  df-ress 17286  df-plusg 17318  df-mulr 17319  df-starv 17320  df-sca 17321  df-vsca 17322  df-ip 17323  df-tset 17324  df-ple 17325  df-ds 17327  df-unif 17328  df-hom 17329  df-cco 17330  df-rest 17470  df-topn 17471  df-0g 17489  df-gsum 17490  df-topgen 17491  df-pt 17492  df-prds 17495  df-xrs 17551  df-qtop 17556  df-imas 17557  df-xps 17559  df-mre 17633  df-mrc 17634  df-acs 17636  df-mgm 18693  df-sgrp 18772  df-mnd 18788  df-submnd 18837  df-mulg 19129  df-cntz 19382  df-cmn 19847  df-psmet 21514  df-xmet 21515  df-met 21516  df-bl 21517  df-mopn 21518  df-fbas 21519  df-fg 21520  df-cnfld 21523  df-top 23051  df-topon 23068  df-topsp 23090  df-bases 23103  df-cld 23176  df-ntr 23177  df-cls 23178  df-nei 23255  df-lp 23293  df-perf 23294  df-cn 23384  df-cnp 23385  df-haus 23472  df-cmp 23544  df-tx 23719  df-hmeo 23912  df-fil 24003  df-fm 24095  df-flim 24096  df-flf 24097  df-xms 24477  df-ms 24478  df-tms 24479  df-cncf 25037  df-limc 26025  df-dv 26026  df-log 26721  df-atan 27032
This theorem is referenced by:  atancn  27101
  Copyright terms: Public domain W3C validator