		Search-engine friendly clone of the ACL2 documentation.

Example-lexer

Letter-char-p

Recognize upper- and lower-case letters.

Definitions and Theorems

Function: letter-char-p

(defun letter-char-p (x)
  (declare (xargs :guard t))
  (and (characterp x)
       (let ((code (char-code x)))
         (or (and (<= (char-code #\a) code)
                  (<= code (char-code #\z)))
             (and (<= (char-code #\A) code)
                  (<= code (char-code #\Z)))))))

Theorem: booleanp-of-letter-char-p

(defthm booleanp-of-letter-char-p
  (booleanp (letter-char-p x))
  :rule-classes :type-prescription)

Theorem: characterp-when-letter-char-p

(defthm characterp-when-letter-char-p
  (implies (letter-char-p x)
           (characterp x))
  :rule-classes :compound-recognizer)

Subtopics

Letter-charlist-p: (letter-charlist-p x) recognizes lists where every element satisfies letter-char-p.
Letter-chars: A character set for letter-char-p.