| # bits1 = n + # bits0 ∧ # bits0 ≤ # bits1, # bits0 < # bits1, bits0.first ⊦ bits0 = [], bits2 + bits1 = [], bits1 = [], lastn(# bits1, mklist(true, n) + bits0) = lastn(# bits1, fillsgn(# bits1, bits2 + mklist(true, n) + bits0)), false ∈ bits1 |
# bits1 = n + # bits0, bits0.first, # bits0 < # bits1 ⊦ lastn(# bits1, mklist(true, n) + bits0) = lastn(# bits1, fillsgn(# bits1, bits2 + mklist(true, n) + bits0)), bits1 = [], bits2 + bits1 = [], bits0 = [], n = 0, false ∈ 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;