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

try to avoid races again (cf. 8c37cb84065f and fd3a36e48b09);

package Sqrt is

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

end Sqrt;