Check if an ACL2 string is a portable ASCII identifier.
Function:
(defun paident-stringp (str) (declare (xargs :guard (stringp str))) (let ((__function__ 'paident-stringp)) (declare (ignorable __function__)) (and (paident-char-listp (acl2::explode str)) (not (member-equal str *keywords*)))))
Theorem:
(defthm booleanp-of-paident-stringp (b* ((yes/no (paident-stringp str))) (booleanp yes/no)) :rule-classes :rewrite)