reserve V for non empty RLSStruct;
reserve x,y,y1 for set;
reserve v for VECTOR of V;
reserve a,b for Real;

theorem Th18:
  for V being add-associative right_zeroed right_complementable
  non empty addLoopStr, v,w being Element of V holds - v = - w implies v = w
proof
  let V be add-associative right_zeroed right_complementable non empty
  addLoopStr;
  let v,w be Element of V;
  assume - v = - w;
  hence v = - (- w)
    .= w;
end;
