update the test.

1 files changed, 2 insertions, 15 deletions

diff --git a/Test/dafny4/Bug91.dfy b/Test/dafny4/Bug91.dfy
index 75f8de22..53e5d5b2 100644
--- a/Test/dafny4/Bug91.dfy
+++ b/Test/dafny4/Bug91.dfy
@@ -8,18 +8,6 @@ function UnAckedMessages(s:SendState) : set<int>
     set m,dst | dst in s && m in s[dst] :: m

 }

 

-predicate UnAckedMessage2(s:SendState, m:int)

-{

-    exists dst :: dst in s && m in s[dst]

-}

-

-/* the following bound can't be determined since we only know what to do with binary operations

-function UnAckedMessagesA(s:SendState) : set<int>

-{

-    set m | UnAckedMessage2(s, m) :: m

-}

-*/

-

 function UnAckedMessagesForDst(s:SendState, dst:int) : set<int>

     requires dst in s;

 {

@@ -35,12 +23,11 @@ function SeqToSet<T>(s:seq<T>) : set<T>
 {

     set i | i in s 

 }

-/* does not verify, with element may not in domain error

+

 function UnAckedMessages4(s:SendState) : set<int>

 {

-    set m,dst | m in SeqToSet(s[dst]) && dst in s :: m

+		set m,dst | dst in s && m in SeqToSet(s[dst]) :: m

 }

-*/

 

 function UnAckedLists(s:SendState) : set<seq<int>>

 {