| # buf = (n2 + n1) * LEB_SIZE, # buf1 = # buf, avol[n3 + n1] = mapped(buf0), err = err0, n = LEB_SIZE, n0 = n1 * LEB_SIZE, subarray(buf, 0, n1 * LEB_SIZE) = lebs(avol, n3, n1), n3 + n1 < # avol, ebm-vol-inv(avol), mapped-full?(avol, n3, n2 + n1), range=(buf, n0 + n, buf1, n0 + n, # buf - n0 + n), range=(buf, 0, buf1, 0, n0), n1 * LEB_SIZE + LEB_SIZE ≤ # buf, n3 + n2 + n1 ≤ # avol, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪n := n1 + 1⟫ ( n ≤ n2 + n1 ∧ # buf1 = (n2 + n1) * LEB_SIZE ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → subarray(buf1, 0, n * LEB_SIZE) = lebs(avol, n3, n)) ∧ n1 < n), 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% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ ¬ n < n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ m < 1 ↔ m = 0; (s)%# buf = n ⊦ subarray(buf, 0, n) = buf; (s)