Proof of Theorem bcseq
| Step | Hyp | Ref
| Expression |
| 1 | | opreq1 3006 |
. . . . . . . . . 10
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((A
·i B)
· (B
·i A))
· (B
·i B)) =
(((A ·i
A) · (B ·i B)) · (B
·i B))) |
| 2 | 1 | cleqcomd 1106 |
. . . . . . . . 9
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((A
·i A)
· (B
·i B))
· (B
·i B)) =
(((A ·i
B) · (B ·i A)) · (B
·i B))) |
| 3 | | normlem8.2 |
. . . . . . . . . . . 12
⊢ B
∈ ℋ |
| 4 | 3, 3 | hicl 5044 |
. . . . . . . . . . 11
⊢ (B
·i B)
∈ ℂ |
| 5 | | normlem8.1 |
. . . . . . . . . . . 12
⊢ A
∈ ℋ |
| 6 | 4, 5 | hvmulcl 4990 |
. . . . . . . . . . 11
⊢ ((B
·i B)
·s A)
∈ ℋ |
| 7 | | his5 5050 |
. . . . . . . . . . 11
⊢ (((B
·i B)
∈ ℂ ∧ ((B
·i B)
·s A)
∈ ℋ ∧ A ∈ ℋ )
→ (((B
·i B)
·s A)
·i ((B
·i B)
·s A)) =
((∗ ‘(B
·i B))
· (((B
·i B)
·s A)
·i A))) |
| 8 | 4, 6, 5, 7 | mp3an 642 |
. . . . . . . . . 10
⊢ (((B
·i B)
·s A)
·i ((B
·i B)
·s A)) =
((∗ ‘(B
·i B))
· (((B
·i B)
·s A)
·i A)) |
| 9 | | hiidrclt 5053 |
. . . . . . . . . . . . 13
⊢ (B
∈ ℋ → (B
·i B)
∈ ℝ) |
| 10 | 3, 9 | ax-mp 6 |
. . . . . . . . . . . 12
⊢ (B
·i B)
∈ ℝ |
| 11 | | cjret 4829 |
. . . . . . . . . . . 12
⊢ ((B
·i B)
∈ ℝ → (∗ ‘(B
·i B)) =
(B ·i
B)) |
| 12 | 10, 11 | ax-mp 6 |
. . . . . . . . . . 11
⊢ (∗ ‘(B ·i B)) = (B
·i B) |
| 13 | | ax-his3 5047 |
. . . . . . . . . . . 12
⊢ (((B
·i B)
∈ ℂ ∧ A ∈ ℋ ∧
A ∈ ℋ ) → (((B ·i B) ·s A) ·i A) = ((B
·i B)
· (A
·i A))) |
| 14 | 4, 5, 5, 13 | mp3an 642 |
. . . . . . . . . . 11
⊢ (((B
·i B)
·s A)
·i A) =
((B ·i
B) · (A ·i A)) |
| 15 | 12, 14 | opreq12i 3011 |
. . . . . . . . . 10
⊢ ((∗ ‘(B ·i B)) · (((B ·i B) ·s A) ·i A)) = ((B
·i B)
· ((B
·i B)
· (A
·i A))) |
| 16 | 5, 5 | hicl 5044 |
. . . . . . . . . . . . 13
⊢ (A
·i A)
∈ ℂ |
| 17 | 4, 16 | mulcl 4105 |
. . . . . . . . . . . 12
⊢ ((B
·i B)
· (A
·i A))
∈ ℂ |
| 18 | 4, 17 | mulcom 4107 |
. . . . . . . . . . 11
⊢ ((B
·i B)
· ((B
·i B)
· (A
·i A))) =
(((B ·i
B) · (A ·i A)) · (B
·i B)) |
| 19 | 16, 4 | mulcom 4107 |
. . . . . . . . . . . 12
⊢ ((A
·i A)
· (B
·i B)) =
((B ·i
B) · (A ·i A)) |
| 20 | 19 | opreq1i 3009 |
. . . . . . . . . . 11
⊢ (((A
·i A)
· (B
·i B))
· (B
·i B)) =
(((B ·i
B) · (A ·i A)) · (B
·i B)) |
| 21 | 18, 20 | eqtr4 1122 |
. . . . . . . . . 10
⊢ ((B
·i B)
· ((B
·i B)
· (A
·i A))) =
(((A ·i
A) · (B ·i B)) · (B
·i B)) |
| 22 | 8, 15, 21 | 3eqtr 1123 |
. . . . . . . . 9
⊢ (((B
·i B)
·s A)
·i ((B
·i B)
·s A)) =
(((A ·i
A) · (B ·i B)) · (B
·i B)) |
| 23 | 5, 3 | hicl 5044 |
. . . . . . . . . . 11
⊢ (A
·i B)
∈ ℂ |
| 24 | | his5 5050 |
. . . . . . . . . . 11
⊢ (((A
·i B)
∈ ℂ ∧ ((B
·i B)
·s A)
∈ ℋ ∧ B ∈ ℋ )
→ (((B
·i B)
·s A)
·i ((A
·i B)
·s B)) =
((∗ ‘(A
·i B))
· (((B
·i B)
·s A)
·i B))) |
| 25 | 23, 6, 3, 24 | mp3an 642 |
. . . . . . . . . 10
⊢ (((B
·i B)
·s A)
·i ((A
·i B)
·s B)) =
((∗ ‘(A
·i B))
· (((B
·i B)
·s A)
·i B)) |
| 26 | | ax-his1 5045 |
. . . . . . . . . . . . 13
⊢ ((B
∈ ℋ ∧ A ∈ ℋ )
→ (B
·i A) =
(∗ ‘(A
·i B))) |
| 27 | 3, 5, 26 | mp2an 520 |
. . . . . . . . . . . 12
⊢ (B
·i A) =
(∗ ‘(A
·i B)) |
| 28 | 27 | cleqcomi 1105 |
. . . . . . . . . . 11
⊢ (∗ ‘(A ·i B)) = (B
·i A) |
| 29 | | ax-his3 5047 |
. . . . . . . . . . . 12
⊢ (((B
·i B)
∈ ℂ ∧ A ∈ ℋ ∧
B ∈ ℋ ) → (((B ·i B) ·s A) ·i B) = ((B
·i B)
· (A
·i B))) |
| 30 | 4, 5, 3, 29 | mp3an 642 |
. . . . . . . . . . 11
⊢ (((B
·i B)
·s A)
·i B) =
((B ·i
B) · (A ·i B)) |
| 31 | 28, 30 | opreq12i 3011 |
. . . . . . . . . 10
⊢ ((∗ ‘(A ·i B)) · (((B ·i B) ·s A) ·i B)) = ((B
·i A)
· ((B
·i B)
· (A
·i B))) |
| 32 | 3, 5 | hicl 5044 |
. . . . . . . . . . . 12
⊢ (B
·i A)
∈ ℂ |
| 33 | 4, 23 | mulcl 4105 |
. . . . . . . . . . . 12
⊢ ((B
·i B)
· (A
·i B))
∈ ℂ |
| 34 | 32, 33 | mulcom 4107 |
. . . . . . . . . . 11
⊢ ((B
·i A)
· ((B
·i B)
· (A
·i B))) =
(((B ·i
B) · (A ·i B)) · (B
·i A)) |
| 35 | 4, 23, 32 | mulass 4109 |
. . . . . . . . . . 11
⊢ (((B
·i B)
· (A
·i B))
· (B
·i A)) =
((B ·i
B) · ((A ·i B) · (B
·i A))) |
| 36 | 23, 32 | mulcl 4105 |
. . . . . . . . . . . 12
⊢ ((A
·i B)
· (B
·i A))
∈ ℂ |
| 37 | 4, 36 | mulcom 4107 |
. . . . . . . . . . 11
⊢ ((B
·i B)
· ((A
·i B)
· (B
·i A))) =
(((A ·i
B) · (B ·i A)) · (B
·i B)) |
| 38 | 34, 35, 37 | 3eqtr 1123 |
. . . . . . . . . 10
⊢ ((B
·i A)
· ((B
·i B)
· (A
·i B))) =
(((A ·i
B) · (B ·i A)) · (B
·i B)) |
| 39 | 25, 31, 38 | 3eqtr 1123 |
. . . . . . . . 9
⊢ (((B
·i B)
·s A)
·i ((A
·i B)
·s B)) =
(((A ·i
B) · (B ·i A)) · (B
·i B)) |
| 40 | 2, 22, 39 | 3eqtr4g 1147 |
. . . . . . . 8
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((B
·i B)
·s A)
·i ((B
·i B)
·s A)) =
(((B ·i
B) ·s
A) ·i
((A ·i
B) ·s
B))) |
| 41 | | ax-his3 5047 |
. . . . . . . . . . . 12
⊢ (((A
·i B)
∈ ℂ ∧ B ∈ ℋ ∧
A ∈ ℋ ) → (((A ·i B) ·s B) ·i A) = ((A
·i B)
· (B
·i A))) |
| 42 | 23, 3, 5, 41 | mp3an 642 |
. . . . . . . . . . 11
⊢ (((A
·i B)
·s B)
·i A) =
((A ·i
B) · (B ·i A)) |
| 43 | 12, 42 | opreq12i 3011 |
. . . . . . . . . 10
⊢ ((∗ ‘(B ·i B)) · (((A ·i B) ·s B) ·i A)) = ((B
·i B)
· ((A
·i B)
· (B
·i A))) |
| 44 | 23, 3 | hvmulcl 4990 |
. . . . . . . . . . 11
⊢ ((A
·i B)
·s B)
∈ ℋ |
| 45 | | his5 5050 |
. . . . . . . . . . 11
⊢ (((B
·i B)
∈ ℂ ∧ ((A
·i B)
·s B)
∈ ℋ ∧ A ∈ ℋ )
→ (((A
·i B)
·s B)
·i ((B
·i B)
·s A)) =
((∗ ‘(B
·i B))
· (((A
·i B)
·s B)
·i A))) |
| 46 | 4, 44, 5, 45 | mp3an 642 |
. . . . . . . . . 10
⊢ (((A
·i B)
·s B)
·i ((B
·i B)
·s A)) =
((∗ ‘(B
·i B))
· (((A
·i B)
·s B)
·i A)) |
| 47 | | his5 5050 |
. . . . . . . . . . . 12
⊢ (((A
·i B)
∈ ℂ ∧ ((A
·i B)
·s B)
∈ ℋ ∧ B ∈ ℋ )
→ (((A
·i B)
·s B)
·i ((A
·i B)
·s B)) =
((∗ ‘(A
·i B))
· (((A
·i B)
·s B)
·i B))) |
| 48 | 23, 44, 3, 47 | mp3an 642 |
. . . . . . . . . . 11
⊢ (((A
·i B)
·s B)
·i ((A
·i B)
·s B)) =
((∗ ‘(A
·i B))
· (((A
·i B)
·s B)
·i B)) |
| 49 | | ax-his3 5047 |
. . . . . . . . . . . . 13
⊢ (((A
·i B)
∈ ℂ ∧ B ∈ ℋ ∧
B ∈ ℋ ) → (((A ·i B) ·s B) ·i B) = ((A
·i B)
· (B
·i B))) |
| 50 | 23, 3, 3, 49 | mp3an 642 |
. . . . . . . . . . . 12
⊢ (((A
·i B)
·s B)
·i B) =
((A ·i
B) · (B ·i B)) |
| 51 | 28, 50 | opreq12i 3011 |
. . . . . . . . . . 11
⊢ ((∗ ‘(A ·i B)) · (((A ·i B) ·s B) ·i B)) = ((B
·i A)
· ((A
·i B)
· (B
·i B))) |
| 52 | 23, 4 | mulcl 4105 |
. . . . . . . . . . . . 13
⊢ ((A
·i B)
· (B
·i B))
∈ ℂ |
| 53 | 32, 52 | mulcom 4107 |
. . . . . . . . . . . 12
⊢ ((B
·i A)
· ((A
·i B)
· (B
·i B))) =
(((A ·i
B) · (B ·i B)) · (B
·i A)) |
| 54 | 23, 4, 32 | mul23 4179 |
. . . . . . . . . . . 12
⊢ (((A
·i B)
· (B
·i B))
· (B
·i A)) =
(((A ·i
B) · (B ·i A)) · (B
·i B)) |
| 55 | 36, 4 | mulcom 4107 |
. . . . . . . . . . . 12
⊢ (((A
·i B)
· (B
·i A))
· (B
·i B)) =
((B ·i
B) · ((A ·i B) · (B
·i A))) |
| 56 | 53, 54, 55 | 3eqtr 1123 |
. . . . . . . . . . 11
⊢ ((B
·i A)
· ((A
·i B)
· (B
·i B))) =
((B ·i
B) · ((A ·i B) · (B
·i A))) |
| 57 | 48, 51, 56 | 3eqtr 1123 |
. . . . . . . . . 10
⊢ (((A
·i B)
·s B)
·i ((A
·i B)
·s B)) =
((B ·i
B) · ((A ·i B) · (B
·i A))) |
| 58 | 43, 46, 57 | 3eqtr4r 1127 |
. . . . . . . . 9
⊢ (((A
·i B)
·s B)
·i ((A
·i B)
·s B)) =
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A)) |
| 59 | 58 | a1i 7 |
. . . . . . . 8
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((A
·i B)
·s B)
·i ((A
·i B)
·s B)) =
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A))) |
| 60 | 40, 59 | opreq12d 3014 |
. . . . . . 7
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → ((((B
·i B)
·s A)
·i ((B
·i B)
·s A)) +
(((A ·i
B) ·s
B) ·i
((A ·i
B) ·s
B))) = ((((B ·i B) ·s A) ·i ((A ·i B) ·s B)) + (((A
·i B)
·s B)
·i ((B
·i B)
·s A)))) |
| 61 | 60 | opreq1d 3012 |
. . . . . 6
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((((B ·i B) ·s A) ·i ((B ·i B) ·s A)) + (((A
·i B)
·s B)
·i ((A
·i B)
·s B)))
− ((((B
·i B)
·s A)
·i ((A
·i B)
·s B)) +
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A)))) = (((((B ·i B) ·s A) ·i ((A ·i B) ·s B)) + (((A
·i B)
·s B)
·i ((B
·i B)
·s A)))
− ((((B
·i B)
·s A)
·i ((A
·i B)
·s B)) +
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A))))) |
| 62 | 6, 44 | hicl 5044 |
. . . . . . . 8
⊢ (((B
·i B)
·s A)
·i ((A
·i B)
·s B))
∈ ℂ |
| 63 | 44, 6 | hicl 5044 |
. . . . . . . 8
⊢ (((A
·i B)
·s B)
·i ((B
·i B)
·s A))
∈ ℂ |
| 64 | 62, 63 | addcl 4104 |
. . . . . . 7
⊢ ((((B
·i B)
·s A)
·i ((A
·i B)
·s B)) +
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A))) ∈ ℂ |
| 65 | 64 | subid 4155 |
. . . . . 6
⊢ (((((B
·i B)
·s A)
·i ((A
·i B)
·s B)) +
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A))) − ((((B ·i B) ·s A) ·i ((A ·i B) ·s B)) + (((A
·i B)
·s B)
·i ((B
·i B)
·s A)))) =
0 |
| 66 | 61, 65 | syl6eq 1140 |
. . . . 5
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((((B ·i B) ·s A) ·i ((B ·i B) ·s A)) + (((A
·i B)
·s B)
·i ((A
·i B)
·s B)))
− ((((B
·i B)
·s A)
·i ((A
·i B)
·s B)) +
(((A ·i
B) ·s
B) ·i
((B ·i
B) ·s
A)))) = 0) |
| 67 | 6, 44 | normlem8 5071 |
. . . . 5
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
(((((B ·i
B) ·s
A) ·i
((B ·i
B) ·s
A)) + (((A ·i B) ·s B) ·i ((A ·i B) ·s B))) − ((((B ·i B) ·s A) ·i ((A ·i B) ·s B)) + (((A
·i B)
·s B)
·i ((B
·i B)
·s A)))) |
| 68 | 66, 67 | syl5eq 1136 |
. . . 4
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0) |
| 69 | 6, 44 | hvsubcl 5002 |
. . . . 5
⊢ (((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ |
| 70 | | his6 5057 |
. . . . 5
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ → (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
↔ (((B
·i B)
·s A)
−v ((A
·i B)
·s B)) =
0v)) |
| 71 | 69, 70 | ax-mp 6 |
. . . 4
⊢ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
↔ (((B
·i B)
·s A)
−v ((A
·i B)
·s B)) =
0v) |
| 72 | 68, 71 | sylib 173 |
. . 3
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → (((B
·i B)
·s A)
−v ((A
·i B)
·s B)) =
0v) |
| 73 | 6, 44 | hvsubeq0 5035 |
. . 3
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B)) =
0v ↔ ((B
·i B)
·s A) =
((A ·i
B) ·s
B)) |
| 74 | 72, 73 | sylib 173 |
. 2
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) → ((B
·i B)
·s A) =
((A ·i
B) ·s
B)) |
| 75 | | opreq1 3006 |
. . . 4
⊢ (((B
·i B)
·s A) =
((A ·i
B) ·s
B) → (((B ·i B) ·s A) ·i A) = (((A
·i B)
·s B)
·i A)) |
| 76 | 19, 14 | eqtr4 1122 |
. . . 4
⊢ ((A
·i A)
· (B
·i B)) =
(((B ·i
B) ·s
A) ·i
A) |
| 77 | 42 | cleqcomi 1105 |
. . . 4
⊢ ((A
·i B)
· (B
·i A)) =
(((A ·i
B) ·s
B) ·i
A) |
| 78 | 75, 76, 77 | 3eqtr4g 1147 |
. . 3
⊢ (((B
·i B)
·s A) =
((A ·i
B) ·s
B) → ((A ·i A) · (B
·i B)) =
((A ·i
B) · (B ·i A))) |
| 79 | 78 | cleqcomd 1106 |
. 2
⊢ (((B
·i B)
·s A) =
((A ·i
B) ·s
B) → ((A ·i B) · (B
·i A)) =
((A ·i
A) · (B ·i B))) |
| 80 | 74, 79 | impbi 139 |
1
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) ↔ ((B
·i B)
·s A) =
((A ·i
B) ·s
B)) |