| eq-entry(n, lref) ∈ eqent + q0, ∀ n, lref, lref0. eq-entry(n, lref) ∈ q0 → lref = lref0 ∨ (∃ n. eq-entry(n, lref) ∈ q0 - lref0) ⊦ lref = lref0, ∃ n. eq-entry(n, lref) ∈ eqent + q0 - lref0 |
∀ n, lref, lref0. eq-entry(n, lref) ∈ q0 → lref = lref0 ∨ (∃ n. eq-entry(n, lref) ∈ q0 - lref0), eq-entry(n, lref) = eqent ∨ eq-entry(n, lref) ∈ q0 ⊦ lref = lref0, ∃ n0. eq-entry(n0, lref) ∈ (eqent.lebref = lref0 ⊃ q0 - eqent.lebref;eqent ' + (q0 - lref0))
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 ∈ eqent0 ' + q ↔ eqent = eqent0 ∨ eqent ∈ q; (s)% ⊦ eqent + q = eqent ' + q; (s)