Metamath Proof Explorer


Theorem tanregt0

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

Ref Expression
Assertion tanregt0 ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < ℜ ⁡ tan ⁡ A

Proof

Step Hyp Ref Expression
1 ax-1cn ⊢ 1 ∈ ℂ
2 recl ⊢ A ∈ ℂ → ℜ ⁡ A ∈ ℝ
3 2 adantr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ A ∈ ℝ
4 3 recnd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ A ∈ ℂ
5 3 rered ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ ℜ ⁡ A = ℜ ⁡ A
6 neghalfpire ⊢ − π 2 ∈ ℝ
7 6 rexri ⊢ − π 2 ∈ ℝ *
8 0re ⊢ 0 ∈ ℝ
9 pirp ⊢ π ∈ ℝ +
10 rphalfcl ⊢ π ∈ ℝ + → π 2 ∈ ℝ +
11 rpgt0 ⊢ π 2 ∈ ℝ + → 0 < π 2
12 9 10 11 mp2b ⊢ 0 < π 2
13 halfpire ⊢ π 2 ∈ ℝ
14 lt0neg2 ⊢ π 2 ∈ ℝ → 0 < π 2 ↔ − π 2 < 0
15 13 14 ax-mp ⊢ 0 < π 2 ↔ − π 2 < 0
16 12 15 mpbi ⊢ − π 2 < 0
17 6 8 16 ltleii ⊢ − π 2 ≤ 0
18 iooss1 ⊢ − π 2 ∈ ℝ * ∧ − π 2 ≤ 0 → 0 π 2 ⊆ − π 2 π 2
19 7 17 18 mp2an ⊢ 0 π 2 ⊆ − π 2 π 2
20 simpr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ A ∈ 0 π 2
21 19 20 sselid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ A ∈ − π 2 π 2
22 5 21 eqeltrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ ℜ ⁡ A ∈ − π 2 π 2
23 cosne0 ⊢ ℜ ⁡ A ∈ ℂ ∧ ℜ ⁡ ℜ ⁡ A ∈ − π 2 π 2 → cos ⁡ ℜ ⁡ A ≠ 0
24 4 22 23 syl2anc ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ ℜ ⁡ A ≠ 0
25 4 24 tancld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ∈ ℂ
26 ax-icn ⊢ i ∈ ℂ
27 imcl ⊢ A ∈ ℂ → ℑ ⁡ A ∈ ℝ
28 27 adantr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ A ∈ ℝ
29 28 recnd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ A ∈ ℂ
30 mulcl ⊢ i ∈ ℂ ∧ ℑ ⁡ A ∈ ℂ → i ⁢ ℑ ⁡ A ∈ ℂ
31 26 29 30 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → i ⁢ ℑ ⁡ A ∈ ℂ
32 rpcoshcl ⊢ ℑ ⁡ A ∈ ℝ → cos ⁡ i ⁢ ℑ ⁡ A ∈ ℝ +
33 28 32 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ i ⁢ ℑ ⁡ A ∈ ℝ +
34 33 rpne0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ i ⁢ ℑ ⁡ A ≠ 0
35 31 34 tancld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
36 25 35 mulcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
37 subcl ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
38 1 36 37 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
39 replim ⊢ A ∈ ℂ → A = ℜ ⁡ A + i ⁢ ℑ ⁡ A
40 39 adantr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → A = ℜ ⁡ A + i ⁢ ℑ ⁡ A
41 40 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ A = cos ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A
42 cosne0 ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ − π 2 π 2 → cos ⁡ A ≠ 0
43 21 42 syldan ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ A ≠ 0
44 41 43 eqnetrrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A ≠ 0
45 tanaddlem ⊢ ℜ ⁡ A ∈ ℂ ∧ i ⁢ ℑ ⁡ A ∈ ℂ ∧ cos ⁡ ℜ ⁡ A ≠ 0 ∧ cos ⁡ i ⁢ ℑ ⁡ A ≠ 0 → cos ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A ≠ 0 ↔ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 1
46 4 31 24 34 45 syl22anc ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → cos ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A ≠ 0 ↔ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 1
47 44 46 mpbid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 1
48 47 necomd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 ≠ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
49 subeq0 ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 0 ↔ 1 = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
50 49 necon3bid ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 0 ↔ 1 ≠ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
51 1 36 50 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 0 ↔ 1 ≠ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
52 48 51 mpbird ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 0
53 38 52 absrpcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℝ +
54 2z ⊢ 2 ∈ ℤ
55 rpexpcl ⊢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℝ + ∧ 2 ∈ ℤ → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℝ +
56 53 54 55 sylancl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℝ +
57 56 rprecred ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℝ
58 38 cjcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ∈ ℂ
59 25 35 addcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
60 58 59 mulcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ
61 60 recld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A ∈ ℝ
62 56 rpreccld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℝ +
63 62 rpgt0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2
64 3 24 retancld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ∈ ℝ
65 1re ⊢ 1 ∈ ℝ
66 retanhcl ⊢ ℑ ⁡ A ∈ ℝ → tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ
67 28 66 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ
68 67 resqcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℝ
69 resubcl ⊢ 1 ∈ ℝ ∧ tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℝ → 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℝ
70 65 68 69 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℝ
71 tanrpcl ⊢ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ∈ ℝ +
72 71 adantl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ∈ ℝ +
73 72 rpgt0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < tan ⁡ ℜ ⁡ A
74 absresq ⊢ tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ → tan ⁡ i ⁢ ℑ ⁡ A i 2 = tan ⁡ i ⁢ ℑ ⁡ A i 2
75 67 74 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 = tan ⁡ i ⁢ ℑ ⁡ A i 2
76 tanhbnd ⊢ ℑ ⁡ A ∈ ℝ → tan ⁡ i ⁢ ℑ ⁡ A i ∈ − 1 1
77 28 76 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i ∈ − 1 1
78 eliooord ⊢ tan ⁡ i ⁢ ℑ ⁡ A i ∈ − 1 1 → − 1 < tan ⁡ i ⁢ ℑ ⁡ A i ∧ tan ⁡ i ⁢ ℑ ⁡ A i < 1
79 77 78 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − 1 < tan ⁡ i ⁢ ℑ ⁡ A i ∧ tan ⁡ i ⁢ ℑ ⁡ A i < 1
80 abslt ⊢ tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ ∧ 1 ∈ ℝ → tan ⁡ i ⁢ ℑ ⁡ A i < 1 ↔ − 1 < tan ⁡ i ⁢ ℑ ⁡ A i ∧ tan ⁡ i ⁢ ℑ ⁡ A i < 1
81 67 65 80 sylancl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i < 1 ↔ − 1 < tan ⁡ i ⁢ ℑ ⁡ A i ∧ tan ⁡ i ⁢ ℑ ⁡ A i < 1
82 79 81 mpbird ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i < 1
83 67 recnd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℂ
84 83 abscld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ
85 65 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 ∈ ℝ
86 83 absge0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 ≤ tan ⁡ i ⁢ ℑ ⁡ A i
87 0le1 ⊢ 0 ≤ 1
88 87 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 ≤ 1
89 84 85 86 88 lt2sqd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i < 1 ↔ tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1 2
90 82 89 mpbid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1 2
91 sq1 ⊢ 1 2 = 1
92 90 91 breqtrdi ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1
93 75 92 eqbrtrrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1
94 posdif ⊢ tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℝ ∧ 1 ∈ ℝ → tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1 ↔ 0 < 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2
95 68 65 94 sylancl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 < 1 ↔ 0 < 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2
96 93 95 mpbid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2
97 64 70 73 96 mulgt0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < tan ⁡ ℜ ⁡ A ⁢ 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2
98 38 recjd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ = ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
99 resub ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = ℜ ⁡ 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
100 1 36 99 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = ℜ ⁡ 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
101 re1 ⊢ ℜ ⁡ 1 = 1
102 101 oveq1i ⊢ ℜ ⁡ 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
103 64 35 remul2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A
104 negicn ⊢ − i ∈ ℂ
105 104 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − i ∈ ℂ
106 ine0 ⊢ i ≠ 0
107 26 106 negne0i ⊢ − i ≠ 0
108 107 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − i ≠ 0
109 35 105 108 divcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A − i ∈ ℂ
110 imre ⊢ tan ⁡ i ⁢ ℑ ⁡ A − i ∈ ℂ → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A − i = ℜ ⁡ − i ⁢ tan ⁡ i ⁢ ℑ ⁡ A − i
111 109 110 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A − i = ℜ ⁡ − i ⁢ tan ⁡ i ⁢ ℑ ⁡ A − i
112 26 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → i ∈ ℂ
113 106 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → i ≠ 0
114 35 112 113 divneg2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ i ⁢ ℑ ⁡ A − i
115 67 renegcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ
116 114 115 eqeltrrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A − i ∈ ℝ
117 116 reim0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A − i = 0
118 35 105 108 divcan2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − i ⁢ tan ⁡ i ⁢ ℑ ⁡ A − i = tan ⁡ i ⁢ ℑ ⁡ A
119 118 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ − i ⁢ tan ⁡ i ⁢ ℑ ⁡ A − i = ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A
120 111 117 119 3eqtr3rd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = 0
121 120 oveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⋅ 0
122 25 mul01d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⋅ 0 = 0
123 103 121 122 3eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 0
124 123 oveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 − 0
125 1m0e1 ⊢ 1 − 0 = 1
126 124 125 eqtrdi ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1
127 102 126 eqtrid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − ℜ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1
128 98 100 127 3eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ = 1
129 35 112 113 divcan2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ i ⁢ ℑ ⁡ A
130 129 oveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A + i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
131 130 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ ℜ ⁡ A + i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
132 64 67 crred ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ ℜ ⁡ A + i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ ℜ ⁡ A
133 131 132 eqtr3d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A
134 128 133 oveq12d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = 1 ⁢ tan ⁡ ℜ ⁡ A
135 mulcom ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ∈ ℂ → 1 ⁢ tan ⁡ ℜ ⁡ A = tan ⁡ ℜ ⁡ A ⋅ 1
136 1 25 135 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 ⁢ tan ⁡ ℜ ⁡ A = tan ⁡ ℜ ⁡ A ⋅ 1
137 134 136 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⋅ 1
138 25 83 83 mulassd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
139 38 imcjd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ = − ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
140 imsub ⊢ 1 ∈ ℂ ∧ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = ℑ ⁡ 1 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
141 1 36 140 sylancr ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = ℑ ⁡ 1 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
142 im1 ⊢ ℑ ⁡ 1 = 0
143 142 oveq1i ⊢ ℑ ⁡ 1 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 0 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
144 df-neg ⊢ − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 0 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
145 143 144 eqtr4i ⊢ ℑ ⁡ 1 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
146 64 35 immul2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A
147 imval ⊢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A i
148 35 147 syl ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A i
149 67 rered ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ i ⁢ ℑ ⁡ A i
150 148 149 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ i ⁢ ℑ ⁡ A i
151 150 oveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ ℑ ⁡ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
152 146 151 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
153 152 negeqd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
154 145 153 eqtrid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − ℑ ⁡ tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
155 141 154 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
156 155 negeqd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = − − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
157 64 67 remulcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℝ
158 157 recnd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ∈ ℂ
159 158 negnegd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → − − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
160 139 156 159 3eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
161 130 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ ℜ ⁡ A + i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
162 64 67 crimd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ ℜ ⁡ A + i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i = tan ⁡ i ⁢ ℑ ⁡ A i
163 161 162 eqtr3d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ i ⁢ ℑ ⁡ A i
164 160 163 oveq12d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
165 83 sqvald ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 = tan ⁡ i ⁢ ℑ ⁡ A i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
166 165 oveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i 2 = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i ⁢ tan ⁡ i ⁢ ℑ ⁡ A i
167 138 164 166 3eqtr4d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i 2
168 137 167 oveq12d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A − ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⋅ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i 2
169 58 59 remuld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℜ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A − ℑ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ ℑ ⁡ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
170 1 a1i ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 ∈ ℂ
171 83 sqcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ i ⁢ ℑ ⁡ A i 2 ∈ ℂ
172 25 170 171 subdid ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A ⁢ 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2 = tan ⁡ ℜ ⁡ A ⋅ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A i 2
173 168 169 172 3eqtr4d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A ⁢ 1 − tan ⁡ i ⁢ ℑ ⁡ A i 2
174 97 173 breqtrrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
175 57 61 63 174 mulgt0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
176 40 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ A = tan ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A
177 tanadd ⊢ ℜ ⁡ A ∈ ℂ ∧ i ⁢ ℑ ⁡ A ∈ ℂ ∧ cos ⁡ ℜ ⁡ A ≠ 0 ∧ cos ⁡ i ⁢ ℑ ⁡ A ≠ 0 ∧ cos ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A ≠ 0 → tan ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
178 4 31 24 34 44 177 syl23anc ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A + i ⁢ ℑ ⁡ A = tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A
179 recval ⊢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℂ ∧ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ≠ 0 → 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2
180 38 52 179 syl2anc ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2
181 180 oveq1d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
182 59 38 52 divrec2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
183 38 abscld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ∈ ℝ
184 183 resqcld ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℝ
185 184 recnd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ∈ ℂ
186 56 rpne0d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ≠ 0
187 58 59 185 186 div23d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
188 181 182 187 3eqtr4d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2
189 176 178 188 3eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ A = 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2
190 60 185 186 divrec2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 = 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
191 189 190 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → tan ⁡ A = 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
192 191 fveq2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ A = ℜ ⁡ 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
193 57 60 remul2d ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A = 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
194 192 193 eqtrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → ℜ ⁡ tan ⁡ A = 1 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A 2 ⁢ ℜ ⁡ 1 − tan ⁡ ℜ ⁡ A ⁢ tan ⁡ i ⁢ ℑ ⁡ A ‾ ⁢ tan ⁡ ℜ ⁡ A + tan ⁡ i ⁢ ℑ ⁡ A
195 175 194 breqtrrd ⊢ A ∈ ℂ ∧ ℜ ⁡ A ∈ 0 π 2 → 0 < ℜ ⁡ tan ⁡ A