| n < # lpt ↔ n ∈ istore, lpt[n] = mklp(n0, n1, LP_INDEX_NODES, n2), lpt[n, mklp(n0, LEB_SIZE, LP_INDEX_NODES, n2)][n] = mklp(m0, m1, lpf, m2), istore[n] = indexblock(indx, lax, m), n < # avol, n < # lpt, n ∈ istore → abs-leb(avol[n], indexblock(indx, lax, m), mklp(m, n1, LP_INDEX_NODES, n2)) ∧ n0 = m ⊦ (n ∈ istore → lpf = LP_INDEX_NODES) ∧ (n ∈ istore → abs-leb(avol[n], indexblock(indx, lax, m), mklp(m, m1, lpf, m2)) ∧ m0 = m) |
lpt[n] = mklp(m0, n1, LP_INDEX_NODES, m2), istore[n] = indexblock(indx, lax, m0), n < # avol, n < # lpt, abs-leb(avol[n], indexblock(indx, lax, m0), mklp(m0, n1, LP_INDEX_NODES, m2)), n ∈ istore ⊦ abs-leb(avol[n], indexblock(indx, lax, m0), mklp(m0, LEB_SIZE, LP_INDEX_NODES, m2))
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%⊦ mklp(m, m0, lpf, m1) = mklp(m2, m3, lpf0, m4) ↔ m = m2 ∧ m0 = m3 ∧ lpf = lpf0 ∧ m1 = m4; (ws)% ⊦ m < # lpt → lpt[m, lp][m] = lp; (s)