Proof of Theorem sqrtnegnre
Step | Hyp | Ref
| Expression |
1 | | recn 10892 |
. . . . . . . 8
⊢ (𝑋 ∈ ℝ → 𝑋 ∈
ℂ) |
2 | 1 | negnegd 11253 |
. . . . . . 7
⊢ (𝑋 ∈ ℝ → --𝑋 = 𝑋) |
3 | 2 | adantr 480 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → --𝑋 = 𝑋) |
4 | 3 | eqcomd 2744 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → 𝑋 = --𝑋) |
5 | 4 | fveq2d 6760 |
. . . 4
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘𝑋) =
(√‘--𝑋)) |
6 | | simpl 482 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → 𝑋 ∈
ℝ) |
7 | 6 | renegcld 11332 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → -𝑋 ∈
ℝ) |
8 | | 0re 10908 |
. . . . . . . 8
⊢ 0 ∈
ℝ |
9 | | ltle 10994 |
. . . . . . . 8
⊢ ((𝑋 ∈ ℝ ∧ 0 ∈
ℝ) → (𝑋 < 0
→ 𝑋 ≤
0)) |
10 | 8, 9 | mpan2 687 |
. . . . . . 7
⊢ (𝑋 ∈ ℝ → (𝑋 < 0 → 𝑋 ≤ 0)) |
11 | 10 | imp 406 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → 𝑋 ≤ 0) |
12 | | le0neg1 11413 |
. . . . . . 7
⊢ (𝑋 ∈ ℝ → (𝑋 ≤ 0 ↔ 0 ≤ -𝑋)) |
13 | 12 | adantr 480 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → (𝑋 ≤ 0 ↔ 0 ≤ -𝑋)) |
14 | 11, 13 | mpbid 231 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → 0 ≤ -𝑋) |
15 | 7, 14 | sqrtnegd 15061 |
. . . 4
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘--𝑋) = (i
· (√‘-𝑋))) |
16 | 5, 15 | eqtrd 2778 |
. . 3
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘𝑋) = (i
· (√‘-𝑋))) |
17 | | ax-icn 10861 |
. . . . . 6
⊢ i ∈
ℂ |
18 | 17 | a1i 11 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → i ∈
ℂ) |
19 | 1 | adantr 480 |
. . . . . . 7
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → 𝑋 ∈
ℂ) |
20 | 19 | negcld 11249 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → -𝑋 ∈
ℂ) |
21 | 20 | sqrtcld 15077 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘-𝑋) ∈
ℂ) |
22 | 18, 21 | mulcomd 10927 |
. . . 4
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → (i ·
(√‘-𝑋)) =
((√‘-𝑋)
· i)) |
23 | 7, 14 | resqrtcld 15057 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘-𝑋) ∈
ℝ) |
24 | | inelr 11893 |
. . . . . . . 8
⊢ ¬ i
∈ ℝ |
25 | 24 | a1i 11 |
. . . . . . 7
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → ¬ i ∈
ℝ) |
26 | 18, 25 | eldifd 3894 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → i ∈
(ℂ ∖ ℝ)) |
27 | | lt0neg1 11411 |
. . . . . . . 8
⊢ (𝑋 ∈ ℝ → (𝑋 < 0 ↔ 0 < -𝑋)) |
28 | 8 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑋 ∈ ℝ → 0 ∈
ℝ) |
29 | | ltne 11002 |
. . . . . . . . . . 11
⊢ ((0
∈ ℝ ∧ 0 < -𝑋) → -𝑋 ≠ 0) |
30 | 28, 29 | sylan 579 |
. . . . . . . . . 10
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → -𝑋 ≠ 0) |
31 | | simpl 482 |
. . . . . . . . . . . . . 14
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → 𝑋 ∈
ℝ) |
32 | 31 | renegcld 11332 |
. . . . . . . . . . . . 13
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → -𝑋 ∈
ℝ) |
33 | 10, 27, 12 | 3imtr3d 292 |
. . . . . . . . . . . . . 14
⊢ (𝑋 ∈ ℝ → (0 <
-𝑋 → 0 ≤ -𝑋)) |
34 | 33 | imp 406 |
. . . . . . . . . . . . 13
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → 0 ≤ -𝑋) |
35 | | sqrt00 14903 |
. . . . . . . . . . . . 13
⊢ ((-𝑋 ∈ ℝ ∧ 0 ≤
-𝑋) →
((√‘-𝑋) = 0
↔ -𝑋 =
0)) |
36 | 32, 34, 35 | syl2anc 583 |
. . . . . . . . . . . 12
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) →
((√‘-𝑋) = 0
↔ -𝑋 =
0)) |
37 | 36 | bicomd 222 |
. . . . . . . . . . 11
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → (-𝑋 = 0 ↔
(√‘-𝑋) =
0)) |
38 | 37 | necon3bid 2987 |
. . . . . . . . . 10
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) → (-𝑋 ≠ 0 ↔
(√‘-𝑋) ≠
0)) |
39 | 30, 38 | mpbid 231 |
. . . . . . . . 9
⊢ ((𝑋 ∈ ℝ ∧ 0 <
-𝑋) →
(√‘-𝑋) ≠
0) |
40 | 39 | ex 412 |
. . . . . . . 8
⊢ (𝑋 ∈ ℝ → (0 <
-𝑋 →
(√‘-𝑋) ≠
0)) |
41 | 27, 40 | sylbid 239 |
. . . . . . 7
⊢ (𝑋 ∈ ℝ → (𝑋 < 0 →
(√‘-𝑋) ≠
0)) |
42 | 41 | imp 406 |
. . . . . 6
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘-𝑋) ≠
0) |
43 | 23, 26, 42 | recnmulnred 44685 |
. . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
((√‘-𝑋)
· i) ∉ ℝ) |
44 | | df-nel 3049 |
. . . . 5
⊢
(((√‘-𝑋)
· i) ∉ ℝ ↔ ¬ ((√‘-𝑋) · i) ∈
ℝ) |
45 | 43, 44 | sylib 217 |
. . . 4
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → ¬
((√‘-𝑋)
· i) ∈ ℝ) |
46 | 22, 45 | eqneltrd 2858 |
. . 3
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → ¬ (i
· (√‘-𝑋)) ∈ ℝ) |
47 | 16, 46 | eqneltrd 2858 |
. 2
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) → ¬
(√‘𝑋) ∈
ℝ) |
48 | | df-nel 3049 |
. 2
⊢
((√‘𝑋)
∉ ℝ ↔ ¬ (√‘𝑋) ∈ ℝ) |
49 | 47, 48 | sylibr 233 |
1
⊢ ((𝑋 ∈ ℝ ∧ 𝑋 < 0) →
(√‘𝑋) ∉
ℝ) |