Minimum mathematical integer value of type
This depends on the implementation environment.
Function:
(defun sshort-min (ienv) (declare (xargs :guard (ienvp ienv))) (let ((__function__ 'sshort-min)) (declare (ignorable __function__)) (- (expt 2 (1- (* 8 (ienv->short-bytes ienv)))))))
Theorem:
(defthm integerp-of-sshort-min (b* ((val (sshort-min ienv))) (integerp val)) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm sshort-min-of-ienv-fix-ienv (equal (sshort-min (ienv-fix ienv)) (sshort-min ienv)))
Theorem:
(defthm sshort-min-ienv-equiv-congruence-on-ienv (implies (ienv-equiv ienv ienv-equiv) (equal (sshort-min ienv) (sshort-min ienv-equiv))) :rule-classes :congruence)