| avhdr0.sqn = (valid-sqns(v0, m2, apebs, m) ∪ {avhdr.sqn} ).max, apebs[m3] = mkpeb(aehdr0, avhdr0, buf0, m4, false), apebs[m] = mkpeb(aehdr, avhdr, buf, m1, boolvar), n = m2, v = v0, m3 + 1 < # apebs, m3 < m, m0 < # apebs, valid-sqns(v, n, apebs, m).max < avhdr.sqn, m0 < m, m < # apebs, m0 + 1 < # apebs, m3 < # apebs, valid-eraseq-stronger(subarray(apebs, 0, m + 1), q0 + eq-entry(m0, v × n) '), valid-eraseq-stronger(subarray(apebs, 0, m), q0), valid-peb(v, n, mkpeb(aehdr, avhdr, buf, m1, boolvar)), valid-peb(v, n, apebs[m0]), valid-peb(v0, m2, mkpeb(aehdr0, avhdr0, buf0, m4, false)) ⊦ avhdr0.sqn = valid-sqns(v0, m2, apebs, m).max, m0 = m3, m3 ∈ q0, m0 ∈ q0 |
avhdr0.sqn = avhdr.sqn, apebs[m3] = mkpeb(aehdr0, avhdr0, buf0, m4, false), apebs[m] = mkpeb(aehdr, avhdr, buf, m1, boolvar), m3 + 1 < # apebs, m3 < m, m0 < # apebs, valid-sqns(v0, m2, apebs, m).max < avhdr.sqn, m0 < m, m < # apebs, m0 + 1 < # apebs, m3 < # apebs, valid-eraseq-stronger(subarray(apebs, 0, m + 1), q0 + eq-entry(m0, v0 × m2) '), valid-eraseq-stronger(subarray(apebs, 0, m), q0), valid-peb(v0, m2, mkpeb(aehdr, avhdr, buf, m1, boolvar)), valid-peb(v0, m2, apebs[m0]), valid-peb(v0, m2, mkpeb(aehdr0, avhdr0, buf0, m4, false)) ⊦ avhdr.sqn = valid-sqns(v0, m2, apebs, m).max, m0 = m3, m3 ∈ q0, m0 ∈ q0
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ bag.max < n → (bag ++ n).max = n; (s)%union-com: ⊦ bag ∪ bag2 = bag2 ∪ bag; from specification bag-union[nat-bag]%union-ass: ⊦ bag ∪ bag3 ∪ bag4 = (bag ∪ bag3) ∪ bag4; from specification bag-union[nat-bag]% ⊦ bag ∪ {n} = bag ++ n; (s)