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