| ∀ m, lref. valid-eraseq(q0 + eq-entry(m, lref) ') ↔ ¬ m ∈ q0 ∧ valid-eraseq(q0) ⊦ ¬ m0 ∈ q0 + eq-entry(m, lref) ' ∧ valid-eraseq(q0 + eq-entry(m, lref) ') ↔ ¬ m ∈ eq-entry(m0, lref0) ' + q0 ∧ ¬ m0 ∈ q0 ∧ valid-eraseq(q0), valid-eraseq(q0) |
valid-eraseq(q0 + eq-entry(m, lref) '), ∀ m1, lref0. ¬ valid-eraseq(q0 + eq-entry(m1, lref0) ') ⊦ m0 = m, valid-eraseq(q0), m0 ∈ q0
Used simplifier rules: a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ n ∈ q + eq-entry(n0, lref) ' ↔ n ∈ q ∨ n = n0; (ss)