diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-12 00:23:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-12 00:23:12 +0000 |
| commit | 7fe9066e79d46cd3a7673301bb41fceda683f503 (patch) | |
| tree | ae514cc367c895f62d8d5b105f810a27d0dd1775 /src/algebra/tree.spad.pamphlet | |
| parent | b5dac99efed153300270e86203655b0233543bf8 (diff) | |
| download | open-axiom-7fe9066e79d46cd3a7673301bb41fceda683f503.tar.gz | |
* algebra/tree.spad.pamphlet (node?$Tree): Fix thinko.
Diffstat (limited to 'src/algebra/tree.spad.pamphlet')
| -rw-r--r-- | src/algebra/tree.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/tree.spad.pamphlet b/src/algebra/tree.spad.pamphlet index 7b659368..a4249665 100644 --- a/src/algebra/tree.spad.pamphlet +++ b/src/algebra/tree.spad.pamphlet @@ -111,7 +111,7 @@ Tree(S: SetCategory): T==C where distance1(t2, t1) node?(t1, t2) == t1 = t2 => true - t case empty => false + t2 case empty => false "or"/[node?(t1, t) for t in children t2] leaf? t == t case empty => false |