Construct a prose value notation element from a character string.
(<> charstring) → element
The name of this function is inspired by
the ABNF notation
Function:
(defun <> (charstring) (declare (xargs :guard (common-lisp::stringp charstring))) (element-prose-val (prose-val charstring)))
Theorem:
(defthm elementp-of-<> (b* ((element (<> charstring))) (elementp element)) :rule-classes :rewrite)
Theorem:
(defthm <>-of-str-fix-charstring (equal (<> (acl2::str-fix charstring)) (<> charstring)))
Theorem:
(defthm <>-streqv-congruence-on-charstring (implies (acl2::streqv charstring charstring-equiv) (equal (<> charstring) (<> charstring-equiv))) :rule-classes :congruence)