theorem
  -z = (-1_R_Quaternion) * z
proof
  reconsider z9=z as Element of QUATERNION by Def10;
  thus -z = (-1q) * z9 by Th19
    .= (-1_R_Quaternion) * z by Def10;
end;
