Proof of Theorem constrsqrtcl
| Step | Hyp | Ref
| Expression |
| 1 | | fveq2 6862 |
. . . . 5
⊢ (𝑋 = 0 → (√‘𝑋) =
(√‘0)) |
| 2 | | sqrt0 15259 |
. . . . 5
⊢
(√‘0) = 0 |
| 3 | 1, 2 | eqtrdi 2812 |
. . . 4
⊢ (𝑋 = 0 → (√‘𝑋) = 0) |
| 4 | | 0zd 12574 |
. . . . 5
⊢ (𝑋 = 0 → 0 ∈
ℤ) |
| 5 | 4 | zconstr 34022 |
. . . 4
⊢ (𝑋 = 0 → 0 ∈
Constr) |
| 6 | 3, 5 | eqeltrd 2861 |
. . 3
⊢ (𝑋 = 0 → (√‘𝑋) ∈
Constr) |
| 7 | 6 | adantl 485 |
. 2
⊢ ((𝜑 ∧ 𝑋 = 0) → (√‘𝑋) ∈
Constr) |
| 8 | | constrabscl.1 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈ Constr) |
| 9 | 8 | constrcn 34018 |
. . . . . . . . 9
⊢ (𝜑 → 𝑋 ∈ ℂ) |
| 10 | 9 | adantr 484 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈
ℂ) |
| 11 | 10 | negnegd 11527 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → --𝑋 = 𝑋) |
| 12 | 11 | fveq2d 6866 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘--𝑋) =
(√‘𝑋)) |
| 13 | | simpr 488 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈
ℝ+) |
| 14 | 13 | rpred 13031 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈
ℝ) |
| 15 | 13 | rpge0d 13035 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 0 ≤
-𝑋) |
| 16 | 14, 15 | sqrtnegd 15440 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘--𝑋) = (i
· (√‘-𝑋))) |
| 17 | 12, 16 | eqtr3d 2798 |
. . . . 5
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) = (i
· (√‘-𝑋))) |
| 18 | | iconstr 34024 |
. . . . . . 7
⊢ i ∈
Constr |
| 19 | 18 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → i ∈
Constr) |
| 20 | 8 | adantr 484 |
. . . . . . . 8
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr) |
| 21 | 20 | constrnegcl 34021 |
. . . . . . 7
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈ Constr) |
| 22 | 21, 14, 15 | constrresqrtcl 34035 |
. . . . . 6
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘-𝑋) ∈
Constr) |
| 23 | 19, 22 | constrmulcl 34029 |
. . . . 5
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) → (i
· (√‘-𝑋)) ∈ Constr) |
| 24 | 17, 23 | eqeltrd 2861 |
. . . 4
⊢ ((𝜑 ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 25 | 24 | adantlr 725 |
. . 3
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 26 | 9 | ad2antrr 736 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈
ℂ) |
| 27 | 26 | abscld 15457 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
ℝ) |
| 28 | 27 | recnd 11204 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
ℂ) |
| 29 | 28 | sqrtcld 15458 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘(abs‘𝑋)) ∈ ℂ) |
| 30 | 28, 26 | addcld 11195 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ∈
ℂ) |
| 31 | 30 | abscld 15457 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ∈
ℝ) |
| 32 | 31 | recnd 11204 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ∈
ℂ) |
| 33 | 9 | ad2antrr 736 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℂ) |
| 34 | 9 | abscld 15457 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (abs‘𝑋) ∈
ℝ) |
| 35 | 34 | ad2antrr 736 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈
ℝ) |
| 36 | 35 | recnd 11204 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈
ℂ) |
| 37 | | simpr 488 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ((abs‘𝑋) + 𝑋) = 0) |
| 38 | | addeq0 11604 |
. . . . . . . . . . . . . . . . . . 19
⊢
(((abs‘𝑋)
∈ ℂ ∧ 𝑋
∈ ℂ) → (((abs‘𝑋) + 𝑋) = 0 ↔ (abs‘𝑋) = -𝑋)) |
| 39 | 38 | biimpa 480 |
. . . . . . . . . . . . . . . . . 18
⊢
((((abs‘𝑋)
∈ ℂ ∧ 𝑋
∈ ℂ) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋) |
| 40 | 36, 33, 37, 39 | syl21anc 848 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋) |
| 41 | 40, 35 | eqeltrrd 2862 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → -𝑋 ∈ ℝ) |
| 42 | 33, 41 | negrebd 11535 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℝ) |
| 43 | | 0red 11178 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 0 ∈
ℝ) |
| 44 | | simplr 778 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ¬ -𝑋 ∈
ℝ+) |
| 45 | | negelrp 13022 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑋 ∈ ℝ → (-𝑋 ∈ ℝ+
↔ 𝑋 <
0)) |
| 46 | 45 | notbid 320 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑋 ∈ ℝ → (¬
-𝑋 ∈
ℝ+ ↔ ¬ 𝑋 < 0)) |
| 47 | 46 | biimpa 480 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑋 ∈ ℝ ∧ ¬
-𝑋 ∈
ℝ+) → ¬ 𝑋 < 0) |
| 48 | 42, 44, 47 | syl2anc 593 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → ¬ 𝑋 < 0) |
| 49 | 43, 42, 48 | nltled 11327 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 0 ≤ 𝑋) |
| 50 | 42, 49 | absidd 15441 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = 𝑋) |
| 51 | 50, 40 | eqtr3d 2798 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 = -𝑋) |
| 52 | 33, 51 | eqnegad 11907 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧
((abs‘𝑋) + 𝑋) = 0) → 𝑋 = 0) |
| 53 | 52 | ex 416 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) = 0 → 𝑋 = 0)) |
| 54 | 53 | necon3d 2977 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) → (𝑋 ≠ 0 → ((abs‘𝑋) + 𝑋) ≠ 0)) |
| 55 | 54 | impancom 455 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (¬ -𝑋 ∈ ℝ+ →
((abs‘𝑋) + 𝑋) ≠ 0)) |
| 56 | 55 | imp 410 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ≠ 0) |
| 57 | 30, 56 | absne0d 15468 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘((abs‘𝑋) +
𝑋)) ≠
0) |
| 58 | 30, 32, 57 | divcld 11961 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ ℂ) |
| 59 | 29, 58 | mulcld 11196 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ ℂ) |
| 60 | | eqid 2761 |
. . . . . . . 8
⊢
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) |
| 61 | 60 | sqreulem 15378 |
. . . . . . 7
⊢ ((𝑋 ∈ ℂ ∧
((abs‘𝑋) + 𝑋) ≠ 0) →
((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i ·
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+)) |
| 62 | 26, 56, 61 | syl2anc 593 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i ·
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+)) |
| 63 | 62 | simp1d 1154 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋) |
| 64 | 62 | simp2d 1155 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤
(ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))))) |
| 65 | 62 | simp3d 1156 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉
ℝ+) |
| 66 | | df-nel 3061 |
. . . . . 6
⊢ ((i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+ ↔
¬ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈
ℝ+) |
| 67 | 65, 66 | sylib 220 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ¬ (i
· ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈
ℝ+) |
| 68 | 59, 26, 63, 64, 67 | eqsqrtd 15386 |
. . . 4
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = (√‘𝑋)) |
| 69 | 8 | ad2antrr 736 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr) |
| 70 | 69 | constrabscl 34036 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(abs‘𝑋) ∈
Constr) |
| 71 | 26 | absge0d 15465 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤
(abs‘𝑋)) |
| 72 | 70, 27, 71 | constrresqrtcl 34035 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘(abs‘𝑋)) ∈ Constr) |
| 73 | 70, 69 | constraddcl 34020 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((abs‘𝑋) + 𝑋) ∈
Constr) |
| 74 | 73, 56 | constrdircl 34023 |
. . . . 5
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ Constr) |
| 75 | 72, 74 | constrmulcl 34029 |
. . . 4
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ Constr) |
| 76 | 68, 75 | eqeltrrd 2862 |
. . 3
⊢ (((𝜑 ∧ 𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) →
(√‘𝑋) ∈
Constr) |
| 77 | 25, 76 | pm2.61dan 822 |
. 2
⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (√‘𝑋) ∈
Constr) |
| 78 | 7, 77 | pm2.61dane 3043 |
1
⊢ (𝜑 → (√‘𝑋) ∈
Constr) |