| valid-sqns(v, m, apebs[n, apeb], m1) = (n < m1 ⊃ (valid-sqns(v, m, apebs, m1) \ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅)) ∪ (valid-peb(v, m, apeb) ⊃ {apeb.vidhdr.sqn} ;∅) ;valid-sqns(v, m, apebs, m1) ), m1 < # apebs ⊦ m1 = n, valid-sqns(v, m, apebs[n, apeb], m1) = (¬ m1 < n ⊃ (valid-sqns(v, m, apebs, m1) \ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅)) ∪ (valid-peb(v, m, apeb) ⊃ {apeb.vidhdr.sqn} ;∅) ;valid-sqns(v, m, apebs, m1) ), valid-peb(v, m, apebs[m1]) |
Used simplifier rules: ⊦ m < n → ¬ n < m; (s)% ⊦ m ≠ n → (m < n ↔ ¬ n < m); (ss)