An irrelevant decimal exponent.
(irr-dexpo) → acl2::irr
This can be used as a dummy value of the type.
Function:
(defun irr-dexpo nil (declare (xargs :guard t)) (make-dexpo :prefix (irr-dexprefix) :sign? nil :digits nil))
Theorem:
(defthm dexpop-of-irr-dexpo (b* ((acl2::irr (irr-dexpo))) (dexpop acl2::irr)) :rule-classes :rewrite)