aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap')
-rw-r--r--src/algebra/strap/DFLOAT.lsp14
-rw-r--r--src/algebra/strap/INT.lsp10
-rw-r--r--src/algebra/strap/SINT.lsp9
3 files changed, 16 insertions, 17 deletions
diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp
index 57f96e29..06bc62b3 100644
--- a/src/algebra/strap/DFLOAT.lsp
+++ b/src/algebra/strap/DFLOAT.lsp
@@ -1031,14 +1031,15 @@
|AbelianGroup&| NIL NIL NIL |AbelianMonoid&|
|Monoid&| NIL |OrderedSet&|
|AbelianSemiGroup&| |SemiGroup&|
- |TranscendentalFunctionCategory&| NIL
+ |TranscendentalFunctionCategory&|
+ |RetractableTo&| |RetractableTo&| NIL
|SetCategory&| NIL
|ElementaryFunctionCategory&| NIL
|HyperbolicFunctionCategory&|
|ArcTrigonometricFunctionCategory&|
|TrigonometricFunctionCategory&| NIL NIL
- |RadicalCategory&| |RetractableTo&| NIL
- |RetractableTo&| NIL NIL NIL |BasicType&| NIL)
+ |RadicalCategory&| NIL NIL NIL NIL
+ |BasicType&| NIL)
(CONS '#((|FloatingPointSystem|)
(|RealNumberSystem|) (|Field|)
(|EuclideanDomain|)
@@ -1064,8 +1065,9 @@
(|PatternMatchable| 101) (|OrderedSet|)
(|AbelianSemiGroup|) (|SemiGroup|)
(|TranscendentalFunctionCategory|)
- (|RealConstant|) (|SetCategory|)
- (|ConvertibleTo| 41)
+ (|RetractableTo| 104)
+ (|RetractableTo| 24) (|RealConstant|)
+ (|SetCategory|) (|ConvertibleTo| 41)
(|ElementaryFunctionCategory|)
(|ArcHyperbolicFunctionCategory|)
(|HyperbolicFunctionCategory|)
@@ -1073,9 +1075,7 @@
(|TrigonometricFunctionCategory|)
(|OpenMath|) (|ConvertibleTo| 129)
(|RadicalCategory|)
- (|RetractableTo| 104)
(|CoercibleFrom| 104)
- (|RetractableTo| 24)
(|CoercibleFrom| 24)
(|ConvertibleTo| 101)
(|ConvertibleTo| 13) (|BasicType|)
diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp
index 0e57fde8..72601092 100644
--- a/src/algebra/strap/INT.lsp
+++ b/src/algebra/strap/INT.lsp
@@ -637,8 +637,8 @@
|AbelianGroup&| NIL NIL NIL |AbelianMonoid&|
|Monoid&| NIL NIL |OrderedSet&|
|AbelianSemiGroup&| |SemiGroup&| NIL
- |SetCategory&| NIL NIL NIL NIL NIL NIL NIL
- |RetractableTo&| NIL NIL |BasicType&| NIL)
+ |RetractableTo&| |SetCategory&| NIL NIL NIL
+ NIL NIL NIL NIL NIL NIL |BasicType&| NIL)
(CONS '#((|IntegerNumberSystem|)
(|EuclideanDomain|)
(|UniqueFactorizationDomain|)
@@ -662,13 +662,13 @@
(|StepThrough|) (|PatternMatchable| 11)
(|OrderedSet|) (|AbelianSemiGroup|)
(|SemiGroup|) (|RealConstant|)
- (|SetCategory|) (|OpenMath|)
- (|ConvertibleTo| 9) (|ConvertibleTo| 45)
+ (|RetractableTo| 11) (|SetCategory|)
+ (|OpenMath|) (|ConvertibleTo| 9)
+ (|ConvertibleTo| 45)
(|ConvertibleTo| 48)
(|CombinatorialFunctionCategory|)
(|ConvertibleTo| 123)
(|ConvertibleTo| 50)
- (|RetractableTo| 11)
(|CoercibleFrom| 11)
(|ConvertibleTo| 11) (|BasicType|)
(|CoercibleTo| 36))
diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp
index 2da14713..d98748ea 100644
--- a/src/algebra/strap/SINT.lsp
+++ b/src/algebra/strap/SINT.lsp
@@ -581,8 +581,8 @@
|AbelianGroup&| NIL NIL NIL |AbelianMonoid&|
|Monoid&| NIL NIL |OrderedSet&|
|AbelianSemiGroup&| |SemiGroup&| |Logic&| NIL
- |SetCategory&| NIL NIL NIL NIL NIL NIL
- |RetractableTo&| NIL NIL |BasicType&| NIL)
+ |RetractableTo&| |SetCategory&| NIL NIL NIL
+ NIL NIL NIL NIL NIL |BasicType&| NIL)
(CONS '#((|IntegerNumberSystem|)
(|EuclideanDomain|)
(|UniqueFactorizationDomain|)
@@ -606,13 +606,12 @@
(|StepThrough|) (|PatternMatchable| 12)
(|OrderedSet|) (|AbelianSemiGroup|)
(|SemiGroup|) (|Logic|) (|RealConstant|)
- (|SetCategory|) (|OpenMath|)
- (|ConvertibleTo| 90)
+ (|RetractableTo| 12) (|SetCategory|)
+ (|OpenMath|) (|ConvertibleTo| 90)
(|ConvertibleTo| 91)
(|CombinatorialFunctionCategory|)
(|ConvertibleTo| 92)
(|ConvertibleTo| 94)
- (|RetractableTo| 12)
(|CoercibleFrom| 12)
(|ConvertibleTo| 12) (|BasicType|)
(|CoercibleTo| 29))