| buf0 = buf, # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) + ENCODED_NAT_SIZE ≤ # buf, ENCODED_NAT_SIZE ≤ # buf ⊦ [encode_nat#(# vtbl, 0; buf, n; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) = subarray(buf0, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) ∧ (err = ESUCCESS → is-encoded(# vtbl, subarray(buf, 0, ENCODED_NAT_SIZE)) ∧ n = ENCODED_NAT_SIZE) → ⟪n0 := n; vtbl0 := vtbl; while err = ESUCCESS ∧ vtbl ≠ ∅ do {/* (encode : invariant (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf` ∧ ( err = ESUCCESS → (∃ buf0, buf1, buf2, vtbl0. buf = buf0 + buf1 + buf2 ∧ vtbl` = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf1 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl`, buf0) ∧ is-encoded-rec(vtbl0, buf1))) wfbound # vtbl) */; choose v with v ∈ vtbl in {encode_volid#(v, n0; buf, n; err); if err = ESUCCESS then {n0 := n0 + n; encode_nat#(vtbl[v], n0; buf, n; err); n0 := n0 + n}; vtbl := vtbl -- v}}⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ (err = ESUCCESS → is-encoded(vtbl0, buf)))) |
buf0 = buf, ENCODED_NAT_SIZE ≤ # buf, # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) + ENCODED_NAT_SIZE ≤ # buf ⊦ ∀ buf, n, err. (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) = subarray(buf0, ENCODED_NAT_SIZE, # buf - ENCODED_NAT_SIZE) ∧ (err = ESUCCESS → is-encoded(# vtbl, subarray(buf, 0, ENCODED_NAT_SIZE)) ∧ n = ENCODED_NAT_SIZE) → ⟪n0 := n; vtbl0 := vtbl; while err = ESUCCESS ∧ vtbl ≠ ∅ do {/* (encode : invariant (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf` ∧ ( err = ESUCCESS → (∃ buf0, buf1, buf2, vtbl0. buf = buf0 + buf1 + buf2 ∧ vtbl` = vtbl ∪ vtbl0 ∧ vtbl ⊥ vtbl0 ∧ # buf0 + # buf1 = n0 ∧ # buf2 ≥ # vtbl * (ENCODED_NAT_SIZE + ENCODED_VOLID_SIZE) ∧ is-encoded(# vtbl`, buf0) ∧ is-encoded-rec(vtbl0, buf1))) wfbound # vtbl) */; choose v with v ∈ vtbl in {encode_volid#(v, n0; buf, n; err); if err = ESUCCESS then {n0 := n0 + n; encode_nat#(vtbl[v], n0; buf, n; err); n0 := n0 + n}; vtbl := vtbl -- v}}⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ (err = ESUCCESS → is-encoded(vtbl0, buf)))