The ACL2 integer value of
Function:
(defun ienv->sint-max (ienv) (declare (xargs :guard (ienvp ienv))) (let ((__function__ 'ienv->sint-max)) (declare (ignorable __function__)) (sinteger-format->max (uinteger+sinteger-format->signed (integer-format->pair (char+short+int+long+llong-format->int (ienv->char+short+int+long+llong-format ienv)))))))
Theorem:
(defthm posp-of-ienv->sint-max (b* ((max (ienv->sint-max ienv))) (posp max)) :rule-classes :rewrite)
Theorem:
(defthm ienv->sint-max-of-ienv-fix-ienv (equal (ienv->sint-max (ienv-fix ienv)) (ienv->sint-max ienv)))
Theorem:
(defthm ienv->sint-max-ienv-equiv-congruence-on-ienv (implies (ienv-equiv ienv ienv-equiv) (equal (ienv->sint-max ienv) (ienv->sint-max ienv-equiv))) :rule-classes :congruence)