| ∀ m, lref. valid-eraseq(q0 + eq-entry(m, lref) ') ↔ ¬ m ∈ q0 ∧ valid-eraseq(q0) ⊦ valid-eraseq((eqent + q0) + eq-entry(m, lref) ') ↔ ¬ m ∈ eqent + q0 ∧ valid-eraseq(eqent + q0) |
∀ m, lref. valid-eraseq(q0 + eq-entry(m, lref) ') ↔ ¬ m ∈ q0 ∧ valid-eraseq(q0) ⊦ ¬ eqent.pnum ∈ q0 + eq-entry(m, lref) ' ∧ valid-eraseq(q0 + eq-entry(m, lref) ') ↔ ¬ m ∈ eqent ' + q0 ∧ ¬ eqent.pnum ∈ q0 ∧ valid-eraseq(q0)
Used simplifier rules: valid-eraseqd-rec: ⊦ valid-eraseq(eqent ' + q) ↔ ¬ eqent.pnum ∈ q ∧ valid-eraseq(q);%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent + q = eqent ' + q; (s)