Step |
Hyp |
Ref |
Expression |
1 |
|
kbfval |
|- ( ( A e. ~H /\ B e. ~H ) -> ( A ketbra B ) = ( x e. ~H |-> ( ( x .ih B ) .h A ) ) ) |
2 |
|
hicl |
|- ( ( x e. ~H /\ B e. ~H ) -> ( x .ih B ) e. CC ) |
3 |
|
hvmulcl |
|- ( ( ( x .ih B ) e. CC /\ A e. ~H ) -> ( ( x .ih B ) .h A ) e. ~H ) |
4 |
2 3
|
sylan |
|- ( ( ( x e. ~H /\ B e. ~H ) /\ A e. ~H ) -> ( ( x .ih B ) .h A ) e. ~H ) |
5 |
4
|
an31s |
|- ( ( ( A e. ~H /\ B e. ~H ) /\ x e. ~H ) -> ( ( x .ih B ) .h A ) e. ~H ) |
6 |
1 5
|
fmpt3d |
|- ( ( A e. ~H /\ B e. ~H ) -> ( A ketbra B ) : ~H --> ~H ) |