| (n0 ∈ nx ⊃ wlar[n0].ec:= n;wlar[n0]) = 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, stat0 = erroneous)) ∧ 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)) |
(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: ⊦ wl-entry(m, stat).ec:= m0 = wl-entry(m0, stat); (s)% ⊦ used ≠ erroneous; (s)