| eq-entry(m, lref) ∈ eqent + q0 - v, ∀ m, lref, v. eq-entry(m, lref) ∈ q0 - v → (∃ eqent0. eqent0.pnum = m ∧ eqent0 ∈ q0) ⊦ ∃ eqent0. eqent0.pnum = m ∧ eqent0 ∈ eqent + q0 |
eq-entry(m, lref) ∈ (eqent.lebref ≠ none ∧ eqent.lebref.vol = v ⊃ q0 - eqent.lebref.vol;eqent ' + (q0 - v)), ∀ m, lref, v. eq-entry(m, lref) ∈ q0 - v → (∃ eqent0. eqent0.pnum = m ∧ eqent0 ∈ q0) ⊦ ∃ eqent0. eqent0.pnum = m ∧ (eqent0 = eqent ∨ eqent0 ∈ q0)
Used simplifier rules: queue-rm-v-rec: ⊦ eqent ' + q - v = (eqent.lebref ≠ none ∧ eqent.lebref.vol = v ⊃ q - v ;eqent ' + (q - v) );% ⊦ eqent ∈ eqent0 ' + q ↔ eqent = eqent0 ∨ eqent ∈ q; (s)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent + q = eqent ' + q; (s)