From 88431a10d86db0b69fb67339dcacf088d005482b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 27 Oct 2010 08:36:45 +0000
Subject: 	* algebra/boolean.spad.pamphlet (Logic): Now extend Type.

---
 src/algebra/strap/INTDOM.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/INTDOM.lsp')

diff --git a/src/algebra/strap/INTDOM.lsp b/src/algebra/strap/INTDOM.lsp
index aec56f1a..7d5baad4 100644
--- a/src/algebra/strap/INTDOM.lsp
+++ b/src/algebra/strap/INTDOM.lsp
@@ -4,7 +4,7 @@
 (DEFPARAMETER |IntegralDomain;AL| 'NIL) 
 
 (DEFUN |IntegralDomain;| ()
-  (LET ((#0=#:G1403
+  (LET ((#0=#:G1378
             (|Join| (|CommutativeRing|) (|Algebra| '$) (|EntireRing|)
                     (|mkCategory| '|domain|
                         '(((|exquo| ((|Union| $ "failed") $ $)) T)
-- 
cgit v1.2.3