| gstore3[@(m0, m1, m2)] = mkgnode(nd, m, boolvar, boolvar0), fi[key] = @(m3, m4, m5), remove-refsize0(gstore2) = gstore2, elems nx ∩ jro0 = ∅, dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0, jro1 < jmaxino, p_os < pmaxino, fi.inos < jmaxino, fi0.inos < pmaxino, inv(gstore3 \ jro0), inv(gstore2), key-cons(key, nd), refsize-cons(gstore3, range fi), refsize-cons(gstore2, range fi0), ri-inj(fi0), ri-inj(fi), ri-inj(fi[key, @(m0, m1, m2)]), key ∈ fi, @(m0, m1, m2) ∈ gstore3, pmaxino ≤ jmaxino, fi.lebs ⊆ dom gstore3, fi0.lebs ⊆ dom gstore2, jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0) ⊦ ⟪index_get_gblock_refsize#(m3, fi[key, @(m0, m1, m2)], fi0, jro0, gstore3, gstore2, nx, pmaxino, p_os, jvalid0; ; n); gstore := gstore3; index_set_gblock_refsize#(m3, n - m5, fi[key, @(m0, m1, m2)], fi0, jro0, gstore2, nx, pmaxino, p_os, jvalid0; gstore3); index_get_gblock_refsize#(m0, fi[key, @(m0, m1, m2)], fi0, jro0, gstore3, gstore2, nx, pmaxino, p_os, jvalid0; ; n); index_set_gblock_refsize#(m0, n + m2, fi[key, @(m0, m1, m2)], fi0, jro0, gstore2, nx, pmaxino, p_os, jvalid0; gstore3); jmaxino := max(key.ino + 1, jmaxino)⟫ ( jro1 < jmaxino ∧ pmaxino ≤ jmaxino ∧ fi.inos ∪ (key.inode? ⊃ ∅ ++ key.ino;∅) < jmaxino ∧ jmaxino ≠ 0 ∧ (jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0)) ∧ fi[key, @(m0, m1, m2)].lebs ⊆ dom gstore3 ∧ refsize-cons(gstore3, (range fi -- fi[key]) ++ @(m0, m1, m2)) ∧ inv(gstore3 \ jro0) ∧ dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0 ∧ gstore3 =○refsize gstore), jmaxino = 0, pmaxino = 0, dups(nx), @(m0, m1, m2) ∈ fi |
gstore3[@(m0, m1, m2)] = mkgnode(nd, m, boolvar, boolvar0), fi[key] = @(m3, m4, m5), remove-refsize0(gstore2) = gstore2, elems nx ∩ jro0 = ∅, dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0, jmaxino ≠ 0, pmaxino ≠ 0, jro1 < jmaxino, p_os < pmaxino, fi.inos < jmaxino, fi0.inos < pmaxino, inv(gstore3 \ jro0), inv(gstore2), key-cons(key, nd), refsize-cons(gstore3, range fi), refsize-cons(gstore2, range fi0), ri-inj(fi0), ri-inj(fi), ri-inj(fi[key, @(m0, m1, m2)]), key ∈ fi, @(m0, m1, m2) ∈ gstore3, m3 ∈ gstore3, pmaxino ≤ jmaxino, fi.lebs ⊆ dom gstore3, fi0.lebs ⊆ dom gstore2, ¬ dups(nx), ¬ @(m0, m1, m2) ∈ fi, jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0) ⊦ ⟪index_get_gblock_refsize#(m3, fi[key, @(m0, m1, m2)], fi0, jro0, gstore3, gstore2, nx, pmaxino, p_os, jvalid0; ; n); gstore := gstore3; index_set_gblock_refsize#(m3, n - m5, fi[key, @(m0, m1, m2)], fi0, jro0, gstore2, nx, pmaxino, p_os, jvalid0; gstore3); index_get_gblock_refsize#(m0, fi[key, @(m0, m1, m2)], fi0, jro0, gstore3, gstore2, nx, pmaxino, p_os, jvalid0; ; n); index_set_gblock_refsize#(m0, n + m2, fi[key, @(m0, m1, m2)], fi0, jro0, gstore2, nx, pmaxino, p_os, jvalid0; gstore3); jmaxino := max(key.ino + 1, jmaxino)⟫ ( jro1 < jmaxino ∧ pmaxino ≤ jmaxino ∧ fi.inos ∪ (key.inode? ⊃ ∅ ++ key.ino;∅) < jmaxino ∧ jmaxino ≠ 0 ∧ (jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0)) ∧ fi[key, @(m0, m1, m2)].lebs ⊆ dom gstore3 ∧ refsize-cons(gstore3, (range fi -- fi[key]) ++ @(m0, m1, m2)) ∧ inv(gstore3 \ jro0) ∧ dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0 ∧ gstore3 =○refsize gstore)
Used simplifier rules: ⊦ @(m, m0, m1).lnum = m; (s)%lebs-in-ri-in-gstore-explicit: ⊦ key ∈ ri ∧ ri[key] = adr ∧ ri.lebs ⊆ dom gstore → adr.lnum ∈ gstore; (forward) from specification gjournal-base