| Confirm-UserCmd-4# (a; s) { let d = s(Mailbox(a .cmd), a .to) in if isMessage(d) ∧ isConfirm(d .msg .content) then let agl = d .msg .agentlist in { s(Mailbox(a .cmd), a .to) := null ; s(User-Confirm(`4'), a .to) := get(s(User-Confirms(`4'), a .to) .ListOfData, s(User-Confirm-count(`4'), a .to) .nat) ; s(User-Confirm-count(`4'), a .to) := inc(s(User-Confirm-count(`4'), a .to)) } } |