| ⟨decode_lprops#(n0 * ENCODED_LPROPS_SIZE, buf; lp, m; err)⟩ (lp = lp0 ∧ m = m0 ∧ err = err0), ⟪decode_lprops#(n0 * ENCODED_LPROPS_SIZE, buf; lp, m; err)⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → is-encoded(lp, subarray(buf, n0 * ENCODED_LPROPS_SIZE, m)) ∧ n0 * ENCODED_LPROPS_SIZE + m ≤ # buf ∧ m = encoding-size(lp))), # lpt2 = n1 + n0, # lpt1 = n1 + n0, # buf = lptsize(n1 + n0, LEB_SIZE), lp = lpt1[n0], n0 < # lpt1, is-encoded(lpt1, buf, n0), err0 = ESUCCESS → is-encoded(lp0, subarray(buf, n0 * ENCODED_LPROPS_SIZE, m0)) ∧ n0 * ENCODED_LPROPS_SIZE + m0 ≤ # buf ∧ m0 = encoding-size(lp0), err0 = ESUCCESS ∨ ⌊err0⌋ ⊦ n1 = 0, n0 + 1 ≤ # lpt1[n0, lp0] ∧ # buf = lptsize(# lpt1[n0, lp0], LEB_SIZE) ∧ # lpt1[n0, lp0] = # lpt2 ∧ (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ (err0 = ESUCCESS → is-encoded(lpt1[n0, lp0], buf, n0 + 1)) ∧ # lpt1[n0, lp0] < n1 + n0 + 1 |
⟪decode_lprops#(n0 * ENCODED_LPROPS_SIZE, buf; lp, m; err)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → lp0 = lp ∧ m = ENCODED_LPROPS_SIZE)), ⟨decode_lprops#(n0 * ENCODED_LPROPS_SIZE, buf; lp, m; err)⟩ (lp = lp0 ∧ m = ENCODED_LPROPS_SIZE ∧ err = ESUCCESS), # buf = lptsize(n1 + n0, LEB_SIZE), # lpt1 = n1 + n0, # lpt2 = n1 + n0, lp = lpt1[n0], n1 ≠ 0, is-encoded(lp0, subarray(buf, n0 * ENCODED_LPROPS_SIZE, ENCODED_LPROPS_SIZE)), is-encoded(lpt1, buf, n0), n0 * ENCODED_LPROPS_SIZE + ENCODED_LPROPS_SIZE ≤ # buf, ¬ is-encoded(lpt1[n0, lp0], buf, n0 + 1) ⊦
Used simplifier rules: ⊦ # subarray(buf, m, n) = n; (s)%is-encoded-size: ⊦ is-encoded(lp, buf) → # buf = ENCODED_LPROPS_SIZE; (forward) from specification encoding-fixed-size[encoding-lprops]% ⊦ is-encoded(lp, buf) → (is-encoded(lp0, buf) ↔ lp = lp0); (s)% ⊦ ¬ n < n; (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)% ⊦ m < m + n ↔ n ≠ 0; (s)% ⊦ m < n + 1 ↔ ¬ n < m; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + 1 ≤ n ↔ m < n; (s)% ⊦ # lpt[n, lp] = # lpt; (s)% ⊦ encoding-size(lp) = ENCODED_LPROPS_SIZE; (s)