The
This is currently always 32, but it could be larger if we add support for more features.
Function:
(defun feat->ilen (feat) (declare (xargs :guard (featp feat))) (declare (ignore feat)) (declare (xargs :type-prescription (and (posp (feat->ilen feat)) (> (feat->ilen feat) 1)))) (let ((__function__ 'feat->ilen)) (declare (ignorable __function__)) 32))
Theorem:
(defthm posp-of-feat->ilen (b* ((ilen (feat->ilen feat))) (posp ilen)) :rule-classes :rewrite)
Theorem:
(defthm feat->ilen-of-feat-fix-feat (equal (feat->ilen (feat-fix feat)) (feat->ilen feat)))
Theorem:
(defthm feat->ilen-feat-equiv-congruence-on-feat (implies (feat-equiv feat feat-equiv) (equal (feat->ilen feat) (feat->ilen feat-equiv))) :rule-classes :congruence)