| i < ~1, # int2bits(i) ≤ n, i < 0, 1 < j, 0 < j, n ≤ # int2bits((i - 1) / 2), # int2bits(i) ≤ # int2bits((i - 1) / 2) ⊦ bits2int(firstn(n, mklist(false, i→n(j)) + fillsgn(n, int2bits(i)))) = bits2int(firstn(# fillsgn(n - 1, int2bits((i - 1) / 2)), mklist(false, i→n(j) - 1) + fillsgn(n - 1, int2bits((i - 1) / 2)))) |
⊦ j < ~1 → int2bits(j) = int2bits((j - 1) / 2) + int2bits(j % 2)
Used simplifier rules: ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ m + m0 ≤ m ↔ m0 = 0;% ⊦ # bits = 0 ↔ bits = [];% ⊦ int2bits(j) ≠ [];% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n = n + m; Used terms: i