(vl-reportcardkey-p x) → *
Function:
(defun vl-reportcardkey-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-reportcardkey-p)) (declare (ignorable __function__)) (or (equal x :design) (stringp x))))
Theorem:
(defthm vl-reportcardkey-p-when-stringp (implies (stringp x) (vl-reportcardkey-p x)))