3
(defconst *abstract-proofs-exports*
4
'(last-elt r-step direct operator elt1 elt2 r-step-p make-r-step
5
first-of-proof last-of-proof steps-up steps-down steps-valley
6
proof-before-valley proof-after-valley inverse-r-step inverse-proof
7
local-peak-p proof-measure proof-before-peak proof-after-peak
8
local-peak peak-element))
10
(defconst *cnf-package-exports*
11
(union-eq *acl2-exports*
13
*common-lisp-symbols-from-main-lisp-package*
14
*abstract-proofs-exports*)))
16
(defpkg "CNV" (cons 'multiset-diff *cnf-package-exports*))
19
(certify-book "generate-degenerate" ? t)