Proof of Theorem h1de2
| Step | Hyp | Ref
| Expression |
| 1 | | h1de2.2 |
. . . . . . . . . 10
⊢ B
∈ ℋ |
| 2 | 1, 1 | hicl 5044 |
. . . . . . . . 9
⊢ (B
·i B)
∈ ℂ |
| 3 | | h1de2.1 |
. . . . . . . . 9
⊢ A
∈ ℋ |
| 4 | 2, 3 | hvmulcl 4990 |
. . . . . . . 8
⊢ ((B
·i B)
·s A)
∈ ℋ |
| 5 | 3, 1 | hicl 5044 |
. . . . . . . . 9
⊢ (A
·i B)
∈ ℂ |
| 6 | 5, 1 | hvmulcl 4990 |
. . . . . . . 8
⊢ ((A
·i B)
·s B)
∈ ℋ |
| 7 | | his2subt 5052 |
. . . . . . . 8
⊢ ((((B
·i B)
·s A)
∈ ℋ ∧ ((A
·i B)
·s B)
∈ ℋ ∧ B ∈ ℋ )
→ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i B) =
((((B ·i
B) ·s
A) ·i
B) − (((A ·i B) ·s B) ·i B))) |
| 8 | 4, 6, 1, 7 | mp3an 642 |
. . . . . . 7
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i B) =
((((B ·i
B) ·s
A) ·i
B) − (((A ·i B) ·s B) ·i B)) |
| 9 | 2, 5 | mulcom 4107 |
. . . . . . . . 9
⊢ ((B
·i B)
· (A
·i B)) =
((A ·i
B) · (B ·i B)) |
| 10 | | ax-his3 5047 |
. . . . . . . . . 10
⊢ (((B
·i B)
∈ ℂ ∧ A ∈ ℋ ∧
B ∈ ℋ ) → (((B ·i B) ·s A) ·i B) = ((B
·i B)
· (A
·i B))) |
| 11 | 2, 3, 1, 10 | mp3an 642 |
. . . . . . . . 9
⊢ (((B
·i B)
·s A)
·i B) =
((B ·i
B) · (A ·i B)) |
| 12 | | ax-his3 5047 |
. . . . . . . . . 10
⊢ (((A
·i B)
∈ ℂ ∧ B ∈ ℋ ∧
B ∈ ℋ ) → (((A ·i B) ·s B) ·i B) = ((A
·i B)
· (B
·i B))) |
| 13 | 5, 1, 1, 12 | mp3an 642 |
. . . . . . . . 9
⊢ (((A
·i B)
·s B)
·i B) =
((A ·i
B) · (B ·i B)) |
| 14 | 9, 11, 13 | 3eqtr4 1126 |
. . . . . . . 8
⊢ (((B
·i B)
·s A)
·i B) =
(((A ·i
B) ·s
B) ·i
B) |
| 15 | 4, 1 | hicl 5044 |
. . . . . . . . 9
⊢ (((B
·i B)
·s A)
·i B)
∈ ℂ |
| 16 | 6, 1 | hicl 5044 |
. . . . . . . . 9
⊢ (((A
·i B)
·s B)
·i B)
∈ ℂ |
| 17 | 15, 16 | subeq0 4163 |
. . . . . . . 8
⊢ (((((B
·i B)
·s A)
·i B)
− (((A
·i B)
·s B)
·i B)) = 0
↔ (((B
·i B)
·s A)
·i B) =
(((A ·i
B) ·s
B) ·i
B)) |
| 18 | 14, 17 | mpbir 165 |
. . . . . . 7
⊢ ((((B
·i B)
·s A)
·i B)
− (((A
·i B)
·s B)
·i B)) =
0 |
| 19 | 8, 18 | eqtr 1119 |
. . . . . 6
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i B) =
0 |
| 20 | 1 | h1det 5455 |
. . . . . . . . 9
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) ↔ (A
∈ ℋ ∧ ∀x ∈
ℋ ((B
·i x) = 0
→ (A
·i x) =
0))) |
| 21 | 20, 3 | mpbiran 547 |
. . . . . . . 8
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) ↔ ∀x ∈ ℋ ((B ·i x) = 0 → (A
·i x) =
0)) |
| 22 | 4, 6 | hvsubcl 5002 |
. . . . . . . . 9
⊢ (((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ |
| 23 | | opreq2 3007 |
. . . . . . . . . . . 12
⊢ (x =
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) → (B
·i x) =
(B ·i
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)))) |
| 24 | 23 | cleq1d 1109 |
. . . . . . . . . . 11
⊢ (x =
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) → ((B
·i x) = 0
↔ (B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 25 | | opreq2 3007 |
. . . . . . . . . . . 12
⊢ (x =
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) → (A
·i x) =
(A ·i
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)))) |
| 26 | 25 | cleq1d 1109 |
. . . . . . . . . . 11
⊢ (x =
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) → ((A
·i x) = 0
↔ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 27 | 24, 26 | imbi12d 474 |
. . . . . . . . . 10
⊢ (x =
(((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) → (((B
·i x) = 0
→ (A
·i x) = 0)
↔ ((B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
→ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0))) |
| 28 | 27 | rcla4v 1402 |
. . . . . . . . 9
⊢ (∀x ∈ ℋ ((B ·i x) = 0 → (A
·i x) = 0)
→ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ → ((B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
→ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0))) |
| 29 | 22, 28 | mpi 44 |
. . . . . . . 8
⊢ (∀x ∈ ℋ ((B ·i x) = 0 → (A
·i x) = 0)
→ ((B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
→ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 30 | 21, 29 | sylbi 174 |
. . . . . . 7
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → ((B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) = 0
→ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 31 | | orthcom 5061 |
. . . . . . . 8
⊢ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ ∧ B ∈ ℋ )
→ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i B) = 0
↔ (B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 32 | 22, 1, 31 | mp2an 520 |
. . . . . . 7
⊢ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i B) = 0
↔ (B
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0) |
| 33 | | orthcom 5061 |
. . . . . . . 8
⊢ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
∈ ℋ ∧ A ∈ ℋ )
→ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i A) = 0
↔ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0)) |
| 34 | 22, 3, 33 | mp2an 520 |
. . . . . . 7
⊢ (((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i A) = 0
↔ (A
·i (((B
·i B)
·s A)
−v ((A
·i B)
·s B))) =
0) |
| 35 | 30, 32, 34 | 3imtr4g 426 |
. . . . . 6
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → (((((B ·i B) ·s A) −v ((A ·i B) ·s B)) ·i B) = 0 → ((((B ·i B) ·s A) −v ((A ·i B) ·s B)) ·i A) = 0)) |
| 36 | 19, 35 | mpi 44 |
. . . . 5
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → ((((B ·i B) ·s A) −v ((A ·i B) ·s B)) ·i A) = 0) |
| 37 | | his2subt 5052 |
. . . . . . 7
⊢ ((((B
·i B)
·s A)
∈ ℋ ∧ ((A
·i B)
·s B)
∈ ℋ ∧ A ∈ ℋ )
→ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i A) =
((((B ·i
B) ·s
A) ·i
A) − (((A ·i B) ·s B) ·i A))) |
| 38 | 4, 6, 3, 37 | mp3an 642 |
. . . . . 6
⊢ ((((B
·i B)
·s A)
−v ((A
·i B)
·s B))
·i A) =
((((B ·i
B) ·s
A) ·i
A) − (((A ·i B) ·s B) ·i A)) |
| 39 | | ax-his3 5047 |
. . . . . . . . 9
⊢ (((B
·i B)
∈ ℂ ∧ A ∈ ℋ ∧
A ∈ ℋ ) → (((B ·i B) ·s A) ·i A) = ((B
·i B)
· (A
·i A))) |
| 40 | 2, 3, 3, 39 | mp3an 642 |
. . . . . . . 8
⊢ (((B
·i B)
·s A)
·i A) =
((B ·i
B) · (A ·i A)) |
| 41 | 3, 3 | hicl 5044 |
. . . . . . . . 9
⊢ (A
·i A)
∈ ℂ |
| 42 | 2, 41 | mulcom 4107 |
. . . . . . . 8
⊢ ((B
·i B)
· (A
·i A)) =
((A ·i
A) · (B ·i B)) |
| 43 | 40, 42 | eqtr 1119 |
. . . . . . 7
⊢ (((B
·i B)
·s A)
·i A) =
((A ·i
A) · (B ·i B)) |
| 44 | | ax-his3 5047 |
. . . . . . . 8
⊢ (((A
·i B)
∈ ℂ ∧ B ∈ ℋ ∧
A ∈ ℋ ) → (((A ·i B) ·s B) ·i A) = ((A
·i B)
· (B
·i A))) |
| 45 | 5, 1, 3, 44 | mp3an 642 |
. . . . . . 7
⊢ (((A
·i B)
·s B)
·i A) =
((A ·i
B) · (B ·i A)) |
| 46 | 43, 45 | opreq12i 3011 |
. . . . . 6
⊢ ((((B
·i B)
·s A)
·i A)
− (((A
·i B)
·s B)
·i A)) =
(((A ·i
A) · (B ·i B)) − ((A
·i B)
· (B
·i A))) |
| 47 | 38, 46 | eqtr2 1120 |
. . . . 5
⊢ (((A
·i A)
· (B
·i B))
− ((A
·i B)
· (B
·i A))) =
((((B ·i
B) ·s
A) −v ((A ·i B) ·s B)) ·i A) |
| 48 | 36, 47 | syl5eq 1136 |
. . . 4
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → (((A
·i A)
· (B
·i B))
− ((A
·i B)
· (B
·i A))) =
0) |
| 49 | 41, 2 | mulcl 4105 |
. . . . 5
⊢ ((A
·i A)
· (B
·i B))
∈ ℂ |
| 50 | 1, 3 | hicl 5044 |
. . . . . 6
⊢ (B
·i A)
∈ ℂ |
| 51 | 5, 50 | mulcl 4105 |
. . . . 5
⊢ ((A
·i B)
· (B
·i A))
∈ ℂ |
| 52 | 49, 51 | subeq0 4163 |
. . . 4
⊢ ((((A
·i A)
· (B
·i B))
− ((A
·i B)
· (B
·i A))) = 0
↔ ((A
·i A)
· (B
·i B)) =
((A ·i
B) · (B ·i A))) |
| 53 | 48, 52 | sylib 173 |
. . 3
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → ((A
·i A)
· (B
·i B)) =
((A ·i
B) · (B ·i A))) |
| 54 | 53 | cleqcomd 1106 |
. 2
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → ((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B))) |
| 55 | 3, 1 | bcseq 5073 |
. 2
⊢ (((A
·i B)
· (B
·i A)) =
((A ·i
A) · (B ·i B)) ↔ ((B
·i B)
·s A) =
((A ·i
B) ·s
B)) |
| 56 | 54, 55 | sylib 173 |
1
⊢ (A
∈ (⊥ ‘(⊥ ‘{B})) → ((B
·i B)
·s A) =
((A ·i
B) ·s
B)) |