src/HOL/SPARK/Examples/Sqrt/Sqrt.ads
author wenzelm
Wed, 04 Oct 2017 12:00:53 +0200
changeset 66787 64b47495676d
parent 41561 d1318f3c86ba
permissions -rw-r--r--
obsolete;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
41561
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     1
package Sqrt is
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     2
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     3
   function Isqrt(N: Natural) return Natural;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     4
   --# return R => R * R <= N and (R + 1) * (R + 1) > N;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     5
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     6
end Sqrt;