Proof of Theorem normpar
| Step | Hyp | Ref
| Expression |
| 1 | | normpar.1 |
. . . . . 6
⊢ A
∈ ℋ |
| 2 | | normpar.2 |
. . . . . 6
⊢ B
∈ ℋ |
| 3 | 1, 2 | normlem8 5071 |
. . . . 5
⊢ ((A
−v B)
·i (A
−v B)) =
(((A ·i
A) + (B
·i B))
− ((A
·i B) +
(B ·i
A))) |
| 4 | 1, 1 | hicl 5044 |
. . . . . . 7
⊢ (A
·i A)
∈ ℂ |
| 5 | 2, 2 | hicl 5044 |
. . . . . . 7
⊢ (B
·i B)
∈ ℂ |
| 6 | 4, 5 | addcl 4104 |
. . . . . 6
⊢ ((A
·i A) +
(B ·i
B)) ∈ ℂ |
| 7 | 1, 2 | hicl 5044 |
. . . . . . 7
⊢ (A
·i B)
∈ ℂ |
| 8 | 2, 1 | hicl 5044 |
. . . . . . 7
⊢ (B
·i A)
∈ ℂ |
| 9 | 7, 8 | addcl 4104 |
. . . . . 6
⊢ ((A
·i B) +
(B ·i
A)) ∈ ℂ |
| 10 | 6, 9 | subneg 4148 |
. . . . 5
⊢ (((A
·i A) +
(B ·i
B)) − ((A ·i B) + (B
·i A))) =
(((A ·i
A) + (B
·i B)) +
-((A ·i
B) + (B
·i A))) |
| 11 | 3, 10 | eqtr 1119 |
. . . 4
⊢ ((A
−v B)
·i (A
−v B)) =
(((A ·i
A) + (B
·i B)) +
-((A ·i
B) + (B
·i A))) |
| 12 | 1, 2 | normlem9 5070 |
. . . 4
⊢ ((A
+v B)
·i (A
+v B)) = (((A ·i A) + (B
·i B)) +
((A ·i
B) + (B
·i A))) |
| 13 | 11, 12 | opreq12i 3011 |
. . 3
⊢ (((A
−v B)
·i (A
−v B)) + ((A +v B) ·i (A +v B))) = ((((A
·i A) +
(B ·i
B)) + -((A ·i B) + (B
·i A))) +
(((A ·i
A) + (B
·i B)) +
((A ·i
B) + (B
·i A)))) |
| 14 | 9 | negcl 4142 |
. . . 4
⊢ -((A
·i B) +
(B ·i
A)) ∈ ℂ |
| 15 | 6, 14, 6, 9 | add42 4131 |
. . 3
⊢ ((((A
·i A) +
(B ·i
B)) + -((A ·i B) + (B
·i A))) +
(((A ·i
A) + (B
·i B)) +
((A ·i
B) + (B
·i A)))) =
((((A ·i
A) + (B
·i B)) +
((A ·i
A) + (B
·i B))) +
(((A ·i
B) + (B
·i A)) +
-((A ·i
B) + (B
·i A)))) |
| 16 | 9 | negid 4147 |
. . . . 5
⊢ (((A
·i B) +
(B ·i
A)) + -((A ·i B) + (B
·i A))) =
0 |
| 17 | 16 | opreq2i 3010 |
. . . 4
⊢ ((((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B))) +
(((A ·i
B) + (B
·i A)) +
-((A ·i
B) + (B
·i A)))) =
((((A ·i
A) + (B
·i B)) +
((A ·i
A) + (B
·i B))) +
0) |
| 18 | 6, 6 | addcl 4104 |
. . . . 5
⊢ (((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B)))
∈ ℂ |
| 19 | 18 | addid1 4112 |
. . . 4
⊢ ((((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B))) +
0) = (((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B))) |
| 20 | 4, 5, 4, 5 | add4 4130 |
. . . 4
⊢ (((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B))) =
(((A ·i
A) + (A
·i A)) +
((B ·i
B) + (B
·i B))) |
| 21 | 17, 19, 20 | 3eqtr 1123 |
. . 3
⊢ ((((A
·i A) +
(B ·i
B)) + ((A ·i A) + (B
·i B))) +
(((A ·i
B) + (B
·i A)) +
-((A ·i
B) + (B
·i A)))) =
(((A ·i
A) + (A
·i A)) +
((B ·i
B) + (B
·i B))) |
| 22 | 13, 15, 21 | 3eqtr 1123 |
. 2
⊢ (((A
−v B)
·i (A
−v B)) + ((A +v B) ·i (A +v B))) = (((A
·i A) +
(A ·i
A)) + ((B ·i B) + (B
·i B))) |
| 23 | 1, 2 | hvsubcl 5002 |
. . . 4
⊢ (A
−v B) ∈
ℋ |
| 24 | 23 | normsq 5082 |
. . 3
⊢ ((norm ‘(A −v B))↑2) = ((A −v B) ·i (A −v B)) |
| 25 | 1, 2 | hvaddcl 4999 |
. . . 4
⊢ (A
+v B) ∈
ℋ |
| 26 | 25 | normsq 5082 |
. . 3
⊢ ((norm ‘(A +v B))↑2) = ((A +v B) ·i (A +v B)) |
| 27 | 24, 26 | opreq12i 3011 |
. 2
⊢ (((norm ‘(A −v B))↑2) + ((norm ‘(A +v B))↑2)) = (((A −v B) ·i (A −v B)) + ((A
+v B)
·i (A
+v B))) |
| 28 | 1 | normsq 5082 |
. . . . 5
⊢ ((norm ‘A)↑2) = (A
·i A) |
| 29 | 28 | opreq2i 3010 |
. . . 4
⊢ (2 · ((norm ‘A)↑2)) = (2 · (A ·i A)) |
| 30 | 4 | 2times 4489 |
. . . 4
⊢ (2 · (A ·i A)) = ((A
·i A) +
(A ·i
A)) |
| 31 | 29, 30 | eqtr 1119 |
. . 3
⊢ (2 · ((norm ‘A)↑2)) = ((A ·i A) + (A
·i A)) |
| 32 | 2 | normsq 5082 |
. . . . 5
⊢ ((norm ‘B)↑2) = (B
·i B) |
| 33 | 32 | opreq2i 3010 |
. . . 4
⊢ (2 · ((norm ‘B)↑2)) = (2 · (B ·i B)) |
| 34 | 5 | 2times 4489 |
. . . 4
⊢ (2 · (B ·i B)) = ((B
·i B) +
(B ·i
B)) |
| 35 | 33, 34 | eqtr 1119 |
. . 3
⊢ (2 · ((norm ‘B)↑2)) = ((B ·i B) + (B
·i B)) |
| 36 | 31, 35 | opreq12i 3011 |
. 2
⊢ ((2 · ((norm ‘A)↑2)) + (2 · ((norm ‘B)↑2))) = (((A ·i A) + (A
·i A)) +
((B ·i
B) + (B
·i B))) |
| 37 | 22, 27, 36 | 3eqtr4 1126 |
1
⊢ (((norm ‘(A −v B))↑2) + ((norm ‘(A +v B))↑2)) = ((2 · ((norm ‘A)↑2)) + (2 · ((norm ‘B)↑2))) |