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