| # buf4 = # buf, # buf1 = # buf4, err = ESUCCESS, n2 = n1, subarray(buf4, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) = subarray(buf, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE), vtbl = vtbl1, vtbl0 = vtbl2, ENCODED_NAT_SIZE ≤ # buf, # vtbl2 * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) + ENCODED_NAT_SIZE ≤ # buf, err0 = ESUCCESS → is-encoded(# vtbl2, subarray(buf4, 0, ENCODED_NAT_SIZE)) ∧ n1 = ENCODED_NAT_SIZE, err = ESUCCESS → (∃ buf0, buf3, buf2, vtbl0. buf1 = buf0 + buf3 + buf2 ∧ vtbl2 = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf3 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl2, buf0) ∧ is-encoded-rec(vtbl0, buf3)), err0 = ESUCCESS ∨ ⌊err0⌋ , err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪choose v with v ∈ vtbl in {encode_volid#(v, n0; buf1, n; err); if err = ESUCCESS then {n0 := n0 + n; encode_nat#(vtbl[v], n0; buf1, n; err); n0 := n0 + n}; vtbl := vtbl -- v}⟫ ( ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf1 = # buf4 ∧ ( err = ESUCCESS → (∃ buf0, buf3, buf2, vtbl0. buf1 = buf0 + buf3 + buf2 ∧ vtbl2 = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf3 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl2, buf0) ∧ is-encoded-rec(vtbl0, buf3)))) ∧ # vtbl < # vtbl1), vtbl = ∅ |
# buf1 = # buf4, # buf4 = # buf, err = ESUCCESS, n2 = n1, subarray(buf4, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) = subarray(buf, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE), vtbl = vtbl1, vtbl0 = vtbl2, v ∈ vtbl, # vtbl2 * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) + ENCODED_NAT_SIZE ≤ # buf, ENCODED_NAT_SIZE ≤ # buf, err = ESUCCESS → (∃ buf0, buf3, buf2, vtbl0. buf1 = buf0 + buf3 + buf2 ∧ vtbl2 = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf3 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl2, buf0) ∧ is-encoded-rec(vtbl0, buf3)), err0 = ESUCCESS → is-encoded(# vtbl2, subarray(buf4, 0, ENCODED_NAT_SIZE)) ∧ n1 = ENCODED_NAT_SIZE, err = ESUCCESS ∨ ⌊err⌋ , err0 = ESUCCESS ∨ ⌊err0⌋ ⊦ ⟪encode_volid#(v, n0; buf1, n; err); if err = ESUCCESS then {n0 := n0 + n; encode_nat#(vtbl[v], n0; buf1, n; err); n0 := n0 + n}; vtbl := vtbl -- v⟫ ( ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf1 = # buf4 ∧ ( err = ESUCCESS → (∃ buf0, buf3, buf2, vtbl0. buf1 = buf0 + buf3 + buf2 ∧ vtbl2 = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf3 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl2, buf0) ∧ is-encoded-rec(vtbl0, buf3)))) ∧ # vtbl < # vtbl1), vtbl = ∅
# buf1 = # buf4, # buf4 = # buf, err = ESUCCESS, n2 = n1, subarray(buf4, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) = subarray(buf, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE), vtbl = vtbl1, vtbl0 = vtbl2, # vtbl2 * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) + ENCODED_NAT_SIZE ≤ # buf, ENCODED_NAT_SIZE ≤ # buf, err = ESUCCESS → (∃ buf0, buf3, buf2, vtbl0. buf1 = buf0 + buf3 + buf2 ∧ vtbl2 = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf3 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl2, buf0) ∧ is-encoded-rec(vtbl0, buf3)), err0 = ESUCCESS → is-encoded(# vtbl2, subarray(buf4, 0, ENCODED_NAT_SIZE)) ∧ n1 = ENCODED_NAT_SIZE, err = ESUCCESS ∨ ⌊err⌋ , err0 = ESUCCESS ∨ ⌊err0⌋ ⊦ vtbl = ∅, ∃ v. v ∈ vtbl