| 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 ) |