Test/test21/Colors.bpl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

// RUN: %boogie -typeEncoding:n -logPrefix:0n "%s" > "%t"
// RUN: %diff "%s.n.expect" "%t"
// RUN: %boogie -typeEncoding:p -logPrefix:0p "%s" > "%t"
// RUN: %diff "%s.p.expect" "%t"
// RUN: %boogie -typeEncoding:a -logPrefix:0a "%s" > "%t"
// RUN: %diff "%s.a.expect" "%t"


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;
}