An irrelevant compound statement.
(irr-comp-stmt) → acl2::irr
This can be used as a dummy value of the type.
Function:
(defun irr-comp-stmt nil (declare (xargs :guard t)) (make-comp-stmt :labels nil :items nil))
Theorem:
(defthm comp-stmtp-of-irr-comp-stmt (b* ((acl2::irr (irr-comp-stmt))) (comp-stmtp acl2::irr)) :rule-classes :rewrite)