| uint2bits(~ i) = (false ' + bits1) + true ' + bits0, bitsinvert(uint2bits(~ i)) +1 = (true ' + bitsinvert(bits1)) + true ' + bits0, i < 0, i < ~1, false ∈ uint2bits(~ i), (bitsinvert(bits1) + true ').first ⊦ bits1 = [], true ∈ bits0, false ∈ sgn((true ' + bitsinvert(bits1)) + true ' + bits0).rest, bitsinvert(bits1).first |
⊦ bits ≠ [] → ((bits + bits0).first ↔ bits.first)
Used simplifier rules: ⊦ bitsinvert(bits) = [] ↔ bits = []; Used terms: true ', bitsinvert(bits1)