| 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, valid-peb(v, m, apebs[m1]) ⊦ valid-sqns(v, m, apebs[n, apeb], m1) ++ apebs[m1].vidhdr.sqn = (¬ m1 < n ⊃ ((valid-sqns(v, m, apebs, m1) ++ apebs[m1].vidhdr.sqn) \ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅)) ∪ (valid-peb(v, m, apeb) ⊃ {apeb.vidhdr.sqn} ;∅) ;valid-sqns(v, m, apebs, m1) ++ apebs[m1].vidhdr.sqn ), m1 = n |
apebs[m1] = mkpeb(aehdr, avhdr, buf, m0, boolvar), 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, valid-peb(v, m, apebs[m1]) ⊦ valid-sqns(v, m, apebs[n, apeb], m1) ++ avhdr.sqn = (¬ m1 < n ⊃ ((valid-sqns(v, m, apebs, m1) ++ avhdr.sqn) \ (valid-peb(v, m, apebs[n]) ⊃ {apebs[n].vidhdr.sqn} ;∅)) ∪ (valid-peb(v, m, apeb) ⊃ {apeb.vidhdr.sqn} ;∅) ;valid-sqns(v, m, apebs, m1) ++ avhdr.sqn ), m1 = n
Used simplifier rules: ⊦ ( ((aehdr = apeb.echdr ∧ avhdr = apeb.vidhdr) ∧ buf = apeb.data) ∧ m = apeb.fill) ∧ (boolvar ↔ apeb.bad) ↔ apeb = mkpeb(aehdr, avhdr, buf, m, boolvar); (elim) Used terms: apebs[m1], aehdr, avhdr, buf, m0, boolvar