theorem
  for F be add-associative right_zeroed right_complementable Abelian
    distributive non empty doubleLoopStr,
      x,y being Element of F holds
    (-x)*y = -x*y & x*(-y) = -x*y by VECTSP_1:8,9;
