Destructor of Java
(floatx-value->floatx value) → x
Function:
(defun floatx-value->floatx (value) (declare (xargs :guard (floatx-valuep value))) (let ((__function__ 'floatx-value->floatx)) (declare (ignorable __function__)) (second (floatx-value-fix value))))
Theorem:
(defthm floatx-value-abs-p-of-floatx-value->floatx (implies (floatx-param) (b* ((x (floatx-value->floatx value))) (floatx-value-abs-p x))) :rule-classes :rewrite)
Theorem:
(defthm floatx-value->floatx-of-floatx-value (implies (floatx-param) (equal (floatx-value->floatx (floatx-value x)) (floatx-value-abs-fix x))))