| sublist(0, # fillsgn(n, int2bits(i)), mklist(false, i→n(j)) + fillsgn(n, int2bits(i))).first, i < 0 ⊦ j = 0, fillsgn(n, int2bits(i)) = [] |
⊦ sublist(m, n, bits) = firstn(n, restn(m, bits))
firstn(# fillsgn(n, int2bits(i)), restn(0, mklist(false, i→n(j)) + fillsgn(n, int2bits(i)))).first, i < 0 ⊦ j = 0, fillsgn(n, int2bits(i)) = []
Used terms: mklist(false, i→n(j)) + fillsgn(n, int2bits(i)), # fillsgn(n, int2bits(i)), 0