| lpt[n] = mklp(m0, m1, lpf0, m2), keyset(gch) = gc-heap(lpt, nx), n < # lpt ⊦ bin-heap-inv(gch, lpt[n, mklp(n0, n1, lpf1, n2)]) ↔ bin-heap-inv(gch, lpt), lpf0 = LP_GROUP_NODES |
lpt[n] = mklp(m0, m1, lpf0, m2), keyset(gch) = gc-heap(lpt, nx, # lpt), n < # lpt ⊦ bin-heap-inv(gch, lpt[n, mklp(n0, n1, lpf1, n2)]) ↔ bin-heap-inv(gch, lpt), lpf0 = LP_GROUP_NODES
Used simplifier rules: gc-heap: ⊦ gc-heap(lpt, nx) = gc-heap(lpt, nx, # lpt);% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic