(vl-pps-range x) → str
Function:
(defun vl-pps-range (x) (declare (xargs :guard (vl-range-p x))) (let ((__function__ 'vl-pps-range)) (declare (ignorable __function__)) (with-local-ps (vl-pp-range x))))
Theorem:
(defthm stringp-of-vl-pps-range (b* ((str (vl-pps-range x))) (stringp str)) :rule-classes :type-prescription)
Theorem:
(defthm vl-pps-range-of-vl-range-fix-x (equal (vl-pps-range (vl-range-fix x)) (vl-pps-range x)))
Theorem:
(defthm vl-pps-range-vl-range-equiv-congruence-on-x (implies (vl-range-equiv x x-equiv) (equal (vl-pps-range x) (vl-pps-range x-equiv))) :rule-classes :congruence)