Constructor of Java
(doublex-value x) → value
Function:
(defun doublex-value (x) (declare (xargs :guard (doublex-value-abs-p x))) (let ((__function__ 'doublex-value)) (declare (ignorable __function__)) (list :doublex (doublex-value-abs-fix x))))
Theorem:
(defthm doublex-valuep-of-doublex-value (implies (doublex-param) (b* ((value (doublex-value x))) (doublex-valuep value))) :rule-classes :rewrite)