| 8 < # bits, false ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)))) + byte2bits(i2b(bits2int(lastn(8, bits)))) = sgn(bits) |
firstn(# bits - 8, bits) = [] ∨ sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)))) = sgn(firstn(# bits - 8, bits)), 8 < # bits, false ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)))) + byte2bits(i2b(bits2int(lastn(8, bits)))) = sgn(bits)
Used simplifier rules: ⊦ # firstn(n, bits) = n;% ⊦ m < n → ¬ n < m;% ⊦ ¬ m ≤ n ↔ n < m;%n0 ≤ n ⊦ n - n0 < m ↔ n < m + n0;% ⊦ ¬ m < n ↔ n ≤ m;% ⊦ m + n ≤ m ↔ n = 0;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n = n + m; Used terms: firstn(# bits - 8, bits)