| ⊦ replay-log(lpt, nx + n ') = replay-log(lpt, nx)[n, mklp(lpt[n].ref-size, LEB_SIZE, LP_GROUP_NODES, lpt[n].gcheapidx)], n ∈ nx |
⊦ lpt.mapIndices(elems nx ++ n, λ lp. mklp(lp.ref-size, LEB_SIZE, LP_GROUP_NODES, lp.gcheapidx)) = lpt.mapIndices(elems nx, λ lp. mklp(lp.ref-size, LEB_SIZE, LP_GROUP_NODES, lp.gcheapidx)) [n, mklp(lpt[n].ref-size, LEB_SIZE, LP_GROUP_NODES, lpt[n].gcheapidx) ], n ∈ nx
Used simplifier rules: replay-log: ⊦ replay-log(lpt, nx) = lpt .mapIndices (elems nx, λ lp. mklp(lp.ref-size, LEB_SIZE, LP_GROUP_NODES, lp.gcheapidx) );%a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ elems(nx0 + n ') = elems nx0 ++ n; (s)