Proof of Theorem bcseqi
| Step | Hyp | Ref
| Expression |
| 1 | | normlem7t.2 |
. . . . . . . 8
⊢ 𝐵 ∈ ℋ |
| 2 | 1, 1 | hicli 31067 |
. . . . . . 7
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
| 3 | | normlem7t.1 |
. . . . . . 7
⊢ 𝐴 ∈ ℋ |
| 4 | 2, 3 | hvmulcli 31000 |
. . . . . 6
⊢ ((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈
ℋ |
| 5 | 3, 1 | hicli 31067 |
. . . . . . 7
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
| 6 | 5, 1 | hvmulcli 31000 |
. . . . . 6
⊢ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈
ℋ |
| 7 | 4, 6, 4, 6 | normlem9 31104 |
. . . . 5
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) |
| 8 | | oveq1 7417 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵))) |
| 9 | 8 | eqcomd 2742 |
. . . . . . . . 9
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵))) |
| 10 | | his5 31072 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴))) |
| 11 | 2, 4, 3, 10 | mp3an 1463 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) |
| 12 | | hiidrcl 31081 |
. . . . . . . . . . . 12
⊢ (𝐵 ∈ ℋ → (𝐵
·ih 𝐵) ∈ ℝ) |
| 13 | | cjre 15163 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) ∈ ℝ →
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵)) |
| 14 | 1, 12, 13 | mp2b 10 |
. . . . . . . . . . 11
⊢
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵) |
| 15 | | ax-his3 31070 |
. . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
| 16 | 2, 3, 3, 15 | mp3an 1463 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
| 17 | 14, 16 | oveq12i 7422 |
. . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) |
| 18 | 3, 3 | hicli 31067 |
. . . . . . . . . . . . 13
⊢ (𝐴
·ih 𝐴) ∈ ℂ |
| 19 | 2, 18 | mulcli 11247 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐴)) ∈
ℂ |
| 20 | 2, 19 | mulcomi 11248 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 21 | 18, 2 | mulcomi 11248 |
. . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) |
| 22 | 21 | oveq1i 7420 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 23 | 20, 22 | eqtr4i 2762 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) |
| 24 | 11, 17, 23 | 3eqtri 2763 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) |
| 25 | | his5 31072 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵))) |
| 26 | 5, 4, 1, 25 | mp3an 1463 |
. . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) |
| 27 | 1, 3 | his1i 31086 |
. . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) = (∗‘(𝐴 ·ih 𝐵)) |
| 28 | 27 | eqcomi 2745 |
. . . . . . . . . . 11
⊢
(∗‘(𝐴
·ih 𝐵)) = (𝐵 ·ih 𝐴) |
| 29 | | ax-his3 31070 |
. . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
| 30 | 2, 3, 1, 29 | mp3an 1463 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) |
| 31 | 28, 30 | oveq12i 7422 |
. . . . . . . . . 10
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) |
| 32 | 1, 3 | hicli 31067 |
. . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) ∈ ℂ |
| 33 | 2, 5 | mulcli 11247 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) ∈
ℂ |
| 34 | 32, 33 | mulcomi 11248 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) |
| 35 | 2, 5, 32 | mulassi 11251 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 36 | 5, 32 | mulcli 11247 |
. . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) ∈
ℂ |
| 37 | 2, 36 | mulcomi 11248 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 38 | 34, 35, 37 | 3eqtri 2763 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 39 | 26, 31, 38 | 3eqtri 2763 |
. . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 40 | 9, 24, 39 | 3eqtr4g 2796 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) |
| 41 | | ax-his3 31070 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 42 | 5, 1, 3, 41 | mp3an 1463 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) |
| 43 | 14, 42 | oveq12i 7422 |
. . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 44 | | his5 31072 |
. . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴))) |
| 45 | 2, 6, 3, 44 | mp3an 1463 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
| 46 | | his5 31072 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵))) |
| 47 | 5, 6, 1, 46 | mp3an 1463 |
. . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) |
| 48 | | ax-his3 31070 |
. . . . . . . . . . . . 13
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
| 49 | 5, 1, 1, 48 | mp3an 1463 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) |
| 50 | 28, 49 | oveq12i 7422 |
. . . . . . . . . . 11
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) |
| 51 | 5, 2 | mulcli 11247 |
. . . . . . . . . . . . 13
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) ∈
ℂ |
| 52 | 32, 51 | mulcomi 11248 |
. . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) |
| 53 | 5, 2, 32 | mul32i 11436 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) |
| 54 | 36, 2 | mulcomi 11248 |
. . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 55 | 52, 53, 54 | 3eqtri 2763 |
. . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 56 | 47, 50, 55 | 3eqtri 2763 |
. . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 57 | 43, 45, 56 | 3eqtr4ri 2770 |
. . . . . . . . 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 7428 |
. . . . . . 7
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) |
| 60 | 59 | oveq1d 7425 |
. . . . . 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 31067 |
. . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) ∈ ℂ |
| 62 | 6, 4 | hicli 31067 |
. . . . . . . 8
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) ∈ ℂ |
| 63 | 61, 62 | addcli 11246 |
. . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) ∈
ℂ |
| 64 | 63 | subidi 11559 |
. . . . . 6
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0 |
| 65 | 60, 64 | eqtrdi 2787 |
. . . . 5
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0) |
| 66 | 7, 65 | eqtrid 2783 |
. . . 4
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) |
| 67 | 4, 6 | hvsubcli 31007 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈
ℋ |
| 68 | | his6 31085 |
. . . . 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 218 |
. . 3
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵)) =
0ℎ) |
| 71 | 4, 6 | hvsubeq0i 31049 |
. . 3
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = 0ℎ ↔
((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
| 72 | 70, 71 | sylib 218 |
. 2
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
| 73 | | oveq1 7417 |
. . . 4
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) |
| 74 | 21, 16 | eqtr4i 2762 |
. . . 4
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) |
| 75 | 42 | eqcomi 2745 |
. . . 4
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) |
| 76 | 73, 74, 75 | 3eqtr4g 2796 |
. . 3
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) |
| 77 | 76 | eqcomd 2742 |
. 2
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵))) |
| 78 | 72, 77 | impbii 209 |
1
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) ↔ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |