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