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/UFD.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/algebra/strap/UFD.lsp b/src/algebra/strap/UFD.lsp
index 57a137f0..4dee186a 100644
--- a/src/algebra/strap/UFD.lsp
+++ b/src/algebra/strap/UFD.lsp
@@ -4,7 +4,7 @@
 (DEFPARAMETER |UniqueFactorizationDomain;AL| 'NIL) 
 
 (DEFUN |UniqueFactorizationDomain;| ()
-  (LET ((#0=#:G1397
+  (LET ((#0=#:G1372
             (|Join| (|GcdDomain|)
                     (|mkCategory| '|domain|
                         '(((|prime?| ((|Boolean|) $)) T)
-- 
cgit v1.2.3