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