| Step | Hyp | Ref
| Expression |
| 1 | | hvmulcl 27870 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ) → (𝐴
·ℎ 𝐵) ∈ ℋ) |
| 2 | | kbfval 28811 |
. . 3
⊢ (((𝐴
·ℎ 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 ·ℎ 𝐵) ketbra 𝐶) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih 𝐶)
·ℎ (𝐴 ·ℎ 𝐵)))) |
| 3 | 1, 2 | stoic3 1701 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴
·ℎ 𝐵) ketbra 𝐶) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih 𝐶)
·ℎ (𝐴 ·ℎ 𝐵)))) |
| 4 | | simp2 1062 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → 𝐵 ∈
ℋ) |
| 5 | | cjcl 13845 |
. . . . . 6
⊢ (𝐴 ∈ ℂ →
(∗‘𝐴) ∈
ℂ) |
| 6 | 5 | 3ad2ant1 1082 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) →
(∗‘𝐴) ∈
ℂ) |
| 7 | | simp3 1063 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → 𝐶 ∈
ℋ) |
| 8 | | hvmulcl 27870 |
. . . . 5
⊢
(((∗‘𝐴)
∈ ℂ ∧ 𝐶
∈ ℋ) → ((∗‘𝐴) ·ℎ 𝐶) ∈
ℋ) |
| 9 | 6, 7, 8 | syl2anc 693 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) →
((∗‘𝐴)
·ℎ 𝐶) ∈ ℋ) |
| 10 | | kbfval 28811 |
. . . 4
⊢ ((𝐵 ∈ ℋ ∧
((∗‘𝐴)
·ℎ 𝐶) ∈ ℋ) → (𝐵 ketbra ((∗‘𝐴) ·ℎ 𝐶)) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶)) ·ℎ 𝐵))) |
| 11 | 4, 9, 10 | syl2anc 693 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → (𝐵 ketbra ((∗‘𝐴)
·ℎ 𝐶)) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶)) ·ℎ 𝐵))) |
| 12 | | simpr 477 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → 𝑥 ∈
ℋ) |
| 13 | | simpl3 1066 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → 𝐶 ∈
ℋ) |
| 14 | | hicl 27937 |
. . . . . . 7
⊢ ((𝑥 ∈ ℋ ∧ 𝐶 ∈ ℋ) → (𝑥
·ih 𝐶) ∈ ℂ) |
| 15 | 12, 13, 14 | syl2anc 693 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → (𝑥
·ih 𝐶) ∈ ℂ) |
| 16 | | simpl1 1064 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → 𝐴 ∈
ℂ) |
| 17 | | simpl2 1065 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → 𝐵 ∈
ℋ) |
| 18 | | ax-hvmulass 27864 |
. . . . . 6
⊢ (((𝑥
·ih 𝐶) ∈ ℂ ∧ 𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ) → (((𝑥
·ih 𝐶) · 𝐴) ·ℎ 𝐵) = ((𝑥 ·ih 𝐶)
·ℎ (𝐴 ·ℎ 𝐵))) |
| 19 | 15, 16, 17, 18 | syl3anc 1326 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → (((𝑥
·ih 𝐶) · 𝐴) ·ℎ 𝐵) = ((𝑥 ·ih 𝐶)
·ℎ (𝐴 ·ℎ 𝐵))) |
| 20 | 15, 16 | mulcomd 10061 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → ((𝑥
·ih 𝐶) · 𝐴) = (𝐴 · (𝑥 ·ih 𝐶))) |
| 21 | | his52 27944 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 𝑥 ∈ ℋ ∧ 𝐶 ∈ ℋ) → (𝑥
·ih ((∗‘𝐴) ·ℎ 𝐶)) = (𝐴 · (𝑥 ·ih 𝐶))) |
| 22 | 16, 12, 13, 21 | syl3anc 1326 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → (𝑥
·ih ((∗‘𝐴) ·ℎ 𝐶)) = (𝐴 · (𝑥 ·ih 𝐶))) |
| 23 | 20, 22 | eqtr4d 2659 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → ((𝑥
·ih 𝐶) · 𝐴) = (𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶))) |
| 24 | 23 | oveq1d 6665 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → (((𝑥
·ih 𝐶) · 𝐴) ·ℎ 𝐵) = ((𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶)) ·ℎ 𝐵)) |
| 25 | 19, 24 | eqtr3d 2658 |
. . . 4
⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) ∧ 𝑥 ∈ ℋ) → ((𝑥
·ih 𝐶) ·ℎ (𝐴
·ℎ 𝐵)) = ((𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶)) ·ℎ 𝐵)) |
| 26 | 25 | mpteq2dva 4744 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → (𝑥 ∈ ℋ ↦ ((𝑥
·ih 𝐶) ·ℎ (𝐴
·ℎ 𝐵))) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih
((∗‘𝐴)
·ℎ 𝐶)) ·ℎ 𝐵))) |
| 27 | 11, 26 | eqtr4d 2659 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → (𝐵 ketbra ((∗‘𝐴)
·ℎ 𝐶)) = (𝑥 ∈ ℋ ↦ ((𝑥 ·ih 𝐶)
·ℎ (𝐴 ·ℎ 𝐵)))) |
| 28 | 3, 27 | eqtr4d 2659 |
1
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴
·ℎ 𝐵) ketbra 𝐶) = (𝐵 ketbra ((∗‘𝐴) ·ℎ 𝐶))) |