theorem Th56:
  for x being Real st x > 0 holds signum.x = 1
proof
  let x be Real;
  assume
A1: 0 < x;
  signum.x = sgn x by Def9
    .= 1 by A1,ABSVALUE:def 2;
  hence thesis;
end;
