| n0 + 1 < # apebs, n0 < n, n < # apebs, n0 < # apebs, valid-peb(v, m, apebs[n]), n0 ≤ n + 1, valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ⊦ valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ∪ {apebs[n].vidhdr.sqn} |
n0 < # apebs, n < # apebs, n0 < n, n0 + 1 < # apebs, valid-peb(v, m, apebs[n]), n0 ≤ n + 1, valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ⊦ valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ++ apebs[n].vidhdr.sqn
Used simplifier rules: 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)