| gndx0[n0] = mkgnode(nd, m, boolvar, boolvar0), gndx0[n] = mkgnode(nd2, m2, boolvar5, boolvar6), gnd = mkgnode(nd1, m1, true, boolvar4), gndx0 = gnd + gndx2, n0 + 1 < # ndx, # gndx0 + # gndx1 < # ndx, # gndx0 < # ndx, n0 < # gndx0, n0 < # ndx, ∀ n. (n ≠ 0 ∧ n < # gndx0 + # gndx1 → ¬ (gndx0 + gndx1)[n].start) ∧ (n < # gndx0 + # gndx1 → ¬ (gndx0 + gndx1)[n].end), ∀ n. n < # gndx0 + # gndx1 → (gndx0 + gndx1)[n].nd = ndx[n] ⊦ gndx0 + gndx1 = [], gndx0 = [], nd = ndx[n0], ndx = [] |
(mkgnode(nd1, m1, true, boolvar4) ' + gndx2)[n] = mkgnode(nd2, m2, boolvar5, boolvar6), (mkgnode(nd1, m1, true, boolvar4) ' + gndx2)[n0] = mkgnode(nd, m, boolvar, boolvar0), n0 + 1 < # ndx, n0 < # ndx, # gndx2 + 1 < # ndx, (# gndx2 + 1) + # gndx1 < # ndx, n0 ≤ # gndx2, ∀ n1. ¬ # gndx2 + # gndx1 < n1 → ((mkgnode(nd1, m1, true, boolvar4) ' + gndx2) + gndx1)[n1].nd = ndx[n1], ∀ n1. (n1 ≠ 0 ∧ ¬ # gndx2 + # gndx1 < n1 → ¬ ((mkgnode(nd1, m1, true, boolvar4) ' + gndx2) + gndx1)[n1].start) ∧ (¬ # gndx2 + # gndx1 < n1 → ¬ ((mkgnode(nd1, m1, true, boolvar4) ' + gndx2) + gndx1)[n1].end) ⊦ nd = ndx[n0], ndx = []
Used simplifier rules: ⊦ 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)% ⊦ m +1 = m + 1; (s)% ⊦ #(gnd ' + gndx) = (# gndx)+1; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ gnd ' + gndx ≠ []; (s)% ⊦ gnd + gndx = gnd ' + gndx; (s)