(s-char-list-standardp s-char-list) → fty::result
Function:
(defun s-char-list-standardp (s-char-list) (declare (xargs :guard (s-char-listp s-char-list))) (let ((__function__ 's-char-list-standardp)) (declare (ignorable __function__)) (cond ((endp s-char-list) t) (t (and (s-char-standardp (car s-char-list)) (s-char-list-standardp (cdr s-char-list)))))))
Theorem:
(defthm booleanp-of-s-char-list-standardp (b* ((fty::result (s-char-list-standardp s-char-list))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm s-char-list-standardp-of-s-char-list-fix-s-char-list (equal (s-char-list-standardp (s-char-list-fix s-char-list)) (s-char-list-standardp s-char-list)))
Theorem:
(defthm s-char-list-standardp-s-char-list-equiv-congruence-on-s-char-list (implies (s-char-list-equiv s-char-list s-char-list-equiv) (equal (s-char-list-standardp s-char-list) (s-char-list-standardp s-char-list-equiv))) :rule-classes :congruence)