summaryrefslogtreecommitdiff
path: root/Test/dafny0/SmallTests.dfy
diff options
context:
space:
mode:
authorGravatar Rustan Leino <leino@microsoft.com>2013-03-27 13:22:57 -0700
committerGravatar Rustan Leino <leino@microsoft.com>2013-03-27 13:22:57 -0700
commit5f05e3a1c194dcda48115d7b6a1c5777bd2d5287 (patch)
treed691bcf9fd999446918e8967622c0f008462bab7 /Test/dafny0/SmallTests.dfy
parenta6278d436300dff101c5503547c9e5e6553c61d6 (diff)
Replaced SuperSetBoundedPool by SubSetBoundedPool, which is much more useful in compiling assign-such-that statements
Added run-time support for printing sets, multisets, maps, and sequences
Diffstat (limited to 'Test/dafny0/SmallTests.dfy')
-rw-r--r--Test/dafny0/SmallTests.dfy6
1 files changed, 3 insertions, 3 deletions
diff --git a/Test/dafny0/SmallTests.dfy b/Test/dafny0/SmallTests.dfy
index 7b88d0d4..75a42200 100644
--- a/Test/dafny0/SmallTests.dfy
+++ b/Test/dafny0/SmallTests.dfy
@@ -584,8 +584,8 @@ method AssignSuchThat6()
}
method AssignSuchThat7<T>(A: set<T>, x: T) {
- var B :| A <= B;
- assert x in A ==> x in B;
+ var B :| B <= A;
+ assert x in B ==> x in A;
}
method AssignSuchThat8(n: int) returns (x: int, y: Lindgren) {
@@ -625,7 +625,7 @@ method LetSuchThat0(ghost g: int)
method LetSuchThat1<T>(A: set<T>)
{
- ghost var C := var B :| A <= B; A - B;
+ ghost var C := var B :| B <= A; B - A;
assert C == {};
}