Metamath Proof Explorer


Theorem atancj

Description: The arctangent function distributes under conjugation. (The condition that Re ( A ) =/= 0 is necessary because the branch cuts are chosen so that the negative imaginary line "agrees with" neighboring values with negative real part, while the positive imaginary line agrees with values with positive real part. This makes atanneg true unconditionally but messes up conjugation symmetry, and it is impossible to have both in a single-valued function. The claim is true on the imaginary line between -u 1 and 1 , though.) (Contributed by Mario Carneiro, 31-Mar-2015)

Ref Expression
Assertion atancj A A 0 A dom arctan arctan A = arctan A

Proof

Step Hyp Ref Expression
1 simpl A A 0 A
2 simpr A A 0 A 0
3 fveq2 A = i A = i
4 ax-icn i
5 4 renegi i = i
6 rei i = 0
7 6 negeqi i = 0
8 neg0 0 = 0
9 5 7 8 3eqtri i = 0
10 3 9 eqtrdi A = i A = 0
11 10 necon3i A 0 A i
12 2 11 syl A A 0 A i
13 fveq2 A = i A = i
14 13 6 eqtrdi A = i A = 0
15 14 necon3i A 0 A i
16 2 15 syl A A 0 A i
17 atandm A dom arctan A A i A i
18 1 12 16 17 syl3anbrc A A 0 A dom arctan
19 halfcl i i 2
20 4 19 ax-mp i 2
21 ax-1cn 1
22 mulcl i A i A
23 4 1 22 sylancr A A 0 i A
24 subcl 1 i A 1 i A
25 21 23 24 sylancr A A 0 1 i A
26 atandm2 A dom arctan A 1 i A 0 1 + i A 0
27 18 26 sylib A A 0 A 1 i A 0 1 + i A 0
28 27 simp2d A A 0 1 i A 0
29 25 28 logcld A A 0 log 1 i A
30 addcl 1 i A 1 + i A
31 21 23 30 sylancr A A 0 1 + i A
32 27 simp3d A A 0 1 + i A 0
33 31 32 logcld A A 0 log 1 + i A
34 29 33 subcld A A 0 log 1 i A log 1 + i A
35 cjmul i 2 log 1 i A log 1 + i A i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
36 20 34 35 sylancr A A 0 i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
37 2ne0 2 0
38 2cn 2
39 4 38 cjdivi 2 0 i 2 = i 2
40 37 39 ax-mp i 2 = i 2
41 divneg i 2 2 0 i 2 = i 2
42 4 38 37 41 mp3an i 2 = i 2
43 cji i = i
44 2re 2
45 cjre 2 2 = 2
46 44 45 ax-mp 2 = 2
47 43 46 oveq12i i 2 = i 2
48 42 47 eqtr4i i 2 = i 2
49 40 48 eqtr4i i 2 = i 2
50 49 oveq1i i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
51 34 cjcld A A 0 log 1 i A log 1 + i A
52 mulneg12 i 2 log 1 i A log 1 + i A i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
53 20 51 52 sylancr A A 0 i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
54 50 53 eqtrid A A 0 i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
55 cjsub log 1 i A log 1 + i A log 1 i A log 1 + i A = log 1 i A log 1 + i A
56 29 33 55 syl2anc A A 0 log 1 i A log 1 + i A = log 1 i A log 1 + i A
57 imsub 1 i A 1 i A = 1 i A
58 21 23 57 sylancr A A 0 1 i A = 1 i A
59 reim A A = i A
60 59 adantr A A 0 A = i A
61 60 oveq2d A A 0 1 A = 1 i A
62 58 61 eqtr4d A A 0 1 i A = 1 A
63 df-neg A = 0 A
64 im1 1 = 0
65 64 oveq1i 1 A = 0 A
66 63 65 eqtr4i A = 1 A
67 62 66 eqtr4di A A 0 1 i A = A
68 recl A A
69 68 adantr A A 0 A
70 69 recnd A A 0 A
71 70 2 negne0d A A 0 A 0
72 67 71 eqnetrd A A 0 1 i A 0
73 logcj 1 i A 1 i A 0 log 1 i A = log 1 i A
74 25 72 73 syl2anc A A 0 log 1 i A = log 1 i A
75 cjsub 1 i A 1 i A = 1 i A
76 21 23 75 sylancr A A 0 1 i A = 1 i A
77 1re 1
78 cjre 1 1 = 1
79 77 78 mp1i A A 0 1 = 1
80 cjmul i A i A = i A
81 4 1 80 sylancr A A 0 i A = i A
82 43 oveq1i i A = i A
83 cjcl A A
84 83 adantr A A 0 A
85 mulneg1 i A i A = i A
86 4 84 85 sylancr A A 0 i A = i A
87 82 86 eqtrid A A 0 i A = i A
88 81 87 eqtrd A A 0 i A = i A
89 79 88 oveq12d A A 0 1 i A = 1 i A
90 mulcl i A i A
91 4 84 90 sylancr A A 0 i A
92 subneg 1 i A 1 i A = 1 + i A
93 21 91 92 sylancr A A 0 1 i A = 1 + i A
94 76 89 93 3eqtrd A A 0 1 i A = 1 + i A
95 94 fveq2d A A 0 log 1 i A = log 1 + i A
96 74 95 eqtr3d A A 0 log 1 i A = log 1 + i A
97 imadd 1 i A 1 + i A = 1 + i A
98 21 23 97 sylancr A A 0 1 + i A = 1 + i A
99 60 oveq2d A A 0 0 + A = 0 + i A
100 64 oveq1i 1 + i A = 0 + i A
101 99 100 eqtr4di A A 0 0 + A = 1 + i A
102 70 addid2d A A 0 0 + A = A
103 98 101 102 3eqtr2d A A 0 1 + i A = A
104 103 2 eqnetrd A A 0 1 + i A 0
105 logcj 1 + i A 1 + i A 0 log 1 + i A = log 1 + i A
106 31 104 105 syl2anc A A 0 log 1 + i A = log 1 + i A
107 cjadd 1 i A 1 + i A = 1 + i A
108 21 23 107 sylancr A A 0 1 + i A = 1 + i A
109 79 88 oveq12d A A 0 1 + i A = 1 + i A
110 negsub 1 i A 1 + i A = 1 i A
111 21 91 110 sylancr A A 0 1 + i A = 1 i A
112 108 109 111 3eqtrd A A 0 1 + i A = 1 i A
113 112 fveq2d A A 0 log 1 + i A = log 1 i A
114 106 113 eqtr3d A A 0 log 1 + i A = log 1 i A
115 96 114 oveq12d A A 0 log 1 i A log 1 + i A = log 1 + i A log 1 i A
116 56 115 eqtrd A A 0 log 1 i A log 1 + i A = log 1 + i A log 1 i A
117 116 negeqd A A 0 log 1 i A log 1 + i A = log 1 + i A log 1 i A
118 addcl 1 i A 1 + i A
119 21 91 118 sylancr A A 0 1 + i A
120 atandmcj A dom arctan A dom arctan
121 18 120 syl A A 0 A dom arctan
122 atandm2 A dom arctan A 1 i A 0 1 + i A 0
123 122 simp3bi A dom arctan 1 + i A 0
124 121 123 syl A A 0 1 + i A 0
125 119 124 logcld A A 0 log 1 + i A
126 subcl 1 i A 1 i A
127 21 91 126 sylancr A A 0 1 i A
128 122 simp2bi A dom arctan 1 i A 0
129 121 128 syl A A 0 1 i A 0
130 127 129 logcld A A 0 log 1 i A
131 125 130 negsubdi2d A A 0 log 1 + i A log 1 i A = log 1 i A log 1 + i A
132 117 131 eqtrd A A 0 log 1 i A log 1 + i A = log 1 i A log 1 + i A
133 132 oveq2d A A 0 i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
134 36 54 133 3eqtrd A A 0 i 2 log 1 i A log 1 + i A = i 2 log 1 i A log 1 + i A
135 atanval A dom arctan arctan A = i 2 log 1 i A log 1 + i A
136 18 135 syl A A 0 arctan A = i 2 log 1 i A log 1 + i A
137 136 fveq2d A A 0 arctan A = i 2 log 1 i A log 1 + i A
138 atanval A dom arctan arctan A = i 2 log 1 i A log 1 + i A
139 121 138 syl A A 0 arctan A = i 2 log 1 i A log 1 + i A
140 134 137 139 3eqtr4d A A 0 arctan A = arctan A
141 18 140 jca A A 0 A dom arctan arctan A = arctan A