| # bytes ≤ 2, 0 ≤ bytes2int(bytes) ⊦ bytes = [], (mklist(i2b(0), 2 - # bytes) + bytes).rest = bytes.last ' |
⊦ m ≠ 0 → (mklist(by, m) + bytes).rest = mklist(by, m -1) + bytes
¬ 2 - # bytes ≠ 0, # bytes ≤ 2, 0 ≤ bytes2int(bytes) ⊦ bytes = [], (mklist(i2b(0), 2 - # bytes) + bytes).rest = bytes.last '
2 - # bytes ≠ 0, # bytes ≤ 2, 0 ≤ bytes2int(bytes) ⊦ bytes = [], mklist(i2b(0), (2 - # bytes)-1) + bytes = bytes.last '
Used terms: bytes, 2 - # bytes, i2b(0)