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