summaryrefslogtreecommitdiff
path: root/Test/test21/Colors.bpl
blob: be25cc15b11118bdb7ccd6febe65ce9c52b0071e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21


type Color;

const Blue, Red, Green : Color;

axiom (forall x : Color :: x == Blue || x == Red || x == Green);

procedure P() returns () {
  var x : Color;

  assume x != Blue;
  assert x == Red;        // should not be provable
}

procedure Q() returns () {
  var x : Color;

  assume x != Blue && x != Green;
  assert x == Red;
}