src/HOL/SPARK/Examples/Sqrt/sqrt/isqrt.fdl
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
           {*******************************************************}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     2
                               {FDL Declarations}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     3
    {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     4
             {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     5
           {*******************************************************}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     6
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     7
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     8
                        {DATE : 29-NOV-2010 14:30:17.95}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     9
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    10
                            {function Sqrt.Isqrt}
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    11
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    12
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    13
title function isqrt;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    14
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    15
  function round__(real) : integer;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    16
  const natural__base__first : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    17
  const natural__base__last : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    18
  const integer__base__first : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    19
  const integer__base__last : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    20
  const natural__first : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    21
  const natural__last : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    22
  const natural__size : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    23
  const integer__first : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    24
  const integer__last : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    25
  const integer__size : integer = pending; 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    26
  var n : integer;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    27
  var r : integer;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    28
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    29
end;