| # apebs = # wlar, avhdr0.sqn = valid-sqns(v, m1, apebs).max, wlar[n] = wl-entry(m5, used), apebs[n] = mkpeb(aechdr(m5), avhdr0, buf0, m3, false), apebs[m] = mkpeb(aehdr, avhdr, buf, m0, boolvar), n < # wlar, m < # wlar, valid-peb(v, m1, mkpeb(aechdr(m5), avhdr0, buf0, m3, false)), valid-peb(v, m1, mkpeb(aehdr, avhdr, buf, m0, boolvar)), n < # apebs ∧ m < # apebs ∧ n ≠ m ∧ valid-peb(v, m1, apebs[n]) ∧ valid-peb(v, m1, apebs[m]) → (∃ bag. valid-sqns(v, m1, apebs) = bag ++ apebs[n].vidhdr.sqn ++ apebs[m].vidhdr.sqn) ⊦ avhdr0.sqn = (valid-sqns(v, m1, apebs) -- avhdr.sqn).max, n = m |
# apebs = # wlar, avhdr0.sqn = (bag ++ avhdr0.sqn ++ avhdr.sqn).max, wlar[n] = wl-entry(m5, used), apebs[n] = mkpeb(aechdr(m5), avhdr0, buf0, m3, false), apebs[m] = mkpeb(aehdr, avhdr, buf, m0, boolvar), valid-sqns(v, m1, apebs) = bag ++ avhdr0.sqn ++ avhdr.sqn, avhdr0.sqn < bag.max, n < # wlar, m < # wlar, valid-peb(v, m1, mkpeb(aechdr(m5), avhdr0, buf0, m3, false)), valid-peb(v, m1, mkpeb(aehdr, avhdr, buf, m0, boolvar)) ⊦ bag = ∅, n = m
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m = (bag ++ m).max ↔ ¬(bag ≠ ∅ ∧ m < bag.max); (s)% ⊦ (bag0 ++ n) -- n0 = (n = n0 ⊃ bag0;(bag0 -- n0) ++ n); (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).vidhdr = avhdr; (s)%⊦ valid-peb(v0, m0, apeb) → (valid-peb(v1, m1, apeb) ↔ v0 = v1 ∧ m0 = m1); (s)