| 2 - # bytes ≠ 0, # bytes ≤ 2, 0 ≤ bytes2int(bytes) ⊦ bytes = [], mklist(i2b(0), (2 - # bytes)-1) + bytes = bytes.last ' |
# bytes < 2, 0 ≤ bytes2int(bytes) ⊦ 2 = # bytes, mklist(i2b(0), 2 - # bytes - 1) + bytes = bytes.last ', bytes = []
Used simplifier rules: ⊦ m < n → n ≠ 0; (forward)% ⊦ m ≠ n → (m ≤ n ↔ m < n);% ⊦ m ≤ n → (n - m = 0 ↔ n = m);% ⊦ n -1 = n - 1;