| (n0 ∈ nx ⊃ wl-entry(n, stat0);wl-entry(m2, stat0)) = wl-entry(m1, stat), apebs[n0] = mkpeb(aehdr, avhdr, buf, m0, stat0 = erroneous), wlar[n0] = wl-entry(m2, stat0), n0 < # wlar, n0 < # wlar.mapIndices(nx, λ wle. wle.ec:= n), indices-erasing(wlar, nx), valid-indices(wlar, nx), stat0 = used → valid-peb(v, m, mkpeb(aehdr, avhdr, buf, m0, false)) ∧ avhdr.sqn = valid-sqns(v, m, apebs).max, stat0 ≠ erroneous ∧ stat0 ≠ erasing → aehdr = aechdr(m2), stat0 = free → avhdr = empty ⊦ dups(nx), (stat = erroneous ↔ stat0 = erroneous) ∧ (stat = free → avhdr = empty) ∧ (stat ≠ erroneous ∧ stat ≠ erasing → aehdr = aechdr(m1)) ∧ (stat = used → (∃ v, m. valid-peb(v, m, mkpeb(aehdr, avhdr, buf, m0, false)) ∧ avhdr.sqn = valid-sqns(v, m, apebs).max)) |
Used simplifier rules: indices-erasing-at: ⊦ n ∈ nx ∧ indices-erasing(wlar, nx) → wlar[n].status = erasing;% ⊦ wl-entry(m, stat) = wl-entry(m0, stat0) ↔ m = m0 ∧ stat = stat0; (ws)% ⊦ used ≠ free; (s)%⊦ valid-peb(v0, m0, apeb) → (valid-peb(v1, m1, apeb) ↔ v0 = v1 ∧ m0 = m1); (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ wl-entry(m, stat).status = stat; (s)% ⊦ m < n → n ≠ 0; (s)% ⊦ used ≠ erasing; (s)% ⊦ free ≠ erasing; (s)