| ¬ int2bits(j0).rest ≠ [], 0 ≤ j0 + 2 ^ i, 2 ^ (i - 1) + j0 < 0, 0 < i, j0 < 0 ⊦ sgn(int2bits(j0).rest) = sgn(fillsgn(i→n(i), int2bits(j0).rest)), fillsgn(i→n(i), int2bits(j0).rest) = [], fillsgn(i→n(i), int2bits(j0).rest).first |
int2bits(j0).rest = [], j0 < 0, 0 < i, 2 ^ (i - 1) + j0 < 0, 0 ≤ j0 + 2 ^ i ⊦ i = 0, mklist(false, i→n(i)).first
Used simplifier rules: ⊦ boolvar ' ≠ [];% ⊦ 0 < i → sgn(mklist(boolvar, i→n(i))) = boolvar ';% ⊦ fillsgn(n, []) = mklist(false, n);% ⊦ sgn([]) = [];% ⊦ i→n(i) = 0 ↔ i = 0;% ⊦ fillsgn(n, bits) = [] ↔ bits = [] ∧ n = 0;