| 2 + # bits = # bits1, # bits1 = # bitsand(bits1, false ' + true ' + bits), 2 + # bits + m ≤ # bits3 + # bits1, # bits3 < m, # bits1 ≤ 2 + # bits + m ⊦ mklist(false, m) = lastn(2 + # bits + m - # bits1, mklist(false, # bits3)), # bits3 = m, bits1 = [], bits3 = [], bits3 + bits1 = [], bits2 + mklist(false, m) = [], bits3.first |
Used simplifier rules: ⊦ m + n - n + n1 = m - n1;% ⊦ n ≤ m → m + n0 - n = (m - n) + n0;% ⊦ 0 + m = m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n = n + m;% ⊦ m + n ≤ m + n0 ↔ n ≤ n0;% ⊦ m ≠ n → (m ≤ n ↔ m < n);% ⊦ m < n → ¬ n < m;