(in-package "ACL2")

(defconst *import-symbols*
  (set-difference-eq
     (union-eq (union-eq *acl2-exports*
			 '(defequiv defcong zp len make-ord))
	       *common-lisp-symbols-from-main-lisp-package*)
     '(null + * - < = 
       commutativity-of-+ commutativity-of-*
       associativity-of-+ associativity-of-*
       distributivity)))

(defpkg "TER" *import-symbols*)

(defpkg "MON"
  (union-eq *import-symbols*
	    '(TER::termp)))

(defpkg "POL"
  (union-eq *import-symbols*
	    '(TER::naturalp TER::termp MON::monomial MON::coefficient
	      MON::term MON::monomialp)))

(set-verify-guards-eagerness 2)
