enrich
stream-old
with
variables
lf : nat → list('a);
ii : nat → nat;
jj : nat → nat;
iigen : nat → nat → nat;
nfgen : nat → nat → 'a;
nextl : nat × 'a → list('a);
nextj : nat × 'a → nat;
lfgen : nat → nat → list('a);
nf : nat → 'a;
m : nat;
n : nat;
σ : stream('a);
a : 'a;
end enrich