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