| ∀ 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 = [] |
∀ bits2, bits. # bits2 < #(bits1 + false ') → true → bits2uint(bits + bits2) = bits2uint(bits) * 2 ^ n→i(# bits2) + bits2uint(bits2) ∨ bits2 = [] ⊦ bits1 = [], (bits2uint(bits) * 2 ^ n→i(# bits1)) * 2 = 2 ^ (n→i(# bits1) + 1) * bits2uint(bits)
Used simplifier rules: ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ (i + j) * i0 = j0 + j * i0 ↔ i * i0 = j0;