| n < n1 + # buf, n < n2, n < # mkempbuf(n1) + # buf, n2 ≤ n1 + # buf ⊦ (n < n1 ⊃ mkempbuf(n0 + n1)[n0 + n];buf[n - n1]) = (n < # mkempbuf(n1) ⊃ mkempbuf(n1)[n];buf[n - # mkempbuf(n1)]) |
n < n2, n < n1 + # buf, n2 ≤ n1 + # buf ⊦ (n < n1 ⊃ mkempbuf(n0 + n1)[n0 + n];buf[n - n1]) = (n < n1 ⊃ empty;buf[n - n1])
Used simplifier rules: ⊦ m < n → mkempbuf(n)[m] = empty; (s)% ⊦ # mkempbuf(n) = n; (s)