Theorem atancj 27244

Description: The arctangent function distributes under conjugation. (The condition that ℜ(𝐴) ≠ 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 27241 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 -1 and 1, though.) (Contributed by Mario Carneiro, 31-Mar-2015.)

Assertion

Ref	Expression
atancj	⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (𝐴 ∈ dom arctan ∧ (∗‘(arctan‘𝐴)) = (arctan‘(∗‘𝐴))))

Proof of Theorem atancj

Step	Hyp	Ref	Expression
1		simpl 488	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ∈ ℂ)
2		simpr 490	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ≠ 0)
3		fveq2 6886	. . . . . 6 ⊢ (𝐴 = -i → (ℜ‘𝐴) = (ℜ‘ -i))
4		ax-icn 11263	. . . . . . . 8 ⊢ i ∈ ℂ
5	4	renegi 15353	. . . . . . 7 ⊢ (ℜ‘ -i) = -(ℜ‘i)
6		rei 15329	. . . . . . . 8 ⊢ (ℜ‘i) = 0
7	6	negeqi 11554	. . . . . . 7 ⊢ -(ℜ‘i) = -0
8		neg0 11608	. . . . . . 7 ⊢ -0 = 0
9	5, 7, 8	3eqtri 2787	. . . . . 6 ⊢ (ℜ‘ -i) = 0
10	3, 9	eqtrdi 2811	. . . . 5 ⊢ (𝐴 = -i → (ℜ‘𝐴) = 0)
11	10	necon3i 2987	. . . 4 ⊢ ((ℜ‘𝐴) ≠ 0 → 𝐴 ≠ -i)
12	2, 11	syl 18	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ≠ -i)
13		fveq2 6886	. . . . . 6 ⊢ (𝐴 = i → (ℜ‘𝐴) = (ℜ‘i))
14	13, 6	eqtrdi 2811	. . . . 5 ⊢ (𝐴 = i → (ℜ‘𝐴) = 0)
15	14	necon3i 2987	. . . 4 ⊢ ((ℜ‘𝐴) ≠ 0 → 𝐴 ≠ i)
16	2, 15	syl 18	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ≠ i)
17		atandm 27210	. . 3 ⊢ (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ 𝐴 ≠ -i ∧ 𝐴 ≠ i))
18	1, 12, 16, 17	syl3anbrc 1362	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ∈ dom arctan)
19		halfcl 12576	. . . . . 6 ⊢ (i ∈ ℂ → (i / 2) ∈ ℂ)
20	4, 19	ax-mp 5	. . . . 5 ⊢ (i / 2) ∈ ℂ
21		ax-1cn 11262	. . . . . . . 8 ⊢ 1 ∈ ℂ
22		mulcl 11288	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
23	4, 1, 22	sylancr 599	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (i · 𝐴) ∈ ℂ)
24		subcl 11560	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
25	21, 23, 24	sylancr 599	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · 𝐴)) ∈ ℂ)
26		atandm2 27211	. . . . . . . . 9 ⊢ (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
27	18, 26	sylib 221	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
28	27	simp2d 1161	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · 𝐴)) ≠ 0)
29	25, 28	logcld 26904	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 − (i · 𝐴))) ∈ ℂ)
30		addcl 11286	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
31	21, 23, 30	sylancr 599	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · 𝐴)) ∈ ℂ)
32	27	simp3d 1162	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · 𝐴)) ≠ 0)
33	31, 32	logcld 26904	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 + (i · 𝐴))) ∈ ℂ)
34	29, 33	subcld 11673	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))) ∈ ℂ)
35		cjmul 15315	. . . . 5 ⊢ (((i / 2) ∈ ℂ ∧ ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))) ∈ ℂ) → (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
36	20, 34, 35	sylancr 599	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
37		2ne0 12453	. . . . . . . 8 ⊢ 2 ≠ 0
38		2cn 12422	. . . . . . . . 9 ⊢ 2 ∈ ℂ
39	4, 38	cjdivi 15364	. . . . . . . 8 ⊢ (2 ≠ 0 → (∗‘(i / 2)) = ((∗‘i) / (∗‘2)))
40	37, 39	ax-mp 5	. . . . . . 7 ⊢ (∗‘(i / 2)) = ((∗‘i) / (∗‘2))
41		divneg 12012	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(i / 2) = ( -i / 2))
42	4, 38, 37, 41	mp3an 1490	. . . . . . . 8 ⊢ -(i / 2) = ( -i / 2)
43		cji 15332	. . . . . . . . 9 ⊢ (∗‘i) = -i
44		2re 12421	. . . . . . . . . 10 ⊢ 2 ∈ ℝ
45		cjre 15312	. . . . . . . . . 10 ⊢ (2 ∈ ℝ → (∗‘2) = 2)
46	44, 45	ax-mp 5	. . . . . . . . 9 ⊢ (∗‘2) = 2
47	43, 46	oveq12i 7433	. . . . . . . 8 ⊢ ((∗‘i) / (∗‘2)) = ( -i / 2)
48	42, 47	eqtr4i 2786	. . . . . . 7 ⊢ -(i / 2) = ((∗‘i) / (∗‘2))
49	40, 48	eqtr4i 2786	. . . . . 6 ⊢ (∗‘(i / 2)) = -(i / 2)
50	49	oveq1i 7431	. . . . 5 ⊢ ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ( -(i / 2) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
51	34	cjcld 15369	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) ∈ ℂ)
52		mulneg12 11758	. . . . . 6 ⊢ (((i / 2) ∈ ℂ ∧ (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) ∈ ℂ) → ( -(i / 2) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
53	20, 51, 52	sylancr 599	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ( -(i / 2) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
54	50, 53	eqtrid 2807	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
55		cjsub 15322	. . . . . . . . 9 ⊢ (((log‘(1 − (i · 𝐴))) ∈ ℂ ∧ (log‘(1 + (i · 𝐴))) ∈ ℂ) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))))
56	29, 33, 55	syl2anc 596	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))))
57		imsub 15308	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
58	21, 23, 57	sylancr 599	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
59		reim 15282	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
60	59	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
61	60	oveq2d 7437	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((ℑ‘1) − (ℜ‘𝐴)) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
62	58, 61	eqtr4d 2798	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℜ‘𝐴)))
63		df-neg 11548	. . . . . . . . . . . . . 14 ⊢ -(ℜ‘𝐴) = (0 − (ℜ‘𝐴))
64		im1 15328	. . . . . . . . . . . . . . 15 ⊢ (ℑ‘1) = 0
65	64	oveq1i 7431	. . . . . . . . . . . . . 14 ⊢ ((ℑ‘1) − (ℜ‘𝐴)) = (0 − (ℜ‘𝐴))
66	63, 65	eqtr4i 2786	. . . . . . . . . . . . 13 ⊢ -(ℜ‘𝐴) = ((ℑ‘1) − (ℜ‘𝐴))
67	62, 66	eqtr4di 2813	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = -(ℜ‘𝐴))
68		recl 15283	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) ∈ ℝ)
69	68	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ∈ ℝ)
70	69	recnd 11341	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ∈ ℂ)
71	70, 2	negne0d 11671	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(ℜ‘𝐴) ≠ 0)
72	67, 71	eqnetrd 3022	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) ≠ 0)
73		logcj 26940	. . . . . . . . . . 11 ⊢ (((1 − (i · 𝐴)) ∈ ℂ ∧ (ℑ‘(1 − (i · 𝐴))) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (∗‘(log‘(1 − (i · 𝐴)))))
74	25, 72, 73	syl2anc 596	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (∗‘(log‘(1 − (i · 𝐴)))))
75		cjsub 15322	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (∗‘(1 − (i · 𝐴))) = ((∗‘1) − (∗‘(i · 𝐴))))
76	21, 23, 75	sylancr 599	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 − (i · 𝐴))) = ((∗‘1) − (∗‘(i · 𝐴))))
77		1re 11312	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℝ
78		cjre 15312	. . . . . . . . . . . . . 14 ⊢ (1 ∈ ℝ → (∗‘1) = 1)
79	77, 78	mp1i 14	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘1) = 1)
80		cjmul 15315	. . . . . . . . . . . . . . 15 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (∗‘(i · 𝐴)) = ((∗‘i) · (∗‘𝐴)))
81	4, 1, 80	sylancr 599	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(i · 𝐴)) = ((∗‘i) · (∗‘𝐴)))
82	43	oveq1i 7431	. . . . . . . . . . . . . . 15 ⊢ ((∗‘i) · (∗‘𝐴)) = ( -i · (∗‘𝐴))
83		cjcl 15278	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (∗‘𝐴) ∈ ℂ)
84	83	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘𝐴) ∈ ℂ)
85		mulneg1 11756	. . . . . . . . . . . . . . . 16 ⊢ ((i ∈ ℂ ∧ (∗‘𝐴) ∈ ℂ) → ( -i · (∗‘𝐴)) = -(i · (∗‘𝐴)))
86	4, 84, 85	sylancr 599	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ( -i · (∗‘𝐴)) = -(i · (∗‘𝐴)))
87	82, 86	eqtrid 2807	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘i) · (∗‘𝐴)) = -(i · (∗‘𝐴)))
88	81, 87	eqtrd 2795	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(i · 𝐴)) = -(i · (∗‘𝐴)))
89	79, 88	oveq12d 7439	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘1) − (∗‘(i · 𝐴))) = (1 − -(i · (∗‘𝐴))))
90		mulcl 11288	. . . . . . . . . . . . . 14 ⊢ ((i ∈ ℂ ∧ (∗‘𝐴) ∈ ℂ) → (i · (∗‘𝐴)) ∈ ℂ)
91	4, 84, 90	sylancr 599	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (i · (∗‘𝐴)) ∈ ℂ)
92		subneg 11611	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 − -(i · (∗‘𝐴))) = (1 + (i · (∗‘𝐴))))
93	21, 91, 92	sylancr 599	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − -(i · (∗‘𝐴))) = (1 + (i · (∗‘𝐴))))
94	76, 89, 93	3eqtrd 2799	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 − (i · 𝐴))) = (1 + (i · (∗‘𝐴))))
95	94	fveq2d 6890	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (log‘(1 + (i · (∗‘𝐴)))))
96	74, 95	eqtr3d 2797	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(log‘(1 − (i · 𝐴)))) = (log‘(1 + (i · (∗‘𝐴)))))
97		imadd 15307	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
98	21, 23, 97	sylancr 599	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
99	60	oveq2d 7437	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = (0 + (ℑ‘(i · 𝐴))))
100	64	oveq1i 7431	. . . . . . . . . . . . . 14 ⊢ ((ℑ‘1) + (ℑ‘(i · 𝐴))) = (0 + (ℑ‘(i · 𝐴)))
101	99, 100	eqtr4di 2813	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
102	70	addlidd 11515	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = (ℜ‘𝐴))
103	98, 101, 102	3eqtr2d 2801	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) = (ℜ‘𝐴))
104	103, 2	eqnetrd 3022	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) ≠ 0)
105		logcj 26940	. . . . . . . . . . 11 ⊢ (((1 + (i · 𝐴)) ∈ ℂ ∧ (ℑ‘(1 + (i · 𝐴))) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (∗‘(log‘(1 + (i · 𝐴)))))
106	31, 104, 105	syl2anc 596	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (∗‘(log‘(1 + (i · 𝐴)))))
107		cjadd 15314	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (∗‘(1 + (i · 𝐴))) = ((∗‘1) + (∗‘(i · 𝐴))))
108	21, 23, 107	sylancr 599	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 + (i · 𝐴))) = ((∗‘1) + (∗‘(i · 𝐴))))
109	79, 88	oveq12d 7439	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘1) + (∗‘(i · 𝐴))) = (1 + -(i · (∗‘𝐴))))
110		negsub 11610	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 + -(i · (∗‘𝐴))) = (1 − (i · (∗‘𝐴))))
111	21, 91, 110	sylancr 599	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + -(i · (∗‘𝐴))) = (1 − (i · (∗‘𝐴))))
112	108, 109, 111	3eqtrd 2799	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 + (i · 𝐴))) = (1 − (i · (∗‘𝐴))))
113	112	fveq2d 6890	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (log‘(1 − (i · (∗‘𝐴)))))
114	106, 113	eqtr3d 2797	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(log‘(1 + (i · 𝐴)))) = (log‘(1 − (i · (∗‘𝐴)))))
115	96, 114	oveq12d 7439	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))) = ((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
116	56, 115	eqtrd 2795	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
117	116	negeqd 11555	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = -((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
118		addcl 11286	. . . . . . . . 9 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 + (i · (∗‘𝐴))) ∈ ℂ)
119	21, 91, 118	sylancr 599	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · (∗‘𝐴))) ∈ ℂ)
120		atandmcj 27243	. . . . . . . . . 10 ⊢ (𝐴 ∈ dom arctan → (∗‘𝐴) ∈ dom arctan)
121	18, 120	syl 18	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘𝐴) ∈ dom arctan)
122		atandm2 27211	. . . . . . . . . 10 ⊢ ((∗‘𝐴) ∈ dom arctan ↔ ((∗‘𝐴) ∈ ℂ ∧ (1 − (i · (∗‘𝐴))) ≠ 0 ∧ (1 + (i · (∗‘𝐴))) ≠ 0))
123	122	simp3bi 1165	. . . . . . . . 9 ⊢ ((∗‘𝐴) ∈ dom arctan → (1 + (i · (∗‘𝐴))) ≠ 0)
124	121, 123	syl 18	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · (∗‘𝐴))) ≠ 0)
125	119, 124	logcld 26904	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 + (i · (∗‘𝐴)))) ∈ ℂ)
126		subcl 11560	. . . . . . . . 9 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 − (i · (∗‘𝐴))) ∈ ℂ)
127	21, 91, 126	sylancr 599	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · (∗‘𝐴))) ∈ ℂ)
128	122	simp2bi 1164	. . . . . . . . 9 ⊢ ((∗‘𝐴) ∈ dom arctan → (1 − (i · (∗‘𝐴))) ≠ 0)
129	121, 128	syl 18	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · (∗‘𝐴))) ≠ 0)
130	127, 129	logcld 26904	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 − (i · (∗‘𝐴)))) ∈ ℂ)
131	125, 130	negsubdi2d 11689	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))) = ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴))))))
132	117, 131	eqtrd 2795	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴))))))
133	132	oveq2d 7437	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
134	36, 54, 133	3eqtrd 2799	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
135		atanval 27218	. . . . 5 ⊢ (𝐴 ∈ dom arctan → (arctan‘𝐴) = ((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
136	18, 135	syl 18	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (arctan‘𝐴) = ((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
137	136	fveq2d 6890	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(arctan‘𝐴)) = (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
138		atanval 27218	. . . 4 ⊢ ((∗‘𝐴) ∈ dom arctan → (arctan‘(∗‘𝐴)) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
139	121, 138	syl 18	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (arctan‘(∗‘𝐴)) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
140	134, 137, 139	3eqtr4d 2805	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(arctan‘𝐴)) = (arctan‘(∗‘𝐴)))
141	18, 140	jca 521	1 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (𝐴 ∈ dom arctan ∧ (∗‘(arctan‘𝐴)) = (arctan‘(∗‘𝐴))))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144   ≠ wne 2955  dom cdm 5650  ‘cfv 6539  (class class class)co 7421  ℂcc 11202  ℝcr 11203  0cc0 11204  1c1 11205  ici 11206   + caddc 11207   · cmul 11209   − cmin 11545   -cneg 11546   / cdiv 11977  2c2 12401  ∗ccj 15269  ℜcre 15270  ℑcim 15271  logclog 26888  arctancatan 27198

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7752  ax-inf2 9646  ax-cnex 11260  ax-resscn 11261  ax-1cn 11262  ax-icn 11263  ax-addcl 11264  ax-addrcl 11265  ax-mulcl 11266  ax-mulrcl 11267  ax-mulcom 11268  ax-addass 11269  ax-mulass 11270  ax-distr 11271  ax-i2m1 11272  ax-1ne0 11273  ax-1rid 11274  ax-rnegex 11275  ax-rrecex 11276  ax-cnre 11277  ax-pre-lttri 11278  ax-pre-lttrn 11279  ax-pre-ltadd 11280  ax-pre-mulgt0 11281  ax-pre-sup 11282  ax-addf 11283

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4835  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-isom 6548  df-riota 7378  df-ov 7424  df-oprab 7425  df-mpo 7426  df-of 7694  df-om 7879  df-1st 8002  df-2nd 8003  df-supp 8181  df-frecs 8303  df-wrecs 8334  df-recs 8383  df-rdg 8422  df-1o 8480  df-2o 8481  df-er 8721  df-map 8853  df-pm 8854  df-ixp 8930  df-en 8978  df-dom 8979  df-sdom 8980  df-fin 8981  df-fsupp 9358  df-fi 9407  df-sup 9438  df-inf 9439  df-oi 9508  df-card 10024  df-pnf 11349  df-mnf 11350  df-xr 11351  df-ltxr 11352  df-le 11353  df-sub 11547  df-neg 11548  df-div 11978  df-nn 12340  df-2 12409  df-3 12410  df-4 12411  df-5 12412  df-6 12413  df-7 12414  df-8 12415  df-9 12416  df-n0 12611  df-z 12698  df-dec 12819  df-uz 12970  df-q 13080  df-rp 13125  df-xneg 13245  df-xadd 13246  df-xmul 13247  df-ioo 13484  df-ioc 13485  df-ico 13486  df-icc 13487  df-fz 13644  df-fzo 13793  df-fl 13936  df-mod 14014  df-seq 14149  df-exp 14209  df-fac 14422  df-bc 14451  df-hash 14479  df-shft 15226  df-cj 15272  df-re 15273  df-im 15274  df-sqrt 15408  df-abs 15409  df-limsup 15644  df-clim 15661  df-rlim 15662  df-sum 15860  df-ef 16239  df-sin 16241  df-cos 16242  df-pi 16244  df-struct 17331  df-sets 17348  df-slot 17366  df-ndx 17378  df-base 17394  df-ress 17415  df-plusg 17447  df-mulr 17448  df-starv 17449  df-sca 17450  df-vsca 17451  df-ip 17452  df-tset 17453  df-ple 17454  df-ds 17456  df-unif 17457  df-hom 17458  df-cco 17459  df-rest 17599  df-topn 17600  df-0g 17618  df-gsum 17619  df-topgen 17620  df-pt 17621  df-prds 17624  df-xrs 17680  df-qtop 17685  df-imas 17686  df-xps 17688  df-mre 17762  df-mrc 17763  df-acs 17765  df-mgm 18822  df-sgrp 18914  df-mnd 18930  df-submnd 18985  df-mulg 19284  df-cntz 19537  df-cmn 20002  df-psmet 21676  df-xmet 21677  df-met 21678  df-bl 21679  df-mopn 21680  df-fbas 21681  df-fg 21682  df-cnfld 21685  df-top 23218  df-topon 23235  df-topsp 23257  df-bases 23270  df-cld 23343  df-ntr 23344  df-cls 23345  df-nei 23422  df-lp 23460  df-perf 23461  df-cn 23551  df-cnp 23552  df-haus 23639  df-tx 23887  df-hmeo 24080  df-fil 24171  df-fm 24263  df-flim 24264  df-flf 24265  df-xms 24645  df-ms 24646  df-tms 24647  df-cncf 25205  df-limc 26192  df-dv 26193  df-log 26890  df-atan 27201

This theorem is used by:  atanrecl  27245