| eqent = eq-entry(m1, lref), valid-eraseq(q + q1), m ∈ eqent ' + q, m ∈ q1, ∀ q0, m0. ¬ valid-eraseq(q + q0) ∨ ¬ m0 ∈ q0 ∨ ¬ m0 ∈ q ⊦ m1 ∈ q1, m1 ∈ q |
valid-eraseq(q + q1), m ∈ q1, m ∈ eq-entry(m1, lref) ' + q, ∀ q0, m0. ¬ valid-eraseq(q + q0) ∨ ¬ m0 ∈ q0 ∨ ¬ m0 ∈ q ⊦ m1 ∈ q, m1 ∈ q1