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)) (let ((__function__ 'irr-comp-stmt)) (declare (ignorable __function__)) (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)