From 0c8ae00b89a09dcf8320117d3655e9e50c4796e3 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 30 May 2009 01:25:46 +0000 Subject: * algebra/complet.spad.pamphlet (OnePointCompletion): Define before?. --- src/ChangeLog | 4 ++++ src/algebra/complet.spad.pamphlet | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 648f9414..924e3847 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-05-29 Gabriel Dos Reis + + * algebra/complet.spad.pamphlet (OnePointCompletion): Define before?. + 2009-05-29 Gabriel Dos Reis * algebra/algext.spad.pamphlet: Qualify `characteristic'. diff --git a/src/algebra/complet.spad.pamphlet b/src/algebra/complet.spad.pamphlet index d71d3f74..ed071820 100644 --- a/src/algebra/complet.spad.pamphlet +++ b/src/algebra/complet.spad.pamphlet @@ -274,6 +274,10 @@ OnePointCompletion(R:SetCategory): Exports == Implementation where (r:= retractIfCan(x)@Union(R,"failed")) case "failed" =>"failed" rational(r::R) + before?(x,y) == + x case "infinity" => false + y case "infinity" => true + before?(x::R, y::R) @ \section{package ONECOMP2 OnePointCompletionFunctions2} <>= -- cgit v1.2.3