| # bits1 = n + # bits0 ∧ # bits0 ≤ # bits1, # bits0 < # bits1 ⊦ bits1 = [], bits0 = [], bits2 + bits1 = [], bits1 = mklist(false, n) + mklist(false, # bits0), true ∈ bits1, bits0.first |
# bits1 = n + # bits0, # bits0 < # bits1 ⊦ bits1 = mklist(false, n) + mklist(false, # bits0), bits2 + bits1 = [], bits0 = [], bits1 = [], n = 0, bits0.first, true ∈ bits1
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < m + n ↔ n ≠ 0;% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m < n → m ≤ n;