		Search-engine friendly clone of the ACL2 documentation.

Validator

Valid-s-char-list

Validate a list of characters of a string literal.

Signature
(valid-s-char-list cchars prefix? ienv) → (mv erp codes)
Arguments: cchars — Guard (s-char-listp cchars).; prefix? — Guard (eprefix-optionp prefix?).; ienv — Guard (ienvp ienv).
Returns: erp — Type (maybe-msgp erp).; codes — Type (nat-listp codes).

Definitions and Theorems

Function: valid-s-char-list

(defun valid-s-char-list (cchars prefix? ienv)
  (declare (xargs :guard (and (s-char-listp cchars)
                              (eprefix-optionp prefix?)
                              (ienvp ienv))))
  (b* (((reterr) nil)
       ((when (endp cchars)) (retok nil))
       ((erp code)
        (valid-s-char (car cchars)
                      prefix? ienv))
       ((erp codes)
        (valid-s-char-list (cdr cchars)
                           prefix? ienv)))
    (retok (cons code codes))))

Theorem: maybe-msgp-of-valid-s-char-list.erp

(defthm maybe-msgp-of-valid-s-char-list.erp
  (b* (((mv acl2::?erp ?codes)
        (valid-s-char-list cchars prefix? ienv)))
    (maybe-msgp erp))
  :rule-classes :rewrite)

Theorem: nat-listp-of-valid-s-char-list.codes

(defthm nat-listp-of-valid-s-char-list.codes
  (b* (((mv acl2::?erp ?codes)
        (valid-s-char-list cchars prefix? ienv)))
    (nat-listp codes))
  :rule-classes :rewrite)

Theorem: valid-s-char-list-of-s-char-list-fix-cchars

(defthm valid-s-char-list-of-s-char-list-fix-cchars
  (equal (valid-s-char-list (s-char-list-fix cchars)
                            prefix? ienv)
         (valid-s-char-list cchars prefix? ienv)))

Theorem: valid-s-char-list-s-char-list-equiv-congruence-on-cchars

(defthm valid-s-char-list-s-char-list-equiv-congruence-on-cchars
  (implies (s-char-list-equiv cchars cchars-equiv)
           (equal (valid-s-char-list cchars prefix? ienv)
                  (valid-s-char-list cchars-equiv prefix? ienv)))
  :rule-classes :congruence)

Theorem: valid-s-char-list-of-eprefix-option-fix-prefix?

(defthm valid-s-char-list-of-eprefix-option-fix-prefix?
  (equal (valid-s-char-list cchars (eprefix-option-fix prefix?)
                            ienv)
         (valid-s-char-list cchars prefix? ienv)))

Theorem: valid-s-char-list-eprefix-option-equiv-congruence-on-prefix?

(defthm valid-s-char-list-eprefix-option-equiv-congruence-on-prefix?
  (implies (eprefix-option-equiv prefix? prefix?-equiv)
           (equal (valid-s-char-list cchars prefix? ienv)
                  (valid-s-char-list cchars prefix?-equiv ienv)))
  :rule-classes :congruence)

Theorem: valid-s-char-list-of-ienv-fix-ienv

(defthm valid-s-char-list-of-ienv-fix-ienv
  (equal (valid-s-char-list cchars prefix? (ienv-fix ienv))
         (valid-s-char-list cchars prefix? ienv)))

Theorem: valid-s-char-list-ienv-equiv-congruence-on-ienv

(defthm valid-s-char-list-ienv-equiv-congruence-on-ienv
  (implies (ienv-equiv ienv ienv-equiv)
           (equal (valid-s-char-list cchars prefix? ienv)
                  (valid-s-char-list cchars prefix? ienv-equiv)))
  :rule-classes :congruence)