let z1, z2 be quaternion number ; :: thesis: z1 - z2 = - (z2 - z1)
A1: Rea (z2 - z1) = (Rea z2) - (Rea z1) by Th42;
A2: Im1 (z2 - z1) = (Im1 z2) - (Im1 z1) by Th42;
A3: Im2 (z2 - z1) = (Im2 z2) - (Im2 z1) by Th42;
A4: Im3 (z2 - z1) = (Im3 z2) - (Im3 z1) by Th42;
A5: Rea (- (z2 - z1)) = - ((Rea z2) - (Rea z1)) by A1, Th41;
A6: Im1 (- (z2 - z1)) = - ((Im1 z2) - (Im1 z1)) by A2, Th41;
A7: Im2 (- (z2 - z1)) = - ((Im2 z2) - (Im2 z1)) by A3, Th41;
A8: Im3 (- (z2 - z1)) = - ((Im3 z2) - (Im3 z1)) by A4, Th41;
A9: Rea (z1 - z2) = (Rea z1) - (Rea z2) by Th42;
A10: Im1 (z1 - z2) = (Im1 z1) - (Im1 z2) by Th42;
A11: Im2 (z1 - z2) = (Im2 z1) - (Im2 z2) by Th42;
Im3 (z1 - z2) = (Im3 z1) - (Im3 z2) by Th42;
hence z1 - z2 = - (z2 - z1) by Th25, A9, A10, A11, A5, A6, A7, A8; :: thesis: verum