| valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) ⊦ m < # wlar |
Used simplifier rules: ⊦ valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) → ¬ # wlar ≤ m; (s)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ m < n ↔ ¬ n ≤ m; (ss)