blob: 88a587aa3394f464d3491626d9a27af71ff2acd8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
type ref;
function Rep(int, int) returns (int);
axiom(forall n:int, x:int :: {Rep(n,x)}
(exists k:int :: Rep(n,x) - x == n*k));
procedure main(x:int)
{
assert((Rep(0,x)==x));
return;
}
|