An irrelevant comp-db-arg.
(irr-comp-db-arg) → acl2::irr
This can be used as a dummy value of the type.
Function:
(defun irr-comp-db-arg nil (declare (xargs :guard t)) (make-comp-db-arg :name "" :separator "" :value nil))
Theorem:
(defthm comp-db-argp-of-irr-comp-db-arg (b* ((acl2::irr (irr-comp-db-arg))) (comp-db-argp acl2::irr)) :rule-classes :rewrite)