| # avol0 = # avol1, # lpt = # avol1, (n < # lpt ⊃ (lpt[n].ref-size = 0 ∧ lpt[n].flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lpt[n].gcheapidx);lpt[n]);lpt[n]) = mklp(m0, m1, lpf, m2), lpf0 = LP_INDEX_NODES ↔ n ∈ istore, istore[n] = indexblock(indx0, lax0, m3), remove-refsize0(istore)[n] = indexblock(indx, lax, m), lpt[n] = mklp(m4, m5, lpf0, m6), n < # avol1, n ∈ istore → abs-leb(avol0[n], indexblock(indx0, lax0, m3), mklp(m3, m5, lpf0, m6)) ∧ m4 = m3, ∀ n. n < # avol1 ∧ (lpt[n].ref-size ≠ 0 ∨ lpt[n].flags = LP_FREE) → avol0[n] = avol1[n], ¬(lpf = LP_INDEX_NODES ↔ n ∈ remove-refsize0(istore)) ∨ ¬(n ∈ remove-refsize0(istore) → abs-leb(avol1[n], indexblock(indx, lax, m), mklp(m, m1, lpf, m2)) ∧ m0 = m) ⊦ |
# avol0 = # avol1, # lpt = # avol1, (m4 = 0 ∧ lpf0 ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, m6);mklp(m4, m5, lpf0, m6)) = mklp(m0, m1, lpf, m2), lpf0 = LP_INDEX_NODES ↔ n ∈ istore, istore[n] = indexblock(indx0, lax0, m3), remove-refsize0(istore)[n] = indexblock(indx, lax, m), lpt[n] = mklp(m4, m5, lpf0, m6), n < # avol1, n ∈ istore → abs-leb(avol0[n], indexblock(indx0, lax0, m3), mklp(m3, m5, lpf0, m6)) ∧ m4 = m3, ∀ n. n < # avol1 ∧ (lpt[n].ref-size ≠ 0 ∨ lpt[n].flags = LP_FREE) → avol0[n] = avol1[n], ¬(lpf = LP_INDEX_NODES ↔ n ∈ remove-refsize0(istore)) ∨ ¬(n ∈ remove-refsize0(istore) → abs-leb(avol1[n], indexblock(indx, lax, m), mklp(m, m1, lpf, m2)) ∧ m0 = m) ⊦
Used simplifier rules: ⊦ mklp(n2, n3, lpf, m).gcheapidx = m; (s)% ⊦ mklp(n2, n3, lpf, m).flags = lpf; (s)% ⊦ mklp(n2, n3, lpf, m).ref-size = n2; (s)