summaryrefslogtreecommitdiff
path: root/Test/dafny4/Bug118.dfy
blob: 1e2dddebb36c9defd158a70c601ffebd4200eb44 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
// RUN: %dafny /compile:0 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"

class Foo {
  ghost var Repr: set<object>
}

function SeqRepr(s:seq<Foo>) : set<object>
  reads set b | b in s 
{
  set o,b | b in s && b != null && o in b.Repr :: o     // Works if you say "set b,o | ..."
}