| apebs[m] = mkpeb(aehdr, avhdr, buf, m0, boolvar), m < # wlar, m < # wlar → (wlar[m].status = erroneous ↔ apebs[m].bad) ∧ (wlar[m].status = free → apebs[m].vidhdr = empty) ∧ (wlar[m].status ≠ erroneous ∧ wlar[m].status ≠ erasing → apebs[m].echdr = aechdr(wlar[m].ec)) ∧ (wlar[m].status = used → (∃ v, m0. valid-peb(v, m0, apebs[m]) ∧ apebs[m].vidhdr.sqn = valid-sqns(v, m0, apebs).max)), ∀ n. n < # wlar → (wlar[m, wl-entry(m1, free)][n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[m, wl-entry(m1, free)][n].status = free → apebs[n].vidhdr = empty) ∧ ( wlar[m, wl-entry(m1, free)][n].status ≠ erroneous ∧ wlar[m, wl-entry(m1, free)][n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[m, wl-entry(m1, free)][n].ec)) ∧ (wlar[m, wl-entry(m1, free)][n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)), ∀ n. n < # wlar → (wlar[n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[n].status = free → apebs[n].vidhdr = empty) ∧ (wlar[n].status ≠ erroneous ∧ wlar[n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ (wlar[n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)) ⊦ aehdr = aechdr(m1) ∧ avhdr = empty ∧ ¬ boolvar |
apebs[m] = mkpeb(aehdr, avhdr, buf, m0, wlar[m].status = erroneous), m < # wlar, wlar[m].status = free → avhdr = empty, wlar[m].status ≠ erroneous ∧ wlar[m].status ≠ erasing → aehdr = aechdr(wlar[m].ec), wlar[m].status = used → valid-peb(v, m2, mkpeb(aehdr, avhdr, buf, m0, wlar[m].status = erroneous)) ∧ avhdr.sqn = valid-sqns(v, m2, apebs).max, ∀ n. n < # wlar → (wlar[n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[n].status = free → apebs[n].vidhdr = empty) ∧ (wlar[n].status ≠ erroneous ∧ wlar[n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ (wlar[n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)), ∀ n. n < # wlar → (wlar[m, wl-entry(m1, free)][n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[m, wl-entry(m1, free)][n].status = free → apebs[n].vidhdr = empty) ∧ ( wlar[m, wl-entry(m1, free)][n].status ≠ erroneous ∧ wlar[m, wl-entry(m1, free)][n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[m, wl-entry(m1, free)][n].ec)) ∧ (wlar[m, wl-entry(m1, free)][n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)) ⊦ aehdr = aechdr(m1) ∧ avhdr = empty ∧ wlar[m].status ≠ erroneous
Used simplifier rules: ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).echdr = aehdr; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).vidhdr = avhdr; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).bad ↔ boolvar; (s)