The ACL2 integer value of
Although this currently does not depend on the implementation environment, we make that an input to this function for uniformity and extensibility.
Function:
(defun ienv->schar-min (ienv) (declare (xargs :guard (ienvp ienv))) (declare (ignore ienv)) (declare (xargs :type-prescription (integerp (ienv->schar-min ienv)))) -128)
Theorem:
(defthm integerp-of-ienv->schar-min (b* ((min (ienv->schar-min ienv))) (integerp min)) :rule-classes :rewrite)
Theorem:
(defthm ienv->schar-min-correct (equal (ienv->schar-min ienv) (c::ienv->schar-min (ldm-ienv ienv))))
Theorem:
(defthm ienv->schar-min-of-ienv-fix-ienv (equal (ienv->schar-min (ienv-fix ienv)) (ienv->schar-min ienv)))
Theorem:
(defthm ienv->schar-min-ienv-equiv-congruence-on-ienv (implies (ienv-equiv ienv ienv-equiv) (equal (ienv->schar-min ienv) (ienv->schar-min ienv-equiv))) :rule-classes :congruence)