src/HOL/SPARK/Examples/Liseq/liseq/liseq_length.fdl
changeset 41561 d1318f3c86ba
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOL/SPARK/Examples/Liseq/liseq/liseq_length.fdl	Sat Jan 15 12:35:29 2011 +0100
     1.3 @@ -0,0 +1,37 @@
     1.4 +           {*******************************************************}
     1.5 +                               {FDL Declarations}
     1.6 +    {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039}
     1.7 +             {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.}
     1.8 +           {*******************************************************}
     1.9 +
    1.10 +
    1.11 +                        {DATE : 29-NOV-2010 14:30:13.02}
    1.12 +
    1.13 +                        {procedure Liseq.Liseq_length}
    1.14 +
    1.15 +
    1.16 +title procedure liseq_length;
    1.17 +
    1.18 +  function round__(real) : integer;
    1.19 +  type vector = array [integer] of integer;
    1.20 +  const integer__base__first : integer = pending; 
    1.21 +  const integer__base__last : integer = pending; 
    1.22 +  const l__index__subtype__1__first : integer = pending; 
    1.23 +  const l__index__subtype__1__last : integer = pending; 
    1.24 +  const a__index__subtype__1__first : integer = pending; 
    1.25 +  const a__index__subtype__1__last : integer = pending; 
    1.26 +  const integer__first : integer = pending; 
    1.27 +  const integer__last : integer = pending; 
    1.28 +  const integer__size : integer = pending; 
    1.29 +  var a : vector;
    1.30 +  var l : vector;
    1.31 +  var maxi : integer;
    1.32 +  var maxj : integer;
    1.33 +  var i : integer;
    1.34 +  var j : integer;
    1.35 +  var pmax : integer;
    1.36 +  function liseq_prfx(vector, integer) : integer;
    1.37 +  function liseq_ends_at(vector, integer) : integer;
    1.38 +  function max_ext(vector, integer, integer) : integer;
    1.39 +
    1.40 +end;