| # avol0 = # avol1, # lpt = # avol1, (lpt[n].flags = LP_FREE ∨ n ∈ nx ⊃ lpt[n] ;(lpt[n].flags = LP_INDEX_NODES ∧ lpt[n].ref-size ≠ 0 ⊃ lpt[n].size:= LEB_SIZE;(lpt[n].ref-size = 0 ⊃ mklp(0, 0, LP_FREE, lpt[n].gcheapidx);lpt[n])) ) = mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2), gstore[n] = groupblock(gndx, lax, m), lpt[n] = mklp(m3, m4, lpf0, m5), n < # avol1, abs-leb(avol0[n], groupblock(gndx, lax, (n ∈ gstore0 ⊃ gstore0[n].ref-size;0)), mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2)), n ∈ gstore, # avol1 ≤ # lpt, n ∈ nx ∨ m3 ≠ 0 ∨ lpf0 = LP_FREE → avol0[n] = avol1[n] ⊦ abs-leb(avol1[n], crash(gstore, gstore0, ginval, nx)[n], mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2)), n ∈ ginval |
# avol0 = # avol1, # lpt = # avol1, (lpf0 = LP_FREE ∨ n ∈ nx ⊃ mklp(m3, m4, lpf0, m5) ;(lpf0 = LP_INDEX_NODES ∧ m3 ≠ 0 ⊃ mklp(m3, LEB_SIZE, LP_INDEX_NODES, m5);(m3 = 0 ⊃ mklp(0, 0, LP_FREE, m5);mklp(m3, m4, lpf0, m5))) ) = mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2), gstore[n] = groupblock(gndx, lax, m), lpt[n] = mklp(m3, m4, lpf0, m5), n < # avol1, abs-leb(avol0[n], groupblock(gndx, lax, (n ∈ gstore0 ⊃ gstore0[n].ref-size;0)), mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2)), n ∈ gstore, n ∈ nx ∨ m3 ≠ 0 ∨ lpf0 = LP_FREE → avol0[n] = avol1[n] ⊦ abs-leb(avol1[n], crash(gstore, gstore0, ginval, nx)[n], mklp((n ∈ gstore0 ⊃ gstore0[n].ref-size;0), m1, LP_GROUP_NODES, m2)), n ∈ ginval
Used simplifier rules: ⊦ m ≤ m; (s)% ⊦ mklp(n2, n3, lpf, m).gcheapidx = m; (s)% ⊦ mklp(m, m0, lpf, m1).size:= m3 = mklp(m, m3, lpf, m1); (s)% ⊦ mklp(n2, n3, lpf, m).ref-size = n2; (s)% ⊦ mklp(n2, n3, lpf, m).flags = lpf; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat