Get a short, human-friendly string describing a vl-ctxelement-p.
(vl-ctxelement-summary x &key (withloc 'nil)) → str
Function:
(defun vl-ctxelement-summary-fn (x withloc) (declare (xargs :guard (vl-ctxelement-p x))) (let ((__function__ 'vl-ctxelement-summary)) (declare (ignorable __function__)) (with-local-ps (vl-pp-ctxelement-summary x :withloc withloc))))
Theorem:
(defthm stringp-of-vl-ctxelement-summary (b* ((str (vl-ctxelement-summary-fn x withloc))) (stringp str)) :rule-classes :type-prescription)
Theorem:
(defthm vl-ctxelement-summary-fn-of-vl-ctxelement-fix-x (equal (vl-ctxelement-summary-fn (vl-ctxelement-fix x) withloc) (vl-ctxelement-summary-fn x withloc)))
Theorem:
(defthm vl-ctxelement-summary-fn-vl-ctxelement-equiv-congruence-on-x (implies (vl-ctxelement-equiv x x-equiv) (equal (vl-ctxelement-summary-fn x withloc) (vl-ctxelement-summary-fn x-equiv withloc))) :rule-classes :congruence)