aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/complet.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/complet.spad.pamphlet')
-rw-r--r--src/algebra/complet.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/complet.spad.pamphlet b/src/algebra/complet.spad.pamphlet
index 2dc03ae7..73cff0fb 100644
--- a/src/algebra/complet.spad.pamphlet
+++ b/src/algebra/complet.spad.pamphlet
@@ -167,8 +167,7 @@ OrderedCompletionFunctions2(R, S): Exports == Implementation where
map(f, r, p, m) ==
zero?(n := whatInfinity r) => (f retract r)::ORS
--- one? n => p
- (n = 1) => p
+ one? n => p
m
@