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