| m0 + 1 = # pebs, pebs[m0] = mkpeb(buf, m, true), abs(subarray(pebs, 0, m0), apebs), ubi-io-initial(pebs), ubi-io-initial(apebs), n ≤ m0 ⊦ n = m0, ubi-io-peb-initial(copy(apebs, 0, mkapebs(m0 + 1), 0, m0)[n]) |
m0 + 1 = # pebs, pebs[m0] = mkpeb(buf, m, true), n < m0, abs(subarray(pebs, 0, m0), apebs), ubi-io-initial(pebs), ubi-io-initial(apebs) ⊦ n = m0, ubi-io-peb-initial(copy(apebs, 0, mkapebs(m0 + 1), 0, m0)[n])
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)