| (boolvar0 ⊃ # gndx + 1;valid-group-nodes(gndx)) ≤ n, ∀ n. valid-group-nodes(gndx) ≤ n → valid-group-nodes(prefixn(n, gndx)) = valid-group-nodes(gndx) ⊦ valid-group-nodes(prefixn(n, gndx + mkgnode(nd, m, boolvar, boolvar0) ')) = (boolvar0 ⊃ # gndx + 1;valid-group-nodes(gndx)) |
¬ boolvar0, (boolvar0 ⊃ # gndx + 1;valid-group-nodes(gndx)) ≤ n, ∀ n. valid-group-nodes(gndx) ≤ n → valid-group-nodes(prefixn(n, gndx)) = valid-group-nodes(gndx) ⊦ valid-group-nodes(prefixn(n, gndx + mkgnode(nd, m, boolvar, boolvar0) ')) = valid-group-nodes(gndx)
Used simplifier rules: valid-group-nodes-rec: ⊦ valid-group-nodes(gndx + gnd ') = (gnd.end ⊃ # gndx + 1;valid-group-nodes(gndx));% ⊦ #(gndx + gndx0) = # gndx + # gndx0; (s)% ⊦ # gnd ' = 0 +1; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ m + 1 ≤ n ↔ m < n; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m ≤ n → (n < m ↔ false); (s)%# gndx ≤ m ⊦ prefixn(m, gndx) = gndx; (s)% ⊦ mkgnode(nd, m, boolvar, boolvar0).end ↔ boolvar0; (s)% ⊦ m + n = m + n0 ↔ n = n0; (s)