| Step | Hyp | Ref
| Expression |
| 1 | | h1de2.2 |
. . . . . . . . 9
⊢ 𝐵 ∈ ℋ |
| 2 | 1, 1 | hicli 31100 |
. . . . . . . 8
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
| 3 | | h1de2.1 |
. . . . . . . 8
⊢ 𝐴 ∈ ℋ |
| 4 | 2, 3 | hvmulcli 31033 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈
ℋ |
| 5 | 3, 1 | hicli 31100 |
. . . . . . . 8
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
| 6 | 5, 1 | hvmulcli 31033 |
. . . . . . 7
⊢ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈
ℋ |
| 7 | | his2sub 31111 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈ ℋ ∧ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈ ℋ ∧ 𝐴 ∈ ℋ) →
((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴))) |
| 8 | 4, 6, 3, 7 | mp3an 1463 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
| 9 | | ax-his3 31103 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
| 10 | 2, 3, 3, 9 | mp3an 1463 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
| 11 | 3, 3 | hicli 31100 |
. . . . . . . . 9
⊢ (𝐴
·ih 𝐴) ∈ ℂ |
| 12 | 2, 11 | mulcomi 11269 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) |
| 13 | 10, 12 | eqtri 2765 |
. . . . . . 7
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) |
| 14 | | ax-his3 31103 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 15 | 5, 1, 3, 14 | mp3an 1463 |
. . . . . . 7
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) |
| 16 | 13, 15 | oveq12i 7443 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 17 | 8, 16 | eqtr2i 2766 |
. . . . 5
⊢ (((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) |
| 18 | | his2sub 31111 |
. . . . . . . 8
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈ ℋ ∧ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈ ℋ ∧ 𝐵 ∈ ℋ) →
((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵))) |
| 19 | 4, 6, 1, 18 | mp3an 1463 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
| 20 | 2, 5 | mulcomi 11269 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
| 21 | | ax-his3 31103 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
| 22 | 2, 3, 1, 21 | mp3an 1463 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) |
| 23 | | ax-his3 31103 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
| 24 | 5, 1, 1, 23 | mp3an 1463 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
| 25 | 20, 22, 24 | 3eqtr4i 2775 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) |
| 26 | 4, 1 | hicli 31100 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) ∈ ℂ |
| 27 | 6, 1 | hicli 31100 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) ∈ ℂ |
| 28 | 26, 27 | subeq0i 11589 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = 0 ↔ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
| 29 | 25, 28 | mpbir 231 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = 0 |
| 30 | 19, 29 | eqtri 2765 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 |
| 31 | 1 | h1dei 31569 |
. . . . . . . . 9
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ (𝐴 ∈ ℋ ∧ ∀𝑥 ∈ ℋ ((𝐵
·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0))) |
| 32 | 3, 31 | mpbiran 709 |
. . . . . . . 8
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ ∀𝑥 ∈ ℋ ((𝐵 ·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0)) |
| 33 | 4, 6 | hvsubcli 31040 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈
ℋ |
| 34 | | oveq2 7439 |
. . . . . . . . . . . 12
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → (𝐵 ·ih 𝑥) = (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)))) |
| 35 | 34 | eqeq1d 2739 |
. . . . . . . . . . 11
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → ((𝐵 ·ih 𝑥) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 36 | | oveq2 7439 |
. . . . . . . . . . . 12
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → (𝐴 ·ih 𝑥) = (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)))) |
| 37 | 36 | eqeq1d 2739 |
. . . . . . . . . . 11
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → ((𝐴 ·ih 𝑥) = 0 ↔ (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 38 | 35, 37 | imbi12d 344 |
. . . . . . . . . 10
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → (((𝐵 ·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0) ↔ ((𝐵
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 → (𝐴
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0))) |
| 39 | 38 | rspcv 3618 |
. . . . . . . . 9
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ →
(∀𝑥 ∈ ℋ
((𝐵
·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0) → ((𝐵
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 → (𝐴
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0))) |
| 40 | 33, 39 | ax-mp 5 |
. . . . . . . 8
⊢
(∀𝑥 ∈
ℋ ((𝐵
·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0) → ((𝐵
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 → (𝐴
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 41 | 32, 40 | sylbi 217 |
. . . . . . 7
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 → (𝐴
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 42 | | orthcom 31127 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ ∧ 𝐵 ∈ ℋ) →
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 43 | 33, 1, 42 | mp2an 692 |
. . . . . . 7
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
| 44 | | orthcom 31127 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ ∧ 𝐴 ∈ ℋ) →
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0 ↔ (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
| 45 | 33, 3, 44 | mp2an 692 |
. . . . . . 7
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0 ↔ (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
| 46 | 41, 43, 45 | 3imtr4g 296 |
. . . . . 6
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0)) |
| 47 | 30, 46 | mpi 20 |
. . . . 5
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0) |
| 48 | 17, 47 | eqtrid 2789 |
. . . 4
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = 0) |
| 49 | 11, 2 | mulcli 11268 |
. . . . 5
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) ∈
ℂ |
| 50 | 1, 3 | hicli 31100 |
. . . . . 6
⊢ (𝐵
·ih 𝐴) ∈ ℂ |
| 51 | 5, 50 | mulcli 11268 |
. . . . 5
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) ∈
ℂ |
| 52 | 49, 51 | subeq0i 11589 |
. . . 4
⊢ ((((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = 0 ↔ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 53 | 48, 52 | sylib 218 |
. . 3
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 54 | 53 | eqcomd 2743 |
. 2
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵))) |
| 55 | 3, 1 | bcseqi 31139 |
. 2
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) ↔ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
| 56 | 54, 55 | sylib 218 |
1
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |