| gstore2[m] = groupblock(gndx, lax, n0 + m1), fi2[key] = @(m, m0, m1), remove-refsize0(gstore1) = gstore1, elems nx ∩ jro = ∅, dom gstore1 ∪ elems nx = dom gstore2 ∪ jro, fi1.inos < pmaxino, fi2.inos < jmaxino, p_os < pmaxino, inv(gstore1), inv(gstore2 \ jro), inv(gstore2[m, groupblock(gndx, lax, n0)] \ jro), inv(gstore2[nx.last]), refsize-cons(gstore2, range fi2), refsize-cons(gstore1, range fi1), ri-inj(fi2), ri-inj(fi2 -- key), ri-inj(fi1), valid-journal-head(nx, gstore2, jro), m ∈ gstore2, key ∈ fi2, nx.last ∈ gstore2, pmaxino ≤ jmaxino, fi1.lebs ⊆ dom gstore1, fi2.lebs ⊆ dom gstore2 ⊦ nx = [], pmaxino = 0, dups(nx), nx ≠ [] ∧ nx.last ∈ gstore2[m, groupblock(gndx, lax, n0)] ∧ ¬ nx.last ∈ jro ∧ (gstore2[m, groupblock(gndx, lax, n0)][nx.last].gndlist = [] ∨ gstore2[m, groupblock(gndx, lax, n0)][nx.last].gndlist.last.end) |
gstore2[m] = groupblock(gndx, lax, n0 + m1), fi2[key] = @(m, m0, m1), remove-refsize0(gstore1) = gstore1, elems nx ∩ jro = ∅, dom gstore1 ∪ elems nx = dom gstore2 ∪ jro, fi1.inos < pmaxino, fi2.inos < jmaxino, p_os < pmaxino, inv(gstore1), inv(gstore2 \ jro), inv(gstore2[m, groupblock(gndx, lax, n0)] \ jro), inv(gstore2[nx.last]), refsize-cons(gstore2, range fi2), refsize-cons(gstore1, range fi1), ri-inj(fi2), ri-inj(fi2 -- key), ri-inj(fi1), valid-journal-head(nx, gstore2, jro), m ∈ gstore2, key ∈ fi2, nx.last ∈ gstore2, nx.last ∈ gstore2[m, groupblock(gndx, lax, n0)], pmaxino ≤ jmaxino, fi1.lebs ⊆ dom gstore1, fi2.lebs ⊆ dom gstore2 ⊦ gstore2[m, groupblock(gndx, lax, n0)][nx.last].gndlist = [], nx = [], pmaxino = 0, gstore2[m, groupblock(gndx, lax, n0)][nx.last].gndlist.last.end, dups(nx)
Used simplifier rules: ⊦ n ∈ gstore[n0, gblock] ↔ n = n0 ∨ n ∈ gstore; (ws)% ⊦ elems nx ∩ ginval = ∅ ∧ nx ≠ [] → ¬ nx.last ∈ ginval; (s)%int-c: ⊦ ns ∩ ns0 = ns0 ∩ ns; from specification set-union[nat-set]%int-a: ⊦ (ns ∩ ns0) ∩ ns1 = ns ∩ ns0 ∩ ns1; from specification set-union[nat-set]