diff options
Diffstat (limited to 'src/algebra/strap/ABELGRP.lsp')
-rw-r--r-- | src/algebra/strap/ABELGRP.lsp | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/algebra/strap/ABELGRP.lsp b/src/algebra/strap/ABELGRP.lsp deleted file mode 100644 index a089f569..00000000 --- a/src/algebra/strap/ABELGRP.lsp +++ /dev/null @@ -1,22 +0,0 @@ - -(/VERSIONCHECK 2) - -(DEFPARAMETER |AbelianGroup;AL| 'NIL) - -(DEFUN |AbelianGroup;| () - (LET ((#0=#:G1374 - (|sublisV| (PAIR '(#1=#:G1373) '((|Integer|))) - (|Join| (|CancellationAbelianMonoid|) - (|LeftLinearSet| '#1#) - (|mkCategory| '|domain| - '(((- ($ $)) T) ((- ($ $ $)) T)) NIL 'NIL - NIL))))) - (SETF (|shellEntry| #0# 0) '(|AbelianGroup|)) - #0#)) - -(DEFUN |AbelianGroup| () - (COND - (|AbelianGroup;AL|) - (T (SETQ |AbelianGroup;AL| (|AbelianGroup;|))))) - -(MAKEPROP '|AbelianGroup| 'NILADIC T) |