		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-standardp

Stringlit-list-standardp

Signature
(stringlit-list-standardp stringlit-list) → fty::result
Arguments: stringlit-list — Guard (stringlit-listp stringlit-list).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: stringlit-list-standardp

(defun stringlit-list-standardp (stringlit-list)
 (declare (xargs :guard (stringlit-listp stringlit-list)))
 (let ((__function__ 'stringlit-list-standardp))
  (declare (ignorable __function__))
  (cond ((endp stringlit-list) t)
        (t (and (stringlit-standardp (car stringlit-list))
                (stringlit-list-standardp (cdr stringlit-list)))))))

Theorem: booleanp-of-stringlit-list-standardp

(defthm booleanp-of-stringlit-list-standardp
  (b* ((fty::result (stringlit-list-standardp stringlit-list)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: stringlit-list-standardp-of-stringlit-list-fix-stringlit-list

(defthm
      stringlit-list-standardp-of-stringlit-list-fix-stringlit-list
 (equal
      (stringlit-list-standardp (stringlit-list-fix stringlit-list))
      (stringlit-list-standardp stringlit-list)))

Theorem: stringlit-list-standardp-stringlit-list-equiv-congruence-on-stringlit-list

(defthm
 stringlit-list-standardp-stringlit-list-equiv-congruence-on-stringlit-list
 (implies (stringlit-list-equiv stringlit-list stringlit-list-equiv)
          (equal (stringlit-list-standardp stringlit-list)
                 (stringlit-list-standardp stringlit-list-equiv)))
 :rule-classes :congruence)