
theorem lemmod:
  for i,n being Real st |.i.|=n holds i=n or i=-n
proof
  let i,n be Real;
  assume |.i.| = n & i<>n;
  then n=-i by ABSVALUE:def 1;
  hence i=-n;
end;
