1 | list_accum(s',i'.process s' i' where process s i == if P(i,s) then F(i,s) else G(i,s) where xs := N(i,s); s:= H(i,s); while not null xs { s := process s (hd xs); xs := tl xs; } ;H(j,u);N(j,u)) {s:A| M(s) M(H(j,u)) } | 7 steps |
2 | 18. a: {s:A| M(s) M(H(j,u)) } 19. list_accum(s',i'.process s' i' where
process s i ==
if P(i,s) then F(i,s)
else G(i,s) where
xs := N(i,s);
s:= H(i,s);
while not null xs {
s := process s (hd xs);
xs := tl xs;
} ;H(j,u);N(j,u))
=
a
{s:A| M(s) M(H(j,u)) } G(j,a) {s:A| M(s) M(u) } | 1 step |