| remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, inv(gstore \ ginval), inv(gstore0), ri-inj(fi), ri-inj(fi0), maxino ∈ gstore, ¬ dups(nx) ⊦ ⟪index_set_gblock_refsize#(maxino, n, fi, fi0, ginval, gstore0, nx, maxino0, ginval0, syn; gstore)⟫ (inv(gstore \ ginval) ∧ dom gstore0 ∪ elems nx = dom gstore ∪ ginval) |
fi = fi1, fi0 = fi2, ginval = ginval1, ginval0 = ginval2, maxino = maxino1, maxino0 = maxino2, remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval2 = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval2, inv(gstore0), inv(gstore \ ginval2), ri-inj(fi1), ri-inj(fi2), maxino2 ∈ gstore ⊦ ⟪if maxino0 ∈ gstore then gstore[maxino0].ref-size := n else abort⟫ (inv(gstore \ ginval2) ∧ dom gstore0 ∪ elems nx = dom gstore ∪ ginval2), dups(nx)
Used simplifier rules: set-gblock-refsize: ⊦ ;