Step | Hyp | Ref
| Expression |
1 | | h1de2.2 |
. . . . . . . . 9
⊢ 𝐵 ∈ ℋ |
2 | 1, 1 | hicli 29344 |
. . . . . . . 8
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
3 | | h1de2.1 |
. . . . . . . 8
⊢ 𝐴 ∈ ℋ |
4 | 2, 3 | hvmulcli 29277 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈
ℋ |
5 | 3, 1 | hicli 29344 |
. . . . . . . 8
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
6 | 5, 1 | hvmulcli 29277 |
. . . . . . 7
⊢ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈
ℋ |
7 | | his2sub 29355 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈ ℋ ∧ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈ ℋ ∧ 𝐴 ∈ ℋ) →
((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴))) |
8 | 4, 6, 3, 7 | mp3an 1459 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
9 | | ax-his3 29347 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
10 | 2, 3, 3, 9 | mp3an 1459 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
11 | 3, 3 | hicli 29344 |
. . . . . . . . 9
⊢ (𝐴
·ih 𝐴) ∈ ℂ |
12 | 2, 11 | mulcomi 10914 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) |
13 | 10, 12 | eqtri 2766 |
. . . . . . 7
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) |
14 | | ax-his3 29347 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
15 | 5, 1, 3, 14 | mp3an 1459 |
. . . . . . 7
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) |
16 | 13, 15 | oveq12i 7267 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
17 | 8, 16 | eqtr2i 2767 |
. . . . 5
⊢ (((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) |
18 | | his2sub 29355 |
. . . . . . . 8
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈ ℋ ∧ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈ ℋ ∧ 𝐵 ∈ ℋ) →
((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵))) |
19 | 4, 6, 1, 18 | mp3an 1459 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
20 | 2, 5 | mulcomi 10914 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
21 | | ax-his3 29347 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
22 | 2, 3, 1, 21 | mp3an 1459 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) |
23 | | ax-his3 29347 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
24 | 5, 1, 1, 23 | mp3an 1459 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
25 | 20, 22, 24 | 3eqtr4i 2776 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) |
26 | 4, 1 | hicli 29344 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) ∈ ℂ |
27 | 6, 1 | hicli 29344 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) ∈ ℂ |
28 | 26, 27 | subeq0i 11231 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = 0 ↔ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
29 | 25, 28 | mpbir 230 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) − (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = 0 |
30 | 19, 29 | eqtri 2766 |
. . . . . 6
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 |
31 | 1 | h1dei 29813 |
. . . . . . . . 9
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ (𝐴 ∈ ℋ ∧ ∀𝑥 ∈ ℋ ((𝐵
·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0))) |
32 | 3, 31 | mpbiran 705 |
. . . . . . . 8
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ ∀𝑥 ∈ ℋ ((𝐵 ·ih 𝑥) = 0 → (𝐴 ·ih 𝑥) = 0)) |
33 | 4, 6 | hvsubcli 29284 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈
ℋ |
34 | | oveq2 7263 |
. . . . . . . . . . . 12
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → (𝐵 ·ih 𝑥) = (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)))) |
35 | 34 | eqeq1d 2740 |
. . . . . . . . . . 11
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → ((𝐵 ·ih 𝑥) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
36 | | oveq2 7263 |
. . . . . . . . . . . 12
⊢ (𝑥 = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) → (𝐴 ·ih 𝑥) = (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)))) |
37 | 36 | eqeq1d 2740 |
. . . . . . . . . . 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 3547 |
. . . . . . . . 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 216 |
. . . . . . 7
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 → (𝐴
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
42 | | orthcom 29371 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ ∧ 𝐵 ∈ ℋ) →
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
43 | 33, 1, 42 | mp2an 688 |
. . . . . . 7
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 ↔ (𝐵 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
44 | | orthcom 29371 |
. . . . . . . 8
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ ∧ 𝐴 ∈ ℋ) →
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0 ↔ (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0)) |
45 | 33, 3, 44 | mp2an 688 |
. . . . . . 7
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0 ↔ (𝐴 ·ih
(((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
46 | 41, 43, 45 | 3imtr4g 295 |
. . . . . 6
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐵) = 0 → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0)) |
47 | 30, 46 | mpi 20 |
. . . . 5
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih 𝐴) = 0) |
48 | 17, 47 | syl5eq 2791 |
. . . 4
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = 0) |
49 | 11, 2 | mulcli 10913 |
. . . . 5
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) ∈
ℂ |
50 | 1, 3 | hicli 29344 |
. . . . . 6
⊢ (𝐵
·ih 𝐴) ∈ ℂ |
51 | 5, 50 | mulcli 10913 |
. . . . 5
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) ∈
ℂ |
52 | 49, 51 | subeq0i 11231 |
. . . 4
⊢ ((((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = 0 ↔ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
53 | 48, 52 | sylib 217 |
. . 3
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
54 | 53 | eqcomd 2744 |
. 2
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵))) |
55 | 3, 1 | bcseqi 29383 |
. 2
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) ↔ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
56 | 54, 55 | sylib 217 |
1
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |