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