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

Theorem atans2 26416
Description: It suffices to show that 1 − i𝐴 and 1 + i𝐴 are in the continuity domain of log to show that 𝐴 is in the continuity domain of arctangent. (Contributed by Mario Carneiro, 7-Apr-2015.)
Hypotheses
Ref Expression
atansopn.d 𝐷 = (ℂ ∖ (-∞(,]0))
atansopn.s 𝑆 = {𝑦 ∈ ℂ ∣ (1 + (𝑦↑2)) ∈ 𝐷}
Assertion
Ref Expression
atans2 (𝐴𝑆 ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷))
Distinct variable groups:   𝑦,𝐴   𝑦,𝐷
Allowed substitution hint:   𝑆(𝑦)

Proof of Theorem atans2
StepHypRef Expression
1 sqcl 14079 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (𝐴↑2) ∈ ℂ)
21adantr 482 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) ∈ ℂ)
32sqsqrtd 15382 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((√‘(𝐴↑2))↑2) = (𝐴↑2))
43eqcomd 2739 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) = ((√‘(𝐴↑2))↑2))
52sqrtcld 15380 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘(𝐴↑2)) ∈ ℂ)
6 sqeqor 14176 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → ((𝐴↑2) = ((√‘(𝐴↑2))↑2) ↔ (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2)))))
75, 6syldan 592 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((𝐴↑2) = ((√‘(𝐴↑2))↑2) ↔ (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2)))))
84, 7mpbid 231 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2))))
9 1re 11210 . . . . . . . . . . . . . 14 1 ∈ ℝ
109a1i 11 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ∈ ℝ)
112negnegd 11558 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → --(𝐴↑2) = (𝐴↑2))
1211fveq2d 6892 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘--(𝐴↑2)) = (√‘(𝐴↑2)))
13 ax-1cn 11164 . . . . . . . . . . . . . . . . . . . . 21 1 ∈ ℂ
14 pncan2 11463 . . . . . . . . . . . . . . . . . . . . 21 ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → ((1 + (𝐴↑2)) − 1) = (𝐴↑2))
1513, 2, 14sylancr 588 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) − 1) = (𝐴↑2))
16 simpr 486 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (𝐴↑2)) ∈ (-∞(,]0))
17 mnfxr 11267 . . . . . . . . . . . . . . . . . . . . . . . 24 -∞ ∈ ℝ*
18 0re 11212 . . . . . . . . . . . . . . . . . . . . . . . 24 0 ∈ ℝ
19 elioc2 13383 . . . . . . . . . . . . . . . . . . . . . . . 24 ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ) → ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0)))
2017, 18, 19mp2an 691 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0))
2116, 20sylib 217 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0))
2221simp1d 1143 . . . . . . . . . . . . . . . . . . . . 21 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (𝐴↑2)) ∈ ℝ)
23 resubcl 11520 . . . . . . . . . . . . . . . . . . . . 21 (((1 + (𝐴↑2)) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 + (𝐴↑2)) − 1) ∈ ℝ)
2422, 9, 23sylancl 587 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) − 1) ∈ ℝ)
2515, 24eqeltrrd 2835 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) ∈ ℝ)
2625renegcld 11637 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(𝐴↑2) ∈ ℝ)
27 0red 11213 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
28 0le1 11733 . . . . . . . . . . . . . . . . . . . 20 0 ≤ 1
2928a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ 1)
30 subneg 11505 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
3113, 2, 30sylancr 588 . . . . . . . . . . . . . . . . . . . . 21 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
3221simp3d 1145 . . . . . . . . . . . . . . . . . . . . 21 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (𝐴↑2)) ≤ 0)
3331, 32eqbrtrd 5169 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(𝐴↑2)) ≤ 0)
34 suble0 11724 . . . . . . . . . . . . . . . . . . . . 21 ((1 ∈ ℝ ∧ -(𝐴↑2) ∈ ℝ) → ((1 − -(𝐴↑2)) ≤ 0 ↔ 1 ≤ -(𝐴↑2)))
359, 26, 34sylancr 588 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − -(𝐴↑2)) ≤ 0 ↔ 1 ≤ -(𝐴↑2)))
3633, 35mpbid 231 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ≤ -(𝐴↑2))
3727, 10, 26, 29, 36letrd 11367 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ -(𝐴↑2))
3826, 37sqrtnegd 15364 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘--(𝐴↑2)) = (i · (√‘-(𝐴↑2))))
3912, 38eqtr3d 2775 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘(𝐴↑2)) = (i · (√‘-(𝐴↑2))))
4039oveq2d 7420 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) = (i · (i · (√‘-(𝐴↑2)))))
41 ax-icn 11165 . . . . . . . . . . . . . . . . 17 i ∈ ℂ
4241a1i 11 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → i ∈ ℂ)
4326, 37resqrtcld 15360 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘-(𝐴↑2)) ∈ ℝ)
4443recnd 11238 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘-(𝐴↑2)) ∈ ℂ)
4542, 42, 44mulassd 11233 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((i · i) · (√‘-(𝐴↑2))) = (i · (i · (√‘-(𝐴↑2)))))
46 ixi 11839 . . . . . . . . . . . . . . . . 17 (i · i) = -1
4746oveq1i 7414 . . . . . . . . . . . . . . . 16 ((i · i) · (√‘-(𝐴↑2))) = (-1 · (√‘-(𝐴↑2)))
4844mulm1d 11662 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (-1 · (√‘-(𝐴↑2))) = -(√‘-(𝐴↑2)))
4947, 48eqtrid 2785 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((i · i) · (√‘-(𝐴↑2))) = -(√‘-(𝐴↑2)))
5040, 45, 493eqtr2d 2779 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) = -(√‘-(𝐴↑2)))
5143renegcld 11637 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(√‘-(𝐴↑2)) ∈ ℝ)
5250, 51eqeltrd 2834 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) ∈ ℝ)
5310, 52readdcld 11239 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ∈ ℝ)
5453mnfltd 13100 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -∞ < (1 + (i · (√‘(𝐴↑2)))))
5550oveq2d 7420 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) = (1 + -(√‘-(𝐴↑2))))
56 negsub 11504 . . . . . . . . . . . . . . 15 ((1 ∈ ℂ ∧ (√‘-(𝐴↑2)) ∈ ℂ) → (1 + -(√‘-(𝐴↑2))) = (1 − (√‘-(𝐴↑2))))
5713, 44, 56sylancr 588 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + -(√‘-(𝐴↑2))) = (1 − (√‘-(𝐴↑2))))
5855, 57eqtrd 2773 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) = (1 − (√‘-(𝐴↑2))))
59 sq1 14155 . . . . . . . . . . . . . . . . 17 (1↑2) = 1
6059a1i 11 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1↑2) = 1)
6126recnd 11238 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(𝐴↑2) ∈ ℂ)
6261sqsqrtd 15382 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((√‘-(𝐴↑2))↑2) = -(𝐴↑2))
6336, 60, 623brtr4d 5179 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1↑2) ≤ ((√‘-(𝐴↑2))↑2))
6426, 37sqrtge0d 15363 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ (√‘-(𝐴↑2)))
6510, 43, 29, 64le2sqd 14216 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 ≤ (√‘-(𝐴↑2)) ↔ (1↑2) ≤ ((√‘-(𝐴↑2))↑2)))
6663, 65mpbird 257 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ≤ (√‘-(𝐴↑2)))
6710, 43suble0d 11801 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − (√‘-(𝐴↑2))) ≤ 0 ↔ 1 ≤ (√‘-(𝐴↑2))))
6866, 67mpbird 257 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (√‘-(𝐴↑2))) ≤ 0)
6958, 68eqbrtrd 5169 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ≤ 0)
70 elioc2 13383 . . . . . . . . . . . . 13 ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ) → ((1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0) ↔ ((1 + (i · (√‘(𝐴↑2)))) ∈ ℝ ∧ -∞ < (1 + (i · (√‘(𝐴↑2)))) ∧ (1 + (i · (√‘(𝐴↑2)))) ≤ 0)))
7117, 18, 70mp2an 691 . . . . . . . . . . . 12 ((1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0) ↔ ((1 + (i · (√‘(𝐴↑2)))) ∈ ℝ ∧ -∞ < (1 + (i · (√‘(𝐴↑2)))) ∧ (1 + (i · (√‘(𝐴↑2)))) ≤ 0))
7253, 54, 69, 71syl3anbrc 1344 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0))
73 oveq2 7412 . . . . . . . . . . . . 13 (𝐴 = (√‘(𝐴↑2)) → (i · 𝐴) = (i · (√‘(𝐴↑2))))
7473oveq2d 7420 . . . . . . . . . . . 12 (𝐴 = (√‘(𝐴↑2)) → (1 + (i · 𝐴)) = (1 + (i · (√‘(𝐴↑2)))))
7574eleq1d 2819 . . . . . . . . . . 11 (𝐴 = (√‘(𝐴↑2)) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ (1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0)))
7672, 75syl5ibrcom 246 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = (√‘(𝐴↑2)) → (1 + (i · 𝐴)) ∈ (-∞(,]0)))
77 mulneg2 11647 . . . . . . . . . . . . . . 15 ((i ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → (i · -(√‘(𝐴↑2))) = -(i · (√‘(𝐴↑2))))
7841, 5, 77sylancr 588 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · -(√‘(𝐴↑2))) = -(i · (√‘(𝐴↑2))))
7978oveq2d 7420 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) = (1 − -(i · (√‘(𝐴↑2)))))
80 mulcl 11190 . . . . . . . . . . . . . . 15 ((i ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → (i · (√‘(𝐴↑2))) ∈ ℂ)
8141, 5, 80sylancr 588 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) ∈ ℂ)
82 subneg 11505 . . . . . . . . . . . . . 14 ((1 ∈ ℂ ∧ (i · (√‘(𝐴↑2))) ∈ ℂ) → (1 − -(i · (√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
8313, 81, 82sylancr 588 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(i · (√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
8479, 83eqtrd 2773 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
8584, 72eqeltrd 2834 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) ∈ (-∞(,]0))
86 oveq2 7412 . . . . . . . . . . . . 13 (𝐴 = -(√‘(𝐴↑2)) → (i · 𝐴) = (i · -(√‘(𝐴↑2))))
8786oveq2d 7420 . . . . . . . . . . . 12 (𝐴 = -(√‘(𝐴↑2)) → (1 − (i · 𝐴)) = (1 − (i · -(√‘(𝐴↑2)))))
8887eleq1d 2819 . . . . . . . . . . 11 (𝐴 = -(√‘(𝐴↑2)) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ (1 − (i · -(√‘(𝐴↑2)))) ∈ (-∞(,]0)))
8985, 88syl5ibrcom 246 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = -(√‘(𝐴↑2)) → (1 − (i · 𝐴)) ∈ (-∞(,]0)))
9076, 89orim12d 964 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2))) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 − (i · 𝐴)) ∈ (-∞(,]0))))
918, 90mpd 15 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
9291orcomd 870 . . . . . . 7 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
9359a1i 11 . . . . . . . . . . 11 (𝐴 ∈ ℂ → (1↑2) = 1)
94 sqmul 14080 . . . . . . . . . . . . 13 ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → ((i · 𝐴)↑2) = ((i↑2) · (𝐴↑2)))
9541, 94mpan 689 . . . . . . . . . . . 12 (𝐴 ∈ ℂ → ((i · 𝐴)↑2) = ((i↑2) · (𝐴↑2)))
96 i2 14162 . . . . . . . . . . . . . 14 (i↑2) = -1
9796oveq1i 7414 . . . . . . . . . . . . 13 ((i↑2) · (𝐴↑2)) = (-1 · (𝐴↑2))
981mulm1d 11662 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (-1 · (𝐴↑2)) = -(𝐴↑2))
9997, 98eqtrid 2785 . . . . . . . . . . . 12 (𝐴 ∈ ℂ → ((i↑2) · (𝐴↑2)) = -(𝐴↑2))
10095, 99eqtrd 2773 . . . . . . . . . . 11 (𝐴 ∈ ℂ → ((i · 𝐴)↑2) = -(𝐴↑2))
10193, 100oveq12d 7422 . . . . . . . . . 10 (𝐴 ∈ ℂ → ((1↑2) − ((i · 𝐴)↑2)) = (1 − -(𝐴↑2)))
102 mulcl 11190 . . . . . . . . . . . 12 ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
10341, 102mpan 689 . . . . . . . . . . 11 (𝐴 ∈ ℂ → (i · 𝐴) ∈ ℂ)
104 subsq 14170 . . . . . . . . . . 11 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → ((1↑2) − ((i · 𝐴)↑2)) = ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
10513, 103, 104sylancr 588 . . . . . . . . . 10 (𝐴 ∈ ℂ → ((1↑2) − ((i · 𝐴)↑2)) = ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
10613, 1, 30sylancr 588 . . . . . . . . . 10 (𝐴 ∈ ℂ → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
107101, 105, 1063eqtr3d 2781 . . . . . . . . 9 (𝐴 ∈ ℂ → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) = (1 + (𝐴↑2)))
108107adantr 482 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) = (1 + (𝐴↑2)))
109 2cn 12283 . . . . . . . . . . . . . . . 16 2 ∈ ℂ
110109a1i 11 . . . . . . . . . . . . . . 15 (𝐴 ∈ ℂ → 2 ∈ ℂ)
11113a1i 11 . . . . . . . . . . . . . . 15 (𝐴 ∈ ℂ → 1 ∈ ℂ)
112110, 111, 103subsubd 11595 . . . . . . . . . . . . . 14 (𝐴 ∈ ℂ → (2 − (1 − (i · 𝐴))) = ((2 − 1) + (i · 𝐴)))
113 2m1e1 12334 . . . . . . . . . . . . . . 15 (2 − 1) = 1
114113oveq1i 7414 . . . . . . . . . . . . . 14 ((2 − 1) + (i · 𝐴)) = (1 + (i · 𝐴))
115112, 114eqtrdi 2789 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (2 − (1 − (i · 𝐴))) = (1 + (i · 𝐴)))
116115adantr 482 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 − (i · 𝐴))) = (1 + (i · 𝐴)))
117 2re 12282 . . . . . . . . . . . . 13 2 ∈ ℝ
118 simpr 486 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ (-∞(,]0))
119 elioc2 13383 . . . . . . . . . . . . . . . 16 ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0)))
12017, 18, 119mp2an 691 . . . . . . . . . . . . . . 15 ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0))
121118, 120sylib 217 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0))
122121simp1d 1143 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℝ)
123 resubcl 11520 . . . . . . . . . . . . 13 ((2 ∈ ℝ ∧ (1 − (i · 𝐴)) ∈ ℝ) → (2 − (1 − (i · 𝐴))) ∈ ℝ)
124117, 122, 123sylancr 588 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 − (i · 𝐴))) ∈ ℝ)
125116, 124eqeltrrd 2835 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℝ)
126125, 122remulcld 11240 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ)
127126mnfltd 13100 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
128121simp3d 1145 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ≤ 0)
129 0red 11213 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
130117a1i 11 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ∈ ℝ)
131 2pos 12311 . . . . . . . . . . . . . . 15 0 < 2
132131a1i 11 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 < 2)
133109subid1i 11528 . . . . . . . . . . . . . . . 16 (2 − 0) = 2
134122, 129, 130, 128lesub2dd 11827 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − 0) ≤ (2 − (1 − (i · 𝐴))))
135133, 134eqbrtrrid 5183 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (2 − (1 − (i · 𝐴))))
136135, 116breqtrd 5173 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (1 + (i · 𝐴)))
137129, 130, 125, 132, 136ltletrd 11370 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 < (1 + (i · 𝐴)))
138 lemul2 12063 . . . . . . . . . . . . 13 (((1 − (i · 𝐴)) ∈ ℝ ∧ 0 ∈ ℝ ∧ ((1 + (i · 𝐴)) ∈ ℝ ∧ 0 < (1 + (i · 𝐴)))) → ((1 − (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0)))
139122, 129, 125, 137, 138syl112anc 1375 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0)))
140128, 139mpbid 231 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0))
141 addcl 11188 . . . . . . . . . . . . . 14 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
14213, 103, 141sylancr 588 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (1 + (i · 𝐴)) ∈ ℂ)
143142adantr 482 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℂ)
144143mul01d 11409 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · 0) = 0)
145140, 144breqtrd 5173 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)
146 elioc2 13383 . . . . . . . . . . 11 ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ) → (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0) ↔ (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ ∧ -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∧ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)))
14717, 18, 146mp2an 691 . . . . . . . . . 10 (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0) ↔ (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ ∧ -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∧ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0))
148126, 127, 145, 147syl3anbrc 1344 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
149 simpr 486 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ (-∞(,]0))
150 elioc2 13383 . . . . . . . . . . . . . 14 ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0)))
15117, 18, 150mp2an 691 . . . . . . . . . . . . 13 ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0))
152149, 151sylib 217 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0))
153152simp1d 1143 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℝ)
154110, 111, 103subsub4d 11598 . . . . . . . . . . . . . 14 (𝐴 ∈ ℂ → ((2 − 1) − (i · 𝐴)) = (2 − (1 + (i · 𝐴))))
155113oveq1i 7414 . . . . . . . . . . . . . 14 ((2 − 1) − (i · 𝐴)) = (1 − (i · 𝐴))
156154, 155eqtr3di 2788 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (2 − (1 + (i · 𝐴))) = (1 − (i · 𝐴)))
157156adantr 482 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 + (i · 𝐴))) = (1 − (i · 𝐴)))
158 resubcl 11520 . . . . . . . . . . . . 13 ((2 ∈ ℝ ∧ (1 + (i · 𝐴)) ∈ ℝ) → (2 − (1 + (i · 𝐴))) ∈ ℝ)
159117, 153, 158sylancr 588 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 + (i · 𝐴))) ∈ ℝ)
160157, 159eqeltrrd 2835 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℝ)
161153, 160remulcld 11240 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ)
162161mnfltd 13100 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
163152simp3d 1145 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ≤ 0)
164 0red 11213 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
165117a1i 11 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ∈ ℝ)
166131a1i 11 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 < 2)
167153, 164, 165, 163lesub2dd 11827 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − 0) ≤ (2 − (1 + (i · 𝐴))))
168133, 167eqbrtrrid 5183 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (2 − (1 + (i · 𝐴))))
169168, 157breqtrd 5173 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (1 − (i · 𝐴)))
170164, 165, 160, 166, 169ltletrd 11370 . . . . . . . . . . . . 13 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 < (1 − (i · 𝐴)))
171 lemul1 12062 . . . . . . . . . . . . 13 (((1 + (i · 𝐴)) ∈ ℝ ∧ 0 ∈ ℝ ∧ ((1 − (i · 𝐴)) ∈ ℝ ∧ 0 < (1 − (i · 𝐴)))) → ((1 + (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴)))))
172153, 164, 160, 170, 171syl112anc 1375 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴)))))
173163, 172mpbid 231 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴))))
174160recnd 11238 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℂ)
175174mul02d 11408 . . . . . . . . . . 11 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (0 · (1 − (i · 𝐴))) = 0)
176173, 175breqtrd 5173 . . . . . . . . . 10 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)
177161, 162, 176, 147syl3anbrc 1344 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
178148, 177jaodan 957 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
179108, 178eqeltrrd 2835 . . . . . . 7 ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → (1 + (𝐴↑2)) ∈ (-∞(,]0))
18092, 179impbida 800 . . . . . 6 (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
181180notbid 318 . . . . 5 (𝐴 ∈ ℂ → (¬ (1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ¬ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
182 ioran 983 . . . . 5 (¬ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0)) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
183181, 182bitrdi 287 . . . 4 (𝐴 ∈ ℂ → (¬ (1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
184 addcl 11188 . . . . . 6 ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → (1 + (𝐴↑2)) ∈ ℂ)
18513, 1, 184sylancr 588 . . . . 5 (𝐴 ∈ ℂ → (1 + (𝐴↑2)) ∈ ℂ)
186 atansopn.d . . . . . . . 8 𝐷 = (ℂ ∖ (-∞(,]0))
187186eleq2i 2826 . . . . . . 7 ((1 + (𝐴↑2)) ∈ 𝐷 ↔ (1 + (𝐴↑2)) ∈ (ℂ ∖ (-∞(,]0)))
188 eldif 3957 . . . . . . 7 ((1 + (𝐴↑2)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 + (𝐴↑2)) ∈ ℂ ∧ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
189187, 188bitri 275 . . . . . 6 ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ((1 + (𝐴↑2)) ∈ ℂ ∧ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
190189baib 537 . . . . 5 ((1 + (𝐴↑2)) ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
191185, 190syl 17 . . . 4 (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
192 subcl 11455 . . . . . . 7 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
19313, 103, 192sylancr 588 . . . . . 6 (𝐴 ∈ ℂ → (1 − (i · 𝐴)) ∈ ℂ)
194186eleq2i 2826 . . . . . . . 8 ((1 − (i · 𝐴)) ∈ 𝐷 ↔ (1 − (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)))
195 eldif 3957 . . . . . . . 8 ((1 − (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 − (i · 𝐴)) ∈ ℂ ∧ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
196194, 195bitri 275 . . . . . . 7 ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ((1 − (i · 𝐴)) ∈ ℂ ∧ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
197196baib 537 . . . . . 6 ((1 − (i · 𝐴)) ∈ ℂ → ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
198193, 197syl 17 . . . . 5 (𝐴 ∈ ℂ → ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
199186eleq2i 2826 . . . . . . . 8 ((1 + (i · 𝐴)) ∈ 𝐷 ↔ (1 + (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)))
200 eldif 3957 . . . . . . . 8 ((1 + (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 + (i · 𝐴)) ∈ ℂ ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
201199, 200bitri 275 . . . . . . 7 ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ((1 + (i · 𝐴)) ∈ ℂ ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
202201baib 537 . . . . . 6 ((1 + (i · 𝐴)) ∈ ℂ → ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
203142, 202syl 17 . . . . 5 (𝐴 ∈ ℂ → ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
204198, 203anbi12d 632 . . . 4 (𝐴 ∈ ℂ → (((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
205183, 191, 2043bitr4d 311 . . 3 (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
206205pm5.32i 576 . 2 ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ 𝐷) ↔ (𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
207 atansopn.s . . 3 𝑆 = {𝑦 ∈ ℂ ∣ (1 + (𝑦↑2)) ∈ 𝐷}
208186, 207atans 26415 . 2 (𝐴𝑆 ↔ (𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ 𝐷))
209 3anass 1096 . 2 ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷) ↔ (𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
210206, 208, 2093bitr4i 303 1 (𝐴𝑆 ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 205  wa 397  wo 846  w3a 1088   = wceq 1542  wcel 2107  {crab 3433  cdif 3944   class class class wbr 5147  cfv 6540  (class class class)co 7404  cc 11104  cr 11105  0cc0 11106  1c1 11107  ici 11108   + caddc 11109   · cmul 11111  -∞cmnf 11242  *cxr 11243   < clt 11244  cle 11245  cmin 11440  -cneg 11441  2c2 12263  (,]cioc 13321  cexp 14023  csqrt 15176
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7720  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7360  df-ov 7407  df-oprab 7408  df-mpo 7409  df-om 7851  df-2nd 7971  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-sup 9433  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-ioc 13325  df-seq 13963  df-exp 14024  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179
This theorem is referenced by:  dvatan  26420
  Copyright terms: Public domain W3C validator