| # int2bits(j) = n, j < 0 ⊦ ¬ 2 ^ (n→i(n) - 1) + j < 0 ∧ ¬ 0 ≤ j + 2 ^ (n→i(n) - 2), n = 1, n = 0 |
j < 0 ⊦ # int2bits(j) = 1, ¬ 2 ^ (n→i(# int2bits(j)) - 1) + j < 0 ∧ ¬ 0 ≤ j + 2 ^ (n→i(# int2bits(j)) - 2)
Used simplifier rules: int2bits-not-empty: ⊦ int2bits(j) ≠ [];%l: ⊦ # bits = 0 ↔ bits = []; from specification list-data[bitlista]