From 4b57bb7102c4161dfbc6a7d42740642340e9e60a Mon Sep 17 00:00:00 2001 From: qunyanm Date: Fri, 30 Oct 2015 09:17:21 -0700 Subject: update the test. --- Test/dafny4/Bug91.dfy | 17 ++--------------- 1 file 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 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 -{ - set m | UnAckedMessage2(s, m) :: m -} -*/ - function UnAckedMessagesForDst(s:SendState, dst:int) : set requires dst in s; { @@ -35,12 +23,11 @@ function SeqToSet(s:seq) : set { set i | i in s } -/* does not verify, with element may not in domain error + function UnAckedMessages4(s:SendState) : set { - 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> { -- cgit v1.2.3