Proof of Theorem normpar2
| Step | Hyp | Ref
| Expression |
| 1 | | 4re 4473 |
. . . . . . 7
⊢ 4 ∈ ℝ |
| 2 | 1 | recn 4098 |
. . . . . 6
⊢ 4 ∈ ℂ |
| 3 | | normpar2.1 |
. . . . . . . . . 10
⊢ A
∈ ℋ |
| 4 | | normpar2.3 |
. . . . . . . . . 10
⊢ C
∈ ℋ |
| 5 | 3, 4 | hvsubcl 5002 |
. . . . . . . . 9
⊢ (A
−v C) ∈
ℋ |
| 6 | 5 | normcl 5081 |
. . . . . . . 8
⊢ (norm ‘(A −v C)) ∈ ℝ |
| 7 | 6 | sqrecl 4699 |
. . . . . . 7
⊢ ((norm ‘(A −v C))↑2) ∈ ℝ |
| 8 | 7 | recn 4098 |
. . . . . 6
⊢ ((norm ‘(A −v C))↑2) ∈ ℂ |
| 9 | 2, 8 | mulcl 4105 |
. . . . 5
⊢ (4 · ((norm ‘(A −v C))↑2)) ∈ ℂ |
| 10 | | normpar2.2 |
. . . . . . . . . 10
⊢ B
∈ ℋ |
| 11 | 10, 4 | hvsubcl 5002 |
. . . . . . . . 9
⊢ (B
−v C) ∈
ℋ |
| 12 | 11 | normcl 5081 |
. . . . . . . 8
⊢ (norm ‘(B −v C)) ∈ ℝ |
| 13 | 12 | sqrecl 4699 |
. . . . . . 7
⊢ ((norm ‘(B −v C))↑2) ∈ ℝ |
| 14 | 13 | recn 4098 |
. . . . . 6
⊢ ((norm ‘(B −v C))↑2) ∈ ℂ |
| 15 | 2, 14 | mulcl 4105 |
. . . . 5
⊢ (4 · ((norm ‘(B −v C))↑2)) ∈ ℂ |
| 16 | | 2cn 4471 |
. . . . 5
⊢ 2 ∈ ℂ |
| 17 | | 2re 4470 |
. . . . . 6
⊢ 2 ∈ ℝ |
| 18 | | 2pos 4479 |
. . . . . 6
⊢ 0 < 2 |
| 19 | 17, 18 | gt0ne0i 4345 |
. . . . 5
⊢ 2 ≠ 0 |
| 20 | 9, 15, 16, 19 | divdistr 4243 |
. . . 4
⊢ (((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) / 2) = (((4 · ((norm
‘(A −v
C))↑2)) / 2) + ((4 · ((norm
‘(B −v
C))↑2)) / 2)) |
| 21 | 9, 15 | addcom 4106 |
. . . . . . . 8
⊢ ((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) = ((4 · ((norm ‘(B −v C))↑2)) + (4 · ((norm ‘(A −v C))↑2))) |
| 22 | 3, 10 | hvaddcl 4999 |
. . . . . . . . . . . . . . . . 17
⊢ (A
+v B) ∈
ℋ |
| 23 | 16, 4 | hvmulcl 4990 |
. . . . . . . . . . . . . . . . 17
⊢ (2 ·s
C) ∈ ℋ |
| 24 | 22, 23 | hvsubcl 5002 |
. . . . . . . . . . . . . . . 16
⊢ ((A
+v B)
−v (2 ·s C)) ∈ ℋ |
| 25 | 3, 10 | hvsubcl 5002 |
. . . . . . . . . . . . . . . 16
⊢ (A
−v B) ∈
ℋ |
| 26 | 24, 25 | hvsubval 5001 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
−v (2 ·s C)) −v (A −v B)) = (((A
+v B)
−v (2 ·s C)) +v (-1
·s (A
−v B))) |
| 27 | 22, 23 | hvsubval 5001 |
. . . . . . . . . . . . . . . 16
⊢ ((A
+v B)
−v (2 ·s C)) = ((A
+v B)
+v (-1 ·s (2
·s C))) |
| 28 | 27 | opreq1i 3009 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
−v (2 ·s C)) +v (-1
·s (A
−v B))) =
(((A +v B) +v (-1
·s (2 ·s
C))) +v (-1
·s (A
−v B))) |
| 29 | 3, 10 | hvcom 5000 |
. . . . . . . . . . . . . . . . . . 19
⊢ (A
+v B) = (B +v A) |
| 30 | 3, 10 | hvnegdi 5034 |
. . . . . . . . . . . . . . . . . . 19
⊢ (-1 ·s
(A −v B)) = (B
−v A) |
| 31 | 29, 30 | opreq12i 3011 |
. . . . . . . . . . . . . . . . . 18
⊢ ((A
+v B)
+v (-1 ·s (A −v B))) = ((B
+v A)
+v (B
−v A)) |
| 32 | 10, 3 | hvsubcan2 5036 |
. . . . . . . . . . . . . . . . . 18
⊢ ((B
+v A)
+v (B
−v A)) = (2
·s B) |
| 33 | 31, 32 | eqtr 1119 |
. . . . . . . . . . . . . . . . 17
⊢ ((A
+v B)
+v (-1 ·s (A −v B))) = (2 ·s
B) |
| 34 | 33 | opreq1i 3009 |
. . . . . . . . . . . . . . . 16
⊢ (((A
+v B)
+v (-1 ·s (A −v B))) +v (-1
·s (2 ·s
C))) = ((2
·s B)
+v (-1 ·s (2
·s C))) |
| 35 | | 1cn 4101 |
. . . . . . . . . . . . . . . . . . 19
⊢ 1 ∈ ℂ |
| 36 | 35 | negcl 4142 |
. . . . . . . . . . . . . . . . . 18
⊢ -1 ∈ ℂ |
| 37 | 36, 23 | hvmulcl 4990 |
. . . . . . . . . . . . . . . . 17
⊢ (-1 ·s (2
·s C))
∈ ℋ |
| 38 | 36, 25 | hvmulcl 4990 |
. . . . . . . . . . . . . . . . 17
⊢ (-1 ·s
(A −v B)) ∈ ℋ |
| 39 | 22, 37, 38 | hvadd23 5026 |
. . . . . . . . . . . . . . . 16
⊢ (((A
+v B)
+v (-1 ·s (2
·s C)))
+v (-1 ·s (A −v B))) = (((A
+v B)
+v (-1 ·s (A −v B))) +v (-1
·s (2 ·s
C))) |
| 40 | 16, 10 | hvmulcl 4990 |
. . . . . . . . . . . . . . . . 17
⊢ (2 ·s
B) ∈ ℋ |
| 41 | 40, 23 | hvsubval 5001 |
. . . . . . . . . . . . . . . 16
⊢ ((2 ·s
B) −v (2
·s C)) =
((2 ·s B)
+v (-1 ·s (2
·s C))) |
| 42 | 34, 39, 41 | 3eqtr4 1126 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
+v (-1 ·s (2
·s C)))
+v (-1 ·s (A −v B))) = ((2 ·s
B) −v (2
·s C)) |
| 43 | 26, 28, 42 | 3eqtr 1123 |
. . . . . . . . . . . . . 14
⊢ (((A
+v B)
−v (2 ·s C)) −v (A −v B)) = ((2 ·s
B) −v (2
·s C)) |
| 44 | 16, 10, 4 | hvsubdistr1 5024 |
. . . . . . . . . . . . . 14
⊢ (2 ·s
(B −v C)) = ((2 ·s
B) −v (2
·s C)) |
| 45 | 43, 44 | eqtr4 1122 |
. . . . . . . . . . . . 13
⊢ (((A
+v B)
−v (2 ·s C)) −v (A −v B)) = (2 ·s
(B −v C)) |
| 46 | 45 | fveq2i 2835 |
. . . . . . . . . . . 12
⊢ (norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B))) = (norm
‘(2 ·s (B −v C))) |
| 47 | 16, 11 | norm-iii 5087 |
. . . . . . . . . . . 12
⊢ (norm ‘(2
·s (B
−v C))) = ((abs
‘2) · (norm ‘(B
−v C))) |
| 48 | | ax0re 4063 |
. . . . . . . . . . . . . . 15
⊢ 0 ∈ ℝ |
| 49 | 48, 17, 18 | ltlei 4303 |
. . . . . . . . . . . . . 14
⊢ 0 ≤ 2 |
| 50 | 17 | absid 4850 |
. . . . . . . . . . . . . 14
⊢ (0 ≤ 2 → (abs ‘2) =
2) |
| 51 | 49, 50 | ax-mp 6 |
. . . . . . . . . . . . 13
⊢ (abs ‘2) = 2 |
| 52 | 51 | opreq1i 3009 |
. . . . . . . . . . . 12
⊢ ((abs ‘2) · (norm
‘(B −v
C))) = (2 · (norm ‘(B −v C))) |
| 53 | 46, 47, 52 | 3eqtr 1123 |
. . . . . . . . . . 11
⊢ (norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B))) = (2
· (norm ‘(B
−v C))) |
| 54 | 53 | opreq1i 3009 |
. . . . . . . . . 10
⊢ ((norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B)))↑2) =
((2 · (norm ‘(B
−v C)))↑2) |
| 55 | 12 | recn 4098 |
. . . . . . . . . . 11
⊢ (norm ‘(B −v C)) ∈ ℂ |
| 56 | 16, 55 | sqmul 4688 |
. . . . . . . . . 10
⊢ ((2 · (norm ‘(B −v C)))↑2) = ((2↑2) · ((norm
‘(B −v
C))↑2)) |
| 57 | | sq2 4710 |
. . . . . . . . . . 11
⊢ (2↑2) = 4 |
| 58 | 57 | opreq1i 3009 |
. . . . . . . . . 10
⊢ ((2↑2) · ((norm
‘(B −v
C))↑2)) = (4 · ((norm
‘(B −v
C))↑2)) |
| 59 | 54, 56, 58 | 3eqtr 1123 |
. . . . . . . . 9
⊢ ((norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B)))↑2) =
(4 · ((norm ‘(B
−v C))↑2)) |
| 60 | 27 | opreq1i 3009 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
−v (2 ·s C)) +v (A −v B)) = (((A
+v B)
+v (-1 ·s (2
·s C)))
+v (A
−v B)) |
| 61 | 22, 37, 25 | hvadd23 5026 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
+v (-1 ·s (2
·s C)))
+v (A
−v B)) =
(((A +v B) +v (A −v B)) +v (-1
·s (2 ·s
C))) |
| 62 | 3, 10 | hvsubcan2 5036 |
. . . . . . . . . . . . . . . . 17
⊢ ((A
+v B)
+v (A
−v B)) = (2
·s A) |
| 63 | 62 | opreq1i 3009 |
. . . . . . . . . . . . . . . 16
⊢ (((A
+v B)
+v (A
−v B))
+v (-1 ·s (2
·s C))) =
((2 ·s A)
+v (-1 ·s (2
·s C))) |
| 64 | 16, 3 | hvmulcl 4990 |
. . . . . . . . . . . . . . . . 17
⊢ (2 ·s
A) ∈ ℋ |
| 65 | 64, 23 | hvsubval 5001 |
. . . . . . . . . . . . . . . 16
⊢ ((2 ·s
A) −v (2
·s C)) =
((2 ·s A)
+v (-1 ·s (2
·s C))) |
| 66 | 63, 65 | eqtr4 1122 |
. . . . . . . . . . . . . . 15
⊢ (((A
+v B)
+v (A
−v B))
+v (-1 ·s (2
·s C))) =
((2 ·s A)
−v (2 ·s C)) |
| 67 | 60, 61, 66 | 3eqtr 1123 |
. . . . . . . . . . . . . 14
⊢ (((A
+v B)
−v (2 ·s C)) +v (A −v B)) = ((2 ·s
A) −v (2
·s C)) |
| 68 | 16, 3, 4 | hvsubdistr1 5024 |
. . . . . . . . . . . . . 14
⊢ (2 ·s
(A −v C)) = ((2 ·s
A) −v (2
·s C)) |
| 69 | 67, 68 | eqtr4 1122 |
. . . . . . . . . . . . 13
⊢ (((A
+v B)
−v (2 ·s C)) +v (A −v B)) = (2 ·s
(A −v C)) |
| 70 | 69 | fveq2i 2835 |
. . . . . . . . . . . 12
⊢ (norm ‘(((A +v B) −v (2
·s C))
+v (A
−v B))) = (norm
‘(2 ·s (A −v C))) |
| 71 | 16, 5 | norm-iii 5087 |
. . . . . . . . . . . 12
⊢ (norm ‘(2
·s (A
−v C))) = ((abs
‘2) · (norm ‘(A
−v C))) |
| 72 | 51 | opreq1i 3009 |
. . . . . . . . . . . 12
⊢ ((abs ‘2) · (norm
‘(A −v
C))) = (2 · (norm ‘(A −v C))) |
| 73 | 70, 71, 72 | 3eqtr 1123 |
. . . . . . . . . . 11
⊢ (norm ‘(((A +v B) −v (2
·s C))
+v (A
−v B))) = (2
· (norm ‘(A
−v C))) |
| 74 | 73 | opreq1i 3009 |
. . . . . . . . . 10
⊢ ((norm ‘(((A +v B) −v (2
·s C))
+v (A
−v B)))↑2) =
((2 · (norm ‘(A
−v C)))↑2) |
| 75 | 6 | recn 4098 |
. . . . . . . . . . 11
⊢ (norm ‘(A −v C)) ∈ ℂ |
| 76 | 16, 75 | sqmul 4688 |
. . . . . . . . . 10
⊢ ((2 · (norm ‘(A −v C)))↑2) = ((2↑2) · ((norm
‘(A −v
C))↑2)) |
| 77 | 57 | opreq1i 3009 |
. . . . . . . . . 10
⊢ ((2↑2) · ((norm
‘(A −v
C))↑2)) = (4 · ((norm
‘(A −v
C))↑2)) |
| 78 | 74, 76, 77 | 3eqtr 1123 |
. . . . . . . . 9
⊢ ((norm ‘(((A +v B) −v (2
·s C))
+v (A
−v B)))↑2) =
(4 · ((norm ‘(A
−v C))↑2)) |
| 79 | 59, 78 | opreq12i 3011 |
. . . . . . . 8
⊢ (((norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B)))↑2) +
((norm ‘(((A +v
B) −v (2
·s C))
+v (A
−v B)))↑2)) =
((4 · ((norm ‘(B
−v C))↑2)) +
(4 · ((norm ‘(A
−v C))↑2))) |
| 80 | 21, 79 | eqtr4 1122 |
. . . . . . 7
⊢ ((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) = (((norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B)))↑2) +
((norm ‘(((A +v
B) −v (2
·s C))
+v (A
−v B)))↑2)) |
| 81 | 24, 25 | normpar 5099 |
. . . . . . 7
⊢ (((norm ‘(((A +v B) −v (2
·s C))
−v (A
−v B)))↑2) +
((norm ‘(((A +v
B) −v (2
·s C))
+v (A
−v B)))↑2)) =
((2 · ((norm ‘((A
+v B)
−v (2 ·s C)))↑2)) + (2 · ((norm ‘(A −v B))↑2))) |
| 82 | 80, 81 | eqtr 1119 |
. . . . . 6
⊢ ((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) = ((2 · ((norm
‘((A +v B) −v (2
·s C)))↑2)) + (2 · ((norm ‘(A −v B))↑2))) |
| 83 | 82 | opreq1i 3009 |
. . . . 5
⊢ (((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) / 2) = (((2 · ((norm
‘((A +v B) −v (2
·s C)))↑2)) + (2 · ((norm ‘(A −v B))↑2))) / 2) |
| 84 | 24 | normcl 5081 |
. . . . . . . . 9
⊢ (norm ‘((A +v B) −v (2
·s C)))
∈ ℝ |
| 85 | 84 | sqrecl 4699 |
. . . . . . . 8
⊢ ((norm ‘((A +v B) −v (2
·s C)))↑2) ∈ ℝ |
| 86 | 85 | recn 4098 |
. . . . . . 7
⊢ ((norm ‘((A +v B) −v (2
·s C)))↑2) ∈ ℂ |
| 87 | 16, 86 | mulcl 4105 |
. . . . . 6
⊢ (2 · ((norm ‘((A +v B) −v (2
·s C)))↑2)) ∈ ℂ |
| 88 | 25 | normcl 5081 |
. . . . . . . . 9
⊢ (norm ‘(A −v B)) ∈ ℝ |
| 89 | 88 | sqrecl 4699 |
. . . . . . . 8
⊢ ((norm ‘(A −v B))↑2) ∈ ℝ |
| 90 | 89 | recn 4098 |
. . . . . . 7
⊢ ((norm ‘(A −v B))↑2) ∈ ℂ |
| 91 | 16, 90 | mulcl 4105 |
. . . . . 6
⊢ (2 · ((norm ‘(A −v B))↑2)) ∈ ℂ |
| 92 | 87, 91, 16, 19 | divdistr 4243 |
. . . . 5
⊢ (((2 · ((norm ‘((A +v B) −v (2
·s C)))↑2)) + (2 · ((norm ‘(A −v B))↑2))) / 2) = (((2 · ((norm
‘((A +v B) −v (2
·s C)))↑2)) / 2) + ((2 · ((norm
‘(A −v
B))↑2)) / 2)) |
| 93 | 16, 86, 19 | divcan3 4247 |
. . . . . 6
⊢ ((2 · ((norm ‘((A +v B) −v (2
·s C)))↑2)) / 2) = ((norm ‘((A +v B) −v (2
·s C)))↑2) |
| 94 | 16, 90, 19 | divcan3 4247 |
. . . . . 6
⊢ ((2 · ((norm ‘(A −v B))↑2)) / 2) = ((norm ‘(A −v B))↑2) |
| 95 | 93, 94 | opreq12i 3011 |
. . . . 5
⊢ (((2 · ((norm ‘((A +v B) −v (2
·s C)))↑2)) / 2) + ((2 · ((norm
‘(A −v
B))↑2)) / 2)) = (((norm
‘((A +v B) −v (2
·s C)))↑2) + ((norm ‘(A −v B))↑2)) |
| 96 | 83, 92, 95 | 3eqtr 1123 |
. . . 4
⊢ (((4 · ((norm ‘(A −v C))↑2)) + (4 · ((norm ‘(B −v C))↑2))) / 2) = (((norm ‘((A +v B) −v (2
·s C)))↑2) + ((norm ‘(A −v B))↑2)) |
| 97 | 2, 8, 16, 19 | div23 4244 |
. . . . . 6
⊢ ((4 · ((norm ‘(A −v C))↑2)) / 2) = ((4 / 2) · ((norm
‘(A −v
C))↑2)) |
| 98 | | 4d2e2 4507 |
. . . . . . 7
⊢ (4 / 2) = 2 |
| 99 | 98 | opreq1i 3009 |
. . . . . 6
⊢ ((4 / 2) · ((norm ‘(A −v C))↑2)) = (2 · ((norm ‘(A −v C))↑2)) |
| 100 | 97, 99 | eqtr 1119 |
. . . . 5
⊢ ((4 · ((norm ‘(A −v C))↑2)) / 2) = (2 · ((norm
‘(A −v
C))↑2)) |
| 101 | 2, 14, 16, 19 | div23 4244 |
. . . . . 6
⊢ ((4 · ((norm ‘(B −v C))↑2)) / 2) = ((4 / 2) · ((norm
‘(B −v
C))↑2)) |
| 102 | 98 | opreq1i 3009 |
. . . . . 6
⊢ ((4 / 2) · ((norm ‘(B −v C))↑2)) = (2 · ((norm ‘(B −v C))↑2)) |
| 103 | 101, 102 | eqtr 1119 |
. . . . 5
⊢ ((4 · ((norm ‘(B −v C))↑2)) / 2) = (2 · ((norm
‘(B −v
C))↑2)) |
| 104 | 100, 103 | opreq12i 3011 |
. . . 4
⊢ (((4 · ((norm ‘(A −v C))↑2)) / 2) + ((4 · ((norm
‘(B −v
C))↑2)) / 2)) = ((2 · ((norm
‘(A −v
C))↑2)) + (2 · ((norm
‘(B −v
C))↑2))) |
| 105 | 20, 96, 104 | 3eqtr3 1124 |
. . 3
⊢ (((norm ‘((A +v B) −v (2
·s C)))↑2) + ((norm ‘(A −v B))↑2)) = ((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) |
| 106 | 17, 7 | remulcl 4119 |
. . . . . 6
⊢ (2 · ((norm ‘(A −v C))↑2)) ∈ ℝ |
| 107 | 17, 13 | remulcl 4119 |
. . . . . 6
⊢ (2 · ((norm ‘(B −v C))↑2)) ∈ ℝ |
| 108 | 106, 107 | readdcl 4118 |
. . . . 5
⊢ ((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) ∈ ℝ |
| 109 | 108 | recn 4098 |
. . . 4
⊢ ((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) ∈ ℂ |
| 110 | 109, 86, 90 | subadd 4143 |
. . 3
⊢ ((((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) − ((norm ‘((A +v B) −v (2
·s C)))↑2)) = ((norm ‘(A −v B))↑2) ↔ (((norm ‘((A +v B) −v (2
·s C)))↑2) + ((norm ‘(A −v B))↑2)) = ((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2)))) |
| 111 | 105, 110 | mpbir 165 |
. 2
⊢ (((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) − ((norm ‘((A +v B) −v (2
·s C)))↑2)) = ((norm ‘(A −v B))↑2) |
| 112 | 111 | cleqcomi 1105 |
1
⊢ ((norm ‘(A −v B))↑2) = (((2 · ((norm ‘(A −v C))↑2)) + (2 · ((norm ‘(B −v C))↑2))) − ((norm ‘((A +v B) −v (2
·s C)))↑2)) |