| # bits0 < # bits1 ⊦ # bits1 = # fillsgn(# bits1, mklist(false, # bits0)), bits1 = lastn(# bits1, fillsgn(# bits1, mklist(false, # bits0))), bits2 + bits1 = [], bits0 = [], bits1 = [], bits0.first, true ∈ bits1 |
⊦ # bits ≤ n → # fillsgn(n, bits) = n
Used simplifier rules: ⊦ # mklist(boolvar, n) = n;% ⊦ ¬ m ≤ n ↔ n < m;% ⊦ m < n → ¬ n < m; Used terms: mklist(false, # bits0), # bits1