Proof of Theorem constrsqrtcl
| Step | Hyp | Ref
| Expression |
| 1 | | fveq2 6879 |
. . . . 5
⊢ (𝑋 = 0 → (√‘𝑋) =
(√‘0)) |
| 2 | | sqrt0 15288 |
. . . . 5
⊢
(√‘0) = 0 |
| 3 | 1, 2 | eqtrdi 2820 |
. . . 4
⊢ (𝑋 = 0 → (√‘𝑋) = 0) |
| 4 | | 0zd 12599 |
. . . . 5
⊢ (𝑋 = 0 → 0 ∈
ℤ) |
| 5 | 4 | zconstr 34095 |
. . . 4
⊢ (𝑋 = 0 → 0 ∈
Constr) |
| 6 | 3, 5 | eqeltrd 2869 |
. . 3
⊢ (𝑋 = 0 → (√‘𝑋) ∈
Constr) |
| 7 | 6 | adantl 486 |
. 2
⊢ ((𝜑 ∧ 𝑋 = 0) → (√‘𝑋) ∈
Constr) |
| 8 | | constrabscl.1 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈ Constr) |
| 9 | 8 | constrcn 34091 |
. . . . . . . . 9
⊢ (𝜑 → 𝑋 ∈ ℂ) |
| 10 | 9 | adantr 485 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈
ℂ) |
| 11 | 10 | negnegd 11556 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → --𝑋 = 𝑋) |
| 12 | 11 | fveq2d 6883 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘--𝑋) =
(√‘𝑋)) |
| 13 | | simpr 489 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈
ℝ+) |
| 14 | 13 | rpred 13056 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈
ℝ) |
| 15 | 13 | rpge0d 13060 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 0 ≤
-𝑋) |
| 16 | 14, 15 | sqrtnegd 15469 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘--𝑋) = (i
· (√‘-𝑋))) |
| 17 | 12, 16 | eqtr3d 2806 |
. . . . 5
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) = (i
· (√‘-𝑋))) |
| 18 | | iconstr 34097 |
. . . . . . 7
⊢ i ∈
Constr |
| 19 | 18 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → i ∈
Constr) |
| 20 | 8 | adantr 485 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr) |
| 21 | 20 | constrnegcl 34094 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈ Constr) |
| 22 | 21, 14, 15 | constrresqrtcl 34108 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘-𝑋) ∈
Constr) |
| 23 | 19, 22 | constrmulcl 34102 |
. . . . 5
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → (i
· (√‘-𝑋)) ∈ Constr) |
| 24 | 17, 23 | eqeltrd 2869 |
. . . 4
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 25 | 24 | adantlr 727 |
. . 3
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 26 | 9 | ad2antrr 738 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈
ℂ) |
| 27 | 26 | abscld 15486 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
ℝ) |
| 28 | 27 | recnd 11233 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
ℂ) |
| 29 | 28 | sqrtcld 15487 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘(abs‘𝑋)) ∈ ℂ) |
| 30 | 28, 26 | addcld 11224 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ∈
ℂ) |
| 31 | 30 | abscld 15486 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ∈
ℝ) |
| 32 | 31 | recnd 11233 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ∈
ℂ) |
| 33 | 9 | ad2antrr 738 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℂ) |
| 34 | 9 | abscld 15486 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (abs‘𝑋) ∈
ℝ) |
| 35 | 34 | ad2antrr 738 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈
ℝ) |
| 36 | 35 | recnd 11233 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈
ℂ) |
| 37 | | simpr 489 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ((abs‘𝑋) + 𝑋) = 0) |
| 38 | | addeq0 11633 |
. . . . . . . . . . . . . . . . . . 19
⊢
(((abs‘𝑋)
∈ ℂ ∧ 𝑋
∈ ℂ) → (((abs‘𝑋) + 𝑋) = 0 ↔ (abs‘𝑋) = -𝑋)) |
| 39 | 38 | biimpa 481 |
. . . . . . . . . . . . . . . . . 18
⊢
((((abs‘𝑋)
∈ ℂ ∧ 𝑋
∈ ℂ) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋) |
| 40 | 36, 33, 37, 39 | syl21anc 850 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋) |
| 41 | 40, 35 | eqeltrrd 2870 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → -𝑋 ∈ ℝ) |
| 42 | 33, 41 | negrebd 11564 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℝ) |
| 43 | | 0red 11207 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 0 ∈
ℝ) |
| 44 | | simplr 780 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ¬ -𝑋 ∈
ℝ+) |
| 45 | | negelrp 13047 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑋 ∈ ℝ → (-𝑋 ∈ ℝ+
↔ 𝑋 <
0)) |
| 46 | 45 | notbid 321 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑋 ∈ ℝ → (¬
-𝑋 ∈
ℝ+ ↔ ¬ 𝑋 < 0)) |
| 47 | 46 | biimpa 481 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑋 ∈ ℝ ∧ ¬
-𝑋 ∈
ℝ+) → ¬ 𝑋 < 0) |
| 48 | 42, 44, 47 | syl2anc 595 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ¬ 𝑋 < 0) |
| 49 | 43, 42, 48 | nltled 11356 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 0 ≤ 𝑋) |
| 50 | 42, 49 | absidd 15470 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = 𝑋) |
| 51 | 50, 40 | eqtr3d 2806 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 = -𝑋) |
| 52 | 33, 51 | eqnegad 11933 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 = 0) |
| 53 | 52 | ex 417 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) = 0 → 𝑋 = 0)) |
| 54 | 53 | necon3d 2985 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) → (𝑋 ≠ 0 → ((abs‘𝑋) + 𝑋) ≠ 0)) |
| 55 | 54 | impancom 456 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (¬ -𝑋 ∈ ℝ+ →
((abs‘𝑋) + 𝑋) ≠ 0)) |
| 56 | 55 | imp 411 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ≠ 0) |
| 57 | 30, 56 | absne0d 15497 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ≠
0) |
| 58 | 30, 32, 57 | divcld 11987 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ ℂ) |
| 59 | 29, 58 | mulcld 11225 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ ℂ) |
| 60 | | eqid 2769 |
. . . . . . . 8
⊢
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) |
| 61 | 60 | sqreulem 15407 |
. . . . . . 7
⊢ ((𝑋 ∈ ℂ ∧
((abs‘𝑋) + 𝑋) ≠ 0) →
((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i ·
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+)) |
| 62 | 26, 56, 61 | syl2anc 595 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i ·
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+)) |
| 63 | 62 | simp1d 1158 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋) |
| 64 | 62 | simp2d 1159 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))))) |
| 65 | 62 | simp3d 1160 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+) |
| 66 | | df-nel 3071 |
. . . . . 6
⊢ ((i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+ ↔
¬ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈
ℝ+) |
| 67 | 65, 66 | sylib 221 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ¬ (i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈
ℝ+) |
| 68 | 59, 26, 63, 64, 67 | eqsqrtd 15415 |
. . . 4
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = (√‘𝑋)) |
| 69 | 8 | ad2antrr 738 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr) |
| 70 | 69 | constrabscl 34109 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
Constr) |
| 71 | 26 | absge0d 15494 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤
(abs‘𝑋)) |
| 72 | 70, 27, 71 | constrresqrtcl 34108 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘(abs‘𝑋)) ∈ Constr) |
| 73 | 70, 69 | constraddcl 34093 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ∈
Constr) |
| 74 | 73, 56 | constrdircl 34096 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ Constr) |
| 75 | 72, 74 | constrmulcl 34102 |
. . . 4
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ Constr) |
| 76 | 68, 75 | eqeltrrd 2870 |
. . 3
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 77 | 25, 76 | pm2.61dan 824 |
. 2
⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (√‘𝑋) ∈
Constr) |
| 78 | 7, 77 | pm2.61dane 3051 |
1
⊢ (𝜑 → (√‘𝑋) ∈
Constr) |