Proof of Theorem bcseqi
Step | Hyp | Ref
| Expression |
1 | | normlem7t.2 |
. . . . . . . 8
⊢ 𝐵 ∈ ℋ |
2 | 1, 1 | hicli 29344 |
. . . . . . 7
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
3 | | normlem7t.1 |
. . . . . . 7
⊢ 𝐴 ∈ ℋ |
4 | 2, 3 | hvmulcli 29277 |
. . . . . 6
⊢ ((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈
ℋ |
5 | 3, 1 | hicli 29344 |
. . . . . . 7
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
6 | 5, 1 | hvmulcli 29277 |
. . . . . 6
⊢ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈
ℋ |
7 | 4, 6, 4, 6 | normlem9 29381 |
. . . . 5
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) |
8 | | oveq1 7262 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵))) |
9 | 8 | eqcomd 2744 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵))) |
10 | | his5 29349 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴))) |
11 | 2, 4, 3, 10 | mp3an 1459 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) |
12 | | hiidrcl 29358 |
. . . . . . . . . . . 12
⊢ (𝐵 ∈ ℋ → (𝐵
·ih 𝐵) ∈ ℝ) |
13 | | cjre 14778 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) ∈ ℝ →
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵)) |
14 | 1, 12, 13 | mp2b 10 |
. . . . . . . . . . 11
⊢
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵) |
15 | | ax-his3 29347 |
. . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
16 | 2, 3, 3, 15 | mp3an 1459 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
17 | 14, 16 | oveq12i 7267 |
. . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
18 | 3, 3 | hicli 29344 |
. . . . . . . . . . . . 13
⊢ (𝐴
·ih 𝐴) ∈ ℂ |
19 | 2, 18 | mulcli 10913 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐴)) ∈
ℂ |
20 | 2, 19 | mulcomi 10914 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
21 | 18, 2 | mulcomi 10914 |
. . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
22 | 21 | oveq1i 7265 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
23 | 20, 22 | eqtr4i 2769 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) |
24 | 11, 17, 23 | 3eqtri 2770 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) |
25 | | his5 29349 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵))) |
26 | 5, 4, 1, 25 | mp3an 1459 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) |
27 | 1, 3 | his1i 29363 |
. . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) = (∗‘(𝐴 ·ih 𝐵)) |
28 | 27 | eqcomi 2747 |
. . . . . . . . . . 11
⊢
(∗‘(𝐴
·ih 𝐵)) = (𝐵 ·ih 𝐴) |
29 | | ax-his3 29347 |
. . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
30 | 2, 3, 1, 29 | mp3an 1459 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) |
31 | 28, 30 | oveq12i 7267 |
. . . . . . . . . 10
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
32 | 1, 3 | hicli 29344 |
. . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) ∈ ℂ |
33 | 2, 5 | mulcli 10913 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) ∈
ℂ |
34 | 32, 33 | mulcomi 10914 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) |
35 | 2, 5, 32 | mulassi 10917 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
36 | 5, 32 | mulcli 10913 |
. . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) ∈
ℂ |
37 | 2, 36 | mulcomi 10914 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
38 | 34, 35, 37 | 3eqtri 2770 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
39 | 26, 31, 38 | 3eqtri 2770 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
40 | 9, 24, 39 | 3eqtr4g 2804 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) |
41 | | ax-his3 29347 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
42 | 5, 1, 3, 41 | mp3an 1459 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) |
43 | 14, 42 | oveq12i 7267 |
. . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
44 | | his5 29349 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴))) |
45 | 2, 6, 3, 44 | mp3an 1459 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
46 | | his5 29349 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵))) |
47 | 5, 6, 1, 46 | mp3an 1459 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
48 | | ax-his3 29347 |
. . . . . . . . . . . . 13
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
49 | 5, 1, 1, 48 | mp3an 1459 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
50 | 28, 49 | oveq12i 7267 |
. . . . . . . . . . 11
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
51 | 5, 2 | mulcli 10913 |
. . . . . . . . . . . . 13
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) ∈
ℂ |
52 | 32, 51 | mulcomi 10914 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) |
53 | 5, 2, 32 | mul32i 11101 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
54 | 36, 2 | mulcomi 10914 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
55 | 52, 53, 54 | 3eqtri 2770 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
56 | 47, 50, 55 | 3eqtri 2770 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
57 | 43, 45, 56 | 3eqtr4ri 2777 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) |
58 | 57 | a1i 11 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) |
59 | 40, 58 | oveq12d 7273 |
. . . . . . 7
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) |
60 | 59 | oveq1d 7270 |
. . . . . 6
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))))) |
61 | 4, 6 | hicli 29344 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) ∈ ℂ |
62 | 6, 4 | hicli 29344 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) ∈ ℂ |
63 | 61, 62 | addcli 10912 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) ∈
ℂ |
64 | 63 | subidi 11222 |
. . . . . 6
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0 |
65 | 60, 64 | eqtrdi 2795 |
. . . . 5
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0) |
66 | 7, 65 | syl5eq 2791 |
. . . 4
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
67 | 4, 6 | hvsubcli 29284 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈
ℋ |
68 | | his6 29362 |
. . . . 5
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈ ℋ →
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 ↔ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) =
0ℎ)) |
69 | 67, 68 | ax-mp 5 |
. . . 4
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0 ↔ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) =
0ℎ) |
70 | 66, 69 | sylib 217 |
. . 3
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) =
0ℎ) |
71 | 4, 6 | hvsubeq0i 29326 |
. . 3
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = 0ℎ ↔
((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
72 | 70, 71 | sylib 217 |
. 2
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
73 | | oveq1 7262 |
. . . 4
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
74 | 21, 16 | eqtr4i 2769 |
. . . 4
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) |
75 | 42 | eqcomi 2747 |
. . . 4
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) |
76 | 73, 74, 75 | 3eqtr4g 2804 |
. . 3
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
77 | 76 | eqcomd 2744 |
. 2
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵))) |
78 | 72, 77 | impbii 208 |
1
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) ↔ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |