Function:
(defun iconst-annop (iconst) (declare (xargs :guard (iconstp iconst))) (declare (ignorable iconst)) (let ((__function__ 'iconst-annop)) (declare (ignorable __function__)) (iconst-infop (iconst->info iconst))))
Theorem:
(defthm booleanp-of-iconst-annop (b* ((fty::result (iconst-annop iconst))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm iconst-annop-of-iconst-fix-iconst (equal (iconst-annop (iconst-fix iconst)) (iconst-annop iconst)))
Theorem:
(defthm iconst-annop-iconst-equiv-congruence-on-iconst (implies (iconst-equiv iconst iconst-equiv) (equal (iconst-annop iconst) (iconst-annop iconst-equiv))) :rule-classes :congruence)