| m < # apebs, valid-eraseq(apebs, q) ⊦ valid-eraseq(apebs[m, apeb], q), valid-peb(apeb) |
m < # apebs, valid-eraseq(apebs, q) ⊦ valid-eraseq(apebs[m, apeb], q), valid-peb(apeb)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic