Function:
(defun cconst-standardp (cconst) (declare (xargs :guard (cconstp cconst))) (declare (ignorable cconst)) (let ((__function__ 'cconst-standardp)) (declare (ignorable __function__)) (c-char-list-standardp (cconst->cchars cconst))))
Theorem:
(defthm booleanp-of-cconst-standardp (b* ((fty::result (cconst-standardp cconst))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm cconst-standardp-of-cconst-fix-cconst (equal (cconst-standardp (cconst-fix cconst)) (cconst-standardp cconst)))
Theorem:
(defthm cconst-standardp-cconst-equiv-congruence-on-cconst (implies (cconst-equiv cconst cconst-equiv) (equal (cconst-standardp cconst) (cconst-standardp cconst-equiv))) :rule-classes :congruence)