Recognizer for cconst structures.
(cconstp x) → *
Function:
(defun cconstp (x) (declare (xargs :guard t)) (and (consp x) (b* ((prefix? (car x)) (cchars (cdr x))) (and (cprefix-optionp prefix?) (c-char-listp cchars)))))
Theorem:
(defthm consp-when-cconstp (implies (cconstp x) (consp x)) :rule-classes :compound-recognizer)