Artifact 506dcd4d09fd1faea5c521643393c3824ff6665ec0ec85394c217504e85fc5a0:

• Executable file r37/packages/ncpoly/ncpoly.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 638) [annotate] [blame] [check-ins using] [more...]

module ncpoly; % Computing in non-commutative polynomial rings and
	       % ideals.

% Author: H. Melenk, ZIB-Berlin, J. Apel, University of Leipzig.

% Copyright: Konrad-Zuse-Zentrum Berlin, 1994

create!-package ('(ncpoly ncenv ncdip ncgroeb ncfactor ncout),
		 '(contrib ncpoly));

fluid '(ncpi!-brackets!* ncpi!-comm!-rules!* ncpi!-name!-rules!*
	ncpi!-names!*);

share ncpi!-brackets!*,ncpi!-comm!-rules!*,ncpi!-name!-rules!*;

load_package dipoly;
load_package groebner;

(if not numberp v or v<2.8
   then rederr "Groebner package version too old")
     where v=get('groebner,'version);

endmodule;

end;