| n < # apebs, valid-eraseq-strong(apebs, vtbl, q), valid-peb(v, m, apebs[n]), ¬ v ∈ vtbl ∨ ¬ m < vtbl[v] ⊦ valid-eraseq-strong(apebs, vtbl, q + eq-entry(n, v × m) '), n ∈ q |
n < # apebs, valid-eraseq-strong(apebs, vtbl, q), valid-peb(v, m, apebs[n]), ¬ v ∈ vtbl ∨ ¬ m < vtbl[v] ⊦ valid-eraseq-strong(apebs, vtbl, q + eq-entry(n, v × m) '), n ∈ q
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic