aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/tree.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/tree.spad.pamphlet')
-rw-r--r--src/algebra/tree.spad.pamphlet2
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