| fillsgn(n, bits) = [], # bits < n ⊦ |
⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits
Used simplifier rules: fillsgn-empty: ⊦ fillsgn(n, []) = mklist(false, n);% ⊦ m < n → n ≠ 0;% ⊦ m < n → ¬ n < m;% ⊦ ¬ m ≤ n ↔ n < m;% ⊦ ¬ bits + bits0 ≠ [] ↔ bits = [] ∧ bits0 = [];% ⊦ mklist(boolvar, m) = [] ↔ m = 0;% ⊦ n < m → m - n ≠ 0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1; Used terms: bits, n