File : reps-ops.adb

with Ada.Numerics.Generic_Elementary_Functions;

pragma Elaborate_All(Ada.Numerics.Generic_Elementary_Functions);

package body Reps.Ops is

  function Sqr(R: Rep) return Rep is
  begin
    return R*R;
  end Sqr;

  package Rep_EF is new Ada.Numerics.Generic_Elementary_Functions(Rep);

  function Sqrt(R: Rep) return Rep renames Rep_EF.Sqrt;
  function Cos(R: Rep) return Rep renames Rep_EF.Cos;
  function Sin(R: Rep) return Rep renames Rep_EF.Sin;
  function Log(R: Rep) return Rep renames Rep_EF.Log;
  function Cosh(R: Rep) return Rep renames Rep_EF.Cosh;
  function Sinh(R: Rep) return Rep renames Rep_EF.Sinh;
  function Exp(R: Rep) return Rep renames Rep_EF.Exp;

end Reps.Ops;