Theorem sqrtcval 41249

Description: Explicit formula for the complex square root in terms of the square root of nonnegative reals. The right-hand side is decomposed into real and imaginary parts in the format expected by crrei 14903 and crimi 14904. This formula can be found in section 3.7.27 of Handbook of Mathematical Functions, ed. M. Abramowitz and I. A. Stegun (1965, Dover Press). (Contributed by RP, 18-May-2024.)

Assertion

Ref	Expression
sqrtcval	⊢ (𝐴 ∈ ℂ → (√‘𝐴) = ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))

Proof of Theorem sqrtcval

Step	Hyp	Ref	Expression
1		sqrtcvallem5 41248	. . . . 5 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) ∈ ℝ)
2	1	recnd 11003	. . . 4 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) ∈ ℂ)
3		ax-icn 10930	. . . . . 6 ⊢ i ∈ ℂ
4	3	a1i 11	. . . . 5 ⊢ (𝐴 ∈ ℂ → i ∈ ℂ)
5		neg1rr 12088	. . . . . . . . 9 ⊢ -1 ∈ ℝ
6		1re 10975	. . . . . . . . 9 ⊢ 1 ∈ ℝ
7	5, 6	ifcli 4506	. . . . . . . 8 ⊢ if((ℑ‘𝐴) < 0, -1, 1) ∈ ℝ
8	7	a1i 11	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → if((ℑ‘𝐴) < 0, -1, 1) ∈ ℝ)
9		sqrtcvallem3 41246	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)) ∈ ℝ)
10	8, 9	remulcld 11005	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) ∈ ℝ)
11	10	recnd 11003	. . . . 5 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) ∈ ℂ)
12	4, 11	mulcld 10995	. . . 4 ⊢ (𝐴 ∈ ℂ → (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) ∈ ℂ)
13	2, 12	addcld 10994	. . 3 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) ∈ ℂ)
14		id 22	. . 3 ⊢ (𝐴 ∈ ℂ → 𝐴 ∈ ℂ)
15		binom2 13933	. . . . 5 ⊢ (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) ∈ ℂ ∧ (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) ∈ ℂ) → (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))↑2) = ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)))
16	2, 12, 15	syl2anc 584	. . . 4 ⊢ (𝐴 ∈ ℂ → (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))↑2) = ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)))
17		abscl 14990	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (abs‘𝐴) ∈ ℝ)
18		recl 14821	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) ∈ ℝ)
19	17, 18	readdcld 11004	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) + (ℜ‘𝐴)) ∈ ℝ)
20	19	rehalfcld 12220	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) + (ℜ‘𝐴)) / 2) ∈ ℝ)
21	20	recnd 11003	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) + (ℜ‘𝐴)) / 2) ∈ ℂ)
22	21	sqsqrtd 15151	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) = (((abs‘𝐴) + (ℜ‘𝐴)) / 2))
23	4, 11	sqmuld 13876	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2) = ((i↑2) · ((if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))↑2)))
24		i2 13919	. . . . . . . . . . 11 ⊢ (i↑2) = -1
25	24	a1i 11	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (i↑2) = -1)
26	8	recnd 11003	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → if((ℑ‘𝐴) < 0, -1, 1) ∈ ℂ)
27	9	recnd 11003	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)) ∈ ℂ)
28	26, 27	sqmuld 13876	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ((if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))↑2) = ((if((ℑ‘𝐴) < 0, -1, 1)↑2) · ((√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))↑2)))
29		ovif 7372	. . . . . . . . . . . . . 14 ⊢ (if((ℑ‘𝐴) < 0, -1, 1)↑2) = if((ℑ‘𝐴) < 0, (-1↑2), (1↑2))
30		neg1sqe1 13913	. . . . . . . . . . . . . . 15 ⊢ (-1↑2) = 1
31		sq1 13912	. . . . . . . . . . . . . . 15 ⊢ (1↑2) = 1
32		ifeq12 4477	. . . . . . . . . . . . . . 15 ⊢ (((-1↑2) = 1 ∧ (1↑2) = 1) → if((ℑ‘𝐴) < 0, (-1↑2), (1↑2)) = if((ℑ‘𝐴) < 0, 1, 1))
33	30, 31, 32	mp2an 689	. . . . . . . . . . . . . 14 ⊢ if((ℑ‘𝐴) < 0, (-1↑2), (1↑2)) = if((ℑ‘𝐴) < 0, 1, 1)
34		ifid 4499	. . . . . . . . . . . . . 14 ⊢ if((ℑ‘𝐴) < 0, 1, 1) = 1
35	29, 33, 34	3eqtri 2770	. . . . . . . . . . . . 13 ⊢ (if((ℑ‘𝐴) < 0, -1, 1)↑2) = 1
36	35	a1i 11	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1)↑2) = 1)
37	17, 18	resubcld 11403	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) − (ℜ‘𝐴)) ∈ ℝ)
38	37	rehalfcld 12220	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) − (ℜ‘𝐴)) / 2) ∈ ℝ)
39	38	recnd 11003	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) − (ℜ‘𝐴)) / 2) ∈ ℂ)
40	39	sqsqrtd 15151	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))↑2) = (((abs‘𝐴) − (ℜ‘𝐴)) / 2))
41	36, 40	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ((if((ℑ‘𝐴) < 0, -1, 1)↑2) · ((√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))↑2)) = (1 · (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
42	39	mulid2d 10993	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (1 · (((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = (((abs‘𝐴) − (ℜ‘𝐴)) / 2))
43	28, 41, 42	3eqtrd 2782	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → ((if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))↑2) = (((abs‘𝐴) − (ℜ‘𝐴)) / 2))
44	25, 43	oveq12d 7293	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((i↑2) · ((if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))↑2)) = (-1 · (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
45	39	mulm1d 11427	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (-1 · (((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = -(((abs‘𝐴) − (ℜ‘𝐴)) / 2))
46	23, 44, 45	3eqtrd 2782	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2) = -(((abs‘𝐴) − (ℜ‘𝐴)) / 2))
47	22, 46	oveq12d 7293	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) = ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) + -(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
48	21, 39	negsubd 11338	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) + -(((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) − (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
49	17	recnd 11003	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (abs‘𝐴) ∈ ℂ)
50	18	recnd 11003	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (ℜ‘𝐴) ∈ ℂ)
51	49, 50, 50	pnncand 11371	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) + (ℜ‘𝐴)) − ((abs‘𝐴) − (ℜ‘𝐴))) = ((ℜ‘𝐴) + (ℜ‘𝐴)))
52	50	2timesd 12216	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (2 · (ℜ‘𝐴)) = ((ℜ‘𝐴) + (ℜ‘𝐴)))
53	51, 52	eqtr4d 2781	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) + (ℜ‘𝐴)) − ((abs‘𝐴) − (ℜ‘𝐴))) = (2 · (ℜ‘𝐴)))
54	53	oveq1d 7290	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) − ((abs‘𝐴) − (ℜ‘𝐴))) / 2) = ((2 · (ℜ‘𝐴)) / 2))
55	19	recnd 11003	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) + (ℜ‘𝐴)) ∈ ℂ)
56	37	recnd 11003	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) − (ℜ‘𝐴)) ∈ ℂ)
57		2cnd 12051	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → 2 ∈ ℂ)
58		2ne0 12077	. . . . . . . . . 10 ⊢ 2 ≠ 0
59	58	a1i 11	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → 2 ≠ 0)
60	55, 56, 57, 59	divsubdird 11790	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) − ((abs‘𝐴) − (ℜ‘𝐴))) / 2) = ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) − (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
61	50, 57, 59	divcan3d 11756	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((2 · (ℜ‘𝐴)) / 2) = (ℜ‘𝐴))
62	54, 60, 61	3eqtr3d 2786	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) − (((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = (ℜ‘𝐴))
63	47, 48, 62	3eqtrd 2782	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) = (ℜ‘𝐴))
64	57, 2	mulcld 10995	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → (2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) ∈ ℂ)
65	64, 4, 11	mul12d 11184	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (i · ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))
66	57, 2, 12	mulassd 10998	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))))
67	57, 2, 11	mulassd 10998	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))
68	2, 26, 27	mul12d 11184	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (if((ℑ‘𝐴) < 0, -1, 1) · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))
69		sqrtcvallem4 41247	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → 0 ≤ (((abs‘𝐴) + (ℜ‘𝐴)) / 2))
70		halfnneg2 12204	. . . . . . . . . . . . . . . . 17 ⊢ (((abs‘𝐴) + (ℜ‘𝐴)) ∈ ℝ → (0 ≤ ((abs‘𝐴) + (ℜ‘𝐴)) ↔ 0 ≤ (((abs‘𝐴) + (ℜ‘𝐴)) / 2)))
71	19, 70	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (0 ≤ ((abs‘𝐴) + (ℜ‘𝐴)) ↔ 0 ≤ (((abs‘𝐴) + (ℜ‘𝐴)) / 2)))
72	69, 71	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → 0 ≤ ((abs‘𝐴) + (ℜ‘𝐴)))
73		2rp 12735	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ+
74	73	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → 2 ∈ ℝ+)
75	19, 72, 74	sqrtdivd 15135	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = ((√‘((abs‘𝐴) + (ℜ‘𝐴))) / (√‘2)))
76		sqrtcvallem2 41245	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → 0 ≤ (((abs‘𝐴) − (ℜ‘𝐴)) / 2))
77		halfnneg2 12204	. . . . . . . . . . . . . . . . 17 ⊢ (((abs‘𝐴) − (ℜ‘𝐴)) ∈ ℝ → (0 ≤ ((abs‘𝐴) − (ℜ‘𝐴)) ↔ 0 ≤ (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
78	37, 77	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (0 ≤ ((abs‘𝐴) − (ℜ‘𝐴)) ↔ 0 ≤ (((abs‘𝐴) − (ℜ‘𝐴)) / 2)))
79	76, 78	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → 0 ≤ ((abs‘𝐴) − (ℜ‘𝐴)))
80	37, 79, 74	sqrtdivd 15135	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = ((√‘((abs‘𝐴) − (ℜ‘𝐴))) / (√‘2)))
81	75, 80	oveq12d 7293	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) = (((√‘((abs‘𝐴) + (ℜ‘𝐴))) / (√‘2)) · ((√‘((abs‘𝐴) − (ℜ‘𝐴))) / (√‘2))))
82	19, 72	resqrtcld 15129	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘((abs‘𝐴) + (ℜ‘𝐴))) ∈ ℝ)
83	82	recnd 11003	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘((abs‘𝐴) + (ℜ‘𝐴))) ∈ ℂ)
84		2re 12047	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℝ
85	84	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → 2 ∈ ℝ)
86		0le2 12075	. . . . . . . . . . . . . . . . 17 ⊢ 0 ≤ 2
87	86	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → 0 ≤ 2)
88	85, 87	resqrtcld 15129	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘2) ∈ ℝ)
89	88	recnd 11003	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘2) ∈ ℂ)
90	37, 79	resqrtcld 15129	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘((abs‘𝐴) − (ℜ‘𝐴))) ∈ ℝ)
91	90	recnd 11003	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘((abs‘𝐴) − (ℜ‘𝐴))) ∈ ℂ)
92		sqrt00 14975	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℝ ∧ 0 ≤ 2) → ((√‘2) = 0 ↔ 2 = 0))
93	84, 86, 92	mp2an 689	. . . . . . . . . . . . . . . . 17 ⊢ ((√‘2) = 0 ↔ 2 = 0)
94	93	necon3bii 2996	. . . . . . . . . . . . . . . 16 ⊢ ((√‘2) ≠ 0 ↔ 2 ≠ 0)
95	58, 94	mpbir 230	. . . . . . . . . . . . . . 15 ⊢ (√‘2) ≠ 0
96	95	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (√‘2) ≠ 0)
97	83, 89, 91, 89, 96, 96	divmuldivd 11792	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (((√‘((abs‘𝐴) + (ℜ‘𝐴))) / (√‘2)) · ((√‘((abs‘𝐴) − (ℜ‘𝐴))) / (√‘2))) = (((√‘((abs‘𝐴) + (ℜ‘𝐴))) · (√‘((abs‘𝐴) − (ℜ‘𝐴)))) / ((√‘2) · (√‘2))))
98	18	resqcld 13965	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → ((ℜ‘𝐴)↑2) ∈ ℝ)
99	98	recnd 11003	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → ((ℜ‘𝐴)↑2) ∈ ℂ)
100		imcl 14822	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℂ → (ℑ‘𝐴) ∈ ℝ)
101	100	resqcld 13965	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → ((ℑ‘𝐴)↑2) ∈ ℝ)
102	101	recnd 11003	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → ((ℑ‘𝐴)↑2) ∈ ℂ)
103		absvalsq2 14993	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴)↑2) = (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)))
104	99, 102, 103	mvrladdd 11388	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴)↑2) − ((ℜ‘𝐴)↑2)) = ((ℑ‘𝐴)↑2))
105		subsq 13926	. . . . . . . . . . . . . . . . . 18 ⊢ (((abs‘𝐴) ∈ ℂ ∧ (ℜ‘𝐴) ∈ ℂ) → (((abs‘𝐴)↑2) − ((ℜ‘𝐴)↑2)) = (((abs‘𝐴) + (ℜ‘𝐴)) · ((abs‘𝐴) − (ℜ‘𝐴))))
106	49, 50, 105	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴)↑2) − ((ℜ‘𝐴)↑2)) = (((abs‘𝐴) + (ℜ‘𝐴)) · ((abs‘𝐴) − (ℜ‘𝐴))))
107	104, 106	eqtr3d 2780	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → ((ℑ‘𝐴)↑2) = (((abs‘𝐴) + (ℜ‘𝐴)) · ((abs‘𝐴) − (ℜ‘𝐴))))
108	107	fveq2d 6778	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘((ℑ‘𝐴)↑2)) = (√‘(((abs‘𝐴) + (ℜ‘𝐴)) · ((abs‘𝐴) − (ℜ‘𝐴)))))
109	100	absred 15128	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (abs‘(ℑ‘𝐴)) = (√‘((ℑ‘𝐴)↑2)))
110		reabsifneg 41240	. . . . . . . . . . . . . . . . 17 ⊢ ((ℑ‘𝐴) ∈ ℝ → (abs‘(ℑ‘𝐴)) = if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)))
111	100, 110	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (abs‘(ℑ‘𝐴)) = if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)))
112	109, 111	eqtr3d 2780	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘((ℑ‘𝐴)↑2)) = if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)))
113	19, 72, 37, 79	sqrtmuld 15136	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) · ((abs‘𝐴) − (ℜ‘𝐴)))) = ((√‘((abs‘𝐴) + (ℜ‘𝐴))) · (√‘((abs‘𝐴) − (ℜ‘𝐴)))))
114	108, 112, 113	3eqtr3rd 2787	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → ((√‘((abs‘𝐴) + (ℜ‘𝐴))) · (√‘((abs‘𝐴) − (ℜ‘𝐴)))) = if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)))
115		remsqsqrt 14968	. . . . . . . . . . . . . . . 16 ⊢ ((2 ∈ ℝ ∧ 0 ≤ 2) → ((√‘2) · (√‘2)) = 2)
116	84, 86, 115	mp2an 689	. . . . . . . . . . . . . . 15 ⊢ ((√‘2) · (√‘2)) = 2
117	116	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → ((√‘2) · (√‘2)) = 2)
118	114, 117	oveq12d 7293	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (((√‘((abs‘𝐴) + (ℜ‘𝐴))) · (√‘((abs‘𝐴) − (ℜ‘𝐴)))) / ((√‘2) · (√‘2))) = (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2))
119	81, 97, 118	3eqtrd 2782	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) = (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2))
120	119	oveq2d 7291	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1) · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2)))
121	68, 120	eqtrd 2778	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2)))
122	121	oveq2d 7291	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (2 · (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2))))
123	100	renegcld 11402	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℂ → -(ℑ‘𝐴) ∈ ℝ)
124	123, 100	ifcld 4505	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) ∈ ℝ)
125	124	recnd 11003	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) ∈ ℂ)
126	26, 125, 57, 59	divassd 11786	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((if((ℑ‘𝐴) < 0, -1, 1) · if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴))) / 2) = (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2)))
127		ovif12 7374	. . . . . . . . . . . . . 14 ⊢ (if((ℑ‘𝐴) < 0, -1, 1) · if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴))) = if((ℑ‘𝐴) < 0, (-1 · -(ℑ‘𝐴)), (1 · (ℑ‘𝐴)))
128	5	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → -1 ∈ ℝ)
129	128	recnd 11003	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → -1 ∈ ℂ)
130	100	recnd 11003	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → (ℑ‘𝐴) ∈ ℂ)
131	129, 129, 130	mulassd 10998	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → ((-1 · -1) · (ℑ‘𝐴)) = (-1 · (-1 · (ℑ‘𝐴))))
132		neg1mulneg1e1 12186	. . . . . . . . . . . . . . . . . . . 20 ⊢ (-1 · -1) = 1
133	132	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → (-1 · -1) = 1)
134	133	oveq1d 7290	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → ((-1 · -1) · (ℑ‘𝐴)) = (1 · (ℑ‘𝐴)))
135	130	mulid2d 10993	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → (1 · (ℑ‘𝐴)) = (ℑ‘𝐴))
136	134, 135	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → ((-1 · -1) · (ℑ‘𝐴)) = (ℑ‘𝐴))
137	130	mulm1d 11427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → (-1 · (ℑ‘𝐴)) = -(ℑ‘𝐴))
138	137	oveq2d 7291	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (-1 · (-1 · (ℑ‘𝐴))) = (-1 · -(ℑ‘𝐴)))
139	131, 136, 138	3eqtr3rd 2787	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (-1 · -(ℑ‘𝐴)) = (ℑ‘𝐴))
140	139	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℑ‘𝐴) < 0) → (-1 · -(ℑ‘𝐴)) = (ℑ‘𝐴))
141	135	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ ¬ (ℑ‘𝐴) < 0) → (1 · (ℑ‘𝐴)) = (ℑ‘𝐴))
142	140, 141	ifeqda 4495	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → if((ℑ‘𝐴) < 0, (-1 · -(ℑ‘𝐴)), (1 · (ℑ‘𝐴))) = (ℑ‘𝐴))
143	127, 142	eqtrid 2790	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1) · if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴))) = (ℑ‘𝐴))
144	143	oveq1d 7290	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((if((ℑ‘𝐴) < 0, -1, 1) · if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴))) / 2) = ((ℑ‘𝐴) / 2))
145	126, 144	eqtr3d 2780	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2)) = ((ℑ‘𝐴) / 2))
146	145	oveq2d 7291	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (2 · (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2))) = (2 · ((ℑ‘𝐴) / 2)))
147	130, 57, 59	divcan2d 11753	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (2 · ((ℑ‘𝐴) / 2)) = (ℑ‘𝐴))
148	146, 147	eqtrd 2778	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (2 · (if((ℑ‘𝐴) < 0, -1, 1) · (if((ℑ‘𝐴) < 0, -(ℑ‘𝐴), (ℑ‘𝐴)) / 2))) = (ℑ‘𝐴))
149	67, 122, 148	3eqtrd 2782	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (ℑ‘𝐴))
150	149	oveq2d 7291	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → (i · ((2 · (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))) · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (i · (ℑ‘𝐴)))
151	65, 66, 150	3eqtr3d 2786	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = (i · (ℑ‘𝐴)))
152	63, 151	oveq12d 7293	. . . . 5 ⊢ (𝐴 ∈ ℂ → ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = ((ℜ‘𝐴) + (i · (ℑ‘𝐴))))
153	1	resqcld 13965	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) ∈ ℝ)
154	153	recnd 11003	. . . . . 6 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) ∈ ℂ)
155	2, 12	mulcld 10995	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) ∈ ℂ)
156	57, 155	mulcld 10995	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) ∈ ℂ)
157	12	sqcld 13862	. . . . . 6 ⊢ (𝐴 ∈ ℂ → ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2) ∈ ℂ)
158	154, 156, 157	add32d 11202	. . . . 5 ⊢ (𝐴 ∈ ℂ → ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) = ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))))
159		replim 14827	. . . . 5 ⊢ (𝐴 ∈ ℂ → 𝐴 = ((ℜ‘𝐴) + (i · (ℑ‘𝐴))))
160	152, 158, 159	3eqtr4d 2788	. . . 4 ⊢ (𝐴 ∈ ℂ → ((((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2))↑2) + (2 · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) · (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) + ((i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))↑2)) = 𝐴)
161	16, 160	eqtrd 2778	. . 3 ⊢ (𝐴 ∈ ℂ → (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))↑2) = 𝐴)
162	20, 69	sqrtge0d 15132	. . . 4 ⊢ (𝐴 ∈ ℂ → 0 ≤ (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)))
163	1, 10	crred 14942	. . . 4 ⊢ (𝐴 ∈ ℂ → (ℜ‘((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)))
164	162, 163	breqtrrd 5102	. . 3 ⊢ (𝐴 ∈ ℂ → 0 ≤ (ℜ‘((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))))
165		reim 14820	. . . . . . . . . 10 ⊢ (((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) ∈ ℂ → (ℜ‘((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = (ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))))
166	13, 165	syl 17	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (ℜ‘((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = (ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))))
167	166, 163	eqtr3d 2780	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → (ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)))
168	167	eqeq1d 2740	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = 0 ↔ (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = 0))
169		cnsqrt00 15104	. . . . . . . 8 ⊢ ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = 0 ↔ (((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0))
170	21, 169	syl 17	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = 0 ↔ (((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0))
171		half0 12200	. . . . . . . . 9 ⊢ (((abs‘𝐴) + (ℜ‘𝐴)) ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0 ↔ ((abs‘𝐴) + (ℜ‘𝐴)) = 0))
172	55, 171	syl 17	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0 ↔ ((abs‘𝐴) + (ℜ‘𝐴)) = 0))
173	49, 50	addcomd 11177	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) + (ℜ‘𝐴)) = ((ℜ‘𝐴) + (abs‘𝐴)))
174	173	eqeq1d 2740	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴) + (ℜ‘𝐴)) = 0 ↔ ((ℜ‘𝐴) + (abs‘𝐴)) = 0))
175		addeq0 11398	. . . . . . . . 9 ⊢ (((ℜ‘𝐴) ∈ ℂ ∧ (abs‘𝐴) ∈ ℂ) → (((ℜ‘𝐴) + (abs‘𝐴)) = 0 ↔ (ℜ‘𝐴) = -(abs‘𝐴)))
176	50, 49, 175	syl2anc 584	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → (((ℜ‘𝐴) + (abs‘𝐴)) = 0 ↔ (ℜ‘𝐴) = -(abs‘𝐴)))
177	172, 174, 176	3bitrd 305	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0 ↔ (ℜ‘𝐴) = -(abs‘𝐴)))
178	168, 170, 177	3bitrd 305	. . . . . 6 ⊢ (𝐴 ∈ ℂ → ((ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = 0 ↔ (ℜ‘𝐴) = -(abs‘𝐴)))
179		olc 865	. . . . . . . 8 ⊢ ((ℜ‘𝐴) = -(abs‘𝐴) → ((ℜ‘𝐴) = (abs‘𝐴) ∨ (ℜ‘𝐴) = -(abs‘𝐴)))
180		eqcom 2745	. . . . . . . . . 10 ⊢ (((ℜ‘𝐴)↑2) = ((abs‘𝐴)↑2) ↔ ((abs‘𝐴)↑2) = ((ℜ‘𝐴)↑2))
181	180	a1i 11	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (((ℜ‘𝐴)↑2) = ((abs‘𝐴)↑2) ↔ ((abs‘𝐴)↑2) = ((ℜ‘𝐴)↑2)))
182		sqeqor 13932	. . . . . . . . . 10 ⊢ (((ℜ‘𝐴) ∈ ℂ ∧ (abs‘𝐴) ∈ ℂ) → (((ℜ‘𝐴)↑2) = ((abs‘𝐴)↑2) ↔ ((ℜ‘𝐴) = (abs‘𝐴) ∨ (ℜ‘𝐴) = -(abs‘𝐴))))
183	50, 49, 182	syl2anc 584	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (((ℜ‘𝐴)↑2) = ((abs‘𝐴)↑2) ↔ ((ℜ‘𝐴) = (abs‘𝐴) ∨ (ℜ‘𝐴) = -(abs‘𝐴))))
184	103	eqeq1d 2740	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴)↑2) = ((ℜ‘𝐴)↑2) ↔ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) = ((ℜ‘𝐴)↑2)))
185		addid0 11394	. . . . . . . . . . 11 ⊢ ((((ℜ‘𝐴)↑2) ∈ ℂ ∧ ((ℑ‘𝐴)↑2) ∈ ℂ) → ((((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) = ((ℜ‘𝐴)↑2) ↔ ((ℑ‘𝐴)↑2) = 0))
186	99, 102, 185	syl2anc 584	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → ((((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) = ((ℜ‘𝐴)↑2) ↔ ((ℑ‘𝐴)↑2) = 0))
187		sqeq0 13840	. . . . . . . . . . 11 ⊢ ((ℑ‘𝐴) ∈ ℂ → (((ℑ‘𝐴)↑2) = 0 ↔ (ℑ‘𝐴) = 0))
188	130, 187	syl 17	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (((ℑ‘𝐴)↑2) = 0 ↔ (ℑ‘𝐴) = 0))
189	184, 186, 188	3bitrd 305	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (((abs‘𝐴)↑2) = ((ℜ‘𝐴)↑2) ↔ (ℑ‘𝐴) = 0))
190	181, 183, 189	3bitr3d 309	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → (((ℜ‘𝐴) = (abs‘𝐴) ∨ (ℜ‘𝐴) = -(abs‘𝐴)) ↔ (ℑ‘𝐴) = 0))
191	179, 190	syl5ib 243	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((ℜ‘𝐴) = -(abs‘𝐴) → (ℑ‘𝐴) = 0))
192	191	ancld 551	. . . . . 6 ⊢ (𝐴 ∈ ℂ → ((ℜ‘𝐴) = -(abs‘𝐴) → ((ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0)))
193	178, 192	sylbid 239	. . . . 5 ⊢ (𝐴 ∈ ℂ → ((ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = 0 → ((ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0)))
194		simp2 1136	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘𝐴) = -(abs‘𝐴))
195	194	oveq2d 7291	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) + (ℜ‘𝐴)) = ((abs‘𝐴) + -(abs‘𝐴)))
196		simp1 1135	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → 𝐴 ∈ ℂ)
197	196, 49	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (abs‘𝐴) ∈ ℂ)
198	197	negidd 11322	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) + -(abs‘𝐴)) = 0)
199	195, 198	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) + (ℜ‘𝐴)) = 0)
200	199	oveq1d 7290	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (((abs‘𝐴) + (ℜ‘𝐴)) / 2) = (0 / 2))
201		2cn 12048	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℂ
202	201, 58	div0i 11709	. . . . . . . . . . . . . . . 16 ⊢ (0 / 2) = 0
203	200, 202	eqtrdi 2794	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (((abs‘𝐴) + (ℜ‘𝐴)) / 2) = 0)
204	203	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = (√‘0))
205		sqrt0 14953	. . . . . . . . . . . . . 14 ⊢ (√‘0) = 0
206	204, 205	eqtrdi 2794	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) = 0)
207		simp3 1137	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℑ‘𝐴) = 0)
208		0red 10978	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → 0 ∈ ℝ)
209	208	ltnrd 11109	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ¬ 0 < 0)
210	207, 209	eqnbrtrd 5092	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ¬ (ℑ‘𝐴) < 0)
211	210	iffalsed 4470	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → if((ℑ‘𝐴) < 0, -1, 1) = 1)
212	194	oveq2d 7291	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) − (ℜ‘𝐴)) = ((abs‘𝐴) − -(abs‘𝐴)))
213	49, 49	subnegd 11339	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) − -(abs‘𝐴)) = ((abs‘𝐴) + (abs‘𝐴)))
214	49	2timesd 12216	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ ℂ → (2 · (abs‘𝐴)) = ((abs‘𝐴) + (abs‘𝐴)))
215	213, 214	eqtr4d 2781	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ ℂ → ((abs‘𝐴) − -(abs‘𝐴)) = (2 · (abs‘𝐴)))
216	196, 215	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) − -(abs‘𝐴)) = (2 · (abs‘𝐴)))
217	212, 216	eqtrd 2778	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((abs‘𝐴) − (ℜ‘𝐴)) = (2 · (abs‘𝐴)))
218	217	oveq1d 7290	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (((abs‘𝐴) − (ℜ‘𝐴)) / 2) = ((2 · (abs‘𝐴)) / 2))
219	49, 57, 59	divcan3d 11756	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → ((2 · (abs‘𝐴)) / 2) = (abs‘𝐴))
220	196, 219	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((2 · (abs‘𝐴)) / 2) = (abs‘𝐴))
221	218, 220	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (((abs‘𝐴) − (ℜ‘𝐴)) / 2) = (abs‘𝐴))
222	221	fveq2d 6778	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)) = (√‘(abs‘𝐴)))
223	211, 222	oveq12d 7293	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) = (1 · (√‘(abs‘𝐴))))
224		absge0 14999	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℂ → 0 ≤ (abs‘𝐴))
225	17, 224	resqrtcld 15129	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℂ → (√‘(abs‘𝐴)) ∈ ℝ)
226	225	recnd 11003	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℂ → (√‘(abs‘𝐴)) ∈ ℂ)
227	226	mulid2d 10993	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℂ → (1 · (√‘(abs‘𝐴))) = (√‘(abs‘𝐴)))
228	196, 227	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (1 · (√‘(abs‘𝐴))) = (√‘(abs‘𝐴)))
229	223, 228	eqtrd 2778	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))) = (√‘(abs‘𝐴)))
230	229	oveq2d 7291	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))) = (i · (√‘(abs‘𝐴))))
231	206, 230	oveq12d 7293	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (0 + (i · (√‘(abs‘𝐴)))))
232	4, 226	mulcld 10995	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℂ → (i · (√‘(abs‘𝐴))) ∈ ℂ)
233	196, 232	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (i · (√‘(abs‘𝐴))) ∈ ℂ)
234	233	addid2d 11176	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (0 + (i · (√‘(abs‘𝐴)))) = (i · (√‘(abs‘𝐴))))
235	231, 234	eqtrd 2778	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (i · (√‘(abs‘𝐴))))
236	235	oveq2d 7291	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = (i · (i · (√‘(abs‘𝐴)))))
237		ixi 11604	. . . . . . . . . . . . . 14 ⊢ (i · i) = -1
238	237	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℂ → (i · i) = -1)
239	238	oveq1d 7290	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((i · i) · (√‘(abs‘𝐴))) = (-1 · (√‘(abs‘𝐴))))
240	4, 4, 226	mulassd 10998	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((i · i) · (√‘(abs‘𝐴))) = (i · (i · (√‘(abs‘𝐴)))))
241	226	mulm1d 11427	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → (-1 · (√‘(abs‘𝐴))) = -(√‘(abs‘𝐴)))
242	239, 240, 241	3eqtr3d 2786	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (i · (i · (√‘(abs‘𝐴)))) = -(√‘(abs‘𝐴)))
243	196, 242	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (i · (i · (√‘(abs‘𝐴)))) = -(√‘(abs‘𝐴)))
244	236, 243	eqtrd 2778	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) = -(√‘(abs‘𝐴)))
245	244	fveq2d 6778	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = (ℜ‘-(√‘(abs‘𝐴))))
246	225	renegcld 11402	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → -(√‘(abs‘𝐴)) ∈ ℝ)
247	246	rered 14935	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (ℜ‘-(√‘(abs‘𝐴))) = -(√‘(abs‘𝐴)))
248	196, 247	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘-(√‘(abs‘𝐴))) = -(√‘(abs‘𝐴)))
249	245, 248	eqtrd 2778	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = -(√‘(abs‘𝐴)))
250	17, 224	sqrtge0d 15132	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → 0 ≤ (√‘(abs‘𝐴)))
251	225	le0neg2d 11547	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (0 ≤ (√‘(abs‘𝐴)) ↔ -(√‘(abs‘𝐴)) ≤ 0))
252	250, 251	mpbid 231	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → -(√‘(abs‘𝐴)) ≤ 0)
253	196, 252	syl 17	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → -(√‘(abs‘𝐴)) ≤ 0)
254	249, 253	eqbrtrd 5096	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ (ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) ≤ 0)
255	254	3expib 1121	. . . . 5 ⊢ (𝐴 ∈ ℂ → (((ℜ‘𝐴) = -(abs‘𝐴) ∧ (ℑ‘𝐴) = 0) → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) ≤ 0))
256	193, 255	syld 47	. . . 4 ⊢ (𝐴 ∈ ℂ → ((ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = 0 → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) ≤ 0))
257	4, 13	mulcld 10995	. . . . 5 ⊢ (𝐴 ∈ ℂ → (i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) ∈ ℂ)
258	257	sqrtcvallem1 41239	. . . 4 ⊢ (𝐴 ∈ ℂ → (((ℑ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) = 0 → (ℜ‘(i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))) ≤ 0) ↔ ¬ (i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) ∈ ℝ+))
259	256, 258	mpbid 231	. . 3 ⊢ (𝐴 ∈ ℂ → ¬ (i · ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2)))))) ∈ ℝ+)
260	13, 14, 161, 164, 259	eqsqrtd 15079	. 2 ⊢ (𝐴 ∈ ℂ → ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))) = (√‘𝐴))
261	260	eqcomd 2744	1 ⊢ (𝐴 ∈ ℂ → (√‘𝐴) = ((√‘(((abs‘𝐴) + (ℜ‘𝐴)) / 2)) + (i · (if((ℑ‘𝐴) < 0, -1, 1) · (√‘(((abs‘𝐴) − (ℜ‘𝐴)) / 2))))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 844   ∧ w3a 1086   = wceq 1539   ∈ wcel 2106   ≠ wne 2943  ifcif 4459   class class class wbr 5074  ‘cfv 6433  (class class class)co 7275  ℂcc 10869  ℝcr 10870  0cc0 10871  1c1 10872  ici 10873   + caddc 10874   · cmul 10876   < clt 11009   ≤ cle 11010   − cmin 11205  -cneg 11206   / cdiv 11632  2c2 12028  ℝ⁺crp 12730  ↑cexp 13782  ℜcre 14808  ℑcim 14809  √csqrt 14944  abscabs 14945

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948  ax-pre-sup 10949

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-om 7713  df-2nd 7832  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-er 8498  df-en 8734  df-dom 8735  df-sdom 8736  df-sup 9201  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-div 11633  df-nn 11974  df-2 12036  df-3 12037  df-n0 12234  df-z 12320  df-uz 12583  df-rp 12731  df-seq 13722  df-exp 13783  df-cj 14810  df-re 14811  df-im 14812  df-sqrt 14946  df-abs 14947

This theorem is referenced by:  sqrtcval2  41250  resqrtval  41251  imsqrtval  41252