Recognize a printed object (string or character).
(vl-printed-p x) → *
Function:
(defun vl-printed-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-printed-p)) (declare (ignorable __function__)) (or (characterp x) (stringp x))))
Theorem:
(defthm vl-printed-p-cr (equal (vl-printed-p x) (or (characterp x) (stringp x))) :rule-classes :compound-recognizer)
Theorem:
(defthm vl-printed-p-by-backchaining (implies (or (characterp x) (stringp x)) (vl-printed-p x)))