| # bits ≤ m, # bits ≤ n, m ≤ m, # bits ≤ n, m ≤ n, # bits ≤ m, m ≤ n ⊦ restn(n - m, mklist(bits.first, n - # bits) + bits) = restn(m - m, mklist(bits.first, m - # bits) + bits), bits = [] |
# bits ≤ n, # bits ≤ m, m ≤ n ⊦ bits = [], restn(n - m, mklist(bits.first, n - # bits) + bits) = mklist(bits.first, m - # bits) + bits
Used simplifier rules: ⊦ m ≤ m;% ⊦ restn(0, bits) = bits;% ⊦ m - m = 0;