| i < ~1, 0 < j, 1 < j, i < 0, n ≤ # int2bits((i - 1) / 2) ⊦ i = ~1, bits2int (firstn(# fillsgn(n, int2bits((i - 1) / 2) + (i % 2 ≠ 0)'), restn(0, mklist(false, i→n(j)) + fillsgn(n, int2bits((i - 1) / 2) + (i % 2 ≠ 0)')))) = bits2int(sublist(0, # int2bits((i - 1) / 2), mklist(false, i→n(j) - 1) + int2bits((i - 1) / 2))) |
i < ~1, 0 < j, 1 < j, i < 0, n ≤ # int2bits((i - 1) / 2) ⊦ i = ~1, bits2int(firstn(# fillsgn(n, int2bits((i - 1) / 2) + (i % 2 ≠ 0)'), mklist(false, i→n(j)) + fillsgn(n, int2bits((i - 1) / 2) + (i % 2 ≠ 0)'))) = bits2int(sublist(0, # int2bits((i - 1) / 2), mklist(false, i→n(j) - 1) + int2bits((i - 1) / 2)))
Used simplifier rules: ⊦ restn(0, bits) = bits;