summaryrefslogtreecommitdiff
path: root/Test/test2/NeverPattern.bpl
blob: aa301129958fc8bd92980d9101c65dee65189abf (plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
// RUN: %boogie -noinfer "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
function {:never_pattern true} f1(x:int) returns(int);
function {:never_pattern false} f2(x:int) returns(int);
function f3(x:int) returns(int);


procedure foo()
{
  assume (forall x : int :: f1(x) > 0 && f2(x) > 0 && f3(x) > 0);
  assert f2(3) > 0;
  assert f3(4) > 0;
}

procedure bar()
{
  assume (forall x : int :: f1(x) > 0 && f2(x) > 0 && f3(x) > 0 && f1(7) == 3);
  assert f1(3) > 0;
}

procedure bar1()
{
  assume (forall x : int :: {:nopats f2(x)} f1(x) > 0 && f2(x) > 0 && f3(x) > 0 && f1(7) == 3);
  assert f1(3) > 0;
}

procedure bar2()
{
  assume (forall x : int :: {:nopats f2(x)} f1(x) > 0 && f2(x) > 0 && f3(x) > 0 && f1(7) == 3);
  assert f2(3) > 0;
}

// ----- nested binders -----

function {:never_pattern} P(int): bool;
function F(int, int): int;
function G(int): bool;

procedure NestedBinders()
{
  goto A, B, C, D;
  A:
    assume (forall s: int ::
      // the occurrence of P in the next line had once caused a crash
      (forall x: int :: { F(s, x) } P(F(s, x)))
      ==> G(s));  // this places the nested forall in a negative position
    goto End;

  B:
    assume (forall s: int ::
      // the occurrence of P in the next line had once caused a crash
      (exists x: int :: { F(s, x) } P(F(s, x))));
    goto End;

  C:
    assume (forall s: int, m: [int]bool ::
      // the occurrence of P in the next line had once caused a crash
      (lambda x: int :: P(F(s, x))) == m);
    goto End;

  D:
    assume (forall x0: int ::
             // The following quantifier will get a {:nopats P(x1,s)}, which is good.
             // But that added trigger expression had once caused the outer quantifier
             // to crash.
             (forall x1: int :: P(x1)));
    goto End;

  End:
}