| bits2uint(bits + bits1) = bits2uint(bits) * 2 ^ n→i(# bits1) + bits2uint(bits1) ∨ 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 |
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 = []
Used simplifier rules: bits2uint-base: ⊦ bits2uint([]) = 0;% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ 0 < i → (i * j = i * j0 ↔ j = j0);% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + 0 = i;% ⊦ # [] = 0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;