summaryrefslogtreecommitdiff
path: root/Test/inline/expansion2.bpl
blob: b6ed19ed0e8096e9d09d348ba099d2a6ba315790 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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()
{
  assert xxgz(12);
  assert xxf1(3,true) == 4;
}