| m ≤ #(mklist(bits.first, m - # bits) + bits), m ≤ (n - # bits) + # bits, # bits ≤ m, m ≤ n, # bits ≤ n ⊦ restn((n - # bits) + # bits - m, mklist(bits.first, n - # bits) + bits) = restn(#(mklist(bits.first, m - # bits) + bits) - m, mklist(bits.first, m - # bits) + bits), bits = [] |
m ≤ (m - # bits) + # bits, # bits ≤ n, m ≤ n, # bits ≤ m, m ≤ (n - # bits) + # bits ⊦ restn((n - # bits) + # bits - m, mklist(bits.first, n - # bits) + bits) = restn((m - # bits) + # bits - m, mklist(bits.first, m - # bits) + bits), bits = []
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m ≤ m + n;% ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward)% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ # mklist(boolvar, n) = n;% ⊦ #(bits + bits0) = # bits + # bits0;