Metamath Proof Explorer


Theorem sqrtneglem

Description: The square root of a negative number. (Contributed by Mario Carneiro, 9-Jul-2013)

Ref Expression
Assertion sqrtneglem ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ A 2 = − A ∧ 0 ≤ ℜ ⁡ i ⁢ A ∧ i ⁢ i ⁢ A ∉ ℝ +

Proof

Step Hyp Ref Expression
1 ax-icn ⊢ i ∈ ℂ
2 resqrtcl ⊢ A ∈ ℝ ∧ 0 ≤ A → A ∈ ℝ
3 recn ⊢ A ∈ ℝ → A ∈ ℂ
4 2 3 syl ⊢ A ∈ ℝ ∧ 0 ≤ A → A ∈ ℂ
5 sqmul ⊢ i ∈ ℂ ∧ A ∈ ℂ → i ⁢ A 2 = i 2 ⁢ A 2
6 1 4 5 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ A 2 = i 2 ⁢ A 2
7 i2 ⊢ i 2 = − 1
8 7 a1i ⊢ A ∈ ℝ ∧ 0 ≤ A → i 2 = − 1
9 resqrtth ⊢ A ∈ ℝ ∧ 0 ≤ A → A 2 = A
10 8 9 oveq12d ⊢ A ∈ ℝ ∧ 0 ≤ A → i 2 ⁢ A 2 = -1 ⁢ A
11 recn ⊢ A ∈ ℝ → A ∈ ℂ
12 11 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A → A ∈ ℂ
13 12 mulm1d ⊢ A ∈ ℝ ∧ 0 ≤ A → -1 ⁢ A = − A
14 6 10 13 3eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ A 2 = − A
15 renegcl ⊢ A ∈ ℝ → − A ∈ ℝ
16 0re ⊢ 0 ∈ ℝ
17 reim0 ⊢ − A ∈ ℝ → ℑ ⁡ − A = 0
18 recn ⊢ − A ∈ ℝ → − A ∈ ℂ
19 imre ⊢ − A ∈ ℂ → ℑ ⁡ − A = ℜ ⁡ − i ⁢ − A
20 18 19 syl ⊢ − A ∈ ℝ → ℑ ⁡ − A = ℜ ⁡ − i ⁢ − A
21 17 20 eqtr3d ⊢ − A ∈ ℝ → 0 = ℜ ⁡ − i ⁢ − A
22 eqle ⊢ 0 ∈ ℝ ∧ 0 = ℜ ⁡ − i ⁢ − A → 0 ≤ ℜ ⁡ − i ⁢ − A
23 16 21 22 sylancr ⊢ − A ∈ ℝ → 0 ≤ ℜ ⁡ − i ⁢ − A
24 2 15 23 3syl ⊢ A ∈ ℝ ∧ 0 ≤ A → 0 ≤ ℜ ⁡ − i ⁢ − A
25 mul2neg ⊢ i ∈ ℂ ∧ A ∈ ℂ → − i ⁢ − A = i ⁢ A
26 1 4 25 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A → − i ⁢ − A = i ⁢ A
27 26 fveq2d ⊢ A ∈ ℝ ∧ 0 ≤ A → ℜ ⁡ − i ⁢ − A = ℜ ⁡ i ⁢ A
28 24 27 breqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A → 0 ≤ ℜ ⁡ i ⁢ A
29 ixi ⊢ i ⁢ i = − 1
30 29 oveq1i ⊢ i ⁢ i ⁢ A = -1 ⁢ A
31 mulass ⊢ i ∈ ℂ ∧ i ∈ ℂ ∧ A ∈ ℂ → i ⁢ i ⁢ A = i ⁢ i ⁢ A
32 1 1 31 mp3an12 ⊢ A ∈ ℂ → i ⁢ i ⁢ A = i ⁢ i ⁢ A
33 mulm1 ⊢ A ∈ ℂ → -1 ⁢ A = − A
34 30 32 33 3eqtr3a ⊢ A ∈ ℂ → i ⁢ i ⁢ A = − A
35 4 34 syl ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ i ⁢ A = − A
36 sqrtge0 ⊢ A ∈ ℝ ∧ 0 ≤ A → 0 ≤ A
37 le0neg2 ⊢ A ∈ ℝ → 0 ≤ A ↔ − A ≤ 0
38 lenlt ⊢ − A ∈ ℝ ∧ 0 ∈ ℝ → − A ≤ 0 ↔ ¬ 0 < − A
39 15 16 38 sylancl ⊢ A ∈ ℝ → − A ≤ 0 ↔ ¬ 0 < − A
40 37 39 bitrd ⊢ A ∈ ℝ → 0 ≤ A ↔ ¬ 0 < − A
41 2 40 syl ⊢ A ∈ ℝ ∧ 0 ≤ A → 0 ≤ A ↔ ¬ 0 < − A
42 36 41 mpbid ⊢ A ∈ ℝ ∧ 0 ≤ A → ¬ 0 < − A
43 elrp ⊢ − A ∈ ℝ + ↔ − A ∈ ℝ ∧ 0 < − A
44 2 15 syl ⊢ A ∈ ℝ ∧ 0 ≤ A → − A ∈ ℝ
45 44 biantrurd ⊢ A ∈ ℝ ∧ 0 ≤ A → 0 < − A ↔ − A ∈ ℝ ∧ 0 < − A
46 43 45 bitr4id ⊢ A ∈ ℝ ∧ 0 ≤ A → − A ∈ ℝ + ↔ 0 < − A
47 42 46 mtbird ⊢ A ∈ ℝ ∧ 0 ≤ A → ¬ − A ∈ ℝ +
48 35 47 eqneltrd ⊢ A ∈ ℝ ∧ 0 ≤ A → ¬ i ⁢ i ⁢ A ∈ ℝ +
49 df-nel ⊢ i ⁢ i ⁢ A ∉ ℝ + ↔ ¬ i ⁢ i ⁢ A ∈ ℝ +
50 48 49 sylibr ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ i ⁢ A ∉ ℝ +
51 14 28 50 3jca ⊢ A ∈ ℝ ∧ 0 ≤ A → i ⁢ A 2 = − A ∧ 0 ≤ ℜ ⁡ i ⁢ A ∧ i ⁢ i ⁢ A ∉ ℝ +