(vl-context-p x) → *
Function:
(defun vl-context-p (x) (declare (ignorable x)) (declare (xargs :guard t)) (let ((__function__ 'vl-context-p)) (declare (ignorable __function__)) t))
Theorem:
(defthm vl-context-p-type (booleanp (vl-context-p x)) :rule-classes :type-prescription)
Theorem:
(defthm vl-context-p-when-vl-ctxelement-p (implies (vl-ctxelement-p x) (vl-context-p x)))
Theorem:
(defthm vl-context-p-when-vl-context1-p (implies (vl-context1-p x) (vl-context-p x)))