Proof of Theorem abstri
| Step | Hyp | Ref
| Expression |
| 1 | | releabs.1 |
. . . . . . . 8
⊢ A
∈ ℂ |
| 2 | | abstri.2 |
. . . . . . . . 9
⊢ B
∈ ℂ |
| 3 | 2 | cjcl 6707 |
. . . . . . . 8
⊢ (∗ ‘B) ∈ ℂ |
| 4 | 1, 3 | mulcl 5301 |
. . . . . . 7
⊢ (A
· (∗ ‘B)) ∈
ℂ |
| 5 | 4 | releabs 6836 |
. . . . . 6
⊢ (ℜ ‘(A · (∗ ‘B))) ≤ (abs ‘(A · (∗ ‘B))) |
| 6 | 1, 3 | absmul 6790 |
. . . . . . 7
⊢ (abs ‘(A · (∗ ‘B))) = ((abs ‘A) · (abs ‘(∗ ‘B))) |
| 7 | 2 | abscj 6788 |
. . . . . . . 8
⊢ (abs ‘(∗ ‘B)) = (abs ‘B) |
| 8 | 7 | opreq2i 3963 |
. . . . . . 7
⊢ ((abs ‘A) · (abs ‘(∗ ‘B))) = ((abs ‘A) · (abs ‘B)) |
| 9 | 6, 8 | eqtr 1492 |
. . . . . 6
⊢ (abs ‘(A · (∗ ‘B))) = ((abs ‘A) · (abs ‘B)) |
| 10 | 5, 9 | breqtr 2633 |
. . . . 5
⊢ (ℜ ‘(A · (∗ ‘B))) ≤ ((abs ‘A) · (abs ‘B)) |
| 11 | | 2pos 5944 |
. . . . . 6
⊢ 0 < 2 |
| 12 | 4 | recl 6705 |
. . . . . . 7
⊢ (ℜ ‘(A · (∗ ‘B))) ∈ ℝ |
| 13 | 1 | abscl 6782 |
. . . . . . . 8
⊢ (abs ‘A) ∈ ℝ |
| 14 | 2 | abscl 6782 |
. . . . . . . 8
⊢ (abs ‘B) ∈ ℝ |
| 15 | 13, 14 | remulcl 5315 |
. . . . . . 7
⊢ ((abs ‘A) · (abs ‘B)) ∈ ℝ |
| 16 | | 2re 5934 |
. . . . . . 7
⊢ 2 ∈ ℝ |
| 17 | 12, 15, 16 | lemul2 5800 |
. . . . . 6
⊢ (0 < 2 → ((ℜ ‘(A · (∗ ‘B))) ≤ ((abs ‘A) · (abs ‘B)) ↔ (2 · (ℜ ‘(A · (∗ ‘B)))) ≤ (2 · ((abs ‘A) · (abs ‘B))))) |
| 18 | 11, 17 | ax-mp 7 |
. . . . 5
⊢ ((ℜ ‘(A · (∗ ‘B))) ≤ ((abs ‘A) · (abs ‘B)) ↔ (2 · (ℜ ‘(A · (∗ ‘B)))) ≤ (2 · ((abs ‘A) · (abs ‘B)))) |
| 19 | 10, 18 | mpbi 189 |
. . . 4
⊢ (2 · (ℜ ‘(A · (∗ ‘B)))) ≤ (2 · ((abs ‘A) · (abs ‘B))) |
| 20 | 16, 12 | remulcl 5315 |
. . . . 5
⊢ (2 · (ℜ ‘(A · (∗ ‘B)))) ∈ ℝ |
| 21 | 16, 15 | remulcl 5315 |
. . . . 5
⊢ (2 · ((abs ‘A) · (abs ‘B))) ∈ ℝ |
| 22 | 13 | resqcl 6562 |
. . . . . 6
⊢ ((abs ‘A)↑2) ∈ ℝ |
| 23 | 14 | resqcl 6562 |
. . . . . 6
⊢ ((abs ‘B)↑2) ∈ ℝ |
| 24 | 22, 23 | readdcl 5314 |
. . . . 5
⊢ (((abs ‘A)↑2) + ((abs ‘B)↑2)) ∈ ℝ |
| 25 | 20, 21, 24 | leadd2 5575 |
. . . 4
⊢ ((2 · (ℜ ‘(A · (∗ ‘B)))) ≤ (2 · ((abs ‘A) · (abs ‘B))) ↔ ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · (ℜ ‘(A · (∗ ‘B))))) ≤ ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · ((abs ‘A) · (abs ‘B))))) |
| 26 | 19, 25 | mpbi 189 |
. . 3
⊢ ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · (ℜ ‘(A · (∗ ‘B))))) ≤ ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · ((abs ‘A) · (abs ‘B)))) |
| 27 | 1, 2 | sqabsadd 6793 |
. . 3
⊢ ((abs ‘(A + B))↑2)
= ((((abs ‘A)↑2) + ((abs
‘B)↑2)) + (2 · (ℜ
‘(A · (∗
‘B))))) |
| 28 | 13 | recn 5294 |
. . . . 5
⊢ (abs ‘A) ∈ ℂ |
| 29 | 14 | recn 5294 |
. . . . 5
⊢ (abs ‘B) ∈ ℂ |
| 30 | 28, 29 | binom2 6583 |
. . . 4
⊢ (((abs ‘A) + (abs ‘B))↑2) = ((((abs ‘A)↑2) + (2 · ((abs ‘A) · (abs ‘B)))) + ((abs ‘B)↑2)) |
| 31 | 28 | sqcl 6553 |
. . . . 5
⊢ ((abs ‘A)↑2) ∈ ℂ |
| 32 | 21 | recn 5294 |
. . . . 5
⊢ (2 · ((abs ‘A) · (abs ‘B))) ∈ ℂ |
| 33 | 29 | sqcl 6553 |
. . . . 5
⊢ ((abs ‘B)↑2) ∈ ℂ |
| 34 | 31, 32, 33 | add23 5321 |
. . . 4
⊢ ((((abs ‘A)↑2) + (2 · ((abs ‘A) · (abs ‘B)))) + ((abs ‘B)↑2)) = ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · ((abs ‘A) · (abs ‘B)))) |
| 35 | 30, 34 | eqtr 1492 |
. . 3
⊢ (((abs ‘A) + (abs ‘B))↑2) = ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · ((abs ‘A) · (abs ‘B)))) |
| 36 | 26, 27, 35 | 3brtr4 2638 |
. 2
⊢ ((abs ‘(A + B))↑2)
≤ (((abs ‘A) + (abs
‘B))↑2) |
| 37 | 1, 2 | addcl 5300 |
. . . 4
⊢ (A +
B) ∈ ℂ |
| 38 | 37 | absge0 6783 |
. . 3
⊢ 0 ≤ (abs ‘(A + B)) |
| 39 | 1 | absge0 6783 |
. . . 4
⊢ 0 ≤ (abs ‘A) |
| 40 | 2 | absge0 6783 |
. . . 4
⊢ 0 ≤ (abs ‘B) |
| 41 | 13, 14 | addge0 5581 |
. . . 4
⊢ ((0 ≤ (abs ‘A) ⋀ 0 ≤ (abs ‘B)) → 0 ≤ ((abs ‘A) + (abs ‘B))) |
| 42 | 39, 40, 41 | mp2an 696 |
. . 3
⊢ 0 ≤ ((abs ‘A) + (abs ‘B)) |
| 43 | 37 | abscl 6782 |
. . . 4
⊢ (abs ‘(A + B)) ∈
ℝ |
| 44 | 13, 14 | readdcl 5314 |
. . . 4
⊢ ((abs ‘A) + (abs ‘B)) ∈ ℝ |
| 45 | 43, 44 | le2sq 6564 |
. . 3
⊢ ((0 ≤ (abs ‘(A + B)) ⋀
0 ≤ ((abs ‘A) + (abs
‘B))) → ((abs ‘(A + B)) ≤
((abs ‘A) + (abs ‘B)) ↔ ((abs ‘(A + B))↑2)
≤ (((abs ‘A) + (abs
‘B))↑2))) |
| 46 | 38, 42, 45 | mp2an 696 |
. 2
⊢ ((abs ‘(A + B)) ≤
((abs ‘A) + (abs ‘B)) ↔ ((abs ‘(A + B))↑2)
≤ (((abs ‘A) + (abs
‘B))↑2)) |
| 47 | 36, 46 | mpbir 190 |
1
⊢ (abs ‘(A + B)) ≤
((abs ‘A) + (abs ‘B)) |