| m < # wlar ⊦ valid-wl(apebs, wlar) → (valid-wl(apebs, wlar[m, wl-entry(m1, free)]) ↔ apebs[m].echdr = aechdr(m1) ∧ apebs[m].vidhdr = empty ∧ ¬ apebs[m].bad) |
m < # wlar, valid-wl(apebs, wlar) ⊦ valid-wl(apebs, wlar[m, wl-entry(m1, free)]) ↔ apebs[m].echdr = aechdr(m1) ∧ apebs[m].vidhdr = empty ∧ ¬ apebs[m].bad