| # buf1 = ENCODED_NAT_SIZE, # buf0 = # ns * ENCODED_NAT_SIZE, # buf2 = ENCODED_NAT_SIZE, # buf = (# ns1 - 1) * ENCODED_NAT_SIZE, buf0 + buf1 = buf2 + buf, is-encoded(ns, buf0), is-encoded(n, buf1), is-encoded(ns1 -- n0, buf), is-encoded(n0, buf2), n0 ∈ ns1, ∀ ns0, buf0, ns, buf1, n. # ns0 < # ns1 → # buf0 = # ns * ENCODED_NAT_SIZE ∧ # buf1 = ENCODED_NAT_SIZE ∧ is-encoded(n, buf1) ∧ is-encoded(ns, buf0) → (is-encoded(ns0, buf0 + buf1) ↔ ns0 = ns ++ n) ∨ n ∈ ns ⊦ # ns1 = 0, ns1 = ∅, ns1 = ns ++ n, n ∈ ns |
# buf = m * ENCODED_NAT_SIZE, # buf2 = ENCODED_NAT_SIZE, # buf0 = # ns * ENCODED_NAT_SIZE, # buf1 = ENCODED_NAT_SIZE, # ns1 = m + 1, buf0 + buf1 = buf2 + buf, is-encoded(n0, buf2), is-encoded(ns1 -- n0, buf), is-encoded(n, buf1), is-encoded(ns, buf0), n0 ∈ ns1, ∀ ns0, buf0, ns, buf1, n. # ns0 < # ns1 → # buf0 = # ns * ENCODED_NAT_SIZE ∧ # buf1 = ENCODED_NAT_SIZE ∧ is-encoded(n, buf1) ∧ is-encoded(ns, buf0) → (is-encoded(ns0, buf0 + buf1) ↔ ns0 = ns ++ n) ∨ n ∈ ns ⊦ # ns1 = 0, ns1 = ns ++ n, ns1 = ∅, n ∈ ns
Used simplifier rules: n ≠ 0 ⊦ m = n - 1 ↔ n = m + 1; (elim) Used terms: # ns1, m