summaryrefslogtreecommitdiff
path: root/Test/test21/Orderings2.bpl
blob: 75becb2a0fe583248d5d65592e6e36cf5a009c92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18


const b:int;
const a:int extends b complete;

const c:int extends a;
const d:int extends a;

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

  assert c <: b && d <: a;

  assume x <: a && !(x <: c) && x != a;
  assert x <: d;

  assert b <: x;            // should not be provable
}