Proof of Theorem norm-ii
| Step | Hyp | Ref
| Expression |
| 1 | | ax1re 4064 |
. . . . . . . . . . 11
⊢ 1 ∈ ℝ |
| 2 | | 1cn 4101 |
. . . . . . . . . . . 12
⊢ 1 ∈ ℂ |
| 3 | 2 | cjre 4811 |
. . . . . . . . . . 11
⊢ (1 ∈ ℝ ↔ (∗
‘1) = 1) |
| 4 | 1, 3 | mpbi 164 |
. . . . . . . . . 10
⊢ (∗ ‘1) = 1 |
| 5 | 4 | opreq1i 3009 |
. . . . . . . . 9
⊢ ((∗ ‘1) · (B ·i A)) = (1 · (B ·i A)) |
| 6 | | norm-ii.2 |
. . . . . . . . . . 11
⊢ B
∈ ℋ |
| 7 | | norm-ii.1 |
. . . . . . . . . . 11
⊢ A
∈ ℋ |
| 8 | 6, 7 | hicl 5044 |
. . . . . . . . . 10
⊢ (B
·i A)
∈ ℂ |
| 9 | 8 | mulid2 4115 |
. . . . . . . . 9
⊢ (1 · (B ·i A)) = (B
·i A) |
| 10 | 5, 9 | eqtr 1119 |
. . . . . . . 8
⊢ ((∗ ‘1) · (B ·i A)) = (B
·i A) |
| 11 | 7, 6 | hicl 5044 |
. . . . . . . . 9
⊢ (A
·i B)
∈ ℂ |
| 12 | 11 | mulid2 4115 |
. . . . . . . 8
⊢ (1 · (A ·i B)) = (A
·i B) |
| 13 | 10, 12 | opreq12i 3011 |
. . . . . . 7
⊢ (((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) = ((B
·i A) +
(A ·i
B)) |
| 14 | | ax0re 4063 |
. . . . . . . . . 10
⊢ 0 ∈ ℝ |
| 15 | | lt01 4377 |
. . . . . . . . . 10
⊢ 0 < 1 |
| 16 | 14, 1, 15 | ltlei 4303 |
. . . . . . . . 9
⊢ 0 ≤ 1 |
| 17 | 1 | absid 4850 |
. . . . . . . . 9
⊢ (0 ≤ 1 → (abs ‘1) =
1) |
| 18 | 16, 17 | ax-mp 6 |
. . . . . . . 8
⊢ (abs ‘1) = 1 |
| 19 | 2, 6, 7, 18 | normlem7 5069 |
. . . . . . 7
⊢ (((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) ≤ (2 · ((√ ‘(A ·i A)) · (√ ‘(B ·i B)))) |
| 20 | 13, 19 | eqbrtrr 2078 |
. . . . . 6
⊢ ((B
·i A) +
(A ·i
B)) ≤ (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B)))) |
| 21 | | cleqid 1102 |
. . . . . . . . . 10
⊢ -(((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) = -(((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) |
| 22 | 2, 6, 7, 21 | normlem2 5064 |
. . . . . . . . 9
⊢ -(((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) ∈ ℝ |
| 23 | 2 | cjcl 4804 |
. . . . . . . . . . . 12
⊢ (∗ ‘1) ∈
ℂ |
| 24 | 23, 8 | mulcl 4105 |
. . . . . . . . . . 11
⊢ ((∗ ‘1) · (B ·i A)) ∈ ℂ |
| 25 | 2, 11 | mulcl 4105 |
. . . . . . . . . . 11
⊢ (1 · (A ·i B)) ∈ ℂ |
| 26 | 24, 25 | addcl 4104 |
. . . . . . . . . 10
⊢ (((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) ∈ ℂ |
| 27 | 26 | negre 4825 |
. . . . . . . . 9
⊢ (-(((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) ∈ ℝ ↔ (((∗ ‘1)
· (B
·i A)) + (1
· (A
·i B)))
∈ ℝ) |
| 28 | 22, 27 | mpbi 164 |
. . . . . . . 8
⊢ (((∗ ‘1) · (B ·i A)) + (1 · (A ·i B))) ∈ ℝ |
| 29 | 13, 28 | eqeltrr 1160 |
. . . . . . 7
⊢ ((B
·i A) +
(A ·i
B)) ∈ ℝ |
| 30 | | 2re 4470 |
. . . . . . . 8
⊢ 2 ∈ ℝ |
| 31 | | hiidge0t 5056 |
. . . . . . . . . . 11
⊢ (A
∈ ℋ → 0 ≤ (A
·i A)) |
| 32 | 7, 31 | ax-mp 6 |
. . . . . . . . . 10
⊢ 0 ≤ (A ·i A) |
| 33 | | hiidrclt 5053 |
. . . . . . . . . . . 12
⊢ (A
∈ ℋ → (A
·i A)
∈ ℝ) |
| 34 | 7, 33 | ax-mp 6 |
. . . . . . . . . . 11
⊢ (A
·i A)
∈ ℝ |
| 35 | 34 | sqrcl 4758 |
. . . . . . . . . 10
⊢ (0 ≤ (A ·i A) → (√ ‘(A ·i A)) ∈ ℝ) |
| 36 | 32, 35 | ax-mp 6 |
. . . . . . . . 9
⊢ (√ ‘(A ·i A)) ∈ ℝ |
| 37 | | hiidge0t 5056 |
. . . . . . . . . . 11
⊢ (B
∈ ℋ → 0 ≤ (B
·i B)) |
| 38 | 6, 37 | ax-mp 6 |
. . . . . . . . . 10
⊢ 0 ≤ (B ·i B) |
| 39 | | hiidrclt 5053 |
. . . . . . . . . . . 12
⊢ (B
∈ ℋ → (B
·i B)
∈ ℝ) |
| 40 | 6, 39 | ax-mp 6 |
. . . . . . . . . . 11
⊢ (B
·i B)
∈ ℝ |
| 41 | 40 | sqrcl 4758 |
. . . . . . . . . 10
⊢ (0 ≤ (B ·i B) → (√ ‘(B ·i B)) ∈ ℝ) |
| 42 | 38, 41 | ax-mp 6 |
. . . . . . . . 9
⊢ (√ ‘(B ·i B)) ∈ ℝ |
| 43 | 36, 42 | remulcl 4119 |
. . . . . . . 8
⊢ ((√ ‘(A ·i A)) · (√ ‘(B ·i B))) ∈ ℝ |
| 44 | 30, 43 | remulcl 4119 |
. . . . . . 7
⊢ (2 · ((√ ‘(A ·i A)) · (√ ‘(B ·i B)))) ∈ ℝ |
| 45 | 34, 40 | readdcl 4118 |
. . . . . . 7
⊢ ((A
·i A) +
(B ·i
B)) ∈ ℝ |
| 46 | 29, 44, 45 | leadd2 4315 |
. . . . . 6
⊢ (((B
·i A) +
(A ·i
B)) ≤ (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B))))
↔ (((A
·i A) +
(B ·i
B)) + ((B ·i A) + (A
·i B)))
≤ (((A
·i A) +
(B ·i
B)) + (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B)))))) |
| 47 | 20, 46 | mpbi 164 |
. . . . 5
⊢ (((A
·i A) +
(B ·i
B)) + ((B ·i A) + (A
·i B)))
≤ (((A
·i A) +
(B ·i
B)) + (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B))))) |
| 48 | 7, 6 | hvaddcl 4999 |
. . . . . . 7
⊢ (A
+v B) ∈
ℋ |
| 49 | | his7 5051 |
. . . . . . 7
⊢ (((A
+v B) ∈ ℋ
∧ A ∈ ℋ ∧ B ∈ ℋ ) → ((A +v B) ·i (A +v B)) = (((A
+v B)
·i A) +
((A +v B) ·i B))) |
| 50 | 48, 7, 6, 49 | mp3an 642 |
. . . . . 6
⊢ ((A
+v B)
·i (A
+v B)) = (((A +v B) ·i A) + ((A
+v B)
·i B)) |
| 51 | | ax-his2 5046 |
. . . . . . . . 9
⊢ ((A
∈ ℋ ∧ B ∈ ℋ ∧
A ∈ ℋ ) → ((A +v B) ·i A) = ((A
·i A) +
(B ·i
A))) |
| 52 | 7, 6, 7, 51 | mp3an 642 |
. . . . . . . 8
⊢ ((A
+v B)
·i A) =
((A ·i
A) + (B
·i A)) |
| 53 | | ax-his2 5046 |
. . . . . . . . 9
⊢ ((A
∈ ℋ ∧ B ∈ ℋ ∧
B ∈ ℋ ) → ((A +v B) ·i B) = ((A
·i B) +
(B ·i
B))) |
| 54 | 7, 6, 6, 53 | mp3an 642 |
. . . . . . . 8
⊢ ((A
+v B)
·i B) =
((A ·i
B) + (B
·i B)) |
| 55 | 52, 54 | opreq12i 3011 |
. . . . . . 7
⊢ (((A
+v B)
·i A) +
((A +v B) ·i B)) = (((A
·i A) +
(B ·i
A)) + ((A ·i B) + (B
·i B))) |
| 56 | 7, 7 | hicl 5044 |
. . . . . . . . 9
⊢ (A
·i A)
∈ ℂ |
| 57 | 56, 8 | addcl 4104 |
. . . . . . . 8
⊢ ((A
·i A) +
(B ·i
A)) ∈ ℂ |
| 58 | 6, 6 | hicl 5044 |
. . . . . . . 8
⊢ (B
·i B)
∈ ℂ |
| 59 | 57, 11, 58 | addass 4108 |
. . . . . . 7
⊢ ((((A
·i A) +
(B ·i
A)) + (A ·i B)) + (B
·i B)) =
(((A ·i
A) + (B
·i A)) +
((A ·i
B) + (B
·i B))) |
| 60 | 55, 59 | eqtr4 1122 |
. . . . . 6
⊢ (((A
+v B)
·i A) +
((A +v B) ·i B)) = ((((A
·i A) +
(B ·i
A)) + (A ·i B)) + (B
·i B)) |
| 61 | 56, 8, 11 | addass 4108 |
. . . . . . . 8
⊢ (((A
·i A) +
(B ·i
A)) + (A ·i B)) = ((A
·i A) +
((B ·i
A) + (A
·i B))) |
| 62 | 61 | opreq1i 3009 |
. . . . . . 7
⊢ ((((A
·i A) +
(B ·i
A)) + (A ·i B)) + (B
·i B)) =
(((A ·i
A) + ((B ·i A) + (A
·i B))) +
(B ·i
B)) |
| 63 | 8, 11 | addcl 4104 |
. . . . . . . 8
⊢ ((B
·i A) +
(A ·i
B)) ∈ ℂ |
| 64 | 56, 63, 58 | add23 4129 |
. . . . . . 7
⊢ (((A
·i A) +
((B ·i
A) + (A
·i B))) +
(B ·i
B)) = (((A ·i A) + (B
·i B)) +
((B ·i
A) + (A
·i B))) |
| 65 | 62, 64 | eqtr 1119 |
. . . . . 6
⊢ ((((A
·i A) +
(B ·i
A)) + (A ·i B)) + (B
·i B)) =
(((A ·i
A) + (B
·i B)) +
((B ·i
A) + (A
·i B))) |
| 66 | 50, 60, 65 | 3eqtr 1123 |
. . . . 5
⊢ ((A
+v B)
·i (A
+v B)) = (((A ·i A) + (B
·i B)) +
((B ·i
A) + (A
·i B))) |
| 67 | 36 | recn 4098 |
. . . . . . 7
⊢ (√ ‘(A ·i A)) ∈ ℂ |
| 68 | 42 | recn 4098 |
. . . . . . 7
⊢ (√ ‘(B ·i B)) ∈ ℂ |
| 69 | 67, 68 | binom 4712 |
. . . . . 6
⊢ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2) = ((((√ ‘(A ·i A))↑2) + (2 · ((√ ‘(A ·i A)) · (√ ‘(B ·i B))))) + ((√ ‘(B ·i B))↑2)) |
| 70 | 67 | sqcl 4686 |
. . . . . . 7
⊢ ((√ ‘(A ·i A))↑2) ∈ ℂ |
| 71 | | 2cn 4471 |
. . . . . . . 8
⊢ 2 ∈ ℂ |
| 72 | 67, 68 | mulcl 4105 |
. . . . . . . 8
⊢ ((√ ‘(A ·i A)) · (√ ‘(B ·i B))) ∈ ℂ |
| 73 | 71, 72 | mulcl 4105 |
. . . . . . 7
⊢ (2 · ((√ ‘(A ·i A)) · (√ ‘(B ·i B)))) ∈ ℂ |
| 74 | 68 | sqcl 4686 |
. . . . . . 7
⊢ ((√ ‘(B ·i B))↑2) ∈ ℂ |
| 75 | 70, 73, 74 | add23 4129 |
. . . . . 6
⊢ ((((√ ‘(A ·i A))↑2) + (2 · ((√ ‘(A ·i A)) · (√ ‘(B ·i B))))) + ((√ ‘(B ·i B))↑2)) = ((((√ ‘(A ·i A))↑2) + ((√ ‘(B ·i B))↑2)) + (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B))))) |
| 76 | 34 | sqsqr 4775 |
. . . . . . . . 9
⊢ (0 ≤ (A ·i A) → ((√ ‘(A ·i A))↑2) = (A
·i A)) |
| 77 | 32, 76 | ax-mp 6 |
. . . . . . . 8
⊢ ((√ ‘(A ·i A))↑2) = (A
·i A) |
| 78 | 40 | sqsqr 4775 |
. . . . . . . . 9
⊢ (0 ≤ (B ·i B) → ((√ ‘(B ·i B))↑2) = (B
·i B)) |
| 79 | 38, 78 | ax-mp 6 |
. . . . . . . 8
⊢ ((√ ‘(B ·i B))↑2) = (B
·i B) |
| 80 | 77, 79 | opreq12i 3011 |
. . . . . . 7
⊢ (((√ ‘(A ·i A))↑2) + ((√ ‘(B ·i B))↑2)) = ((A ·i A) + (B
·i B)) |
| 81 | 80 | opreq1i 3009 |
. . . . . 6
⊢ ((((√ ‘(A ·i A))↑2) + ((√ ‘(B ·i B))↑2)) + (2 · ((√
‘(A
·i A))
· (√ ‘(B
·i B))))) =
(((A ·i
A) + (B
·i B)) + (2
· ((√ ‘(A
·i A))
· (√ ‘(B
·i B))))) |
| 82 | 69, 75, 81 | 3eqtr 1123 |
. . . . 5
⊢ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2) = (((A ·i A) + (B
·i B)) + (2
· ((√ ‘(A
·i A))
· (√ ‘(B
·i B))))) |
| 83 | 47, 66, 82 | 3brtr4 2085 |
. . . 4
⊢ ((A
+v B)
·i (A
+v B)) ≤ (((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2) |
| 84 | | hiidge0t 5056 |
. . . . . 6
⊢ ((A
+v B) ∈ ℋ
→ 0 ≤ ((A +v
B) ·i
(A +v B))) |
| 85 | 48, 84 | ax-mp 6 |
. . . . 5
⊢ 0 ≤ ((A +v B) ·i (A +v B)) |
| 86 | 36, 42 | readdcl 4118 |
. . . . . 6
⊢ ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) ∈ ℝ |
| 87 | 86 | sqege0 4704 |
. . . . 5
⊢ 0 ≤ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2) |
| 88 | | hiidrclt 5053 |
. . . . . . 7
⊢ ((A
+v B) ∈ ℋ
→ ((A +v B) ·i (A +v B)) ∈ ℝ) |
| 89 | 48, 88 | ax-mp 6 |
. . . . . 6
⊢ ((A
+v B)
·i (A
+v B)) ∈
ℝ |
| 90 | 86 | sqrecl 4699 |
. . . . . 6
⊢ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2) ∈ ℝ |
| 91 | 89, 90 | sqrle 4765 |
. . . . 5
⊢ ((0 ≤ ((A +v B) ·i (A +v B)) ∧ 0 ≤ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2)) → (((A +v B) ·i (A +v B)) ≤ (((√ ‘(A ·i A)) + (√ ‘(B ·i B)))↑2) ↔ (√ ‘((A +v B) ·i (A +v B))) ≤ (√ ‘(((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2)))) |
| 92 | 85, 87, 91 | mp2an 520 |
. . . 4
⊢ (((A
+v B)
·i (A
+v B)) ≤ (((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2) ↔ (√ ‘((A +v B) ·i (A +v B))) ≤ (√ ‘(((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2))) |
| 93 | 83, 92 | mpbi 164 |
. . 3
⊢ (√ ‘((A +v B) ·i (A +v B))) ≤ (√ ‘(((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2)) |
| 94 | 34 | sqrge0 4760 |
. . . . . 6
⊢ (0 ≤ (A ·i A) → 0 ≤ (√ ‘(A ·i A))) |
| 95 | 32, 94 | ax-mp 6 |
. . . . 5
⊢ 0 ≤ (√ ‘(A ·i A)) |
| 96 | 40 | sqrge0 4760 |
. . . . . 6
⊢ (0 ≤ (B ·i B) → 0 ≤ (√ ‘(B ·i B))) |
| 97 | 38, 96 | ax-mp 6 |
. . . . 5
⊢ 0 ≤ (√ ‘(B ·i B)) |
| 98 | 36, 42 | addge0 4324 |
. . . . 5
⊢ ((0 ≤ (√ ‘(A ·i A)) ∧ 0 ≤ (√ ‘(B ·i B))) → 0 ≤ ((√ ‘(A ·i A)) + (√ ‘(B ·i B)))) |
| 99 | 95, 97, 98 | mp2an 520 |
. . . 4
⊢ 0 ≤ ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) |
| 100 | 86 | sqrsqe 4774 |
. . . 4
⊢ (0 ≤ ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) → (√ ‘(((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2)) = ((√ ‘(A ·i A)) + (√ ‘(B ·i B)))) |
| 101 | 99, 100 | ax-mp 6 |
. . 3
⊢ (√ ‘(((√
‘(A
·i A)) +
(√ ‘(B
·i B)))↑2)) = ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) |
| 102 | 93, 101 | breqtr 2080 |
. 2
⊢ (√ ‘((A +v B) ·i (A +v B))) ≤ ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) |
| 103 | | normvalt 5075 |
. . 3
⊢ ((A
+v B) ∈ ℋ
→ (norm ‘(A +v
B)) = (√ ‘((A +v B) ·i (A +v B)))) |
| 104 | 48, 103 | ax-mp 6 |
. 2
⊢ (norm ‘(A +v B)) = (√ ‘((A +v B) ·i (A +v B))) |
| 105 | | normvalt 5075 |
. . . 4
⊢ (A
∈ ℋ → (norm ‘A) =
(√ ‘(A
·i A))) |
| 106 | 7, 105 | ax-mp 6 |
. . 3
⊢ (norm ‘A) = (√ ‘(A ·i A)) |
| 107 | | normvalt 5075 |
. . . 4
⊢ (B
∈ ℋ → (norm ‘B) =
(√ ‘(B
·i B))) |
| 108 | 6, 107 | ax-mp 6 |
. . 3
⊢ (norm ‘B) = (√ ‘(B ·i B)) |
| 109 | 106, 108 | opreq12i 3011 |
. 2
⊢ ((norm ‘A) + (norm ‘B)) = ((√ ‘(A ·i A)) + (√ ‘(B ·i B))) |
| 110 | 102, 104, 109 | 3brtr4 2085 |
1
⊢ (norm ‘(A +v B)) ≤ ((norm ‘A) + (norm ‘B)) |