| # avol0 = # avol1, # buf = (n2 + n1) * LEB_SIZE, # avol1 = n3 + n0 + n2 + n1, avol = avol0[n0 + n1, unmapped], err = err0, lebs(avol0, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n = n1, n0 + n1 < # avol0, n0 + n1 < # avol1, ebm-vol-inv(avol1), ebm-vol-inv(avol0), ebm-vol-inv(avol), mapped-full?(avol0, n0, n1), range=(avol0, n0 + n2 + n1, avol1, n0 + n2 + n1, n3), range=(avol0, 0, avol1, 0, n0), n0 + n2 + n1 ≤ # avol1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪n := n + 1⟫ ( n ≤ n2 + n1 ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # avol1 ∧ range=(avol, 0, avol1, 0, n0) ∧ range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3) ∧ (err = ESUCCESS → lebs(avol, n0, n) = subarray(buf, 0, n * LEB_SIZE) ∧ mapped-full?(avol, n0, n)) ∧ n1 < n), n3 + n2 = 0, err = ESUCCESS, n2 = 0 |
Used simplifier rules: ⊦ ⌊err⌋ → err ≠ ESUCCESS; (s)% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ # avol[n, aleb] = # avol; (s)% ⊦ n + 0 = n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ ¬ m + n < m; (s)%m0 + m ≤ n ⊦ range=(avol[n, aleb], m0, avol0, m1, m) ↔ range=(avol, m0, avol0, m1, m); (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m + m0 ≤ m ↔ m0 = 0; (s)%n < m0 ⊦ range=(avol[n, aleb], m0, avol0, m1, m) ↔ range=(avol, m0, avol0, m1, m); (s)% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ ¬ n < n; (s)% ⊦ m < 1 ↔ m = 0; (s)%# buf = n ⊦ subarray(buf, 0, n) = buf; (s)