summaryrefslogtreecommitdiff
path: root/Test/inline/expansion2.bpl
blob: da13d50f02146d1b866f1c6c992f235e34cfacf3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// RUN: %boogie -proverLog:%T/expand2.sx %s > %t
// RUN: %diff %s.expect %t
// RUN: %OutputCheck --file-to-check=%T/expand2.sx %s
function {:inline true} xxgz(x:int) returns(bool)
 { x > 0 }
function {:inline true} xxf1(x:int,y:bool) returns(int)
  { x + 1 }

axiom (forall z:int :: z>12 ==> xxgz(z));
axiom (forall y:int, x:bool :: xxf1(y, x) > 1 ==> y > 0);

procedure foo()
{
  // CHECK-NOT-L: xxgz
  assert xxgz(12);
  // CHECK-NOT-L: xxf1
  assert xxf1(3,true) == 4;
}