| n5 < # lpt ∧ lpf0 = LP_GROUP_NODES ↔ n5 ∈ gstore, lpt[n, mklp(m0, n1, LP_GROUP_NODES, n2)][n5] = mklp(m1, m2, lpf, m3), gstore[n, groupblock(gndx, lax, m0)][n5] = groupblock(gndx0, lax0, m), lpt[n] = mklp(n0, n1, LP_GROUP_NODES, n4), gstore[n] = groupblock(gndx, lax, n3), gstore[n5] = groupblock(gndx1, lax1, m4), lpt[n5] = mklp(m5, m6, lpf0, m7), n5 = n, n ∈ gstore, n5 ∈ gstore → m5 = m4, n5 ∈ gstore ∧ ¬ n5 ∈ ginval → abs-leb(avol[n5], groupblock(gndx1, lax1, m4), mklp(m5, m6, lpf0, m7)) ⊦ (n5 < # lpt ∧ lpf = LP_GROUP_NODES ↔ n5 ∈ gstore[n, groupblock(gndx, lax, m0)]) ∧ (n5 ∈ gstore[n, groupblock(gndx, lax, m0)] ∧ ¬ n5 ∈ ginval → abs-leb(avol[n5], groupblock(gndx0, lax0, m), mklp(m1, m2, lpf, m3))) ∧ (n5 ∈ gstore[n, groupblock(gndx, lax, m0)] → m1 = m) |
gstore[n] = groupblock(gndx1, lax1, m4), lpt[n] = mklp(m4, m6, LP_GROUP_NODES, m7), n < # lpt, abs-leb(avol[n], groupblock(gndx1, lax1, m4), mklp(m4, m6, LP_GROUP_NODES, m7)), n ∈ gstore ⊦ abs-leb(avol[n], groupblock(gndx1, lax1, m), mklp(m, m6, LP_GROUP_NODES, m3)), n ∈ ginval
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ n ∈ gstore[n, gblock]; (s)%⊦ 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)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%⊦ groupblock(gndx, lax, m) = groupblock(gndx0, lax0, m0) ↔ gndx = gndx0 ∧ lax = lax0 ∧ m = m0; (ws)% ⊦ gstore[n, gblock][n] = gblock; (s)