| n < # apebs, n0 ≤ # apebs, n0 ≤ n + 1, ∀ apebs, n0, v, m. n ≤ # apebs ∧ n0 ≤ n ∧ n0 ≤ # apebs → valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ⊦ n0 < n, valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ∪ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅) |
n < # apebs, n ≤ n0, n0 ≤ # apebs, n0 ≤ n + 1, ∀ apebs, n0, v, m. n ≤ # apebs ∧ n0 ≤ n ∧ n0 ≤ # apebs → valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ⊦ valid-sqns(v, m, apebs, n0) ⊆ valid-sqns(v, m, apebs, n) ∪ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅)
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m ≤ m + n; (s)% ⊦ m < n → m ≤ n; (s)%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)