•S: array[integer] of message

•next: integer

•deliv: array[process] of integer

•

•action Multicast(m) { S[next++] := m; }

•

•action Deliver(p, m)

•precond: deliv[p] < next && m == S[deliv[p]]

• { deliv[p]++; }