| n < # apebs, valid-eraseq-strong(apebs, vtbl, []), valid-peb(v, m, apebs[n]), ¬ v ∈ vtbl ∨ ¬ m < vtbl[v] ⊦ valid-eraseq-strong(apebs, vtbl, [] + eq-entry(n, v × m) '), n ∈ [] |
n < # apebs, valid-peb(v, m, apebs[n]), ¬ v ∈ vtbl ∨ ¬ m < vtbl[v] ⊦ valid-eraseq-strong(apebs, vtbl, eq-entry(n, v × m) ')
Used simplifier rules: valid-eraseq-strong-base: ⊦ valid-eraseq-strong(apebs, vtbl, []);%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ [] + q = q; (s)% ⊦ ¬ n ∈ []; (s)