| ⊦ # ndx.keys = # ndx |
Used simplifier rules: keys-base-01: ⊦ [].keys = [];%keys-rec-01: ⊦ (nd ' + ndx).keys = nd.key + ndx.keys;%node-list freely generated by [], +;;% ⊦ nd + ndx = nd ' + ndx; (s)% ⊦ key + kx = key ' + kx; (s)%a: ⊦ (ndx + ndx0) + ndx1 = ndx + ndx0 + ndx1; from specification list[node-list]% ⊦ #(key ' + kx) = (# kx)+1; (s)% ⊦ m +1 = m + 1; (s)%a: ⊦ (kx + kx0) + kx1 = kx + kx0 + kx1; from specification list[key-list-set]% ⊦ #(nd ' + ndx) = (# ndx)+1; (s)% ⊦ m + n = m + n0 ↔ n = n0; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ # [] = 0; (s)% ⊦ # [] = 0; (s)