| n + m0 +1 ≤ # avol, n + m0 +1 ≤ n0, ∀ n, n0, avol, aleb. n + m0 ≤ n0 ∧ n + m0 ≤ # avol → lebs(avol[n0, aleb], n, m0) = lebs(avol, n, m0) ⊦ lebs(avol[n0, aleb], n, m0 +1) = lebs(avol, n, m0 +1) |
n + m0 < # avol, n + m0 < n0, ∀ n, n0, avol, aleb. n + m0 ≤ n0 ∧ n + m0 ≤ # avol → lebs(avol[n0, aleb], n, m0) = lebs(avol, n, m0) ⊦ lebs(avol[n0, aleb], n, m0 + 1) = lebs(avol, n, m0) + (avol[n + m0].mapped? ⊃ avol[n + m0].data + mkempbuf(LEB_SIZE - # avol[n + m0].data);mkempbuf(LEB_SIZE))
Used simplifier rules: lebs-rec: ⊦ n + m < # avol → lebs(avol, n, m + 1) = lebs(avol, n, m) + (avol[n + m].mapped? ⊃ avol[n + m].data + mkempbuf(LEB_SIZE - # avol[n + m].data) ;mkempbuf(LEB_SIZE) );% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m + 1 ≤ n ↔ m < n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m +1 = m + 1; (s)