A1: <j> * <k> = [*((((0 * 0 ) - (0 * 0 )) - (1 * 0 )) - (0 * 1)),((((0 * 0 ) + (0 * 0 )) + (1 * 1)) - (0 * 0 )),((((0 * 0 ) + (0 * 1)) + (0 * 0 )) - (1 * 0 )),((((0 * 1) + (0 * 0 )) + (0 * 0 )) - (1 * 0 ))*] by Def10
.= [*0 ,1,0 ,0 *] ;
<k> * <j> = [*((((0 * 0 ) - (0 * 0 )) - (0 * 1)) - (1 * 0 )),((((0 * 0 ) + (0 * 0 )) + (0 * 0 )) - (1 * 1)),((((0 * 1) + (0 * 0 )) + (0 * 1)) - (0 * 0 )),((((0 * 0 ) + (1 * 0 )) + (0 * 1)) - (0 * 0 ))*] by Def10
.= [*0 ,(- 1),0 ,0 *] ;
then (<j> * <k> ) + (<k> * <j> ) = [*(0 + 0 ),(0 + 0 ),(0 + 0 ),(1 + (- 1))*] by A1, Def7
.= 0 by Lm7 ;
hence <j> * <k> = - (<k> * <j> ) by Def8; :: thesis: verum