| # apebs = # wlar, apebs[m] = mkpeb(aehdr, avhdr, buf, m2, boolvar), ¬ boolvar, m < # wlar, ∀ n. n < m → (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, m1. valid-peb(v, m1, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m1, apebs, m).max)) ⊦ valid-peb(mkpeb(aehdr, avhdr, buf, m2, boolvar)), ∀ n. ¬ m < n → (wlar[m, wl-entry(m0, erasing)][n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[m, wl-entry(m0, erasing)][n].status = free → apebs[n].vidhdr = empty) ∧ (wlar[n].status ≠ erroneous ∧ wlar[m, wl-entry(m0, erasing)][n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ ( wlar[m, wl-entry(m0, erasing)][n].status = used → (∃ v, m1. valid-peb(v, m1, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m1, apebs, m).max)) |
# apebs = # wlar, apebs[m] = mkpeb(aehdr, avhdr, buf, m2, false), m < # wlar, n < # wlar, n ≤ m, ∀ n. n < m → (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, m1. valid-peb(v, m1, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m1, apebs, m).max)) ⊦ valid-peb(mkpeb(aehdr, avhdr, buf, m2, false)), (wlar[m, wl-entry(m0, erasing)][n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[m, wl-entry(m0, erasing)][n].status = free → apebs[n].vidhdr = empty) ∧ (wlar[n].status ≠ erroneous ∧ wlar[m, wl-entry(m0, erasing)][n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ (wlar[m, wl-entry(m0, erasing)][n].status = used → (∃ v, m1. valid-peb(v, m1, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m1, apebs, m).max))
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic[encoding-nat]%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat[encoding-nat]% ⊦ m < n ↔ ¬ n ≤ m; (ss)