| mklist(true, i→n(i * 8) + 1 - # int2bits(j % 2 ^ (i * 8))) ≠ [], #(mklist(true, i→n(i * 8) + 1 - # int2bits(j % 2 ^ (i * 8))).rest + int2bits(j % 2 ^ (i * 8))) % 8 = 0, # int2bits(j % 2 ^ (i * 8)) ≤ i→n(i * 8) + 1, 0 < i, j + 2 ^ (i * 8 - 1) < 0, j + 2 ^ (i * 8) ≤ 0, j + 2 ^ (i * 8) < i, j % 2 ^ (i * 8) < 0 ⊦ mklist(true, i→n(i * 8) + 1 - # int2bits(j % 2 ^ (i * 8))).rest + int2bits(j % 2 ^ (i * 8)) = [], j % 2 ^ (i * 8) = 0, bits2bytes(mklist(true, i→n(i * 8) + 1 - # int2bits(j % 2 ^ (i * 8))).rest + int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest |
(# int2bits(j % 2 ^ (i * 8)) + (i→n(i * 8) - # int2bits(j % 2 ^ (i * 8)))) % 8 = 0, 0 < i, j + 2 ^ (i * 8 - 1) < 0, j + 2 ^ (i * 8) ≤ 0, j + 2 ^ (i * 8) < i, j % 2 ^ (i * 8) < 0, # int2bits(j % 2 ^ (i * 8)) ≤ i→n(i * 8) ⊦ i→n(i * 8) + 1 = # int2bits(j % 2 ^ (i * 8)), mklist(true, i→n(i * 8) - # int2bits(j % 2 ^ (i * 8))) + int2bits(j % 2 ^ (i * 8)) = [], j % 2 ^ (i * 8) = 0, bits2bytes(mklist(true, i→n(i * 8) - # int2bits(j % 2 ^ (i * 8))) + int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest
Used simplifier rules: ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ (boolvar ' + bits).rest = bits;% ⊦ mklist(boolvar, n) + boolvar ' = boolvar ' + mklist(boolvar, n);% ⊦ bits + [] = bits;% ⊦ mklist(boolvar, 0) = [];%n ≠ 0 ⊦ mklist(true, (* n)) = true ' + mklist(true, n -1);% ⊦ mklist(boolvar, m + n) = mklist(boolvar, m) + mklist(boolvar, n);% ⊦ 0 + m = m;% ⊦ n ≤ m → m + n0 - n = (m - n) + n0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ ¬ m < n ↔ n ≤ m;% ⊦ m < n + 1 ↔ ¬ n < m;% ⊦ m ≠ n → (m ≤ n ↔ m < n);% ⊦ m ≤ n → (n - m = 0 ↔ n = m);% ⊦ mklist(boolvar, m) = [] ↔ m = 0;% ⊦ i * j = j * i;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ n -1 = n - 1;% ⊦ # mklist(boolvar, n) = n;% ⊦ bits ≠ [] → # bits.rest = (# bits)-1;% ⊦ #(bits + bits0) = # bits + # bits0;