| lpt1[n] = mklp(m, m0, lpf, m1), id-idx(lpt0, lpt1), n ∈ nx, n ∈ nx → n < # lpt0 ∧ lpt0[n].flags = LP_GROUP_NODES ⊦ n < # lpt1 ∧ lpf = LP_GROUP_NODES |
lpt0[n].flags = LP_GROUP_NODES, lpt1[n] = mklp(m, m0, lpf, m1), n < # lpt0, id-idx(lpt0, lpt1), n ∈ nx ⊦ lpf = LP_GROUP_NODES
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ n < # lpt0 ∧ id-idx(lpt0, lpt1) → n < # lpt1; (ss)