atans2 - Metamath Proof Explorer

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

Theorem atans2 27050

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**
Step	Hyp	Ref	Expression
1		sqcl 14142	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (𝐴↑2) ∈ ℂ)
2	1	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) ∈ ℂ)
3	2	sqsqrtd 15481	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((√‘(𝐴↑2))↑2) = (𝐴↑2))
4	3	eqcomd 2771	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) = ((√‘(𝐴↑2))↑2))
5	2	sqrtcld 15479	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘(𝐴↑2)) ∈ ℂ)
6		sqeqor 14240	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → ((𝐴↑2) = ((√‘(𝐴↑2))↑2) ↔ (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2)))))
7	5, 6	syldan 602	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((𝐴↑2) = ((√‘(𝐴↑2))↑2) ↔ (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2)))))
8	4, 7	mpbid 235	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2))))
9		1re 11196	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℝ
10	9	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ∈ ℝ)
11	2	negnegd 11548	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → --(𝐴↑2) = (𝐴↑2))
12	11	fveq2d 6875	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘--(𝐴↑2)) = (√‘(𝐴↑2)))
13		ax-1cn 11146	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 ∈ ℂ
14		pncan2 11452	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → ((1 + (𝐴↑2)) − 1) = (𝐴↑2))
15	13, 2, 14	sylancr 598	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) − 1) = (𝐴↑2))
16		mnfxr 11254	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ -∞ ∈ ℝ^*
17		0re 11198	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ 0 ∈ ℝ
18		elioc2 13424	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ) → ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0)))
19	16, 17, 18	mp2an 704	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0))
20	19	bilani 509	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) ∈ ℝ ∧ -∞ < (1 + (𝐴↑2)) ∧ (1 + (𝐴↑2)) ≤ 0))
21	20	simp1d 1158	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (𝐴↑2)) ∈ ℝ)
22		resubcl 11510	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((1 + (𝐴↑2)) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 + (𝐴↑2)) − 1) ∈ ℝ)
23	21, 9, 22	sylancl 597	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (𝐴↑2)) − 1) ∈ ℝ)
24	15, 23	eqeltrrd 2866	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴↑2) ∈ ℝ)
25	24	renegcld 11629	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(𝐴↑2) ∈ ℝ)
26		0red 11199	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
27		0le1 11725	. . . . . . . . . . . . . . . . . . . 20 ⊢ 0 ≤ 1
28	27	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ 1)
29		subneg 11495	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
30	13, 2, 29	sylancr 598	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
31	20	simp3d 1160	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (𝐴↑2)) ≤ 0)
32	30, 31	eqbrtrd 5126	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(𝐴↑2)) ≤ 0)
33		suble0 11716	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℝ ∧ -(𝐴↑2) ∈ ℝ) → ((1 − -(𝐴↑2)) ≤ 0 ↔ 1 ≤ -(𝐴↑2)))
34	9, 25, 33	sylancr 598	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − -(𝐴↑2)) ≤ 0 ↔ 1 ≤ -(𝐴↑2)))
35	32, 34	mpbid 235	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ≤ -(𝐴↑2))
36	26, 10, 25, 28, 35	letrd 11355	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ -(𝐴↑2))
37	25, 36	sqrtnegd 15461	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘--(𝐴↑2)) = (i · (√‘-(𝐴↑2))))
38	12, 37	eqtr3d 2802	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘(𝐴↑2)) = (i · (√‘-(𝐴↑2))))
39	38	oveq2d 7416	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) = (i · (i · (√‘-(𝐴↑2)))))
40		ax-icn 11147	. . . . . . . . . . . . . . . . 17 ⊢ i ∈ ℂ
41	40	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → i ∈ ℂ)
42	25, 36	resqrtcld 15457	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘-(𝐴↑2)) ∈ ℝ)
43	42	recnd 11225	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (√‘-(𝐴↑2)) ∈ ℂ)
44	41, 41, 43	mulassd 11220	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((i · i) · (√‘-(𝐴↑2))) = (i · (i · (√‘-(𝐴↑2)))))
45		ixi 11831	. . . . . . . . . . . . . . . . 17 ⊢ (i · i) = -1
46	45	oveq1i 7410	. . . . . . . . . . . . . . . 16 ⊢ ((i · i) · (√‘-(𝐴↑2))) = (-1 · (√‘-(𝐴↑2)))
47	43	mulm1d 11654	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (-1 · (√‘-(𝐴↑2))) = -(√‘-(𝐴↑2)))
48	46, 47	eqtrid 2812	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((i · i) · (√‘-(𝐴↑2))) = -(√‘-(𝐴↑2)))
49	39, 44, 48	3eqtr2d 2806	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) = -(√‘-(𝐴↑2)))
50	42	renegcld 11629	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(√‘-(𝐴↑2)) ∈ ℝ)
51	49, 50	eqeltrd 2865	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) ∈ ℝ)
52	10, 51	readdcld 11226	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ∈ ℝ)
53	52	mnfltd 13137	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -∞ < (1 + (i · (√‘(𝐴↑2)))))
54	49	oveq2d 7416	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) = (1 + -(√‘-(𝐴↑2))))
55		negsub 11494	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℂ ∧ (√‘-(𝐴↑2)) ∈ ℂ) → (1 + -(√‘-(𝐴↑2))) = (1 − (√‘-(𝐴↑2))))
56	13, 43, 55	sylancr 598	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + -(√‘-(𝐴↑2))) = (1 − (√‘-(𝐴↑2))))
57	54, 56	eqtrd 2800	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) = (1 − (√‘-(𝐴↑2))))
58		sq1 14219	. . . . . . . . . . . . . . . . 17 ⊢ (1↑2) = 1
59	58	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1↑2) = 1)
60	25	recnd 11225	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → -(𝐴↑2) ∈ ℂ)
61	60	sqsqrtd 15481	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((√‘-(𝐴↑2))↑2) = -(𝐴↑2))
62	35, 59, 61	3brtr4d 5136	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1↑2) ≤ ((√‘-(𝐴↑2))↑2))
63	25, 36	sqrtge0d 15460	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 0 ≤ (√‘-(𝐴↑2)))
64	10, 42, 28, 63	le2sqd 14281	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 ≤ (√‘-(𝐴↑2)) ↔ (1↑2) ≤ ((√‘-(𝐴↑2))↑2)))
65	62, 64	mpbird 260	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → 1 ≤ (√‘-(𝐴↑2)))
66	10, 42	suble0d 11793	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − (√‘-(𝐴↑2))) ≤ 0 ↔ 1 ≤ (√‘-(𝐴↑2))))
67	65, 66	mpbird 260	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (√‘-(𝐴↑2))) ≤ 0)
68	57, 67	eqbrtrd 5126	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ≤ 0)
69		elioc2 13424	. . . . . . . . . . . . 13 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ) → ((1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0) ↔ ((1 + (i · (√‘(𝐴↑2)))) ∈ ℝ ∧ -∞ < (1 + (i · (√‘(𝐴↑2)))) ∧ (1 + (i · (√‘(𝐴↑2)))) ≤ 0)))
70	16, 17, 69	mp2an 704	. . . . . . . . . . . 12 ⊢ ((1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0) ↔ ((1 + (i · (√‘(𝐴↑2)))) ∈ ℝ ∧ -∞ < (1 + (i · (√‘(𝐴↑2)))) ∧ (1 + (i · (√‘(𝐴↑2)))) ≤ 0))
71	52, 53, 68, 70	syl3anbrc 1360	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0))
72		oveq2 7408	. . . . . . . . . . . . 13 ⊢ (𝐴 = (√‘(𝐴↑2)) → (i · 𝐴) = (i · (√‘(𝐴↑2))))
73	72	oveq2d 7416	. . . . . . . . . . . 12 ⊢ (𝐴 = (√‘(𝐴↑2)) → (1 + (i · 𝐴)) = (1 + (i · (√‘(𝐴↑2)))))
74	73	eleq1d 2850	. . . . . . . . . . 11 ⊢ (𝐴 = (√‘(𝐴↑2)) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ (1 + (i · (√‘(𝐴↑2)))) ∈ (-∞(,]0)))
75	71, 74	syl5ibrcom 250	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = (√‘(𝐴↑2)) → (1 + (i · 𝐴)) ∈ (-∞(,]0)))
76		mulneg2 11639	. . . . . . . . . . . . . . 15 ⊢ ((i ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → (i · -(√‘(𝐴↑2))) = -(i · (√‘(𝐴↑2))))
77	40, 5, 76	sylancr 598	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · -(√‘(𝐴↑2))) = -(i · (√‘(𝐴↑2))))
78	77	oveq2d 7416	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) = (1 − -(i · (√‘(𝐴↑2)))))
79		mulcl 11172	. . . . . . . . . . . . . . 15 ⊢ ((i ∈ ℂ ∧ (√‘(𝐴↑2)) ∈ ℂ) → (i · (√‘(𝐴↑2))) ∈ ℂ)
80	40, 5, 79	sylancr 598	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (i · (√‘(𝐴↑2))) ∈ ℂ)
81		subneg 11495	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℂ ∧ (i · (√‘(𝐴↑2))) ∈ ℂ) → (1 − -(i · (√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
82	13, 80, 81	sylancr 598	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − -(i · (√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
83	78, 82	eqtrd 2800	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) = (1 + (i · (√‘(𝐴↑2)))))
84	83, 71	eqeltrd 2865	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (1 − (i · -(√‘(𝐴↑2)))) ∈ (-∞(,]0))
85		oveq2 7408	. . . . . . . . . . . . 13 ⊢ (𝐴 = -(√‘(𝐴↑2)) → (i · 𝐴) = (i · -(√‘(𝐴↑2))))
86	85	oveq2d 7416	. . . . . . . . . . . 12 ⊢ (𝐴 = -(√‘(𝐴↑2)) → (1 − (i · 𝐴)) = (1 − (i · -(√‘(𝐴↑2)))))
87	86	eleq1d 2850	. . . . . . . . . . 11 ⊢ (𝐴 = -(√‘(𝐴↑2)) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ (1 − (i · -(√‘(𝐴↑2)))) ∈ (-∞(,]0)))
88	84, 87	syl5ibrcom 250	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → (𝐴 = -(√‘(𝐴↑2)) → (1 − (i · 𝐴)) ∈ (-∞(,]0)))
89	75, 88	orim12d 979	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((𝐴 = (√‘(𝐴↑2)) ∨ 𝐴 = -(√‘(𝐴↑2))) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 − (i · 𝐴)) ∈ (-∞(,]0))))
90	8, 89	mpd 16	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
91	90	orcomd 884	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
92	58	a1i 11	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (1↑2) = 1)
93		sqmul 14143	. . . . . . . . . . . . 13 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → ((i · 𝐴)↑2) = ((i↑2) · (𝐴↑2)))
94	40, 93	mpan 702	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((i · 𝐴)↑2) = ((i↑2) · (𝐴↑2)))
95		i2 14226	. . . . . . . . . . . . . 14 ⊢ (i↑2) = -1
96	95	oveq1i 7410	. . . . . . . . . . . . 13 ⊢ ((i↑2) · (𝐴↑2)) = (-1 · (𝐴↑2))
97	1	mulm1d 11654	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (-1 · (𝐴↑2)) = -(𝐴↑2))
98	96, 97	eqtrid 2812	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((i↑2) · (𝐴↑2)) = -(𝐴↑2))
99	94, 98	eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ((i · 𝐴)↑2) = -(𝐴↑2))
100	92, 99	oveq12d 7418	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → ((1↑2) − ((i · 𝐴)↑2)) = (1 − -(𝐴↑2)))
101		mulcl 11172	. . . . . . . . . . . 12 ⊢ ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
102	40, 101	mpan 702	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (i · 𝐴) ∈ ℂ)
103		subsq 14234	. . . . . . . . . . 11 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → ((1↑2) − ((i · 𝐴)↑2)) = ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
104	13, 102, 103	sylancr 598	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → ((1↑2) − ((i · 𝐴)↑2)) = ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
105	13, 1, 29	sylancr 598	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (1 − -(𝐴↑2)) = (1 + (𝐴↑2)))
106	100, 104, 105	3eqtr3d 2808	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) = (1 + (𝐴↑2)))
107	106	adantr 485	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) = (1 + (𝐴↑2)))
108		2cn 12304	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℂ
109	108	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → 2 ∈ ℂ)
110	13	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → 1 ∈ ℂ)
111	109, 110, 102	subsubd 11585	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (2 − (1 − (i · 𝐴))) = ((2 − 1) + (i · 𝐴)))
112		2m1e1 12353	. . . . . . . . . . . . . . 15 ⊢ (2 − 1) = 1
113	112	oveq1i 7410	. . . . . . . . . . . . . 14 ⊢ ((2 − 1) + (i · 𝐴)) = (1 + (i · 𝐴))
114	111, 113	eqtrdi 2816	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (2 − (1 − (i · 𝐴))) = (1 + (i · 𝐴)))
115	114	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 − (i · 𝐴))) = (1 + (i · 𝐴)))
116		2re 12303	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
117		elioc2 13424	. . . . . . . . . . . . . . . 16 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ) → ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0)))
118	16, 17, 117	mp2an 704	. . . . . . . . . . . . . . 15 ⊢ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0))
119	118	bilani 509	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 − (i · 𝐴)) ∧ (1 − (i · 𝐴)) ≤ 0))
120	119	simp1d 1158	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℝ)
121		resubcl 11510	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (1 − (i · 𝐴)) ∈ ℝ) → (2 − (1 − (i · 𝐴))) ∈ ℝ)
122	116, 120, 121	sylancr 598	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 − (i · 𝐴))) ∈ ℝ)
123	115, 122	eqeltrrd 2866	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℝ)
124	123, 120	remulcld 11227	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ)
125	124	mnfltd 13137	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
126	119	simp3d 1160	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ≤ 0)
127		0red 11199	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
128	116	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ∈ ℝ)
129		2pos 12333	. . . . . . . . . . . . . . 15 ⊢ 0 < 2
130	129	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 < 2)
131	108	subid1i 11518	. . . . . . . . . . . . . . . 16 ⊢ (2 − 0) = 2
132	120, 127, 128, 126	lesub2dd 11819	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (2 − 0) ≤ (2 − (1 − (i · 𝐴))))
133	131, 132	eqbrtrrid 5140	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (2 − (1 − (i · 𝐴))))
134	133, 115	breqtrd 5130	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (1 + (i · 𝐴)))
135	127, 128, 123, 130, 134	ltletrd 11358	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → 0 < (1 + (i · 𝐴)))
136		lemul2 12056	. . . . . . . . . . . . 13 ⊢ (((1 − (i · 𝐴)) ∈ ℝ ∧ 0 ∈ ℝ ∧ ((1 + (i · 𝐴)) ∈ ℝ ∧ 0 < (1 + (i · 𝐴)))) → ((1 − (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0)))
137	120, 127, 123, 135, 136	syl112anc 1397	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 − (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0)))
138	126, 137	mpbid 235	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ ((1 + (i · 𝐴)) · 0))
139		addcl 11170	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
140	13, 102, 139	sylancr 598	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (1 + (i · 𝐴)) ∈ ℂ)
141	140	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℂ)
142	141	mul01d 11397	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · 0) = 0)
143	138, 142	breqtrd 5130	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)
144		elioc2 13424	. . . . . . . . . . 11 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ) → (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0) ↔ (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ ∧ -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∧ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)))
145	16, 17, 144	mp2an 704	. . . . . . . . . 10 ⊢ (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0) ↔ (((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ ∧ -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∧ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0))
146	124, 125, 143, 145	syl3anbrc 1360	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
147		elioc2 13424	. . . . . . . . . . . . . 14 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ) → ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0)))
148	16, 17, 147	mp2an 704	. . . . . . . . . . . . 13 ⊢ ((1 + (i · 𝐴)) ∈ (-∞(,]0) ↔ ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0))
149	148	bilani 509	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ∈ ℝ ∧ -∞ < (1 + (i · 𝐴)) ∧ (1 + (i · 𝐴)) ≤ 0))
150	149	simp1d 1158	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ∈ ℝ)
151	109, 110, 102	subsub4d 11588	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → ((2 − 1) − (i · 𝐴)) = (2 − (1 + (i · 𝐴))))
152	112	oveq1i 7410	. . . . . . . . . . . . . 14 ⊢ ((2 − 1) − (i · 𝐴)) = (1 − (i · 𝐴))
153	151, 152	eqtr3di 2815	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (2 − (1 + (i · 𝐴))) = (1 − (i · 𝐴)))
154	153	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 + (i · 𝐴))) = (1 − (i · 𝐴)))
155		resubcl 11510	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (1 + (i · 𝐴)) ∈ ℝ) → (2 − (1 + (i · 𝐴))) ∈ ℝ)
156	116, 150, 155	sylancr 598	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − (1 + (i · 𝐴))) ∈ ℝ)
157	154, 156	eqeltrrd 2866	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℝ)
158	150, 157	remulcld 11227	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ ℝ)
159	158	mnfltd 13137	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → -∞ < ((1 + (i · 𝐴)) · (1 − (i · 𝐴))))
160	149	simp3d 1160	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 + (i · 𝐴)) ≤ 0)
161		0red 11199	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 ∈ ℝ)
162	116	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ∈ ℝ)
163	129	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 < 2)
164	150, 161, 162, 160	lesub2dd 11819	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (2 − 0) ≤ (2 − (1 + (i · 𝐴))))
165	131, 164	eqbrtrrid 5140	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (2 − (1 + (i · 𝐴))))
166	165, 154	breqtrd 5130	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 2 ≤ (1 − (i · 𝐴)))
167	161, 162, 157, 163, 166	ltletrd 11358	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → 0 < (1 − (i · 𝐴)))
168		lemul1 12055	. . . . . . . . . . . . 13 ⊢ (((1 + (i · 𝐴)) ∈ ℝ ∧ 0 ∈ ℝ ∧ ((1 − (i · 𝐴)) ∈ ℝ ∧ 0 < (1 − (i · 𝐴)))) → ((1 + (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴)))))
169	150, 161, 157, 167, 168	syl112anc 1397	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) ≤ 0 ↔ ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴)))))
170	160, 169	mpbid 235	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ (0 · (1 − (i · 𝐴))))
171	157	recnd 11225	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (1 − (i · 𝐴)) ∈ ℂ)
172	171	mul02d 11396	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → (0 · (1 − (i · 𝐴))) = 0)
173	170, 172	breqtrd 5130	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ≤ 0)
174	158, 159, 173, 145	syl3anbrc 1360	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (i · 𝐴)) ∈ (-∞(,]0)) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
175	146, 174	jaodan 972	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → ((1 + (i · 𝐴)) · (1 − (i · 𝐴))) ∈ (-∞(,]0))
176	107, 175	eqeltrrd 2866	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))) → (1 + (𝐴↑2)) ∈ (-∞(,]0))
177	91, 176	impbida 812	. . . . . 6 ⊢ (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
178	177	notbid 321	. . . . 5 ⊢ (𝐴 ∈ ℂ → (¬ (1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ ¬ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
179		ioran 999	. . . . 5 ⊢ (¬ ((1 − (i · 𝐴)) ∈ (-∞(,]0) ∨ (1 + (i · 𝐴)) ∈ (-∞(,]0)) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
180	178, 179	bitrdi 290	. . . 4 ⊢ (𝐴 ∈ ℂ → (¬ (1 + (𝐴↑2)) ∈ (-∞(,]0) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
181		addcl 11170	. . . . . 6 ⊢ ((1 ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → (1 + (𝐴↑2)) ∈ ℂ)
182	13, 1, 181	sylancr 598	. . . . 5 ⊢ (𝐴 ∈ ℂ → (1 + (𝐴↑2)) ∈ ℂ)
183		atansopn.d	. . . . . . . 8 ⊢ 𝐷 = (ℂ ∖ (-∞(,]0))
184	183	eleq2i 2857	. . . . . . 7 ⊢ ((1 + (𝐴↑2)) ∈ 𝐷 ↔ (1 + (𝐴↑2)) ∈ (ℂ ∖ (-∞(,]0)))
185		eldif 3917	. . . . . . 7 ⊢ ((1 + (𝐴↑2)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 + (𝐴↑2)) ∈ ℂ ∧ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
186	184, 185	bitri 278	. . . . . 6 ⊢ ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ((1 + (𝐴↑2)) ∈ ℂ ∧ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
187	186	baib 544	. . . . 5 ⊢ ((1 + (𝐴↑2)) ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
188	182, 187	syl 18	. . . 4 ⊢ (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ¬ (1 + (𝐴↑2)) ∈ (-∞(,]0)))
189		subcl 11444	. . . . . . 7 ⊢ ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
190	13, 102, 189	sylancr 598	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (1 − (i · 𝐴)) ∈ ℂ)
191	183	eleq2i 2857	. . . . . . . 8 ⊢ ((1 − (i · 𝐴)) ∈ 𝐷 ↔ (1 − (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)))
192		eldif 3917	. . . . . . . 8 ⊢ ((1 − (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 − (i · 𝐴)) ∈ ℂ ∧ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
193	191, 192	bitri 278	. . . . . . 7 ⊢ ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ((1 − (i · 𝐴)) ∈ ℂ ∧ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
194	193	baib 544	. . . . . 6 ⊢ ((1 − (i · 𝐴)) ∈ ℂ → ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
195	190, 194	syl 18	. . . . 5 ⊢ (𝐴 ∈ ℂ → ((1 − (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 − (i · 𝐴)) ∈ (-∞(,]0)))
196	183	eleq2i 2857	. . . . . . . 8 ⊢ ((1 + (i · 𝐴)) ∈ 𝐷 ↔ (1 + (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)))
197		eldif 3917	. . . . . . . 8 ⊢ ((1 + (i · 𝐴)) ∈ (ℂ ∖ (-∞(,]0)) ↔ ((1 + (i · 𝐴)) ∈ ℂ ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
198	196, 197	bitri 278	. . . . . . 7 ⊢ ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ((1 + (i · 𝐴)) ∈ ℂ ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
199	198	baib 544	. . . . . 6 ⊢ ((1 + (i · 𝐴)) ∈ ℂ → ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
200	140, 199	syl 18	. . . . 5 ⊢ (𝐴 ∈ ℂ → ((1 + (i · 𝐴)) ∈ 𝐷 ↔ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0)))
201	195, 200	anbi12d 643	. . . 4 ⊢ (𝐴 ∈ ℂ → (((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷) ↔ (¬ (1 − (i · 𝐴)) ∈ (-∞(,]0) ∧ ¬ (1 + (i · 𝐴)) ∈ (-∞(,]0))))
202	180, 188, 201	3bitr4d 314	. . 3 ⊢ (𝐴 ∈ ℂ → ((1 + (𝐴↑2)) ∈ 𝐷 ↔ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
203	202	pm5.32i 584	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ 𝐷) ↔ (𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
204		atansopn.s	. . 3 ⊢ 𝑆 = {𝑦 ∈ ℂ ∣ (1 + (𝑦↑2)) ∈ 𝐷}
205	183, 204	atans 27049	. 2 ⊢ (𝐴 ∈ 𝑆 ↔ (𝐴 ∈ ℂ ∧ (1 + (𝐴↑2)) ∈ 𝐷))
206		3anass 1109	. 2 ⊢ ((𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷) ↔ (𝐴 ∈ ℂ ∧ ((1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷)))
207	203, 205, 206	3bitr4i 306	1 ⊢ (𝐴 ∈ 𝑆 ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ∈ 𝐷 ∧ (1 + (i · 𝐴)) ∈ 𝐷))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 ↔ wb 209 ∧ wa 400 ∨ wo 860 ∧ w3a 1101 = wceq 1563 ∈ wcel 2145 {crab 3417 ∖ cdif 3904 class class class wbr 5104 ‘cfv 6525 (class class class)co 7400 ℂcc 11086 ℝcr 11087 0cc0 11088 1c1 11089 ici 11090 + caddc 11091 · cmul 11093 -∞cmnf 11229 ℝ^*cxr 11230 < clt 11231 ≤ cle 11232 − cmin 11429 -cneg 11430 2c2 12283 (,]cioc 13361 ↑cexp 14085 √csqrt 15272

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1818 ax-4 1832 ax-5 1933 ax-6 1990 ax-7 2031 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2737 ax-sep 5250 ax-nul 5260 ax-pow 5326 ax-pr 5394 ax-un 7722 ax-cnex 11144 ax-resscn 11145 ax-1cn 11146 ax-icn 11147 ax-addcl 11148 ax-addrcl 11149 ax-mulcl 11150 ax-mulrcl 11151 ax-mulcom 11152 ax-addass 11153 ax-mulass 11154 ax-distr 11155 ax-i2m1 11156 ax-1ne0 11157 ax-1rid 11158 ax-rnegex 11159 ax-rrecex 11160 ax-cnre 11161 ax-pre-lttri 11162 ax-pre-lttrn 11163 ax-pre-ltadd 11164 ax-pre-mulgt0 11165 ax-pre-sup 11166

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1566 df-fal 1576 df-ex 1803 df-nf 1807 df-sb 2094 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3370 df-reu 3371 df-rab 3418 df-v 3459 df-sbc 3748 df-csb 3856 df-dif 3910 df-un 3912 df-in 3914 df-ss 3924 df-pss 3927 df-nul 4289 df-if 4484 df-pw 4560 df-sn 4586 df-pr 4588 df-op 4592 df-uni 4868 df-iun 4953 df-br 5105 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6291 df-ord 6352 df-on 6353 df-lim 6354 df-suc 6355 df-iota 6481 df-fun 6527 df-fn 6528 df-f 6529 df-f1 6530 df-fo 6531 df-f1o 6532 df-fv 6533 df-riota 7357 df-ov 7403 df-oprab 7404 df-mpo 7405 df-om 7851 df-2nd 7975 df-frecs 8266 df-wrecs 8297 df-recs 8346 df-rdg 8385 df-er 8682 df-en 8932 df-dom 8933 df-sdom 8934 df-sup 9390 df-pnf 11233 df-mnf 11234 df-xr 11235 df-ltxr 11236 df-le 11237 df-sub 11431 df-neg 11432 df-div 11860 df-nn 12222 df-2 12291 df-3 12292 df-n0 12493 df-z 12580 df-uz 12851 df-rp 13005 df-ioc 13365 df-seq 14026 df-exp 14086 df-cj 15138 df-re 15139 df-im 15140 df-sqrt 15274 df-abs 15275

This theorem is referenced by: dvatan 27054

W3C validator