| # bits = n + 1 + # bits1 ∧ 1 + # bits1 ≤ # bits, # bits1 < # bits ⊦ bitsand(bits, true ' + bits1) = (true ' + mklist(true, n)) + bits1, bits = [], false ∈ bits |
# bits = n + 1 + # bits1, # bits1 < # bits ⊦ bits = [], bitsand(bits, true ' + bits1) = (true ' + mklist(true, n)) + bits1, false ∈ bits
Used simplifier rules: ⊦ ¬ m + n < m;% ⊦ m < n + 1 ↔ ¬ n < m;% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + 1 ≤ n ↔ m < n;