| # ndx = # gndx, gndx + mkgnode(nd, n, ndx = [], true) ' = mkgnode(nd0, m, boolvar, boolvar0) ' + gndx0, gndx.head = mkgnode(nd2, m1, boolvar3, boolvar4), gndx[n1] = mkgnode(nd5, m4, boolvar9, boolvar10), gndx[n0] = mkgnode(nd4, m3, boolvar7, boolvar8), (mkgnode(nd0, m, true, boolvar0) ' + gndx0)[n1] = mkgnode(nd1, m0, boolvar1, boolvar2), (mkgnode(nd0, m, true, boolvar0) ' + gndx0)[n0] = mkgnode(nd3, m2, boolvar5, boolvar6), n1 < # mkgnode(nd0, m, true, boolvar0) ', n1 ≤ # gndx, n1 < # gndx → nd5 = (ndx + nd ')[n1], mkgnode(nd0, m, boolvar, boolvar0) ∈ gndx ∨ mkgnode(nd0, m, boolvar, boolvar0) = mkgnode(nd, n, ndx = [], true), gndx = [] ∨ boolvar3 ∧ (∀ n0. (n0 ≠ 0 ∧ n0 < # gndx → ¬ gndx[n0].start) ∧ (n0 < # gndx → ¬ gndx[n0].end)), mkgnode(nd, n, ndx = [], true) = mkgnode(nd0, m, boolvar, boolvar0) ∨ mkgnode(nd, n, ndx = [], true) ∈ gndx0 ⊦ nd1 = (ndx + nd ')[n1] |
# ndx = # gndx, gndx + mkgnode(nd, n, ndx = [], true) ' = mkgnode(nd1, m, boolvar, boolvar0) ' + gndx0, gndx.head = mkgnode(nd2, m1, boolvar3, boolvar4), (mkgnode(nd1, m, true, boolvar0) ' + gndx0)[n0] = mkgnode(nd3, m2, boolvar5, boolvar6), gndx[0] = mkgnode(nd5, m4, boolvar9, boolvar10), gndx[n0] = mkgnode(nd4, m3, boolvar7, boolvar8), gndx ≠ [] → nd5 = (ndx + nd ')[0], gndx = [] ∨ boolvar3 ∧ (∀ n0. (n0 ≠ 0 ∧ n0 < # gndx → ¬ gndx[n0].start) ∧ (n0 < # gndx → ¬ gndx[n0].end)), mkgnode(nd, n, ndx = [], true) = mkgnode(nd1, m, boolvar, boolvar0) ∨ mkgnode(nd, n, ndx = [], true) ∈ gndx0, mkgnode(nd1, m, boolvar, boolvar0) ∈ gndx ∨ mkgnode(nd1, m, boolvar, boolvar0) = mkgnode(nd, n, ndx = [], true) ⊦ nd1 = (ndx + nd ')[0]
Used simplifier rules: ⊦ gnd ∈ gnd0 ' ↔ gnd = gnd0; (s)% ⊦ gnd ∈ gndx + gndx0 ↔ gnd ∈ gndx ∨ gnd ∈ gndx0; (s)% ⊦ gnd ∈ gnd0 ' + gndx ↔ gnd = gnd0 ∨ gnd ∈ gndx; (s)%in-14: ⊦ gnd ' + gndx = gndx0 → gnd ∈ gndx0; (forward) from specification list[group-store]%in-15: ⊦ gndx + gnd ' = gndx0 → gnd ∈ gndx0; (forward) from specification list[group-store]% ⊦ # gndx = 0 ↔ gndx = []; (s)% ⊦ 0 < m ↔ m ≠ 0; (s)% ⊦ 0 ≤ m; (s)%⊦ mkgnode(nd, m, boolvar, boolvar0) = mkgnode(nd0, m0, boolvar1, boolvar2) ↔ nd = nd0 ∧ m = m0 ∧ (boolvar ↔ boolvar1) ∧ (boolvar0 ↔ boolvar2); (ws)% ⊦ gnd '[0] = gnd; (s)% ⊦ m < 1 ↔ m = 0; (s)% ⊦ # gnd ' = 0 +1; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ n < # gndx → (gndx + gndx0)[n] = gndx[n]; (s)