| 0 ≤ i, 0 ≤ i0 ⊦ bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(i0 + 1)) + int2bits(i))) = i / 2 >> i0 |
0 ≤ i, 0 ≤ i0 ⊦ bits2int(sublist(0, # int2bits(i), (mklist(false, i→n(i0)) + false ') + int2bits(i))) = i / 2 >> i0
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;% ⊦ mklist(boolvar, 0) = [];%n ≠ 0 ⊦ mklist(false, (* n)) = false ' + mklist(false, n -1);% ⊦ mklist(boolvar, m + n) = mklist(boolvar, m) + mklist(boolvar, n);% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ 0 ≤ i → i→n(i + 1) = i→n(i) + 1;% ⊦ i ≤ 0 ∧ 0 ≤ j → i ≤ j;% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ int2bits(j).first ↔ j < 0;