Pretty-print an identifier.
(pprint-identifier iden) → part
Function:
(defun pprint-identifier (iden) (declare (xargs :guard (identifierp iden))) (let ((__function__ 'pprint-identifier)) (declare (ignorable __function__)) (identifier->name iden)))
Theorem:
(defthm msgp-of-pprint-identifier (b* ((part (pprint-identifier iden))) (msgp part)) :rule-classes :rewrite)
Theorem:
(defthm pprint-identifier-of-identifier-fix-iden (equal (pprint-identifier (identifier-fix iden)) (pprint-identifier iden)))
Theorem:
(defthm pprint-identifier-identifier-equiv-congruence-on-iden (implies (identifier-equiv iden iden-equiv) (equal (pprint-identifier iden) (pprint-identifier iden-equiv))) :rule-classes :congruence)