| firstn(# bits - 8, bits) = [] ∨ # bits2bytes(firstn(# bits - 8, bits)) = (# firstn(# bits - 8, bits) - 1) / 8 + 1, 8 < # bits, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ # bits2bytes(bits0) = (# bits0 - 1) / 8 + 1 ⊦ bits = [], # bits2bytes(firstn(# bits - 8, bits)) = (# bits - 1) / 8 |
# bits2bytes(firstn(# bits - 8, bits)) = 1 + (# bits - 8 - 1) / 8, 8 < # bits, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ # bits2bytes(bits0) = (# bits0 - 1) / 8 + 1 ⊦ bits = [], 1 + (# bits - 8 - 1) / 8 = (# bits - 1) / 8
Used simplifier rules: ⊦ # firstn(n, bits) = n;% ⊦ n < m → m - n ≠ 0;% ⊦ firstn(n, bits) = [] ↔ n = 0;