
(/VERSIONCHECK 2) 

(DEFPARAMETER |CommutativeRing;AL| 'NIL) 

(DEFUN |CommutativeRing| ()
  (LET (#:G1834)
    (COND (|CommutativeRing;AL|)
          (T (SETQ |CommutativeRing;AL| (|CommutativeRing;|)))))) 

(DEFUN |CommutativeRing;| ()
  (PROG (#1=#:G1832)
    (RETURN
     (PROG1
         (LETT #1# (|Join| (|Ring|) (|BiModule| '$ '$) (|CommutativeStar|))
               |CommutativeRing|)
       (SETELT #1# 0 '(|CommutativeRing|)))))) 

(MAKEPROP '|CommutativeRing| 'NILADIC T) 
