(vl-echarpack->code x) → code
Function:
(defun vl-echarpack->code$inline (x) (declare (xargs :guard (vl-echarpack-p x))) (let ((__function__ 'vl-echarpack->code)) (declare (ignorable __function__)) (if (consp x) (the (unsigned-byte 8) (cdr x)) (the (unsigned-byte 8) (logand (the (unsigned-byte 60) x) 255)))))
Theorem:
(defthm return-type-of-vl-echarpack->code (implies (and (force (vl-echarpack-p x))) (b* ((code (vl-echarpack->code$inline x))) (unsigned-byte-p 8 code))) :rule-classes ((:rewrite) (:type-prescription :corollary (implies (vl-echarpack-p x) (natp (vl-echarpack->code x)))) (:linear :corollary (implies (vl-echarpack-p x) (< (vl-echarpack->code x) 256)))))
Theorem:
(defthm vl-echarpack->code-of-vl-echarpack (implies (and (force (unsigned-byte-p 8 code)) (force (natp line)) (force (natp col))) (equal (vl-echarpack->code (vl-echarpack code line col)) code)))