Theorem tanregt0 26455

Description: The real part of the tangent of a complex number with real part in the open interval (0(,)(π / 2)) is positive. (Contributed by Mario Carneiro, 5-Apr-2015.)

Assertion

Ref	Expression
tanregt0	⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (ℜ‘(tan‘𝐴)))

Proof of Theorem tanregt0

Step	Hyp	Ref	Expression
1		ax-1cn 11133	. . . . . . 7 ⊢ 1 ∈ ℂ
2		recl 15083	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) ∈ ℝ)
3	2	adantr 480	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘𝐴) ∈ ℝ)
4	3	recnd 11209	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘𝐴) ∈ ℂ)
5	3	rered 15197	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(ℜ‘𝐴)) = (ℜ‘𝐴))
6		neghalfpire 26381	. . . . . . . . . . . . . 14 ⊢ -(π / 2) ∈ ℝ
7	6	rexri 11239	. . . . . . . . . . . . 13 ⊢ -(π / 2) ∈ ℝ*
8		0re 11183	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
9		pirp 26377	. . . . . . . . . . . . . . . 16 ⊢ π ∈ ℝ+
10		rphalfcl 12987	. . . . . . . . . . . . . . . 16 ⊢ (π ∈ ℝ+ → (π / 2) ∈ ℝ+)
11		rpgt0 12971	. . . . . . . . . . . . . . . 16 ⊢ ((π / 2) ∈ ℝ+ → 0 < (π / 2))
12	9, 10, 11	mp2b 10	. . . . . . . . . . . . . . 15 ⊢ 0 < (π / 2)
13		halfpire 26380	. . . . . . . . . . . . . . . 16 ⊢ (π / 2) ∈ ℝ
14		lt0neg2 11692	. . . . . . . . . . . . . . . 16 ⊢ ((π / 2) ∈ ℝ → (0 < (π / 2) ↔ -(π / 2) < 0))
15	13, 14	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (0 < (π / 2) ↔ -(π / 2) < 0)
16	12, 15	mpbi 230	. . . . . . . . . . . . . 14 ⊢ -(π / 2) < 0
17	6, 8, 16	ltleii 11304	. . . . . . . . . . . . 13 ⊢ -(π / 2) ≤ 0
18		iooss1 13348	. . . . . . . . . . . . 13 ⊢ ((-(π / 2) ∈ ℝ* ∧ -(π / 2) ≤ 0) → (0(,)(π / 2)) ⊆ (-(π / 2)(,)(π / 2)))
19	7, 17, 18	mp2an 692	. . . . . . . . . . . 12 ⊢ (0(,)(π / 2)) ⊆ (-(π / 2)(,)(π / 2))
20		simpr 484	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘𝐴) ∈ (0(,)(π / 2)))
21	19, 20	sselid 3947	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘𝐴) ∈ (-(π / 2)(,)(π / 2)))
22	5, 21	eqeltrd 2829	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(ℜ‘𝐴)) ∈ (-(π / 2)(,)(π / 2)))
23		cosne0 26445	. . . . . . . . . 10 ⊢ (((ℜ‘𝐴) ∈ ℂ ∧ (ℜ‘(ℜ‘𝐴)) ∈ (-(π / 2)(,)(π / 2))) → (cos‘(ℜ‘𝐴)) ≠ 0)
24	4, 22, 23	syl2anc 584	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘(ℜ‘𝐴)) ≠ 0)
25	4, 24	tancld 16107	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘(ℜ‘𝐴)) ∈ ℂ)
26		ax-icn 11134	. . . . . . . . . 10 ⊢ i ∈ ℂ
27		imcl 15084	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (ℑ‘𝐴) ∈ ℝ)
28	27	adantr 480	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘𝐴) ∈ ℝ)
29	28	recnd 11209	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘𝐴) ∈ ℂ)
30		mulcl 11159	. . . . . . . . . 10 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐴) ∈ ℂ) → (i · (ℑ‘𝐴)) ∈ ℂ)
31	26, 29, 30	sylancr 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (i · (ℑ‘𝐴)) ∈ ℂ)
32		rpcoshcl 16132	. . . . . . . . . . 11 ⊢ ((ℑ‘𝐴) ∈ ℝ → (cos‘(i · (ℑ‘𝐴))) ∈ ℝ+)
33	28, 32	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘(i · (ℑ‘𝐴))) ∈ ℝ+)
34	33	rpne0d 13007	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘(i · (ℑ‘𝐴))) ≠ 0)
35	31, 34	tancld 16107	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘(i · (ℑ‘𝐴))) ∈ ℂ)
36	25, 35	mulcld 11201	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ)
37		subcl 11427	. . . . . . 7 ⊢ ((1 ∈ ℂ ∧ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ) → (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ∈ ℂ)
38	1, 36, 37	sylancr 587	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ∈ ℂ)
39		replim 15089	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → 𝐴 = ((ℜ‘𝐴) + (i · (ℑ‘𝐴))))
40	39	adantr 480	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 𝐴 = ((ℜ‘𝐴) + (i · (ℑ‘𝐴))))
41	40	fveq2d 6865	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘𝐴) = (cos‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))))
42		cosne0 26445	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (-(π / 2)(,)(π / 2))) → (cos‘𝐴) ≠ 0)
43	21, 42	syldan 591	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘𝐴) ≠ 0)
44	41, 43	eqnetrrd 2994	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (cos‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) ≠ 0)
45		tanaddlem 16141	. . . . . . . . . 10 ⊢ ((((ℜ‘𝐴) ∈ ℂ ∧ (i · (ℑ‘𝐴)) ∈ ℂ) ∧ ((cos‘(ℜ‘𝐴)) ≠ 0 ∧ (cos‘(i · (ℑ‘𝐴))) ≠ 0)) → ((cos‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) ≠ 0 ↔ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ≠ 1))
46	4, 31, 24, 34, 45	syl22anc 838	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((cos‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) ≠ 0 ↔ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ≠ 1))
47	44, 46	mpbid 232	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ≠ 1)
48	47	necomd 2981	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 1 ≠ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))
49		subeq0 11455	. . . . . . . . 9 ⊢ ((1 ∈ ℂ ∧ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ) → ((1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = 0 ↔ 1 = ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
50	49	necon3bid 2970	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ) → ((1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ≠ 0 ↔ 1 ≠ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
51	1, 36, 50	sylancr 587	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ≠ 0 ↔ 1 ≠ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
52	48, 51	mpbird 257	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ≠ 0)
53	38, 52	absrpcld 15424	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) ∈ ℝ+)
54		2z 12572	. . . . 5 ⊢ 2 ∈ ℤ
55		rpexpcl 14052	. . . . 5 ⊢ (((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) ∈ ℝ+ ∧ 2 ∈ ℤ) → ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2) ∈ ℝ+)
56	53, 54, 55	sylancl 586	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2) ∈ ℝ+)
57	56	rprecred 13013	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) ∈ ℝ)
58	38	cjcld 15169	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) ∈ ℂ)
59	25, 35	addcld 11200	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ)
60	58, 59	mulcld 11201	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) ∈ ℂ)
61	60	recld 15167	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) ∈ ℝ)
62	56	rpreccld 13012	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) ∈ ℝ+)
63	62	rpgt0d 13005	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)))
64	3, 24	retancld 16120	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘(ℜ‘𝐴)) ∈ ℝ)
65		1re 11181	. . . . . 6 ⊢ 1 ∈ ℝ
66		retanhcl 16134	. . . . . . . 8 ⊢ ((ℑ‘𝐴) ∈ ℝ → ((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℝ)
67	28, 66	syl 17	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℝ)
68	67	resqcld 14097	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(i · (ℑ‘𝐴))) / i)↑2) ∈ ℝ)
69		resubcl 11493	. . . . . 6 ⊢ ((1 ∈ ℝ ∧ (((tan‘(i · (ℑ‘𝐴))) / i)↑2) ∈ ℝ) → (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2)) ∈ ℝ)
70	65, 68, 69	sylancr 587	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2)) ∈ ℝ)
71		tanrpcl 26420	. . . . . . 7 ⊢ ((ℜ‘𝐴) ∈ (0(,)(π / 2)) → (tan‘(ℜ‘𝐴)) ∈ ℝ+)
72	71	adantl 481	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘(ℜ‘𝐴)) ∈ ℝ+)
73	72	rpgt0d 13005	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (tan‘(ℜ‘𝐴)))
74		absresq 15275	. . . . . . . 8 ⊢ (((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℝ → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i))↑2) = (((tan‘(i · (ℑ‘𝐴))) / i)↑2))
75	67, 74	syl 17	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i))↑2) = (((tan‘(i · (ℑ‘𝐴))) / i)↑2))
76		tanhbnd 16136	. . . . . . . . . . . 12 ⊢ ((ℑ‘𝐴) ∈ ℝ → ((tan‘(i · (ℑ‘𝐴))) / i) ∈ (-1(,)1))
77	28, 76	syl 17	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(i · (ℑ‘𝐴))) / i) ∈ (-1(,)1))
78		eliooord 13373	. . . . . . . . . . 11 ⊢ (((tan‘(i · (ℑ‘𝐴))) / i) ∈ (-1(,)1) → (-1 < ((tan‘(i · (ℑ‘𝐴))) / i) ∧ ((tan‘(i · (ℑ‘𝐴))) / i) < 1))
79	77, 78	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (-1 < ((tan‘(i · (ℑ‘𝐴))) / i) ∧ ((tan‘(i · (ℑ‘𝐴))) / i) < 1))
80		abslt 15288	. . . . . . . . . . 11 ⊢ ((((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℝ ∧ 1 ∈ ℝ) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i)) < 1 ↔ (-1 < ((tan‘(i · (ℑ‘𝐴))) / i) ∧ ((tan‘(i · (ℑ‘𝐴))) / i) < 1)))
81	67, 65, 80	sylancl 586	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i)) < 1 ↔ (-1 < ((tan‘(i · (ℑ‘𝐴))) / i) ∧ ((tan‘(i · (ℑ‘𝐴))) / i) < 1)))
82	79, 81	mpbird 257	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (abs‘((tan‘(i · (ℑ‘𝐴))) / i)) < 1)
83	67	recnd 11209	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℂ)
84	83	abscld 15412	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (abs‘((tan‘(i · (ℑ‘𝐴))) / i)) ∈ ℝ)
85	65	a1i 11	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 1 ∈ ℝ)
86	83	absge0d 15420	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 ≤ (abs‘((tan‘(i · (ℑ‘𝐴))) / i)))
87		0le1 11708	. . . . . . . . . . 11 ⊢ 0 ≤ 1
88	87	a1i 11	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 ≤ 1)
89	84, 85, 86, 88	lt2sqd 14228	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i)) < 1 ↔ ((abs‘((tan‘(i · (ℑ‘𝐴))) / i))↑2) < (1↑2)))
90	82, 89	mpbid 232	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i))↑2) < (1↑2))
91		sq1 14167	. . . . . . . 8 ⊢ (1↑2) = 1
92	90, 91	breqtrdi 5151	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘((tan‘(i · (ℑ‘𝐴))) / i))↑2) < 1)
93	75, 92	eqbrtrrd 5134	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(i · (ℑ‘𝐴))) / i)↑2) < 1)
94		posdif 11678	. . . . . . 7 ⊢ (((((tan‘(i · (ℑ‘𝐴))) / i)↑2) ∈ ℝ ∧ 1 ∈ ℝ) → ((((tan‘(i · (ℑ‘𝐴))) / i)↑2) < 1 ↔ 0 < (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
95	68, 65, 94	sylancl 586	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((((tan‘(i · (ℑ‘𝐴))) / i)↑2) < 1 ↔ 0 < (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
96	93, 95	mpbid 232	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2)))
97	64, 70, 73, 96	mulgt0d 11336	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < ((tan‘(ℜ‘𝐴)) · (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
98	38	recjd 15177	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) = (ℜ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
99		resub 15100	. . . . . . . . . 10 ⊢ ((1 ∈ ℂ ∧ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ) → (ℜ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((ℜ‘1) − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
100	1, 36, 99	sylancr 587	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((ℜ‘1) − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
101		re1 15127	. . . . . . . . . . 11 ⊢ (ℜ‘1) = 1
102	101	oveq1i 7400	. . . . . . . . . 10 ⊢ ((ℜ‘1) − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = (1 − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
103	64, 35	remul2d 15200	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = ((tan‘(ℜ‘𝐴)) · (ℜ‘(tan‘(i · (ℑ‘𝐴))))))
104		negicn 11429	. . . . . . . . . . . . . . . . . 18 ⊢ -i ∈ ℂ
105	104	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -i ∈ ℂ)
106		ine0 11620	. . . . . . . . . . . . . . . . . . 19 ⊢ i ≠ 0
107	26, 106	negne0i 11504	. . . . . . . . . . . . . . . . . 18 ⊢ -i ≠ 0
108	107	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -i ≠ 0)
109	35, 105, 108	divcld 11965	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(i · (ℑ‘𝐴))) / -i) ∈ ℂ)
110		imre 15081	. . . . . . . . . . . . . . . 16 ⊢ (((tan‘(i · (ℑ‘𝐴))) / -i) ∈ ℂ → (ℑ‘((tan‘(i · (ℑ‘𝐴))) / -i)) = (ℜ‘(-i · ((tan‘(i · (ℑ‘𝐴))) / -i))))
111	109, 110	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(i · (ℑ‘𝐴))) / -i)) = (ℜ‘(-i · ((tan‘(i · (ℑ‘𝐴))) / -i))))
112	26	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → i ∈ ℂ)
113	106	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → i ≠ 0)
114	35, 112, 113	divneg2d 11979	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -((tan‘(i · (ℑ‘𝐴))) / i) = ((tan‘(i · (ℑ‘𝐴))) / -i))
115	67	renegcld 11612	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -((tan‘(i · (ℑ‘𝐴))) / i) ∈ ℝ)
116	114, 115	eqeltrrd 2830	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(i · (ℑ‘𝐴))) / -i) ∈ ℝ)
117	116	reim0d 15198	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(i · (ℑ‘𝐴))) / -i)) = 0)
118	35, 105, 108	divcan2d 11967	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (-i · ((tan‘(i · (ℑ‘𝐴))) / -i)) = (tan‘(i · (ℑ‘𝐴))))
119	118	fveq2d 6865	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(-i · ((tan‘(i · (ℑ‘𝐴))) / -i))) = (ℜ‘(tan‘(i · (ℑ‘𝐴)))))
120	111, 117, 119	3eqtr3rd 2774	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(tan‘(i · (ℑ‘𝐴)))) = 0)
121	120	oveq2d 7406	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (ℜ‘(tan‘(i · (ℑ‘𝐴))))) = ((tan‘(ℜ‘𝐴)) · 0))
122	25	mul01d 11380	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · 0) = 0)
123	103, 121, 122	3eqtrd 2769	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = 0)
124	123	oveq2d 7406	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = (1 − 0))
125		1m0e1 12309	. . . . . . . . . . 11 ⊢ (1 − 0) = 1
126	124, 125	eqtrdi 2781	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = 1)
127	102, 126	eqtrid 2777	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℜ‘1) − (ℜ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = 1)
128	98, 100, 127	3eqtrd 2769	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) = 1)
129	35, 112, 113	divcan2d 11967	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (i · ((tan‘(i · (ℑ‘𝐴))) / i)) = (tan‘(i · (ℑ‘𝐴))))
130	129	oveq2d 7406	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) + (i · ((tan‘(i · (ℑ‘𝐴))) / i))) = ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))
131	130	fveq2d 6865	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(ℜ‘𝐴)) + (i · ((tan‘(i · (ℑ‘𝐴))) / i)))) = (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))
132	64, 67	crred 15204	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(ℜ‘𝐴)) + (i · ((tan‘(i · (ℑ‘𝐴))) / i)))) = (tan‘(ℜ‘𝐴)))
133	131, 132	eqtr3d 2767	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) = (tan‘(ℜ‘𝐴)))
134	128, 133	oveq12d 7408	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = (1 · (tan‘(ℜ‘𝐴))))
135		mulcom 11161	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (tan‘(ℜ‘𝐴)) ∈ ℂ) → (1 · (tan‘(ℜ‘𝐴))) = ((tan‘(ℜ‘𝐴)) · 1))
136	1, 25, 135	sylancr 587	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 · (tan‘(ℜ‘𝐴))) = ((tan‘(ℜ‘𝐴)) · 1))
137	134, 136	eqtrd 2765	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = ((tan‘(ℜ‘𝐴)) · 1))
138	25, 83, 83	mulassd 11204	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)) · ((tan‘(i · (ℑ‘𝐴))) / i)) = ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i) · ((tan‘(i · (ℑ‘𝐴))) / i))))
139	38	imcjd 15178	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) = -(ℑ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
140		imsub 15108	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℂ ∧ ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))) ∈ ℂ) → (ℑ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((ℑ‘1) − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
141	1, 36, 140	sylancr 587	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((ℑ‘1) − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
142		im1 15128	. . . . . . . . . . . . . 14 ⊢ (ℑ‘1) = 0
143	142	oveq1i 7400	. . . . . . . . . . . . 13 ⊢ ((ℑ‘1) − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = (0 − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
144		df-neg 11415	. . . . . . . . . . . . 13 ⊢ -(ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = (0 − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))
145	143, 144	eqtr4i 2756	. . . . . . . . . . . 12 ⊢ ((ℑ‘1) − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = -(ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))
146	64, 35	immul2d 15201	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = ((tan‘(ℜ‘𝐴)) · (ℑ‘(tan‘(i · (ℑ‘𝐴))))))
147		imval 15080	. . . . . . . . . . . . . . . . 17 ⊢ ((tan‘(i · (ℑ‘𝐴))) ∈ ℂ → (ℑ‘(tan‘(i · (ℑ‘𝐴)))) = (ℜ‘((tan‘(i · (ℑ‘𝐴))) / i)))
148	35, 147	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(tan‘(i · (ℑ‘𝐴)))) = (ℜ‘((tan‘(i · (ℑ‘𝐴))) / i)))
149	67	rered 15197	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((tan‘(i · (ℑ‘𝐴))) / i)) = ((tan‘(i · (ℑ‘𝐴))) / i))
150	148, 149	eqtrd 2765	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(tan‘(i · (ℑ‘𝐴)))) = ((tan‘(i · (ℑ‘𝐴))) / i))
151	150	oveq2d 7406	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (ℑ‘(tan‘(i · (ℑ‘𝐴))))) = ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
152	146, 151	eqtrd 2765	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
153	152	negeqd 11422	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -(ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) = -((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
154	145, 153	eqtrid 2777	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℑ‘1) − (ℑ‘((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = -((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
155	141, 154	eqtrd 2765	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = -((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
156	155	negeqd 11422	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → -(ℑ‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = --((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
157	64, 67	remulcld 11211	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)) ∈ ℝ)
158	157	recnd 11209	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)) ∈ ℂ)
159	158	negnegd 11531	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → --((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)) = ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
160	139, 156, 159	3eqtrd 2769	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) = ((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
161	130	fveq2d 6865	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(ℜ‘𝐴)) + (i · ((tan‘(i · (ℑ‘𝐴))) / i)))) = (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))
162	64, 67	crimd 15205	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(ℜ‘𝐴)) + (i · ((tan‘(i · (ℑ‘𝐴))) / i)))) = ((tan‘(i · (ℑ‘𝐴))) / i))
163	161, 162	eqtr3d 2767	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) = ((tan‘(i · (ℑ‘𝐴))) / i))
164	160, 163	oveq12d 7408	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = (((tan‘(ℜ‘𝐴)) · ((tan‘(i · (ℑ‘𝐴))) / i)) · ((tan‘(i · (ℑ‘𝐴))) / i)))
165	83	sqvald 14115	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(i · (ℑ‘𝐴))) / i)↑2) = (((tan‘(i · (ℑ‘𝐴))) / i) · ((tan‘(i · (ℑ‘𝐴))) / i)))
166	165	oveq2d 7406	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i)↑2)) = ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i) · ((tan‘(i · (ℑ‘𝐴))) / i))))
167	138, 164, 166	3eqtr4d 2775	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i)↑2)))
168	137, 167	oveq12d 7408	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) − ((ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))) = (((tan‘(ℜ‘𝐴)) · 1) − ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
169	58, 59	remuld 15191	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = (((ℜ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℜ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) − ((ℑ‘(∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))) · (ℑ‘((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))))
170	1	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 1 ∈ ℂ)
171	83	sqcld 14116	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(i · (ℑ‘𝐴))) / i)↑2) ∈ ℂ)
172	25, 170, 171	subdid 11641	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((tan‘(ℜ‘𝐴)) · (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2))) = (((tan‘(ℜ‘𝐴)) · 1) − ((tan‘(ℜ‘𝐴)) · (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
173	168, 169, 172	3eqtr4d 2775	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))) = ((tan‘(ℜ‘𝐴)) · (1 − (((tan‘(i · (ℑ‘𝐴))) / i)↑2))))
174	97, 173	breqtrrd 5138	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))))
175	57, 61, 63, 174	mulgt0d 11336	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < ((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))))
176	40	fveq2d 6865	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘𝐴) = (tan‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))))
177		tanadd 16142	. . . . . . 7 ⊢ ((((ℜ‘𝐴) ∈ ℂ ∧ (i · (ℑ‘𝐴)) ∈ ℂ) ∧ ((cos‘(ℜ‘𝐴)) ≠ 0 ∧ (cos‘(i · (ℑ‘𝐴))) ≠ 0 ∧ (cos‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) ≠ 0)) → (tan‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) = (((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))) / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
178	4, 31, 24, 34, 44, 177	syl23anc 1379	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘((ℜ‘𝐴) + (i · (ℑ‘𝐴)))) = (((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))) / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))))
179		recval 15296	. . . . . . . . 9 ⊢ (((1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ∈ ℂ ∧ (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))) ≠ 0) → (1 / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)))
180	38, 52, 179	syl2anc 584	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (1 / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)))
181	180	oveq1d 7405	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((1 / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) = (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))
182	59, 38, 52	divrec2d 11969	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))) / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = ((1 / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))
183	38	abscld 15412	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) ∈ ℝ)
184	183	resqcld 14097	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2) ∈ ℝ)
185	184	recnd 11209	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2) ∈ ℂ)
186	56	rpne0d 13007	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2) ≠ 0)
187	58, 59, 185, 186	div23d 12002	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) = (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))
188	181, 182, 187	3eqtr4d 2775	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))) / (1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) = (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)))
189	176, 178, 188	3eqtrd 2769	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘𝐴) = (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)))
190	60, 185, 186	divrec2d 11969	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))) / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) = ((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))))
191	189, 190	eqtrd 2765	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (tan‘𝐴) = ((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴)))))))
192	191	fveq2d 6865	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(tan‘𝐴)) = (ℜ‘((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))))
193	57, 60	remul2d 15200	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · ((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))) = ((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))))
194	192, 193	eqtrd 2765	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → (ℜ‘(tan‘𝐴)) = ((1 / ((abs‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴))))))↑2)) · (ℜ‘((∗‘(1 − ((tan‘(ℜ‘𝐴)) · (tan‘(i · (ℑ‘𝐴)))))) · ((tan‘(ℜ‘𝐴)) + (tan‘(i · (ℑ‘𝐴))))))))
195	175, 194	breqtrrd 5138	1 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) ∈ (0(,)(π / 2))) → 0 < (ℜ‘(tan‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2926   ⊆ wss 3917   class class class wbr 5110  ‘cfv 6514  (class class class)co 7390  ℂcc 11073  ℝcr 11074  0cc0 11075  1c1 11076  ici 11077   + caddc 11078   · cmul 11080  ℝ^*cxr 11214   < clt 11215   ≤ cle 11216   − cmin 11412  -cneg 11413   / cdiv 11842  2c2 12248  ℤcz 12536  ℝ⁺crp 12958  (,)cioo 13313  ↑cexp 14033  ∗ccj 15069  ℜcre 15070  ℑcim 15071  abscabs 15207  cosccos 16037  tanctan 16038  πcpi 16039

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-inf2 9601  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153  ax-addf 11154

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-int 4914  df-iun 4960  df-iin 4961  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-se 5595  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-isom 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-of 7656  df-om 7846  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-2o 8438  df-er 8674  df-map 8804  df-pm 8805  df-ixp 8874  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-fsupp 9320  df-fi 9369  df-sup 9400  df-inf 9401  df-oi 9470  df-card 9899  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-z 12537  df-dec 12657  df-uz 12801  df-q 12915  df-rp 12959  df-xneg 13079  df-xadd 13080  df-xmul 13081  df-ioo 13317  df-ioc 13318  df-ico 13319  df-icc 13320  df-fz 13476  df-fzo 13623  df-fl 13761  df-mod 13839  df-seq 13974  df-exp 14034  df-fac 14246  df-bc 14275  df-hash 14303  df-shft 15040  df-cj 15072  df-re 15073  df-im 15074  df-sqrt 15208  df-abs 15209  df-limsup 15444  df-clim 15461  df-rlim 15462  df-sum 15660  df-ef 16040  df-sin 16042  df-cos 16043  df-tan 16044  df-pi 16045  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-starv 17242  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-unif 17250  df-hom 17251  df-cco 17252  df-rest 17392  df-topn 17393  df-0g 17411  df-gsum 17412  df-topgen 17413  df-pt 17414  df-prds 17417  df-xrs 17472  df-qtop 17477  df-imas 17478  df-xps 17480  df-mre 17554  df-mrc 17555  df-acs 17557  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-submnd 18718  df-mulg 19007  df-cntz 19256  df-cmn 19719  df-psmet 21263  df-xmet 21264  df-met 21265  df-bl 21266  df-mopn 21267  df-fbas 21268  df-fg 21269  df-cnfld 21272  df-top 22788  df-topon 22805  df-topsp 22827  df-bases 22840  df-cld 22913  df-ntr 22914  df-cls 22915  df-nei 22992  df-lp 23030  df-perf 23031  df-cn 23121  df-cnp 23122  df-haus 23209  df-tx 23456  df-hmeo 23649  df-fil 23740  df-fm 23832  df-flim 23833  df-flf 23834  df-xms 24215  df-ms 24216  df-tms 24217  df-cncf 24778  df-limc 25774  df-dv 25775

This theorem is referenced by:  atantan  26840