| eqent ∈ eqent0 + q0 - v, ∀ eqent, v. eqent ∈ q0 - v → eqent ∈ q0 ⊦ eqent ∈ eqent0 + q0 |
eqent ∈ (eqent0.lebref ≠ none ∧ eqent0.lebref.vol = v ⊃ q0 - eqent0.lebref.vol;eqent0 ' + (q0 - v)), ∀ eqent, v. eqent ∈ q0 - v → eqent ∈ q0 ⊦ eqent = eqent0, eqent ∈ 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); (ss)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent + q = eqent ' + q; (s)