| m < # apebs, # apebs = # wlar ⊦ valid-wl(subarray(apebs, 0, m), subarray(wlar, 0, m)) ∧ apebs[m] = mkpeb(aechdr(m0), empty, buf, m1, false) → valid-wl(subarray(apebs, 0, m + 1), subarray(wlar[m, wl-entry(m0, free)], 0, m + 1)) |
# apebs = # wlar, apebs[m] = mkpeb(aechdr(m0), empty, buf, m1, false), m < # apebs, valid-wl(subarray(apebs, 0, m), subarray(wlar, 0, m)) ⊦ valid-wl(subarray(apebs, 0, m + 1), subarray(wlar[m, wl-entry(m0, free)], 0, m + 1))