Generate the name of the ruleset.
Function:
(defun deffold-map-gen-ruleset-name (suffix) (declare (xargs :guard (symbolp suffix))) (let ((__function__ 'deffold-map-gen-ruleset-name)) (declare (ignorable __function__)) (acl2::packn-pos (list 'abstract-syntax- suffix '-rules) suffix)))
Theorem:
(defthm symbolp-of-deffold-map-gen-ruleset-name (b* ((name (deffold-map-gen-ruleset-name suffix))) (symbolp name)) :rule-classes :rewrite)