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