| 1 < # bytes, 0 ≤ b2i(bytes.first), ∀ n, bytes0. # bytes0 < # bytes → 0 ≤ b2i(bytes0.first) → bytes2int(mklist(i2b(0), n) + bytes0) = bytes2int(bytes0) ∨ bytes0 = [] ⊦ bytes = [], bytes2int(mklist(i2b(0), n) + bytes) = bytes2int(bytes.butlast) * 256 + band(b2i(bytes.last), 255) |
0 ≤ b2i(bytes.first), ∀ n, bytes0. # bytes0 < # bytes → 0 ≤ b2i(bytes0.first) → bytes2int(mklist(i2b(0), n) + bytes0) = bytes2int(bytes0) ∨ bytes0 = [] ⊦ bytes = [], bytes2int(mklist(i2b(0), n) + bytes) = bytes2int(bytes.butlast) * 256 + band(b2i(bytes.last), 255), # bytes = 1
Used simplifier rules: ⊦ # bytes = 0 ↔ bytes = [];% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1);