atancj - Metamath Proof Explorer

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

Theorem atancj 26876

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 26873 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 482	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ∈ ℂ)
2		simpr 484	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ≠ 0)
3		fveq2 6834	. . . . . 6 ⊢ (𝐴 = -i → (ℜ‘𝐴) = (ℜ‘-i))
4		ax-icn 11085	. . . . . . . 8 ⊢ i ∈ ℂ
5	4	renegi 15103	. . . . . . 7 ⊢ (ℜ‘-i) = -(ℜ‘i)
6		rei 15079	. . . . . . . 8 ⊢ (ℜ‘i) = 0
7	6	negeqi 11373	. . . . . . 7 ⊢ -(ℜ‘i) = -0
8		neg0 11427	. . . . . . 7 ⊢ -0 = 0
9	5, 7, 8	3eqtri 2763	. . . . . 6 ⊢ (ℜ‘-i) = 0
10	3, 9	eqtrdi 2787	. . . . 5 ⊢ (𝐴 = -i → (ℜ‘𝐴) = 0)
11	10	necon3i 2964	. . . 4 ⊢ ((ℜ‘𝐴) ≠ 0 → 𝐴 ≠ -i)
12	2, 11	syl 17	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ≠ -i)
13		fveq2 6834	. . . . . 6 ⊢ (𝐴 = i → (ℜ‘𝐴) = (ℜ‘i))
14	13, 6	eqtrdi 2787	. . . . 5 ⊢ (𝐴 = i → (ℜ‘𝐴) = 0)
15	14	necon3i 2964	. . . 4 ⊢ ((ℜ‘𝐴) ≠ 0 → 𝐴 ≠ i)
16	2, 15	syl 17	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ≠ i)
17		atandm 26842	. . 3 ⊢ (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ 𝐴 ≠ -i ∧ 𝐴 ≠ i))
18	1, 12, 16, 17	syl3anbrc 1344	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → 𝐴 ∈ dom arctan)
19		halfcl 12367	. . . . . 6 ⊢ (i ∈ ℂ → (i / 2) ∈ ℂ)
20	4, 19	ax-mp 5	. . . . 5 ⊢ (i / 2) ∈ ℂ
21		ax-1cn 11084	. . . . . . . 8 ⊢ 1 ∈ ℂ
22		mulcl 11110	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
23	4, 1, 22	sylancr 587	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (i · 𝐴) ∈ ℂ)
24		subcl 11379	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
25	21, 23, 24	sylancr 587	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · 𝐴)) ∈ ℂ)
26		atandm2 26843	. . . . . . . . 9 ⊢ (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
27	18, 26	sylib 218	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
28	27	simp2d 1143	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · 𝐴)) ≠ 0)
29	25, 28	logcld 26535	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 − (i · 𝐴))) ∈ ℂ)
30		addcl 11108	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
31	21, 23, 30	sylancr 587	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · 𝐴)) ∈ ℂ)
32	27	simp3d 1144	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · 𝐴)) ≠ 0)
33	31, 32	logcld 26535	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 + (i · 𝐴))) ∈ ℂ)
34	29, 33	subcld 11492	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))) ∈ ℂ)
35		cjmul 15065	. . . . 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 587	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
37		2ne0 12249	. . . . . . . 8 ⊢ 2 ≠ 0
38		2cn 12220	. . . . . . . . 9 ⊢ 2 ∈ ℂ
39	4, 38	cjdivi 15114	. . . . . . . 8 ⊢ (2 ≠ 0 → (∗‘(i / 2)) = ((∗‘i) / (∗‘2)))
40	37, 39	ax-mp 5	. . . . . . 7 ⊢ (∗‘(i / 2)) = ((∗‘i) / (∗‘2))
41		divneg 11833	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(i / 2) = (-i / 2))
42	4, 38, 37, 41	mp3an 1463	. . . . . . . 8 ⊢ -(i / 2) = (-i / 2)
43		cji 15082	. . . . . . . . 9 ⊢ (∗‘i) = -i
44		2re 12219	. . . . . . . . . 10 ⊢ 2 ∈ ℝ
45		cjre 15062	. . . . . . . . . 10 ⊢ (2 ∈ ℝ → (∗‘2) = 2)
46	44, 45	ax-mp 5	. . . . . . . . 9 ⊢ (∗‘2) = 2
47	43, 46	oveq12i 7370	. . . . . . . 8 ⊢ ((∗‘i) / (∗‘2)) = (-i / 2)
48	42, 47	eqtr4i 2762	. . . . . . 7 ⊢ -(i / 2) = ((∗‘i) / (∗‘2))
49	40, 48	eqtr4i 2762	. . . . . 6 ⊢ (∗‘(i / 2)) = -(i / 2)
50	49	oveq1i 7368	. . . . 5 ⊢ ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = (-(i / 2) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
51	34	cjcld 15119	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) ∈ ℂ)
52		mulneg12 11575	. . . . . 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 587	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (-(i / 2) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
54	50, 53	eqtrid 2783	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘(i / 2)) · (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
55		cjsub 15072	. . . . . . . . 9 ⊢ (((log‘(1 − (i · 𝐴))) ∈ ℂ ∧ (log‘(1 + (i · 𝐴))) ∈ ℂ) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))))
56	29, 33, 55	syl2anc 584	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))))
57		imsub 15058	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
58	21, 23, 57	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
59		reim 15032	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
60	59	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
61	60	oveq2d 7374	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((ℑ‘1) − (ℜ‘𝐴)) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
62	58, 61	eqtr4d 2774	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℜ‘𝐴)))
63		df-neg 11367	. . . . . . . . . . . . . 14 ⊢ -(ℜ‘𝐴) = (0 − (ℜ‘𝐴))
64		im1 15078	. . . . . . . . . . . . . . 15 ⊢ (ℑ‘1) = 0
65	64	oveq1i 7368	. . . . . . . . . . . . . 14 ⊢ ((ℑ‘1) − (ℜ‘𝐴)) = (0 − (ℜ‘𝐴))
66	63, 65	eqtr4i 2762	. . . . . . . . . . . . 13 ⊢ -(ℜ‘𝐴) = ((ℑ‘1) − (ℜ‘𝐴))
67	62, 66	eqtr4di 2789	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) = -(ℜ‘𝐴))
68		recl 15033	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) ∈ ℝ)
69	68	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ∈ ℝ)
70	69	recnd 11160	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℜ‘𝐴) ∈ ℂ)
71	70, 2	negne0d 11490	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(ℜ‘𝐴) ≠ 0)
72	67, 71	eqnetrd 2999	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 − (i · 𝐴))) ≠ 0)
73		logcj 26571	. . . . . . . . . . 11 ⊢ (((1 − (i · 𝐴)) ∈ ℂ ∧ (ℑ‘(1 − (i · 𝐴))) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (∗‘(log‘(1 − (i · 𝐴)))))
74	25, 72, 73	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (∗‘(log‘(1 − (i · 𝐴)))))
75		cjsub 15072	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (∗‘(1 − (i · 𝐴))) = ((∗‘1) − (∗‘(i · 𝐴))))
76	21, 23, 75	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 − (i · 𝐴))) = ((∗‘1) − (∗‘(i · 𝐴))))
77		1re 11132	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℝ
78		cjre 15062	. . . . . . . . . . . . . 14 ⊢ (1 ∈ ℝ → (∗‘1) = 1)
79	77, 78	mp1i 13	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘1) = 1)
80		cjmul 15065	. . . . . . . . . . . . . . 15 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (∗‘(i · 𝐴)) = ((∗‘i) · (∗‘𝐴)))
81	4, 1, 80	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(i · 𝐴)) = ((∗‘i) · (∗‘𝐴)))
82	43	oveq1i 7368	. . . . . . . . . . . . . . 15 ⊢ ((∗‘i) · (∗‘𝐴)) = (-i · (∗‘𝐴))
83		cjcl 15028	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (∗‘𝐴) ∈ ℂ)
84	83	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘𝐴) ∈ ℂ)
85		mulneg1 11573	. . . . . . . . . . . . . . . 16 ⊢ ((i ∈ ℂ ∧ (∗‘𝐴) ∈ ℂ) → (-i · (∗‘𝐴)) = -(i · (∗‘𝐴)))
86	4, 84, 85	sylancr 587	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (-i · (∗‘𝐴)) = -(i · (∗‘𝐴)))
87	82, 86	eqtrid 2783	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘i) · (∗‘𝐴)) = -(i · (∗‘𝐴)))
88	81, 87	eqtrd 2771	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(i · 𝐴)) = -(i · (∗‘𝐴)))
89	79, 88	oveq12d 7376	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘1) − (∗‘(i · 𝐴))) = (1 − -(i · (∗‘𝐴))))
90		mulcl 11110	. . . . . . . . . . . . . 14 ⊢ ((i ∈ ℂ ∧ (∗‘𝐴) ∈ ℂ) → (i · (∗‘𝐴)) ∈ ℂ)
91	4, 84, 90	sylancr 587	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (i · (∗‘𝐴)) ∈ ℂ)
92		subneg 11430	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 − -(i · (∗‘𝐴))) = (1 + (i · (∗‘𝐴))))
93	21, 91, 92	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − -(i · (∗‘𝐴))) = (1 + (i · (∗‘𝐴))))
94	76, 89, 93	3eqtrd 2775	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 − (i · 𝐴))) = (1 + (i · (∗‘𝐴))))
95	94	fveq2d 6838	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 − (i · 𝐴)))) = (log‘(1 + (i · (∗‘𝐴)))))
96	74, 95	eqtr3d 2773	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(log‘(1 − (i · 𝐴)))) = (log‘(1 + (i · (∗‘𝐴)))))
97		imadd 15057	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
98	21, 23, 97	sylancr 587	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
99	60	oveq2d 7374	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = (0 + (ℑ‘(i · 𝐴))))
100	64	oveq1i 7368	. . . . . . . . . . . . . 14 ⊢ ((ℑ‘1) + (ℑ‘(i · 𝐴))) = (0 + (ℑ‘(i · 𝐴)))
101	99, 100	eqtr4di 2789	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
102	70	addlidd 11334	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (0 + (ℜ‘𝐴)) = (ℜ‘𝐴))
103	98, 101, 102	3eqtr2d 2777	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) = (ℜ‘𝐴))
104	103, 2	eqnetrd 2999	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (ℑ‘(1 + (i · 𝐴))) ≠ 0)
105		logcj 26571	. . . . . . . . . . 11 ⊢ (((1 + (i · 𝐴)) ∈ ℂ ∧ (ℑ‘(1 + (i · 𝐴))) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (∗‘(log‘(1 + (i · 𝐴)))))
106	31, 104, 105	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (∗‘(log‘(1 + (i · 𝐴)))))
107		cjadd 15064	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (∗‘(1 + (i · 𝐴))) = ((∗‘1) + (∗‘(i · 𝐴))))
108	21, 23, 107	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 + (i · 𝐴))) = ((∗‘1) + (∗‘(i · 𝐴))))
109	79, 88	oveq12d 7376	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘1) + (∗‘(i · 𝐴))) = (1 + -(i · (∗‘𝐴))))
110		negsub 11429	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 + -(i · (∗‘𝐴))) = (1 − (i · (∗‘𝐴))))
111	21, 91, 110	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + -(i · (∗‘𝐴))) = (1 − (i · (∗‘𝐴))))
112	108, 109, 111	3eqtrd 2775	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(1 + (i · 𝐴))) = (1 − (i · (∗‘𝐴))))
113	112	fveq2d 6838	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(∗‘(1 + (i · 𝐴)))) = (log‘(1 − (i · (∗‘𝐴)))))
114	106, 113	eqtr3d 2773	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(log‘(1 + (i · 𝐴)))) = (log‘(1 − (i · (∗‘𝐴)))))
115	96, 114	oveq12d 7376	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((∗‘(log‘(1 − (i · 𝐴)))) − (∗‘(log‘(1 + (i · 𝐴))))) = ((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
116	56, 115	eqtrd 2771	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
117	116	negeqd 11374	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = -((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))))
118		addcl 11108	. . . . . . . . 9 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 + (i · (∗‘𝐴))) ∈ ℂ)
119	21, 91, 118	sylancr 587	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · (∗‘𝐴))) ∈ ℂ)
120		atandmcj 26875	. . . . . . . . . 10 ⊢ (𝐴 ∈ dom arctan → (∗‘𝐴) ∈ dom arctan)
121	18, 120	syl 17	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘𝐴) ∈ dom arctan)
122		atandm2 26843	. . . . . . . . . 10 ⊢ ((∗‘𝐴) ∈ dom arctan ↔ ((∗‘𝐴) ∈ ℂ ∧ (1 − (i · (∗‘𝐴))) ≠ 0 ∧ (1 + (i · (∗‘𝐴))) ≠ 0))
123	122	simp3bi 1147	. . . . . . . . 9 ⊢ ((∗‘𝐴) ∈ dom arctan → (1 + (i · (∗‘𝐴))) ≠ 0)
124	121, 123	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 + (i · (∗‘𝐴))) ≠ 0)
125	119, 124	logcld 26535	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 + (i · (∗‘𝐴)))) ∈ ℂ)
126		subcl 11379	. . . . . . . . 9 ⊢ ((1 ∈ ℂ ∧ (i · (∗‘𝐴)) ∈ ℂ) → (1 − (i · (∗‘𝐴))) ∈ ℂ)
127	21, 91, 126	sylancr 587	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · (∗‘𝐴))) ∈ ℂ)
128	122	simp2bi 1146	. . . . . . . . 9 ⊢ ((∗‘𝐴) ∈ dom arctan → (1 − (i · (∗‘𝐴))) ≠ 0)
129	121, 128	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (1 − (i · (∗‘𝐴))) ≠ 0)
130	127, 129	logcld 26535	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (log‘(1 − (i · (∗‘𝐴)))) ∈ ℂ)
131	125, 130	negsubdi2d 11508	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -((log‘(1 + (i · (∗‘𝐴)))) − (log‘(1 − (i · (∗‘𝐴))))) = ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴))))))
132	117, 131	eqtrd 2771	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))) = ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴))))))
133	132	oveq2d 7374	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → ((i / 2) · -(∗‘((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
134	36, 54, 133	3eqtrd 2775	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
135		atanval 26850	. . . . 5 ⊢ (𝐴 ∈ dom arctan → (arctan‘𝐴) = ((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
136	18, 135	syl 17	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (arctan‘𝐴) = ((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴))))))
137	136	fveq2d 6838	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(arctan‘𝐴)) = (∗‘((i / 2) · ((log‘(1 − (i · 𝐴))) − (log‘(1 + (i · 𝐴)))))))
138		atanval 26850	. . . 4 ⊢ ((∗‘𝐴) ∈ dom arctan → (arctan‘(∗‘𝐴)) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
139	121, 138	syl 17	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (arctan‘(∗‘𝐴)) = ((i / 2) · ((log‘(1 − (i · (∗‘𝐴)))) − (log‘(1 + (i · (∗‘𝐴)))))))
140	134, 137, 139	3eqtr4d 2781	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (∗‘(arctan‘𝐴)) = (arctan‘(∗‘𝐴)))
141	18, 140	jca 511	1 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ≠ 0) → (𝐴 ∈ dom arctan ∧ (∗‘(arctan‘𝐴)) = (arctan‘(∗‘𝐴))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ≠ wne 2932 dom cdm 5624 ‘cfv 6492 (class class class)co 7358 ℂcc 11024 ℝcr 11025 0cc0 11026 1c1 11027 ici 11028 + caddc 11029 · cmul 11031 − cmin 11364 -cneg 11365 / cdiv 11794 2c2 12200 ∗ccj 15019 ℜcre 15020 ℑcim 15021 logclog 26519 arctancatan 26830

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-inf2 9550 ax-cnex 11082 ax-resscn 11083 ax-1cn 11084 ax-icn 11085 ax-addcl 11086 ax-addrcl 11087 ax-mulcl 11088 ax-mulrcl 11089 ax-mulcom 11090 ax-addass 11091 ax-mulass 11092 ax-distr 11093 ax-i2m1 11094 ax-1ne0 11095 ax-1rid 11096 ax-rnegex 11097 ax-rrecex 11098 ax-cnre 11099 ax-pre-lttri 11100 ax-pre-lttrn 11101 ax-pre-ltadd 11102 ax-pre-mulgt0 11103 ax-pre-sup 11104 ax-addf 11105

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-pss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-tp 4585 df-op 4587 df-uni 4864 df-int 4903 df-iun 4948 df-iin 4949 df-br 5099 df-opab 5161 df-mpt 5180 df-tr 5206 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-se 5578 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-isom 6501 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-of 7622 df-om 7809 df-1st 7933 df-2nd 7934 df-supp 8103 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-1o 8397 df-2o 8398 df-er 8635 df-map 8765 df-pm 8766 df-ixp 8836 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-fsupp 9265 df-fi 9314 df-sup 9345 df-inf 9346 df-oi 9415 df-card 9851 df-pnf 11168 df-mnf 11169 df-xr 11170 df-ltxr 11171 df-le 11172 df-sub 11366 df-neg 11367 df-div 11795 df-nn 12146 df-2 12208 df-3 12209 df-4 12210 df-5 12211 df-6 12212 df-7 12213 df-8 12214 df-9 12215 df-n0 12402 df-z 12489 df-dec 12608 df-uz 12752 df-q 12862 df-rp 12906 df-xneg 13026 df-xadd 13027 df-xmul 13028 df-ioo 13265 df-ioc 13266 df-ico 13267 df-icc 13268 df-fz 13424 df-fzo 13571 df-fl 13712 df-mod 13790 df-seq 13925 df-exp 13985 df-fac 14197 df-bc 14226 df-hash 14254 df-shft 14990 df-cj 15022 df-re 15023 df-im 15024 df-sqrt 15158 df-abs 15159 df-limsup 15394 df-clim 15411 df-rlim 15412 df-sum 15610 df-ef 15990 df-sin 15992 df-cos 15993 df-pi 15995 df-struct 17074 df-sets 17091 df-slot 17109 df-ndx 17121 df-base 17137 df-ress 17158 df-plusg 17190 df-mulr 17191 df-starv 17192 df-sca 17193 df-vsca 17194 df-ip 17195 df-tset 17196 df-ple 17197 df-ds 17199 df-unif 17200 df-hom 17201 df-cco 17202 df-rest 17342 df-topn 17343 df-0g 17361 df-gsum 17362 df-topgen 17363 df-pt 17364 df-prds 17367 df-xrs 17423 df-qtop 17428 df-imas 17429 df-xps 17431 df-mre 17505 df-mrc 17506 df-acs 17508 df-mgm 18565 df-sgrp 18644 df-mnd 18660 df-submnd 18709 df-mulg 18998 df-cntz 19246 df-cmn 19711 df-psmet 21301 df-xmet 21302 df-met 21303 df-bl 21304 df-mopn 21305 df-fbas 21306 df-fg 21307 df-cnfld 21310 df-top 22838 df-topon 22855 df-topsp 22877 df-bases 22890 df-cld 22963 df-ntr 22964 df-cls 22965 df-nei 23042 df-lp 23080 df-perf 23081 df-cn 23171 df-cnp 23172 df-haus 23259 df-tx 23506 df-hmeo 23699 df-fil 23790 df-fm 23882 df-flim 23883 df-flf 23884 df-xms 24264 df-ms 24265 df-tms 24266 df-cncf 24827 df-limc 25823 df-dv 25824 df-log 26521 df-atan 26833

This theorem is referenced by: atanrecl 26877

W3C validator