Maximum ACL2 integer value of type
(ulong-max) → ulong-max
Function:
(defun ulong-max nil (declare (xargs :guard t)) (let ((__function__ 'ulong-max)) (declare (ignorable __function__)) (1- (expt 2 (long-bits)))))
Theorem:
(defthm integerp-of-ulong-max (b* ((ulong-max (ulong-max))) (integerp ulong-max)) :rule-classes :type-prescription)
Theorem:
(defthm ulong-max-bound (>= (ulong-max) 4294967295) :rule-classes :linear)