(vl-echarpack->line x) → line
Function:
(defun vl-echarpack->line$inline (x) (declare (xargs :guard (vl-echarpack-p x))) (let ((__function__ 'vl-echarpack->line)) (declare (ignorable __function__)) (if (consp x) (the (integer 0 *) (caar x)) (the (unsigned-byte 30) (ash (the (unsigned-byte 60) x) -30)))))
Theorem:
(defthm posp-of-vl-echarpack->line (implies (and (force (vl-echarpack-p x))) (b* ((line (vl-echarpack->line$inline x))) (posp line))) :rule-classes :type-prescription)
Theorem:
(defthm vl-echarpack->line-of-vl-echarpack (implies (and (force (unsigned-byte-p 8 code)) (force (natp line)) (force (natp col))) (equal (vl-echarpack->line (vl-echarpack code line col)) line)))