diff options
author | dos-reis <gdr@axiomatics.org> | 2009-05-30 01:25:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-05-30 01:25:46 +0000 |
commit | 0c8ae00b89a09dcf8320117d3655e9e50c4796e3 (patch) | |
tree | eea24cd23f5a676eec5c37b72b44048ee9fafdac /src/algebra/complet.spad.pamphlet | |
parent | c39287d87b632b3582b0e179b08d44dc6c27510f (diff) | |
download | open-axiom-0c8ae00b89a09dcf8320117d3655e9e50c4796e3.tar.gz |
* algebra/complet.spad.pamphlet (OnePointCompletion): Define before?.
Diffstat (limited to 'src/algebra/complet.spad.pamphlet')
-rw-r--r-- | src/algebra/complet.spad.pamphlet | 4 |
1 files changed, 4 insertions, 0 deletions
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} <<package ONECOMP2 OnePointCompletionFunctions2>>= |