| ∀ n, lref. q0 + eq-entry(n, lref) ' - lref = q0 - lref ⊦ eq-entry(m, lref0) ' + (q0 + eq-entry(n, lref) ' - lref) = (lref0 = lref ⊃ q0 - lref;eq-entry(m, lref0) ' + (q0 - lref)), lref0 = lref |
∀ n, lref. q0 + eq-entry(n, lref) ' - lref = q0 - lref ⊦ q0 + eq-entry(n, lref) ' - lref = q0 - lref, lref0 = lref
Used simplifier rules: a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent ' + q = eqent ' + q0 ↔ q = q0; (s)