| m + 1 = # bits2bytes(bits), # bits = 8 * m + n0, m < # bits2bytes(bits), # bits ≤ 8 * m + 8, n0 < 8 ⊦ bits2bytes(bits) = bits2bytes(mklist(bits.first, 8 * m + 8 - # bits) + bits), n0 = 0, bits = [] |
m + 1 = # bits2bytes(bits), # bits = 8 * m + n0, # bits ≤ 8 * m + 8, n0 < 8 ⊦ bits2bytes(bits) = bits2bytes(mklist(bits.first, 8 * m + 8 - # bits) + bits), n0 = 0, bits = []
Used simplifier rules: ⊦ m ≤ m;% ⊦ ¬ m < n ↔ n ≤ m;% ⊦ m < n + 1 ↔ ¬ n < m;% ⊦ m < n → (n ≤ m + 1 ↔ n = m + 1);% ⊦ m + 1 ≠ 0;% ⊦ m < n → n ≠ 0; (forward)% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward)% ⊦ m * n = n * m;