| ~256 = i0 * 256 + j0, 8 = # fillsgn(8, int2bits(j0)), j0 < 0, i0 < 0, ~128 ≤ j0, ~128 < j0 ⊦ b2i(i2b(j0)) = j0 |
⊦ # int2bits(i) ≤ 8 → b2i(i2b(i)) = i
Used simplifier rules: lels-01: ⊦ ¬ m ≤ n ↔ n < m; from specification nat%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic1%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%l: ⊦ # bits = 0 ↔ bits = []; from specification list-data[bitlista]%int2bits-not-empty: ⊦ int2bits(j) ≠ []; from specification int2bits%fill-nls: ⊦ ¬ # fillsgn(n, bits) < # bits; from specification bitopsaux Used terms: j0