reserve x for set;
reserve i,j for Integer;
reserve n,n1,n2,n3 for Nat;
reserve p for Prime;
reserve a,b,c,d for Element of GF(p);
reserve K for Ring;
reserve a1,a2,a3,a4,a5,a6 for Element of K;

theorem
  for K being add-associative right_zeroed right_complementable
  Abelian non empty addLoopStr, a1,a2 being Element of K holds
  a1 = -a2 implies -a1 = a2
  proof
    let K be add-associative right_zeroed right_complementable Abelian
    non empty addLoopStr, a1,a2 be Element of K;
    assume a1 = -a2;
    then a1 + a2 = 0.K by VECTSP_1:16;
    hence thesis by VECTSP_1:16;
  end;
