Print a short, human-friendly string describing a vl-context-p.
(vl-pp-context-summary x &key (withloc 'nil) (ps 'ps)) → ps
Function:
(defun vl-pp-context-summary-fn (x withloc ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (vl-context1-p x))) (let ((__function__ 'vl-pp-context-summary)) (declare (ignorable __function__)) (b* (((vl-context1 x) x)) (vl-ps-seq (vl-print "In ") (vl-print-modname x.mod) (vl-println? ", ") (vl-pp-ctxelement-summary x.elem :withloc withloc)))))
Theorem:
(defthm vl-pp-context-summary-fn-of-vl-context1-fix-x (equal (vl-pp-context-summary-fn (vl-context1-fix x) withloc ps) (vl-pp-context-summary-fn x withloc ps)))
Theorem:
(defthm vl-pp-context-summary-fn-vl-context1-equiv-congruence-on-x (implies (vl-context1-equiv x x-equiv) (equal (vl-pp-context-summary-fn x withloc ps) (vl-pp-context-summary-fn x-equiv withloc ps))) :rule-classes :congruence)