Proof of Theorem bcseqi
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | normlem7t.2 | . . . . . . . 8
⊢ 𝐵 ∈ ℋ | 
| 2 | 1, 1 | hicli 31101 | . . . . . . 7
⊢ (𝐵
·ih 𝐵) ∈ ℂ | 
| 3 |  | normlem7t.1 | . . . . . . 7
⊢ 𝐴 ∈ ℋ | 
| 4 | 2, 3 | hvmulcli 31034 | . . . . . 6
⊢ ((𝐵
·ih 𝐵) ·ℎ 𝐴) ∈
ℋ | 
| 5 | 3, 1 | hicli 31101 | . . . . . . 7
⊢ (𝐴
·ih 𝐵) ∈ ℂ | 
| 6 | 5, 1 | hvmulcli 31034 | . . . . . 6
⊢ ((𝐴
·ih 𝐵) ·ℎ 𝐵) ∈
ℋ | 
| 7 | 4, 6, 4, 6 | normlem9 31138 | . . . . 5
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) | 
| 8 |  | oveq1 7439 | . . . . . . . . . 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 31106 | . . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴))) | 
| 11 | 2, 4, 3, 10 | mp3an 1462 | . . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) | 
| 12 |  | hiidrcl 31115 | . . . . . . . . . . . 12
⊢ (𝐵 ∈ ℋ → (𝐵
·ih 𝐵) ∈ ℝ) | 
| 13 |  | cjre 15179 | . . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) ∈ ℝ →
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵)) | 
| 14 | 1, 12, 13 | mp2b 10 | . . . . . . . . . . 11
⊢
(∗‘(𝐵
·ih 𝐵)) = (𝐵 ·ih 𝐵) | 
| 15 |  | ax-his3 31104 | . . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) | 
| 16 | 2, 3, 3, 15 | mp3an 1462 | . . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐴) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) | 
| 17 | 14, 16 | oveq12i 7444 | . . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) | 
| 18 | 3, 3 | hicli 31101 | . . . . . . . . . . . . 13
⊢ (𝐴
·ih 𝐴) ∈ ℂ | 
| 19 | 2, 18 | mulcli 11269 | . . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐴)) ∈
ℂ | 
| 20 | 2, 19 | mulcomi 11270 | . . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 21 | 18, 2 | mulcomi 11270 | . . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) | 
| 22 | 21 | oveq1i 7442 | . . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 23 | 20, 22 | eqtr4i 2767 | . . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐴))) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) | 
| 24 | 11, 17, 23 | 3eqtri 2768 | . . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = (((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) | 
| 25 |  | his5 31106 | . . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐵 ·ih 𝐵)
·ℎ 𝐴) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵))) | 
| 26 | 5, 4, 1, 25 | mp3an 1462 | . . . . . . . . . 10
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) | 
| 27 | 1, 3 | his1i 31120 | . . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) = (∗‘(𝐴 ·ih 𝐵)) | 
| 28 | 27 | eqcomi 2745 | . . . . . . . . . . 11
⊢
(∗‘(𝐴
·ih 𝐵)) = (𝐵 ·ih 𝐴) | 
| 29 |  | ax-his3 31104 | . . . . . . . . . . . 12
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) | 
| 30 | 2, 3, 1, 29 | mp3an 1462 | . . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih 𝐵) = ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) | 
| 31 | 28, 30 | oveq12i 7444 | . . . . . . . . . 10
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) | 
| 32 | 1, 3 | hicli 31101 | . . . . . . . . . . . 12
⊢ (𝐵
·ih 𝐴) ∈ ℂ | 
| 33 | 2, 5 | mulcli 11269 | . . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) ∈
ℂ | 
| 34 | 32, 33 | mulcomi 11270 | . . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) | 
| 35 | 2, 5, 32 | mulassi 11273 | . . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) · (𝐴 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 36 | 5, 32 | mulcli 11269 | . . . . . . . . . . . 12
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) ∈
ℂ | 
| 37 | 2, 36 | mulcomi 11270 | . . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 38 | 34, 35, 37 | 3eqtri 2768 | . . . . . . . . . 10
⊢ ((𝐵
·ih 𝐴) · ((𝐵 ·ih 𝐵) · (𝐴 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 39 | 26, 31, 38 | 3eqtri 2768 | . . . . . . . . 9
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 40 | 9, 24, 39 | 3eqtr4g 2801 | . . . . . . . 8
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) | 
| 41 |  | ax-his3 31104 | . . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 42 | 5, 1, 3, 41 | mp3an 1462 | . . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐴) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) | 
| 43 | 14, 42 | oveq12i 7444 | . . . . . . . . . 10
⊢
((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 44 |  | his5 31106 | . . . . . . . . . . 11
⊢ (((𝐵
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐴 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((∗‘(𝐵
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴))) | 
| 45 | 2, 6, 3, 44 | mp3an 1462 | . . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = ((∗‘(𝐵 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) | 
| 46 |  | his5 31106 | . . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ ((𝐴 ·ih 𝐵)
·ℎ 𝐵) ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = ((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵))) | 
| 47 | 5, 6, 1, 46 | mp3an 1462 | . . . . . . . . . . 11
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((∗‘(𝐴 ·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) | 
| 48 |  | ax-his3 31104 | . . . . . . . . . . . . 13
⊢ (((𝐴
·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) | 
| 49 | 5, 1, 1, 48 | mp3an 1462 | . . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih 𝐵) = ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) | 
| 50 | 28, 49 | oveq12i 7444 | . . . . . . . . . . 11
⊢
((∗‘(𝐴
·ih 𝐵)) · (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐵)) = ((𝐵 ·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) | 
| 51 | 5, 2 | mulcli 11269 | . . . . . . . . . . . . 13
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) ∈
ℂ | 
| 52 | 32, 51 | mulcomi 11270 | . . . . . . . . . . . 12
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) | 
| 53 | 5, 2, 32 | mul32i 11458 | . . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) | 
| 54 | 36, 2 | mulcomi 11270 | . . . . . . . . . . . 12
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) · (𝐵 ·ih 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 55 | 52, 53, 54 | 3eqtri 2768 | . . . . . . . . . . 11
⊢ ((𝐵
·ih 𝐴) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐵))) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 56 | 47, 50, 55 | 3eqtri 2768 | . . . . . . . . . 10
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = ((𝐵 ·ih 𝐵) · ((𝐴 ·ih 𝐵) · (𝐵 ·ih 𝐴))) | 
| 57 | 43, 45, 56 | 3eqtr4ri 2775 | . . . . . . . . 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 7450 | . . . . . . 7
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) = ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) | 
| 60 | 59 | oveq1d 7447 | . . . . . 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 31101 | . . . . . . . 8
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) ∈ ℂ | 
| 62 | 6, 4 | hicli 31101 | . . . . . . . 8
⊢ (((𝐴
·ih 𝐵) ·ℎ 𝐵)
·ih ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) ∈ ℂ | 
| 63 | 61, 62 | addcli 11268 | . . . . . . 7
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) ∈
ℂ | 
| 64 | 63 | subidi 11581 | . . . . . 6
⊢
(((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0 | 
| 65 | 60, 64 | eqtrdi 2792 | . . . . 5
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → (((((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐴
·ih 𝐵) ·ℎ 𝐵))) − ((((𝐵
·ih 𝐵) ·ℎ 𝐴)
·ih ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) + (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih
((𝐵
·ih 𝐵) ·ℎ 𝐴)))) = 0) | 
| 66 | 7, 65 | eqtrid 2788 | . . . 4
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))
·ih (((𝐵 ·ih 𝐵)
·ℎ 𝐴) −ℎ ((𝐴
·ih 𝐵) ·ℎ 𝐵))) = 0) | 
| 67 | 4, 6 | hvsubcli 31041 | . . . . 5
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) ∈
ℋ | 
| 68 |  | his6 31119 | . . . . 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 31083 | . . 3
⊢ ((((𝐵
·ih 𝐵) ·ℎ 𝐴) −ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = 0ℎ ↔
((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) | 
| 72 | 70, 71 | sylib 218 | . 2
⊢ (((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = ((𝐴 ·ih 𝐴) · (𝐵 ·ih 𝐵)) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) | 
| 73 |  | oveq1 7439 | . . . 4
⊢ (((𝐵
·ih 𝐵) ·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵) → (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴)) | 
| 74 | 21, 16 | eqtr4i 2767 | . . . 4
⊢ ((𝐴
·ih 𝐴) · (𝐵 ·ih 𝐵)) = (((𝐵 ·ih 𝐵)
·ℎ 𝐴) ·ih 𝐴) | 
| 75 | 42 | eqcomi 2745 | . . . 4
⊢ ((𝐴
·ih 𝐵) · (𝐵 ·ih 𝐴)) = (((𝐴 ·ih 𝐵)
·ℎ 𝐵) ·ih 𝐴) | 
| 76 | 73, 74, 75 | 3eqtr4g 2801 | . . 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 𝐵)
·ℎ 𝐵)) |