theorem
  for K being Abelian left_zeroed right_zeroed non empty addLoopStr,
      R being Element of i-tuples_on the carrier of K holds
         (i|->(0.K)) - R = -R
proof
  let K be Abelian left_zeroed right_zeroed non empty addLoopStr, R be
  Element of i-tuples_on the carrier of K;
  thus (i|->(0.K)) - R = (i|->(0.K)) + -R by FINSEQOP:84
    .= - R by Th21;
end;
