Proof of Theorem abs00
| Step | Hyp | Ref
| Expression |
| 1 | | absval2.1 |
. . . 4
⊢ A
∈ ℂ |
| 2 | 1 | absval2 4836 |
. . 3
⊢ (abs ‘A) = (√ ‘(((ℜ ‘A)↑2) + ((ℑ ‘A)↑2))) |
| 3 | 2 | cleq1i 1108 |
. 2
⊢ ((abs ‘A) = 0 ↔ (√ ‘(((ℜ
‘A)↑2) + ((ℑ
‘A)↑2))) = 0) |
| 4 | 1 | recl 4802 |
. . . . 5
⊢ (ℜ ‘A) ∈ ℝ |
| 5 | 4 | sqrecl 4699 |
. . . 4
⊢ ((ℜ ‘A)↑2) ∈ ℝ |
| 6 | 1 | imcl 4803 |
. . . . 5
⊢ (ℑ ‘A) ∈ ℝ |
| 7 | 6 | sqrecl 4699 |
. . . 4
⊢ ((ℑ ‘A)↑2) ∈ ℝ |
| 8 | 5, 7 | readdcl 4118 |
. . 3
⊢ (((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) ∈ ℝ |
| 9 | 4 | sqege0 4704 |
. . . 4
⊢ 0 ≤ ((ℜ ‘A)↑2) |
| 10 | 6 | sqege0 4704 |
. . . 4
⊢ 0 ≤ ((ℑ ‘A)↑2) |
| 11 | 5, 7 | addge0 4324 |
. . . 4
⊢ ((0 ≤ ((ℜ ‘A)↑2) ∧ 0 ≤ ((ℑ ‘A)↑2)) → 0 ≤ (((ℜ ‘A)↑2) + ((ℑ ‘A)↑2))) |
| 12 | 9, 10, 11 | mp2an 520 |
. . 3
⊢ 0 ≤ (((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) |
| 13 | | sqr00t 4770 |
. . 3
⊢ (((((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) ∈ ℝ ∧ 0 ≤ (((ℜ
‘A)↑2) + ((ℑ
‘A)↑2))) → ((√
‘(((ℜ ‘A)↑2) +
((ℑ ‘A)↑2))) = 0 ↔
(((ℜ ‘A)↑2) + ((ℑ
‘A)↑2)) = 0)) |
| 14 | 8, 12, 13 | mp2an 520 |
. 2
⊢ ((√ ‘(((ℜ ‘A)↑2) + ((ℑ ‘A)↑2))) = 0 ↔ (((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) = 0) |
| 15 | 5, 7 | add20 4329 |
. . . 4
⊢ ((0 ≤ ((ℜ ‘A)↑2) ∧ 0 ≤ ((ℑ ‘A)↑2)) → ((((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) = 0 ↔ (((ℜ ‘A)↑2) = 0 ∧ ((ℑ ‘A)↑2) = 0))) |
| 16 | 9, 10, 15 | mp2an 520 |
. . 3
⊢ ((((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) = 0 ↔ (((ℜ ‘A)↑2) = 0 ∧ ((ℑ ‘A)↑2) = 0)) |
| 17 | 4 | recn 4098 |
. . . . 5
⊢ (ℜ ‘A) ∈ ℂ |
| 18 | 17 | sqe0 4687 |
. . . 4
⊢ (((ℜ ‘A)↑2) = 0 ↔ (ℜ ‘A) = 0) |
| 19 | 6 | recn 4098 |
. . . . 5
⊢ (ℑ ‘A) ∈ ℂ |
| 20 | 19 | sqe0 4687 |
. . . 4
⊢ (((ℑ ‘A)↑2) = 0 ↔ (ℑ ‘A) = 0) |
| 21 | 18, 20 | anbi12i 369 |
. . 3
⊢ ((((ℜ ‘A)↑2) = 0 ∧ ((ℑ ‘A)↑2) = 0) ↔ ((ℜ ‘A) = 0 ∧ (ℑ ‘A) = 0)) |
| 22 | | opreq1 3006 |
. . . . . . 7
⊢ ((ℜ ‘A) = 0 → ((ℜ ‘A) + ((ℑ ‘A) · i)) = (0 + ((ℑ
‘A) · i))) |
| 23 | | opreq1 3006 |
. . . . . . . 8
⊢ ((ℑ ‘A) = 0 → ((ℑ ‘A) · i) = (0 ·
i)) |
| 24 | 23 | opreq2d 3013 |
. . . . . . 7
⊢ ((ℑ ‘A) = 0 → (0 + ((ℑ ‘A) · i)) = (0 + (0 ·
i))) |
| 25 | 22, 24 | sylan9eq 1144 |
. . . . . 6
⊢ (((ℜ ‘A) = 0 ∧ (ℑ ‘A) = 0) → ((ℜ ‘A) + ((ℑ ‘A) · i)) = (0 + (0 ·
i))) |
| 26 | | 0cn 4100 |
. . . . . . . . 9
⊢ 0 ∈ ℂ |
| 27 | | axicn 4065 |
. . . . . . . . 9
⊢ i ∈ ℂ |
| 28 | 26, 27 | mulcl 4105 |
. . . . . . . 8
⊢ (0 · i) ∈
ℂ |
| 29 | 28 | addid2 4113 |
. . . . . . 7
⊢ (0 + (0 · i)) = (0 ·
i) |
| 30 | 27 | mulzer2 4186 |
. . . . . . 7
⊢ (0 · i) = 0 |
| 31 | 29, 30 | eqtr 1119 |
. . . . . 6
⊢ (0 + (0 · i)) = 0 |
| 32 | 25, 31 | syl6eq 1140 |
. . . . 5
⊢ (((ℜ ‘A) = 0 ∧ (ℑ ‘A) = 0) → ((ℜ ‘A) + ((ℑ ‘A) · i)) = 0) |
| 33 | 1 | replim 4805 |
. . . . 5
⊢ A =
((ℜ ‘A) + ((ℑ
‘A) · i)) |
| 34 | 32, 33 | syl5eq 1136 |
. . . 4
⊢ (((ℜ ‘A) = 0 ∧ (ℑ ‘A) = 0) → A
= 0) |
| 35 | | fveq2 2832 |
. . . . . 6
⊢ (A = 0
→ (ℜ ‘A) = (ℜ
‘0)) |
| 36 | | re0 4833 |
. . . . . 6
⊢ (ℜ ‘0) = 0 |
| 37 | 35, 36 | syl6eq 1140 |
. . . . 5
⊢ (A = 0
→ (ℜ ‘A) = 0) |
| 38 | | fveq2 2832 |
. . . . . 6
⊢ (A = 0
→ (ℑ ‘A) = (ℑ
‘0)) |
| 39 | | im0 4834 |
. . . . . 6
⊢ (ℑ ‘0) = 0 |
| 40 | 38, 39 | syl6eq 1140 |
. . . . 5
⊢ (A = 0
→ (ℑ ‘A) = 0) |
| 41 | 37, 40 | jca 236 |
. . . 4
⊢ (A = 0
→ ((ℜ ‘A) = 0 ∧
(ℑ ‘A) = 0)) |
| 42 | 34, 41 | impbi 139 |
. . 3
⊢ (((ℜ ‘A) = 0 ∧ (ℑ ‘A) = 0) ↔ A
= 0) |
| 43 | 16, 21, 42 | 3bitr 155 |
. 2
⊢ ((((ℜ ‘A)↑2) + ((ℑ ‘A)↑2)) = 0 ↔ A = 0) |
| 44 | 3, 14, 43 | 3bitr 155 |
1
⊢ ((abs ‘A) = 0 ↔ A
= 0) |