An irrelevant token.
(irr-token) → acl2::irr
This can be used as a dummy value of the type.
Function:
(defun irr-token nil (declare (xargs :guard t)) (let ((__function__ 'irr-token)) (declare (ignorable __function__)) (token-ident (ident :irrelevant))))
Theorem:
(defthm tokenp-of-irr-token (b* ((acl2::irr (irr-token))) (tokenp acl2::irr)) :rule-classes :rewrite)