diff options
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) |