| # int2bits(128) = n + i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) ∧ i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) ≤ # int2bits(128), i2b(bits2int(sublist(0, n, int2bits(128)))) = i2b ((# int2bits(~128) ≤ i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) ⊃ ~1 ;bits2int(sublist(0, # int2bits(~128) - i→n(bits2int(bitsand(int2bits(1), int2bits(31)))), int2bits(~128))) )), i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) < # int2bits(128) ⊦ |
i2b(bits2int(sublist(0, n, int2bits(128)))) = i2b ((# int2bits(~128) ≤ i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) ⊃ ~1 ;bits2int(sublist(0, # int2bits(~128) - i→n(bits2int(bitsand(int2bits(1), int2bits(31)))), int2bits(~128))) )), # int2bits(128) = n + i→n(bits2int(bitsand(int2bits(1), int2bits(31)))), i→n(bits2int(bitsand(int2bits(1), int2bits(31)))) < # int2bits(128) ⊦ n = 0
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < m + n ↔ n ≠ 0;% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m < n → m ≤ n;