theorem Th28:
  --R = R
proof
  R + -R = (i|->0.K) by Lm3;
  hence thesis by Th27;
end;
