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