Theorem atanlogsublem 25501

Description: Lemma for atanlogsub 25502. (Contributed by Mario Carneiro, 4-Apr-2015.)

Assertion

Ref	Expression
atanlogsublem	⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) − (log‘(1 − (i · 𝐴))))) ∈ (-π(,)π))

Proof of Theorem atanlogsublem

Step	Hyp	Ref	Expression
1		ax-1cn 10584	. . . . . 6 ⊢ 1 ∈ ℂ
2		ax-icn 10585	. . . . . . 7 ⊢ i ∈ ℂ
3		simpl 486	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 𝐴 ∈ dom arctan)
4		atandm2 25463	. . . . . . . . 9 ⊢ (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
5	3, 4	sylib 221	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
6	5	simp1d 1139	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 𝐴 ∈ ℂ)
7		mulcl 10610	. . . . . . 7 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
8	2, 6, 7	sylancr 590	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · 𝐴) ∈ ℂ)
9		addcl 10608	. . . . . 6 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
10	1, 8, 9	sylancr 590	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 + (i · 𝐴)) ∈ ℂ)
11	5	simp3d 1141	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 + (i · 𝐴)) ≠ 0)
12	10, 11	logcld 25162	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 + (i · 𝐴))) ∈ ℂ)
13		subcl 10874	. . . . . 6 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
14	1, 8, 13	sylancr 590	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 − (i · 𝐴)) ∈ ℂ)
15	5	simp2d 1140	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 − (i · 𝐴)) ≠ 0)
16	14, 15	logcld 25162	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 − (i · 𝐴))) ∈ ℂ)
17	12, 16	imsubd 14568	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) − (log‘(1 − (i · 𝐴))))) = ((ℑ‘(log‘(1 + (i · 𝐴)))) − (ℑ‘(log‘(1 − (i · 𝐴))))))
18	2	a1i 11	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → i ∈ ℂ)
19	18, 6, 18	subdid 11085	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (𝐴 − i)) = ((i · 𝐴) − (i · i)))
20		ixi 11258	. . . . . . . . . . 11 ⊢ (i · i) = -1
21	20	oveq2i 7146	. . . . . . . . . 10 ⊢ ((i · 𝐴) − (i · i)) = ((i · 𝐴) − -1)
22		subneg 10924	. . . . . . . . . . 11 ⊢ (((i · 𝐴) ∈ ℂ ∧ 1 ∈ ℂ) → ((i · 𝐴) − -1) = ((i · 𝐴) + 1))
23	8, 1, 22	sylancl 589	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((i · 𝐴) − -1) = ((i · 𝐴) + 1))
24	21, 23	syl5eq 2845	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((i · 𝐴) − (i · i)) = ((i · 𝐴) + 1))
25		addcom 10815	. . . . . . . . . 10 ⊢ (((i · 𝐴) ∈ ℂ ∧ 1 ∈ ℂ) → ((i · 𝐴) + 1) = (1 + (i · 𝐴)))
26	8, 1, 25	sylancl 589	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((i · 𝐴) + 1) = (1 + (i · 𝐴)))
27	19, 24, 26	3eqtrd 2837	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (𝐴 − i)) = (1 + (i · 𝐴)))
28	27	fveq2d 6649	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(i · (𝐴 − i))) = (log‘(1 + (i · 𝐴))))
29		subcl 10874	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (𝐴 − i) ∈ ℂ)
30	6, 2, 29	sylancl 589	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (𝐴 − i) ∈ ℂ)
31		resub 14478	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (ℜ‘(𝐴 − i)) = ((ℜ‘𝐴) − (ℜ‘i)))
32	6, 2, 31	sylancl 589	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 − i)) = ((ℜ‘𝐴) − (ℜ‘i)))
33		rei 14507	. . . . . . . . . . . . 13 ⊢ (ℜ‘i) = 0
34	33	oveq2i 7146	. . . . . . . . . . . 12 ⊢ ((ℜ‘𝐴) − (ℜ‘i)) = ((ℜ‘𝐴) − 0)
35	6	recld 14545	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ∈ ℝ)
36	35	recnd 10658	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ∈ ℂ)
37	36	subid1d 10975	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℜ‘𝐴) − 0) = (ℜ‘𝐴))
38	34, 37	syl5eq 2845	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℜ‘𝐴) − (ℜ‘i)) = (ℜ‘𝐴))
39	32, 38	eqtrd 2833	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 − i)) = (ℜ‘𝐴))
40		gt0ne0 11094	. . . . . . . . . . 11 ⊢ (((ℜ‘𝐴) ∈ ℝ ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ≠ 0)
41	35, 40	sylancom 591	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ≠ 0)
42	39, 41	eqnetrd 3054	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 − i)) ≠ 0)
43		fveq2 6645	. . . . . . . . . . 11 ⊢ ((𝐴 − i) = 0 → (ℜ‘(𝐴 − i)) = (ℜ‘0))
44		re0 14503	. . . . . . . . . . 11 ⊢ (ℜ‘0) = 0
45	43, 44	eqtrdi 2849	. . . . . . . . . 10 ⊢ ((𝐴 − i) = 0 → (ℜ‘(𝐴 − i)) = 0)
46	45	necon3i 3019	. . . . . . . . 9 ⊢ ((ℜ‘(𝐴 − i)) ≠ 0 → (𝐴 − i) ≠ 0)
47	42, 46	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (𝐴 − i) ≠ 0)
48		simpr 488	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℜ‘𝐴))
49		0re 10632	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
50		ltle 10718	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ (ℜ‘𝐴) ∈ ℝ) → (0 < (ℜ‘𝐴) → 0 ≤ (ℜ‘𝐴)))
51	49, 35, 50	sylancr 590	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (0 < (ℜ‘𝐴) → 0 ≤ (ℜ‘𝐴)))
52	48, 51	mpd 15	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 ≤ (ℜ‘𝐴))
53	52, 39	breqtrrd 5058	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 ≤ (ℜ‘(𝐴 − i)))
54		logimul 25205	. . . . . . . 8 ⊢ (((𝐴 − i) ∈ ℂ ∧ (𝐴 − i) ≠ 0 ∧ 0 ≤ (ℜ‘(𝐴 − i))) → (log‘(i · (𝐴 − i))) = ((log‘(𝐴 − i)) + (i · (π / 2))))
55	30, 47, 53, 54	syl3anc 1368	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(i · (𝐴 − i))) = ((log‘(𝐴 − i)) + (i · (π / 2))))
56	28, 55	eqtr3d 2835	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 + (i · 𝐴))) = ((log‘(𝐴 − i)) + (i · (π / 2))))
57	56	fveq2d 6649	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) = (ℑ‘((log‘(𝐴 − i)) + (i · (π / 2)))))
58	30, 47	logcld 25162	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(𝐴 − i)) ∈ ℂ)
59		halfpire 25057	. . . . . . . . 9 ⊢ (π / 2) ∈ ℝ
60	59	recni 10644	. . . . . . . 8 ⊢ (π / 2) ∈ ℂ
61	2, 60	mulcli 10637	. . . . . . 7 ⊢ (i · (π / 2)) ∈ ℂ
62		imadd 14485	. . . . . . 7 ⊢ (((log‘(𝐴 − i)) ∈ ℂ ∧ (i · (π / 2)) ∈ ℂ) → (ℑ‘((log‘(𝐴 − i)) + (i · (π / 2)))) = ((ℑ‘(log‘(𝐴 − i))) + (ℑ‘(i · (π / 2)))))
63	58, 61, 62	sylancl 589	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(𝐴 − i)) + (i · (π / 2)))) = ((ℑ‘(log‘(𝐴 − i))) + (ℑ‘(i · (π / 2)))))
64		reim 14460	. . . . . . . . 9 ⊢ ((π / 2) ∈ ℂ → (ℜ‘(π / 2)) = (ℑ‘(i · (π / 2))))
65	60, 64	ax-mp 5	. . . . . . . 8 ⊢ (ℜ‘(π / 2)) = (ℑ‘(i · (π / 2)))
66		rere 14473	. . . . . . . . 9 ⊢ ((π / 2) ∈ ℝ → (ℜ‘(π / 2)) = (π / 2))
67	59, 66	ax-mp 5	. . . . . . . 8 ⊢ (ℜ‘(π / 2)) = (π / 2)
68	65, 67	eqtr3i 2823	. . . . . . 7 ⊢ (ℑ‘(i · (π / 2))) = (π / 2)
69	68	oveq2i 7146	. . . . . 6 ⊢ ((ℑ‘(log‘(𝐴 − i))) + (ℑ‘(i · (π / 2)))) = ((ℑ‘(log‘(𝐴 − i))) + (π / 2))
70	63, 69	eqtrdi 2849	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(𝐴 − i)) + (i · (π / 2)))) = ((ℑ‘(log‘(𝐴 − i))) + (π / 2)))
71	57, 70	eqtrd 2833	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) = ((ℑ‘(log‘(𝐴 − i))) + (π / 2)))
72		addcl 10608	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (𝐴 + i) ∈ ℂ)
73	6, 2, 72	sylancl 589	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (𝐴 + i) ∈ ℂ)
74		mulcl 10610	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ (𝐴 + i) ∈ ℂ) → (i · (𝐴 + i)) ∈ ℂ)
75	2, 73, 74	sylancr 590	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (𝐴 + i)) ∈ ℂ)
76		reim 14460	. . . . . . . . . . 11 ⊢ ((𝐴 + i) ∈ ℂ → (ℜ‘(𝐴 + i)) = (ℑ‘(i · (𝐴 + i))))
77	73, 76	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 + i)) = (ℑ‘(i · (𝐴 + i))))
78		readd 14477	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (ℜ‘(𝐴 + i)) = ((ℜ‘𝐴) + (ℜ‘i)))
79	6, 2, 78	sylancl 589	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 + i)) = ((ℜ‘𝐴) + (ℜ‘i)))
80	33	oveq2i 7146	. . . . . . . . . . . 12 ⊢ ((ℜ‘𝐴) + (ℜ‘i)) = ((ℜ‘𝐴) + 0)
81	36	addid1d 10829	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℜ‘𝐴) + 0) = (ℜ‘𝐴))
82	80, 81	syl5eq 2845	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℜ‘𝐴) + (ℜ‘i)) = (ℜ‘𝐴))
83	79, 82	eqtrd 2833	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 + i)) = (ℜ‘𝐴))
84	77, 83	eqtr3d 2835	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(i · (𝐴 + i))) = (ℜ‘𝐴))
85	48, 84	breqtrrd 5058	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℑ‘(i · (𝐴 + i))))
86		logneg2 25206	. . . . . . . 8 ⊢ (((i · (𝐴 + i)) ∈ ℂ ∧ 0 < (ℑ‘(i · (𝐴 + i)))) → (log‘-(i · (𝐴 + i))) = ((log‘(i · (𝐴 + i))) − (i · π)))
87	75, 85, 86	syl2anc 587	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘-(i · (𝐴 + i))) = ((log‘(i · (𝐴 + i))) − (i · π)))
88	18, 6, 18	adddid 10654	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (𝐴 + i)) = ((i · 𝐴) + (i · i)))
89	20	oveq2i 7146	. . . . . . . . . . . 12 ⊢ ((i · 𝐴) + (i · i)) = ((i · 𝐴) + -1)
90		negsub 10923	. . . . . . . . . . . . 13 ⊢ (((i · 𝐴) ∈ ℂ ∧ 1 ∈ ℂ) → ((i · 𝐴) + -1) = ((i · 𝐴) − 1))
91	8, 1, 90	sylancl 589	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((i · 𝐴) + -1) = ((i · 𝐴) − 1))
92	89, 91	syl5eq 2845	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((i · 𝐴) + (i · i)) = ((i · 𝐴) − 1))
93	88, 92	eqtrd 2833	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (𝐴 + i)) = ((i · 𝐴) − 1))
94	93	negeqd 10869	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(i · (𝐴 + i)) = -((i · 𝐴) − 1))
95		negsubdi2 10934	. . . . . . . . . 10 ⊢ (((i · 𝐴) ∈ ℂ ∧ 1 ∈ ℂ) → -((i · 𝐴) − 1) = (1 − (i · 𝐴)))
96	8, 1, 95	sylancl 589	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -((i · 𝐴) − 1) = (1 − (i · 𝐴)))
97	94, 96	eqtrd 2833	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(i · (𝐴 + i)) = (1 − (i · 𝐴)))
98	97	fveq2d 6649	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘-(i · (𝐴 + i))) = (log‘(1 − (i · 𝐴))))
99	83, 41	eqnetrd 3054	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘(𝐴 + i)) ≠ 0)
100		fveq2 6645	. . . . . . . . . . . 12 ⊢ ((𝐴 + i) = 0 → (ℜ‘(𝐴 + i)) = (ℜ‘0))
101	100, 44	eqtrdi 2849	. . . . . . . . . . 11 ⊢ ((𝐴 + i) = 0 → (ℜ‘(𝐴 + i)) = 0)
102	101	necon3i 3019	. . . . . . . . . 10 ⊢ ((ℜ‘(𝐴 + i)) ≠ 0 → (𝐴 + i) ≠ 0)
103	99, 102	syl 17	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (𝐴 + i) ≠ 0)
104	73, 103	logcld 25162	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(𝐴 + i)) ∈ ℂ)
105	61	a1i 11	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · (π / 2)) ∈ ℂ)
106		picn 25052	. . . . . . . . . 10 ⊢ π ∈ ℂ
107	2, 106	mulcli 10637	. . . . . . . . 9 ⊢ (i · π) ∈ ℂ
108	107	a1i 11	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · π) ∈ ℂ)
109	52, 83	breqtrrd 5058	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 ≤ (ℜ‘(𝐴 + i)))
110		logimul 25205	. . . . . . . . . 10 ⊢ (((𝐴 + i) ∈ ℂ ∧ (𝐴 + i) ≠ 0 ∧ 0 ≤ (ℜ‘(𝐴 + i))) → (log‘(i · (𝐴 + i))) = ((log‘(𝐴 + i)) + (i · (π / 2))))
111	73, 103, 109, 110	syl3anc 1368	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(i · (𝐴 + i))) = ((log‘(𝐴 + i)) + (i · (π / 2))))
112	111	oveq1d 7150	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((log‘(i · (𝐴 + i))) − (i · π)) = (((log‘(𝐴 + i)) + (i · (π / 2))) − (i · π)))
113	104, 105, 108, 112	assraddsubd 11043	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((log‘(i · (𝐴 + i))) − (i · π)) = ((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π))))
114	87, 98, 113	3eqtr3d 2841	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 − (i · 𝐴))) = ((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π))))
115	114	fveq2d 6649	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) = (ℑ‘((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π)))))
116	61, 107	subcli 10951	. . . . . . 7 ⊢ ((i · (π / 2)) − (i · π)) ∈ ℂ
117		imadd 14485	. . . . . . 7 ⊢ (((log‘(𝐴 + i)) ∈ ℂ ∧ ((i · (π / 2)) − (i · π)) ∈ ℂ) → (ℑ‘((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π)))) = ((ℑ‘(log‘(𝐴 + i))) + (ℑ‘((i · (π / 2)) − (i · π)))))
118	104, 116, 117	sylancl 589	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π)))) = ((ℑ‘(log‘(𝐴 + i))) + (ℑ‘((i · (π / 2)) − (i · π)))))
119		imsub 14486	. . . . . . . . 9 ⊢ (((i · (π / 2)) ∈ ℂ ∧ (i · π) ∈ ℂ) → (ℑ‘((i · (π / 2)) − (i · π))) = ((ℑ‘(i · (π / 2))) − (ℑ‘(i · π))))
120	61, 107, 119	mp2an 691	. . . . . . . 8 ⊢ (ℑ‘((i · (π / 2)) − (i · π))) = ((ℑ‘(i · (π / 2))) − (ℑ‘(i · π)))
121		reim 14460	. . . . . . . . . . 11 ⊢ (π ∈ ℂ → (ℜ‘π) = (ℑ‘(i · π)))
122	106, 121	ax-mp 5	. . . . . . . . . 10 ⊢ (ℜ‘π) = (ℑ‘(i · π))
123		pire 25051	. . . . . . . . . . 11 ⊢ π ∈ ℝ
124		rere 14473	. . . . . . . . . . 11 ⊢ (π ∈ ℝ → (ℜ‘π) = π)
125	123, 124	ax-mp 5	. . . . . . . . . 10 ⊢ (ℜ‘π) = π
126	122, 125	eqtr3i 2823	. . . . . . . . 9 ⊢ (ℑ‘(i · π)) = π
127	68, 126	oveq12i 7147	. . . . . . . 8 ⊢ ((ℑ‘(i · (π / 2))) − (ℑ‘(i · π))) = ((π / 2) − π)
128	60	negcli 10943	. . . . . . . . 9 ⊢ -(π / 2) ∈ ℂ
129	106, 60	negsubi 10953	. . . . . . . . . 10 ⊢ (π + -(π / 2)) = (π − (π / 2))
130		pidiv2halves 25060	. . . . . . . . . . 11 ⊢ ((π / 2) + (π / 2)) = π
131	106, 60, 60, 130	subaddrii 10964	. . . . . . . . . 10 ⊢ (π − (π / 2)) = (π / 2)
132	129, 131	eqtri 2821	. . . . . . . . 9 ⊢ (π + -(π / 2)) = (π / 2)
133	60, 106, 128, 132	subaddrii 10964	. . . . . . . 8 ⊢ ((π / 2) − π) = -(π / 2)
134	120, 127, 133	3eqtri 2825	. . . . . . 7 ⊢ (ℑ‘((i · (π / 2)) − (i · π))) = -(π / 2)
135	134	oveq2i 7146	. . . . . 6 ⊢ ((ℑ‘(log‘(𝐴 + i))) + (ℑ‘((i · (π / 2)) − (i · π)))) = ((ℑ‘(log‘(𝐴 + i))) + -(π / 2))
136	118, 135	eqtrdi 2849	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(𝐴 + i)) + ((i · (π / 2)) − (i · π)))) = ((ℑ‘(log‘(𝐴 + i))) + -(π / 2)))
137	115, 136	eqtrd 2833	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) = ((ℑ‘(log‘(𝐴 + i))) + -(π / 2)))
138	71, 137	oveq12d 7153	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) − (ℑ‘(log‘(1 − (i · 𝐴))))) = (((ℑ‘(log‘(𝐴 − i))) + (π / 2)) − ((ℑ‘(log‘(𝐴 + i))) + -(π / 2))))
139	58	imcld 14546	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 − i))) ∈ ℝ)
140	139	recnd 10658	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 − i))) ∈ ℂ)
141	60	a1i 11	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (π / 2) ∈ ℂ)
142	104	imcld 14546	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 + i))) ∈ ℝ)
143	142	recnd 10658	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 + i))) ∈ ℂ)
144	128	a1i 11	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(π / 2) ∈ ℂ)
145	140, 141, 143, 144	addsub4d 11033	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) + (π / 2)) − ((ℑ‘(log‘(𝐴 + i))) + -(π / 2))) = (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + ((π / 2) − -(π / 2))))
146	60, 60	subnegi 10954	. . . . . 6 ⊢ ((π / 2) − -(π / 2)) = ((π / 2) + (π / 2))
147	146, 130	eqtri 2821	. . . . 5 ⊢ ((π / 2) − -(π / 2)) = π
148	147	oveq2i 7146	. . . 4 ⊢ (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + ((π / 2) − -(π / 2))) = (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π)
149	145, 148	eqtrdi 2849	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) + (π / 2)) − ((ℑ‘(log‘(𝐴 + i))) + -(π / 2))) = (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π))
150	17, 138, 149	3eqtrd 2837	. 2 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) − (log‘(1 − (i · 𝐴))))) = (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π))
151	139, 142	resubcld 11057	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) ∈ ℝ)
152		readdcl 10609	. . . 4 ⊢ ((((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) ∈ ℝ ∧ π ∈ ℝ) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ ℝ)
153	151, 123, 152	sylancl 589	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ ℝ)
154	123	renegcli 10936	. . . . . . 7 ⊢ -π ∈ ℝ
155	154	recni 10644	. . . . . 6 ⊢ -π ∈ ℂ
156	155, 106	negsubi 10953	. . . . 5 ⊢ (-π + -π) = (-π − π)
157	154	a1i 11	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π ∈ ℝ)
158	142	renegcld 11056	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(ℑ‘(log‘(𝐴 + i))) ∈ ℝ)
159	30, 47	logimcld 25163	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π < (ℑ‘(log‘(𝐴 − i))) ∧ (ℑ‘(log‘(𝐴 − i))) ≤ π))
160	159	simpld 498	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π < (ℑ‘(log‘(𝐴 − i))))
161	73, 103	logimcld 25163	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π < (ℑ‘(log‘(𝐴 + i))) ∧ (ℑ‘(log‘(𝐴 + i))) ≤ π))
162	161	simprd 499	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 + i))) ≤ π)
163		leneg 11132	. . . . . . . . 9 ⊢ (((ℑ‘(log‘(𝐴 + i))) ∈ ℝ ∧ π ∈ ℝ) → ((ℑ‘(log‘(𝐴 + i))) ≤ π ↔ -π ≤ -(ℑ‘(log‘(𝐴 + i)))))
164	142, 123, 163	sylancl 589	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(𝐴 + i))) ≤ π ↔ -π ≤ -(ℑ‘(log‘(𝐴 + i)))))
165	162, 164	mpbid 235	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π ≤ -(ℑ‘(log‘(𝐴 + i))))
166	157, 157, 139, 158, 160, 165	ltleaddd 11250	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π + -π) < ((ℑ‘(log‘(𝐴 − i))) + -(ℑ‘(log‘(𝐴 + i)))))
167	140, 143	negsubd 10992	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(𝐴 − i))) + -(ℑ‘(log‘(𝐴 + i)))) = ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))))
168	166, 167	breqtrd 5056	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π + -π) < ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))))
169	156, 168	eqbrtrrid 5066	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π − π) < ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))))
170	123	a1i 11	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → π ∈ ℝ)
171	157, 170, 151	ltsubaddd 11225	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((-π − π) < ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) ↔ -π < (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π)))
172	169, 171	mpbid 235	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π < (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π))
173		0red 10633	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 ∈ ℝ)
174	6	imcld 14546	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘𝐴) ∈ ℝ)
175		peano2rem 10942	. . . . . . . . . . . . 13 ⊢ ((ℑ‘𝐴) ∈ ℝ → ((ℑ‘𝐴) − 1) ∈ ℝ)
176	174, 175	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘𝐴) − 1) ∈ ℝ)
177		peano2re 10802	. . . . . . . . . . . . 13 ⊢ ((ℑ‘𝐴) ∈ ℝ → ((ℑ‘𝐴) + 1) ∈ ℝ)
178	174, 177	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘𝐴) + 1) ∈ ℝ)
179	174	ltm1d 11561	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘𝐴) − 1) < (ℑ‘𝐴))
180	174	ltp1d 11559	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘𝐴) < ((ℑ‘𝐴) + 1))
181	176, 174, 178, 179, 180	lttrd 10790	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘𝐴) − 1) < ((ℑ‘𝐴) + 1))
182		ltdiv1 11493	. . . . . . . . . . . 12 ⊢ ((((ℑ‘𝐴) − 1) ∈ ℝ ∧ ((ℑ‘𝐴) + 1) ∈ ℝ ∧ ((ℜ‘𝐴) ∈ ℝ ∧ 0 < (ℜ‘𝐴))) → (((ℑ‘𝐴) − 1) < ((ℑ‘𝐴) + 1) ↔ (((ℑ‘𝐴) − 1) / (ℜ‘𝐴)) < (((ℑ‘𝐴) + 1) / (ℜ‘𝐴))))
183	176, 178, 35, 48, 182	syl112anc 1371	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘𝐴) − 1) < ((ℑ‘𝐴) + 1) ↔ (((ℑ‘𝐴) − 1) / (ℜ‘𝐴)) < (((ℑ‘𝐴) + 1) / (ℜ‘𝐴))))
184	181, 183	mpbid 235	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘𝐴) − 1) / (ℜ‘𝐴)) < (((ℑ‘𝐴) + 1) / (ℜ‘𝐴)))
185		imsub 14486	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (ℑ‘(𝐴 − i)) = ((ℑ‘𝐴) − (ℑ‘i)))
186	6, 2, 185	sylancl 589	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(𝐴 − i)) = ((ℑ‘𝐴) − (ℑ‘i)))
187		imi 14508	. . . . . . . . . . . . 13 ⊢ (ℑ‘i) = 1
188	187	oveq2i 7146	. . . . . . . . . . . 12 ⊢ ((ℑ‘𝐴) − (ℑ‘i)) = ((ℑ‘𝐴) − 1)
189	186, 188	eqtrdi 2849	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(𝐴 − i)) = ((ℑ‘𝐴) − 1))
190	189, 39	oveq12d 7153	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(𝐴 − i)) / (ℜ‘(𝐴 − i))) = (((ℑ‘𝐴) − 1) / (ℜ‘𝐴)))
191		imadd 14485	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ i ∈ ℂ) → (ℑ‘(𝐴 + i)) = ((ℑ‘𝐴) + (ℑ‘i)))
192	6, 2, 191	sylancl 589	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(𝐴 + i)) = ((ℑ‘𝐴) + (ℑ‘i)))
193	187	oveq2i 7146	. . . . . . . . . . . 12 ⊢ ((ℑ‘𝐴) + (ℑ‘i)) = ((ℑ‘𝐴) + 1)
194	192, 193	eqtrdi 2849	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(𝐴 + i)) = ((ℑ‘𝐴) + 1))
195	194, 83	oveq12d 7153	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(𝐴 + i)) / (ℜ‘(𝐴 + i))) = (((ℑ‘𝐴) + 1) / (ℜ‘𝐴)))
196	184, 190, 195	3brtr4d 5062	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(𝐴 − i)) / (ℜ‘(𝐴 − i))) < ((ℑ‘(𝐴 + i)) / (ℜ‘(𝐴 + i))))
197		tanarg 25210	. . . . . . . . . 10 ⊢ (((𝐴 − i) ∈ ℂ ∧ (ℜ‘(𝐴 − i)) ≠ 0) → (tan‘(ℑ‘(log‘(𝐴 − i)))) = ((ℑ‘(𝐴 − i)) / (ℜ‘(𝐴 − i))))
198	30, 42, 197	syl2anc 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (tan‘(ℑ‘(log‘(𝐴 − i)))) = ((ℑ‘(𝐴 − i)) / (ℜ‘(𝐴 − i))))
199		tanarg 25210	. . . . . . . . . 10 ⊢ (((𝐴 + i) ∈ ℂ ∧ (ℜ‘(𝐴 + i)) ≠ 0) → (tan‘(ℑ‘(log‘(𝐴 + i)))) = ((ℑ‘(𝐴 + i)) / (ℜ‘(𝐴 + i))))
200	73, 99, 199	syl2anc 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (tan‘(ℑ‘(log‘(𝐴 + i)))) = ((ℑ‘(𝐴 + i)) / (ℜ‘(𝐴 + i))))
201	196, 198, 200	3brtr4d 5062	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (tan‘(ℑ‘(log‘(𝐴 − i)))) < (tan‘(ℑ‘(log‘(𝐴 + i)))))
202	48, 39	breqtrrd 5058	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℜ‘(𝐴 − i)))
203		argregt0 25201	. . . . . . . . . 10 ⊢ (((𝐴 − i) ∈ ℂ ∧ 0 < (ℜ‘(𝐴 − i))) → (ℑ‘(log‘(𝐴 − i))) ∈ (-(π / 2)(,)(π / 2)))
204	30, 202, 203	syl2anc 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 − i))) ∈ (-(π / 2)(,)(π / 2)))
205	48, 83	breqtrrd 5058	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℜ‘(𝐴 + i)))
206		argregt0 25201	. . . . . . . . . 10 ⊢ (((𝐴 + i) ∈ ℂ ∧ 0 < (ℜ‘(𝐴 + i))) → (ℑ‘(log‘(𝐴 + i))) ∈ (-(π / 2)(,)(π / 2)))
207	73, 205, 206	syl2anc 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 + i))) ∈ (-(π / 2)(,)(π / 2)))
208		tanord 25130	. . . . . . . . 9 ⊢ (((ℑ‘(log‘(𝐴 − i))) ∈ (-(π / 2)(,)(π / 2)) ∧ (ℑ‘(log‘(𝐴 + i))) ∈ (-(π / 2)(,)(π / 2))) → ((ℑ‘(log‘(𝐴 − i))) < (ℑ‘(log‘(𝐴 + i))) ↔ (tan‘(ℑ‘(log‘(𝐴 − i)))) < (tan‘(ℑ‘(log‘(𝐴 + i))))))
209	204, 207, 208	syl2anc 587	. . . . . . . 8 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(𝐴 − i))) < (ℑ‘(log‘(𝐴 + i))) ↔ (tan‘(ℑ‘(log‘(𝐴 − i)))) < (tan‘(ℑ‘(log‘(𝐴 + i))))))
210	201, 209	mpbird 260	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 − i))) < (ℑ‘(log‘(𝐴 + i))))
211	143	addid2d 10830	. . . . . . 7 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (0 + (ℑ‘(log‘(𝐴 + i)))) = (ℑ‘(log‘(𝐴 + i))))
212	210, 211	breqtrrd 5058	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(𝐴 − i))) < (0 + (ℑ‘(log‘(𝐴 + i)))))
213	139, 142, 173	ltsubaddd 11225	. . . . . 6 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) < 0 ↔ (ℑ‘(log‘(𝐴 − i))) < (0 + (ℑ‘(log‘(𝐴 + i))))))
214	212, 213	mpbird 260	. . . . 5 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) < 0)
215	151, 173, 170, 214	ltadd1dd 11240	. . . 4 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) < (0 + π))
216	106	addid2i 10817	. . . 4 ⊢ (0 + π) = π
217	215, 216	breqtrdi 5071	. . 3 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) < π)
218	154	rexri 10688	. . . 4 ⊢ -π ∈ ℝ*
219	123	rexri 10688	. . . 4 ⊢ π ∈ ℝ*
220		elioo2 12767	. . . 4 ⊢ ((-π ∈ ℝ* ∧ π ∈ ℝ*) → ((((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ (-π(,)π) ↔ ((((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ ℝ ∧ -π < (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∧ (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) < π)))
221	218, 219, 220	mp2an 691	. . 3 ⊢ ((((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ (-π(,)π) ↔ ((((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ ℝ ∧ -π < (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∧ (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) < π))
222	153, 172, 217, 221	syl3anbrc 1340	. 2 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (((ℑ‘(log‘(𝐴 − i))) − (ℑ‘(log‘(𝐴 + i)))) + π) ∈ (-π(,)π))
223	150, 222	eqeltrd 2890	1 ⊢ ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) − (log‘(1 − (i · 𝐴))))) ∈ (-π(,)π))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2987   class class class wbr 5030  dom cdm 5519  ‘cfv 6324  (class class class)co 7135  ℂcc 10524  ℝcr 10525  0cc0 10526  1c1 10527  ici 10528   + caddc 10529   · cmul 10531  ℝ^*cxr 10663   < clt 10664   ≤ cle 10665   − cmin 10859  -cneg 10860   / cdiv 11286  2c2 11680  (,)cioo 12726  ℜcre 14448  ℑcim 14449  tanctan 15411  πcpi 15412  logclog 25146  arctancatan 25450

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-inf2 9088  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604  ax-addf 10605  ax-mulf 10606

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7389  df-om 7561  df-1st 7671  df-2nd 7672  df-supp 7814  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-2o 8086  df-oadd 8089  df-er 8272  df-map 8391  df-pm 8392  df-ixp 8445  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-fsupp 8818  df-fi 8859  df-sup 8890  df-inf 8891  df-oi 8958  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11626  df-2 11688  df-3 11689  df-4 11690  df-5 11691  df-6 11692  df-7 11693  df-8 11694  df-9 11695  df-n0 11886  df-z 11970  df-dec 12087  df-uz 12232  df-q 12337  df-rp 12378  df-xneg 12495  df-xadd 12496  df-xmul 12497  df-ioo 12730  df-ioc 12731  df-ico 12732  df-icc 12733  df-fz 12886  df-fzo 13029  df-fl 13157  df-mod 13233  df-seq 13365  df-exp 13426  df-fac 13630  df-bc 13659  df-hash 13687  df-shft 14418  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-limsup 14820  df-clim 14837  df-rlim 14838  df-sum 15035  df-ef 15413  df-sin 15415  df-cos 15416  df-tan 15417  df-pi 15418  df-struct 16477  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-mulr 16571  df-starv 16572  df-sca 16573  df-vsca 16574  df-ip 16575  df-tset 16576  df-ple 16577  df-ds 16579  df-unif 16580  df-hom 16581  df-cco 16582  df-rest 16688  df-topn 16689  df-0g 16707  df-gsum 16708  df-topgen 16709  df-pt 16710  df-prds 16713  df-xrs 16767  df-qtop 16772  df-imas 16773  df-xps 16775  df-mre 16849  df-mrc 16850  df-acs 16852  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-submnd 17949  df-mulg 18217  df-cntz 18439  df-cmn 18900  df-psmet 20083  df-xmet 20084  df-met 20085  df-bl 20086  df-mopn 20087  df-fbas 20088  df-fg 20089  df-cnfld 20092  df-top 21499  df-topon 21516  df-topsp 21538  df-bases 21551  df-cld 21624  df-ntr 21625  df-cls 21626  df-nei 21703  df-lp 21741  df-perf 21742  df-cn 21832  df-cnp 21833  df-haus 21920  df-tx 22167  df-hmeo 22360  df-fil 22451  df-fm 22543  df-flim 22544  df-flf 22545  df-xms 22927  df-ms 22928  df-tms 22929  df-cncf 23483  df-limc 24469  df-dv 24470  df-log 25148  df-atan 25453

This theorem is referenced by:  atanlogsub  25502  atanbndlem  25511