The IMAP grammar rules from RFC 3501.
The file
The IMAP grammar rules are well-formed.
We keep this constant unexpanded in output.
Function:
(defun untranslate-preprocess-*imap-grammar-rules* (acl2::term acl2::wrld) (if (equal acl2::term (list 'quote *imap-grammar-rules*)) '*imap-grammar-rules* (untranslate-preprocess-*grammar* acl2::term acl2::wrld)))
Theorem:
(defthm rulelist-wfp-of-*imap-grammar-rules* (rulelist-wfp *imap-grammar-rules*))