Fixer of Java
(floatx-value-fix x) → fixed-x
Function:
(defun floatx-value-fix (x) (declare (xargs :guard (floatx-valuep x))) (let ((__function__ 'floatx-value-fix)) (declare (ignorable __function__)) (mbe :logic (if (floatx-valuep x) x (list :floatx (floatx-value-abs-pos-zero))) :exec x)))
Theorem:
(defthm floatx-valuep-of-floatx-value-fix (implies (floatx-param) (b* ((fixed-x (floatx-value-fix x))) (floatx-valuep fixed-x))) :rule-classes :rewrite)
Theorem:
(defthm floatx-value-fix-when-floatx-valuep (implies (floatx-valuep x) (equal (floatx-value-fix x) x)))