src/HOL/Boogie/Examples/Boogie_Max.thy
author boehmes
Fri, 11 Dec 2009 15:35:29 +0100
changeset 34068 a78307d72e58
parent 33663 a84fd6385832
child 34993 bf3b8462732b
permissions -rw-r--r--
make assertion labels unique already when loading a verification condition, keep abstract view on verification conditions and provide various splitting operations on verification conditions, allow to discharge only parts of a verification condition, extended the command "boogie_vc" with options to consider only some assertions or to split a verification condition into its paths, added a narrowing option to "boogie_status" (a divide-and-conquer approach for identifying the "hard" subset of assertions of a verification conditions), added tactics "boogie", "boogie_all" and "boogie_cases", dropped tactic "split_vc", split example Boogie_Max into Boogie_Max (proof based on SMT) and Boogie_Max_Stepwise (proof based on metis and auto with documentation of the available Boogie commands), dropped (mostly unused) abbreviations
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
34068
a78307d72e58 make assertion labels unique already when loading a verification condition,
boehmes
parents: 33663
diff changeset
     1
(*  Title:      HOL/Boogie/Examples/Boogie_Max.thy
33419
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     2
    Author:     Sascha Boehme, TU Muenchen
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     3
*)
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     4
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     5
header {* Boogie example: get the greatest element of a list *}
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     6
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     7
theory Boogie_Max
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     8
imports Boogie
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
     9
begin
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    10
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    11
text {*
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    12
We prove correct the verification condition generated from the following
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    13
Boogie code:
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    14
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    15
\begin{verbatim}
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    16
procedure max(array : [int]int, length : int)
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    17
  returns (max : int);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    18
  requires (0 < length);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    19
  ensures (forall i: int :: 0 <= i && i < length ==> array[i] <= max);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    20
  ensures (exists i: int :: 0 <= i && i < length ==> array[i] == max);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    21
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    22
implementation max(array : [int]int, length : int) returns (max : int)
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    23
{
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    24
  var p : int, k : int;
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    25
  max := array[0];
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    26
  k := 0;
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    27
  p := 1;
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    28
  while (p < length)
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    29
    invariant (forall i: int :: 0 <= i && i < p ==> array[i] <= max);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    30
    invariant (array[k] == max);
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    31
  {
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    32
    if (array[p] > max) { max := array[p]; k := p; }
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    33
    p := p + 1;
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    34
  }
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    35
}
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    36
\end{verbatim}
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    37
*}
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    38
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    39
boogie_open "~~/src/HOL/Boogie/Examples/Boogie_Max"
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    40
33445
f0c78a28e18e shorter names for variables and verification conditions,
boehmes
parents: 33424
diff changeset
    41
boogie_vc max
33419
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    42
  using [[z3_proofs=true]]
34068
a78307d72e58 make assertion labels unique already when loading a verification condition,
boehmes
parents: 33663
diff changeset
    43
  using [[smt_cert="~~/src/HOL/Boogie/Examples/cert/Boogie_max"]]
a78307d72e58 make assertion labels unique already when loading a verification condition,
boehmes
parents: 33663
diff changeset
    44
  by boogie
33424
a3b002e2cd55 proper and unique case names for the split_vc method,
boehmes
parents: 33419
diff changeset
    45
33419
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    46
boogie_end
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    47
8ae45e87b992 added HOL-Boogie
boehmes
parents:
diff changeset
    48
end