Constructor for values of type
(schar-from-integer get) → y
Function:
(defun schar-from-integer (get) (declare (xargs :guard (schar-integerp get))) (let ((__function__ 'schar-from-integer)) (declare (ignorable __function__)) (b* ((get (mbe :logic (schar-integer-fix get) :exec get))) (cons :schar (list get)))))
Theorem:
(defthm scharp-of-schar-from-integer (b* ((y (schar-from-integer get))) (scharp y)) :rule-classes :rewrite)
Theorem:
(defthm schar-from-integer-of-schar-integer-fix-get (equal (schar-from-integer (schar-integer-fix get)) (schar-from-integer get)))
Theorem:
(defthm schar-from-integer-schar-integer-equiv-congruence-on-get (implies (schar-integer-equiv get get-equiv) (equal (schar-from-integer get) (schar-from-integer get-equiv))) :rule-classes :congruence)