src/HOL/SPARK/Manual/complex_types_app/initialize.fdl
author blanchet
Mon, 19 Feb 2024 14:31:26 +0100
changeset 79669 a3e7a323780f
parent 45044 2fae15f8984d
permissions -rw-r--r--
remove selected occurrences of 'moura' tactic
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
45044
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     1
           {*******************************************************}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     2
                               {FDL Declarations}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     3
    {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     4
             {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     5
           {*******************************************************}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     6
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     7
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     8
                        {DATE : 22-SEP-2011 11:10:52.42}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     9
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    10
                   {procedure Complex_Types_App.Initialize}
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    11
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    12
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    13
title procedure initialize;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    14
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    15
  function round__(real) : integer;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    16
  type complex_types__day = (complex_types__mon, 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    17
     complex_types__tue, complex_types__wed, complex_types__thu, 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    18
     complex_types__fri, complex_types__sat, complex_types__sun);
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    19
  type complex_types__array_type1 = array [integer,
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    20
     complex_types__day] of integer;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    21
  type complex_types__record_type = record
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    22
        field1 : complex_types__array_type1;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    23
        field2 : integer
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    24
     end;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    25
  type complex_types__array_type2 = array [integer] of 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    26
     complex_types__record_type;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    27
  const complex_types__array_index__base__first : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    28
  const complex_types__array_index__base__last : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    29
  const complex_types__day__base__first : complex_types__day = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    30
  const complex_types__day__base__last : complex_types__day = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    31
  const integer__base__first : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    32
  const integer__base__last : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    33
  const complex_types__record_type__size : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    34
  const complex_types__array_index__first : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    35
  const complex_types__array_index__last : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    36
  const complex_types__array_index__size : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    37
  const complex_types__day__first : complex_types__day = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    38
  const complex_types__day__last : complex_types__day = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    39
  function complex_types__day__pos(complex_types__day) : integer;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    40
  const complex_types__day__size : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    41
  const integer__first : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    42
  const integer__last : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    43
  const integer__size : integer = pending; 
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    44
  var a : complex_types__array_type2;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    45
  var loop__1__i : integer;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    46
  var loop__2__j : integer;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    47
  var loop__3__k : complex_types__day;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    48
  function complex_types__initialized(complex_types__array_type2, integer) : boolean;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    49
  function complex_types__initialized2(complex_types__array_type1, integer) : boolean;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    50
  function complex_types__initialized3(complex_types__array_type1, integer, integer) : boolean;
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    51
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    52
end;