| avol = avol1[n, mapped(mkbuf(0))], n < # avol1, ebm-vol-inv(avol1[n, mapped(mkbuf(0))]), ebm-vol-inv(avol1), is-encoded-pad(orphans0, # orphans0, buf0), # buf0 ≤ LEB_SIZE ⊦ ebm-vol-inv(avol) ∧ n < # avol ∧ avol[n].mapped? ∧ # avol[n].data ≤ 0 ∧ is-aligned(0, EB_PAGE_SIZE) ∧ is-aligned(# buf0, EB_PAGE_SIZE) ∧ 0 + # buf0 ≤ LEB_SIZE ∧ 0 + # buf0 ≤ # buf0 |
n < # avol1, ebm-vol-inv(avol1), ebm-vol-inv(avol1[n, mapped(mkbuf(0))]), is-encoded-pad(orphans0, # orphans0, buf0), # buf0 ≤ LEB_SIZE ⊦ is-aligned(# buf0, EB_PAGE_SIZE)
Used simplifier rules: ⊦ m ≤ m; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)%n ≠ 0 ⊦ is-aligned(0, n); (s)% ⊦ EB_PAGE_SIZE ≠ 0; (s)% ⊦ # mkbuf(n) = n; (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf).mapped?; (s)% ⊦ m < # avol → avol[m, aleb][m] = aleb; (s)% ⊦ # avol[n, aleb] = # avol; (s)