src/HOL/SPARK/Examples/Sqrt/Sqrt.ads

less flex-flex pairs

package Sqrt is

   function Isqrt(N: Natural) return Natural;
   --# return R => R * R <= N and (R + 1) * (R + 1) > N;

end Sqrt;