diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-18 06:14:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-18 06:14:27 +0000 |
| commit | 979b28507f84eff5c739879f4b15e595eeab00f9 (patch) | |
| tree | 4fb4f1ee6472e1ef7290264c83dde41d21031b67 /src/algebra/tree.spad.pamphlet | |
| parent | a6ba684e87ea28ea0a5ad8746a15d3575eb5c8f9 (diff) | |
| download | open-axiom-979b28507f84eff5c739879f4b15e595eeab00f9.tar.gz | |
Define members, not parts
Diffstat (limited to 'src/algebra/tree.spad.pamphlet')
| -rw-r--r-- | src/algebra/tree.spad.pamphlet | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/tree.spad.pamphlet b/src/algebra/tree.spad.pamphlet index d3c10e91..3d5e19da 100644 --- a/src/algebra/tree.spad.pamphlet +++ b/src/algebra/tree.spad.pamphlet @@ -128,10 +128,9 @@ Tree(S: SetCategory): T==C where member?(n, t) == t case empty => false n = value t or "or"/[member?(n, c) for c in children t] - members t == parts t - parts t == --buggy? + members t == --buggy? t case empty => empty() - u := [parts c for c in children t] + u := [members c for c in children t] u = empty() => [value t] cons(value t,"append"/u) |