A1: Rea (<i> " ) = (Rea <i> ) / (|.<i> .| ^2 ) by QUATERN2:29
.= 0 by QUATERNI:30 ;
A2: Im1 (<i> " ) = - ((Im1 <i> ) / (|.<i> .| ^2 )) by QUATERN2:29
.= - 1 by QUATERNI:69, QUATERNI:30 ;
A3: Im2 (<i> " ) = - ((Im2 <i> ) / (|.<i> .| ^2 )) by QUATERN2:29
.= 0 by QUATERNI:30 ;
A4: Im3 (<i> " ) = - ((Im3 <i> ) / (|.<i> .| ^2 )) by QUATERN2:29
.= 0 by QUATERNI:30 ;
<i> " = [*(- 0 ),(- 1),(- 0 ),(- 0 )*] by A1, A2, A3, A4, QUATERNI:24
.= - [*0 ,1,0 ,0 *] by QUATERN2:4
.= - <i> by QUATERNI:def 6, Lmx ;
hence <i> " = - <i> ; :: thesis: verum