Proof of Theorem normpyct
| Step | Hyp | Ref
| Expression |
| 1 | | normclt 5076 |
. . . . . . . . . 10
⊢ (A
∈ ℋ → (norm ‘A)
∈ ℝ) |
| 2 | | sqreclt 4697 |
. . . . . . . . . 10
⊢ ((norm ‘A) ∈ ℝ → ((norm ‘A)↑2) ∈ ℝ) |
| 3 | 1, 2 | syl 12 |
. . . . . . . . 9
⊢ (A
∈ ℋ → ((norm ‘A)↑2) ∈ ℝ) |
| 4 | 3 | recnd 4099 |
. . . . . . . 8
⊢ (A
∈ ℋ → ((norm ‘A)↑2) ∈ ℂ) |
| 5 | | ax0id 4076 |
. . . . . . . 8
⊢ (((norm ‘A)↑2) ∈ ℂ → (((norm
‘A)↑2) + 0) = ((norm
‘A)↑2)) |
| 6 | 4, 5 | syl 12 |
. . . . . . 7
⊢ (A
∈ ℋ → (((norm ‘A)↑2) + 0) = ((norm ‘A)↑2)) |
| 7 | 6 | adantr 306 |
. . . . . 6
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (((norm ‘A)↑2) + 0) =
((norm ‘A)↑2)) |
| 8 | | normclt 5076 |
. . . . . . . . 9
⊢ (B
∈ ℋ → (norm ‘B)
∈ ℝ) |
| 9 | | sqege0t 4708 |
. . . . . . . . 9
⊢ ((norm ‘B) ∈ ℝ → 0 ≤ ((norm
‘B)↑2)) |
| 10 | 8, 9 | syl 12 |
. . . . . . . 8
⊢ (B
∈ ℋ → 0 ≤ ((norm ‘B)↑2)) |
| 11 | 10 | adantl 305 |
. . . . . . 7
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ 0 ≤ ((norm ‘B)↑2)) |
| 12 | | ax0re 4063 |
. . . . . . . . . 10
⊢ 0 ∈ ℝ |
| 13 | | leadd2t 4351 |
. . . . . . . . . 10
⊢ ((0 ∈ ℝ ∧ ((norm
‘B)↑2) ∈ ℝ ∧
((norm ‘A)↑2) ∈ ℝ)
→ (0 ≤ ((norm ‘B)↑2)
↔ (((norm ‘A)↑2) + 0) ≤
(((norm ‘A)↑2) + ((norm
‘B)↑2)))) |
| 14 | 12, 13 | mp3an1 639 |
. . . . . . . . 9
⊢ ((((norm ‘B)↑2) ∈ ℝ ∧ ((norm
‘A)↑2) ∈ ℝ) → (0
≤ ((norm ‘B)↑2) ↔
(((norm ‘A)↑2) + 0) ≤ (((norm
‘A)↑2) + ((norm ‘B)↑2)))) |
| 15 | 14 | ancoms 334 |
. . . . . . . 8
⊢ ((((norm ‘A)↑2) ∈ ℝ ∧ ((norm
‘B)↑2) ∈ ℝ) → (0
≤ ((norm ‘B)↑2) ↔
(((norm ‘A)↑2) + 0) ≤ (((norm
‘A)↑2) + ((norm ‘B)↑2)))) |
| 16 | | sqreclt 4697 |
. . . . . . . . 9
⊢ ((norm ‘B) ∈ ℝ → ((norm ‘B)↑2) ∈ ℝ) |
| 17 | 8, 16 | syl 12 |
. . . . . . . 8
⊢ (B
∈ ℋ → ((norm ‘B)↑2) ∈ ℝ) |
| 18 | 15, 3, 17 | syl2an 349 |
. . . . . . 7
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (0 ≤ ((norm ‘B)↑2)
↔ (((norm ‘A)↑2) + 0) ≤
(((norm ‘A)↑2) + ((norm
‘B)↑2)))) |
| 19 | 11, 18 | mpbid 170 |
. . . . . 6
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (((norm ‘A)↑2) + 0) ≤
(((norm ‘A)↑2) + ((norm
‘B)↑2))) |
| 20 | 7, 19 | eqbrtrrd 2079 |
. . . . 5
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((norm ‘A)↑2) ≤
(((norm ‘A)↑2) + ((norm
‘B)↑2))) |
| 21 | 20 | adantr 306 |
. . . 4
⊢ (((A
∈ ℋ ∧ B ∈ ℋ )
∧ (A ·i
B) = 0) → ((norm ‘A)↑2) ≤ (((norm ‘A)↑2) + ((norm ‘B)↑2))) |
| 22 | | normpytht 5092 |
. . . . 5
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((A
·i B) = 0
→ ((norm ‘(A
+v B))↑2) = (((norm
‘A)↑2) + ((norm ‘B)↑2)))) |
| 23 | 22 | imp 277 |
. . . 4
⊢ (((A
∈ ℋ ∧ B ∈ ℋ )
∧ (A ·i
B) = 0) → ((norm ‘(A +v B))↑2) = (((norm ‘A)↑2) + ((norm ‘B)↑2))) |
| 24 | 21, 23 | breqtrrd 2083 |
. . 3
⊢ (((A
∈ ℋ ∧ B ∈ ℋ )
∧ (A ·i
B) = 0) → ((norm ‘A)↑2) ≤ ((norm ‘(A +v B))↑2)) |
| 25 | 24 | exp 291 |
. 2
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((A
·i B) = 0
→ ((norm ‘A)↑2) ≤ ((norm
‘(A +v B))↑2))) |
| 26 | | le2sqet 4707 |
. . 3
⊢ (((norm ‘A) ∈ ℝ ∧ (norm ‘(A +v B)) ∈ ℝ) → ((0 ≤ (norm
‘A) ∧ 0 ≤ (norm
‘(A +v B))) → ((norm ‘A) ≤ (norm ‘(A +v B)) ↔ ((norm ‘A)↑2) ≤ ((norm ‘(A +v B))↑2)))) |
| 27 | 1 | adantr 306 |
. . . 4
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (norm ‘A) ∈
ℝ) |
| 28 | | ax-hvaddcl 4984 |
. . . . 5
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (A +v B) ∈ ℋ ) |
| 29 | | normclt 5076 |
. . . . 5
⊢ ((A
+v B) ∈ ℋ
→ (norm ‘(A +v
B)) ∈ ℝ) |
| 30 | 28, 29 | syl 12 |
. . . 4
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (norm ‘(A +v
B)) ∈ ℝ) |
| 31 | 27, 30 | jca 236 |
. . 3
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((norm ‘A) ∈ ℝ
∧ (norm ‘(A +v
B)) ∈ ℝ)) |
| 32 | | normge0t 5077 |
. . . . 5
⊢ (A
∈ ℋ → 0 ≤ (norm ‘A)) |
| 33 | 32 | adantr 306 |
. . . 4
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ 0 ≤ (norm ‘A)) |
| 34 | | normge0t 5077 |
. . . . 5
⊢ ((A
+v B) ∈ ℋ
→ 0 ≤ (norm ‘(A
+v B))) |
| 35 | 28, 34 | syl 12 |
. . . 4
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ 0 ≤ (norm ‘(A
+v B))) |
| 36 | 33, 35 | jca 236 |
. . 3
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ (0 ≤ (norm ‘A) ∧ 0 ≤
(norm ‘(A +v
B)))) |
| 37 | 26, 31, 36 | sylc 62 |
. 2
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((norm ‘A) ≤ (norm
‘(A +v B)) ↔ ((norm ‘A)↑2) ≤ ((norm ‘(A +v B))↑2))) |
| 38 | 25, 37 | sylibrd 179 |
1
⊢ ((A
∈ ℋ ∧ B ∈ ℋ )
→ ((A
·i B) = 0
→ (norm ‘A) ≤ (norm
‘(A +v B)))) |