| default-volid ∈ avols1 ↔ default-volid ∈ avols0, ebm-cons(avols0), ebm-cons(avols1), ebm-vol-inv(abs(avols1[default-volid])), default-volid ∈ avols1, default-volid ∈ avols1 → # avols1[default-volid] = # avols0[default-volid] ∧ (∀ m0. m0 < # avols1[default-volid] ∧ avols1[default-volid][m0] ≠ unmapped → (avols1[default-volid][m0] = erased → avols0[default-volid][m0] = erased) ∧ ((∃ buf, m. avols1[default-volid][m0] = mapped(buf, m)) → avols0[default-volid][m0] = avols1[default-volid][m0])) ⊦ # avols1[default-volid] = # avols0[default-volid] ∧ ( m < # avols1[default-volid] → (avols1[default-volid][m] = mapped(buf, n) → abs(avols0[default-volid])[m] = abs(avols1[default-volid][m])) ∧ ( abs(avols1[default-volid][m]) = unmapped ∧ abs(avols0[default-volid])[m].mapped? → # abs(avols0[default-volid])[m].data ≤ LEB_SIZE ∧ is-aligned(# abs(avols0[default-volid])[m].data, EB_PAGE_SIZE))) |
# avols1[default-volid] = # avols0[default-volid], m < # avols0[default-volid], ebm-cons(avols0), ebm-cons(avols1), ebm-vol-inv(abs(avols1[default-volid])), default-volid ∈ avols0, default-volid ∈ avols1, ∀ m0. m0 < # avols0[default-volid] ∧ avols1[default-volid][m0] ≠ unmapped → (avols1[default-volid][m0] = erased → avols0[default-volid][m0] = erased) ∧ ((∃ buf, m. avols1[default-volid][m0] = mapped(buf, m)) → avols0[default-volid][m0] = avols1[default-volid][m0]) ⊦ (avols1[default-volid][m] = mapped(buf, n) → abs(avols0[default-volid][m]) = abs(avols1[default-volid][m])) ∧ ( abs(avols1[default-volid][m]) = unmapped ∧ avols0[default-volid][m] = mapped(buf0, n0) → # abs(avols0[default-volid][m]).data ≤ LEB_SIZE ∧ is-aligned(# abs(avols0[default-volid][m]).data, EB_PAGE_SIZE))
Used simplifier rules: ⊦ abs(leb).mapped? ↔ (∃ buf, n. leb = mapped(buf, n)); (s)% ⊦ n < # evol → abs(evol)[n] = abs(evol[n]); (s)% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic