| # i2b(0) ' < # bytes ∧ 0 ≤ bytes2int(i2b(0) '), ∀ by. by ∈ bytes → b2i(by) = 0 ⊦ bytes = [], mklist(i2b(0), # bytes - # i2b(0) ') + i2b(0) ' = bytes |
∀ by. by ∈ bytes → b2i(by) = 0 ⊦ bytes = [], mklist(i2b(0), # bytes - 1) + i2b(0) ' = bytes, # bytes = 1
Used simplifier rules: bytes2int-zero: ⊦ bytes2int(i2b(0) ') = 0;% ⊦ # bytes = 0 ↔ bytes = [];% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1);% ⊦ # by ' = 0 +1;