| # bits ≤ 8 * (n - 1) ⊦ bits = [], n = 0, fix(n, bits2bytes(bits)) = bits2bytes(fillsgn(n * 8, bits)), ¬ n ≤ # bits2bytes(bits) ∧ bits.first |
⊦ # bytes < n ∧ 0 ≤ bytes2int(bytes) → fix(n, bytes) = mklist(i2b(0), n - # bytes) + bytes
¬(# bits2bytes(bits) < n ∧ 0 ≤ bytes2int(bits2bytes(bits))), # bits ≤ 8 * (n - 1) ⊦ bits = [], n = 0, fix(n, bits2bytes(bits)) = bits2bytes(fillsgn(n * 8, bits)), ¬ n ≤ # bits2bytes(bits) ∧ bits.first
# bits2bytes(bits) < n ∧ 0 ≤ bytes2int(bits2bytes(bits)), # bits ≤ 8 * (n - 1) ⊦ bits = [], n = 0, mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = bits2bytes(fillsgn(n * 8, bits)), ¬ n ≤ # bits2bytes(bits) ∧ bits.first
Used terms: bits2bytes(bits), n