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