		Search-engine friendly clone of the ACL2 documentation.

Primitive-widening-conversions

Char-to-long

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

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

Definitions and Theorems

Function: char-to-long

(defun char-to-long (operand)
  (declare (xargs :guard (char-valuep operand)))
  (b* ((x (char-value->nat operand)))
    (long-value x)))

Theorem: long-valuep-of-char-to-long

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

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

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

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

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