// RUN: %dafny /compile:0 "%s" > "%t" // RUN: %diff "%s.expect" "%t" type SendState = map> function UnAckedMessages(s:SendState) : set { set m,dst | dst in s && m in s[dst] :: m } function UnAckedMessagesForDst(s:SendState, dst:int) : set requires dst in s; { set m | m in s[dst] :: m } function UnAckedMessages3(s:SendState) : set { set m,dst | dst in s && m in UnAckedMessagesForDst(s, dst) :: m } function SeqToSet(s:seq) : set { set i | i in s } function UnAckedMessages4(s:SendState) : set { set m,dst | dst in s && m in SeqToSet(s[dst]) :: m } function UnAckedLists(s:SendState) : set> { set dst | dst in s :: s[dst] } function UnAckedMessages5(s:SendState) : set { set m, list | list in UnAckedLists(s) && m in list :: m }