		Search-engine friendly clone of the ACL2 documentation.

Primitive-widening-conversions

Long-to-float

Widening conversion from long to float [JLS14:5.1.2].

Signature
(long-to-float operand) → result
Arguments: operand — Guard (long-valuep operand).
Returns: result — Type (float-valuep result).

Definitions and Theorems

Function: long-to-float

(defun long-to-float (operand)
  (declare (xargs :guard (long-valuep operand)))
  (b* ((x (long-value->int operand)))
    (float-value (long-to-float-abs x))))

Theorem: float-valuep-of-long-to-float

(defthm float-valuep-of-long-to-float
  (b* ((result (long-to-float operand)))
    (float-valuep result))
  :rule-classes :rewrite)

Theorem: long-to-float-of-long-value-fix-operand

(defthm long-to-float-of-long-value-fix-operand
  (equal (long-to-float (long-value-fix operand))
         (long-to-float operand)))

Theorem: long-to-float-long-value-equiv-congruence-on-operand

(defthm long-to-float-long-value-equiv-congruence-on-operand
  (implies (long-value-equiv operand operand-equiv)
           (equal (long-to-float operand)
                  (long-to-float operand-equiv)))
  :rule-classes :congruence)