| bits2uint(bits + bits1) = bits2uint(bits) * 2 ^ n→i(# bits1) + bits2uint(bits1), ∀ bits2, bits. # bits2 < #(bits1 + false ') → true → bits2uint(bits + bits2) = bits2uint(bits) * 2 ^ n→i(# bits2) + bits2uint(bits2) ∨ bits2 = [] ⊦ bits2uint(bits + bits1) * 2 = 2 ^ (n→i(# bits1) + 1) * bits2uint(bits) + bits2uint(bits1) * 2, bits1 = [] |
∀ bits2, bits. # bits2 < #(bits1 + false ') → true → bits2uint(bits + bits2) = bits2uint(bits) * 2 ^ n→i(# bits2) + bits2uint(bits2) ∨ bits2 = [] ⊦ (bits2uint(bits) * 2 ^ n→i(# bits1) + bits2uint(bits1)) * 2 = 2 ^ (n→i(# bits1) + 1) * bits2uint(bits) + bits2uint(bits1) * 2, bits1 = []