		Search-engine friendly clone of the ACL2 documentation.

Acre-internals

Matchresult->matched-substr

When the regular expression matched the string, returns the substring that it matched

Signature
(matchresult->matched-substr x) → substr
Arguments: x — Guard (matchresult-p x).
Returns: substr — Type (acl2::maybe-stringp substr).

Definitions and Theorems

Function: matchresult->matched-substr

(defun matchresult->matched-substr (x)
  (declare (xargs :guard (matchresult-p x)))
  (declare (xargs :guard (matchresult-in-bounds x)))
  (let ((__function__ 'matchresult->matched-substr))
    (declare (ignorable __function__))
    (b* (((matchresult x)) ((unless x.loc) nil))
      (subseq x.str x.loc (+ x.loc x.len)))))

Theorem: maybe-stringp-of-matchresult->matched-substr

(defthm maybe-stringp-of-matchresult->matched-substr
  (b* ((substr (matchresult->matched-substr x)))
    (acl2::maybe-stringp substr))
  :rule-classes :type-prescription)

Theorem: matchresult->matched-substr-under-iff

(defthm matchresult->matched-substr-under-iff
  (b* ((?substr (matchresult->matched-substr x)))
    (iff substr (matchresult->matchedp x))))

Theorem: matchresult->matched-substr-of-matchresult-fix-x

(defthm matchresult->matched-substr-of-matchresult-fix-x
  (equal (matchresult->matched-substr (matchresult-fix x))
         (matchresult->matched-substr x)))

Theorem: matchresult->matched-substr-matchresult-equiv-congruence-on-x

(defthm
      matchresult->matched-substr-matchresult-equiv-congruence-on-x
  (implies (matchresult-equiv x x-equiv)
           (equal (matchresult->matched-substr x)
                  (matchresult->matched-substr x-equiv)))
  :rule-classes :congruence)