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

tuned proof in order to avoid warning message

package Sqrt is

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

end Sqrt;