Modelica function that checks whether the (Real) input may be treated as an integer

isInteger.mo

function isInteger 
  "returns true if input u is an Integer, else false"
  input Real u;
  output Boolean y;
algorithm 
  y := if abs(u-integer(u))<Modelica.Constants.small then true else false;
end isInteger;