| gstore3[n] = groupblock(gndx2, lax2, m8), gstore3[m3, groupblock(gndx, lax, n1)][m0] = groupblock(gndx0, lax0, m6), gstore3[@(m0, m1, m2)] = mkgnode(nd, m, boolvar, boolvar0), fi2[key] = @(m3, m4, m5), gstore3[m3] = groupblock(gndx, lax, n1 + m5), gstore3[m3, groupblock(gndx, lax, n1)][m0, groupblock(gndx0, lax0, m6 + m2)][n] = groupblock(gndx1, lax1, m7), n = m0, remove-refsize0(gstore2) = gstore2, elems nx ∩ jro0 = ∅, dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0, jro1 < jmaxino, p_os < pmaxino, fi2.inos < jmaxino, fi1.inos < pmaxino, inv(gstore3[m3, groupblock(gndx, lax, n1)][m0, groupblock(gndx0, lax0, m6 + m2)] \ jro0), inv(gstore3 \ jro0), inv(gstore2), inv(gstore3[m3, groupblock(gndx, lax, n1)] \ jro0), key-cons(key, nd), refsize-cons(gstore2, range fi1), ri-inj(fi2), ri-inj(fi2[key, @(m0, m1, m2)]), ri-inj(fi1), m0 ∈ dom gstore3 ∪ jro0, m3 ∈ gstore3, key ∈ fi2, @(m0, m1, m2) ∈ gstore3, m0 ∈ gstore3[m3, groupblock(gndx, lax, n1)], n ∈ gstore3[m3, groupblock(gndx, lax, n1)][m0, groupblock(gndx0, lax0, m6 + m2)], pmaxino ≤ max(key.ino + 1, jmaxino), pmaxino ≤ jmaxino, fi2.lebs ⊆ dom gstore3, fi1.lebs ⊆ dom gstore2, jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0), n ∈ gstore3 → m8 = (range fi2 | n).size ⊦ #(dom gstore3 ∪ jro0) = 0, jmaxino = 0, m7 = (((range fi2 -- @(m3, m4, m5)) ++ @(m0, m1, m2)) | n).size, max(key.ino + 1, jmaxino) = 0, pmaxino = 0, dom gstore3 ∪ jro0 = ∅, dups(nx), @(m0, m1, m2) ∈ fi2 |
gstore3[m3] = groupblock(gndx, lax, n1 + m5), fi2[key] = @(m3, m4, m5), gstore3[@(m0, m1, m2)] = mkgnode(nd, m, boolvar, boolvar0), gstore3[m3, groupblock(gndx, lax, n1)][m0] = groupblock(gndx0, lax0, m6), gstore3[m0] = groupblock(gndx2, lax2, (range fi2 | m0).size), remove-refsize0(gstore2) = gstore2, elems nx ∩ jro0 = ∅, dom gstore2 ∪ elems nx = dom gstore3 ∪ jro0, fi1.inos < pmaxino, fi2.inos < jmaxino, p_os < pmaxino, jro1 < jmaxino, inv(gstore3[m3, groupblock(gndx, lax, n1)] \ jro0), inv(gstore2), inv(gstore3 \ jro0), inv(gstore3[m3, groupblock(gndx, lax, n1)][m0, groupblock(gndx0, lax0, m6 + m2)] \ jro0), key-cons(key, nd), refsize-cons(gstore2, range fi1), ri-inj(fi1), ri-inj(fi2[key, @(m0, m1, m2)]), ri-inj(fi2), m0 ∈ gstore3, m0 ∈ gstore3[m3, groupblock(gndx, lax, n1)], @(m0, m1, m2) ∈ gstore3, key ∈ fi2, m3 ∈ gstore3, m0 ∈ dom gstore3 ∪ jro0, pmaxino ≤ jmaxino, pmaxino ≤ max(key.ino + 1, jmaxino), fi1.lebs ⊆ dom gstore2, fi2.lebs ⊆ dom gstore3, jvalid1 ∧ nx ≠ [] → valid-journal-head(nx, gstore3, jro0) ⊦ #(dom gstore3 ∪ jro0) = 0, jmaxino = 0, m6 = ((range fi2 -- @(m3, m4, m5)) | m0).size, max(key.ino + 1, jmaxino) = 0, pmaxino = 0, dom gstore3 ∪ jro0 = ∅, dups(nx), @(m0, m1, m2) ∈ fi2
Used simplifier rules: ⊦ ¬ n ∈ gstore → ¬ @(n, n0, n1) ∈ gstore; (s)% ⊦ n = n0 → gstore[n0, gblock][n] = gblock; (s)% ⊦ n ∈ gstore[n0, gblock] ↔ n = n0 ∨ n ∈ gstore; (ws)% ⊦ ¬ n ∈ gstore → gstore[n] = (∅)[n]; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + n = m + n0 ↔ n = n0; (s)% ⊦ n ∈ gstore[n, gblock]; (s)% ⊦ @(m, m0, m1).size = m1; (s)% ⊦ adr ∈ range ri ↔ adr ∈ ri; (s)% ⊦ adr ∈ as -- adr0 ↔ adr ≠ adr0 ∧ adr ∈ as; (s)% ⊦ @(m, m0, m1) ∈ as | m ↔ @(m, m0, m1) ∈ as; (s)% ⊦ (as ++ adr).size = (adr ∈ as ⊃ as.size;as.size + adr.size); (s)% ⊦ (as ++ @(m0, m1, m2)) | m0 = (as | m0) ++ @(m0, m1, m2); (s)%⊦ groupblock(gndx, lax, m) = groupblock(gndx0, lax0, m0) ↔ gndx = gndx0 ∧ lax = lax0 ∧ m = m0; (ws)% ⊦ gstore[n, gblock][n] = gblock; (s)