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