
theorem Th1:
  for a being Element of INT.Ring holds absint.a = |.a.|
proof
  let a be Element of INT.Ring;
  reconsider a9 = a as Integer;
  absint.a = absreal.a9 by Def5
    .= |.a9.| by EUCLID:def 2;
  hence thesis;
end;
