Recognizer for strings and
This is like an option type; when
Function:
(defun maybe-stringp$inline (x) (declare (xargs :guard t)) (or (not x) (stringp x)))
Theorem:
(defthm maybe-stringp-compound-recognizer (equal (maybe-stringp x) (or (not x) (stringp x))) :rule-classes :compound-recognizer)