		Search-engine friendly clone of the ACL2 documentation.

Acre-internals

Matchresult->captured-substr!

Returns the substring matched by the capture group with the given name or index, or the empty string if the capture group was not matched

Signature
(matchresult->captured-substr! index x) → substr
Arguments: x — Guard (matchresult-p x).
Returns: substr — Type (stringp substr).

Definitions and Theorems

Function: matchresult->captured-substr!

(defun matchresult->captured-substr! (index x)
  (declare (xargs :guard (matchresult-p x)))
  (declare (xargs :guard (matchresult-in-bounds x)))
  (let ((__function__ 'matchresult->captured-substr!))
    (declare (ignorable __function__))
    (b* (((matchresult x)))
      (or (maybe-backref-extract-substr
               (cdr (assoc-equal index x.backrefs))
               x.str)
          ""))))

Theorem: stringp-of-matchresult->captured-substr!

(defthm stringp-of-matchresult->captured-substr!
  (b* ((substr (matchresult->captured-substr! index x)))
    (stringp substr))
  :rule-classes :type-prescription)

Theorem: matchresult->captured-substr!-of-matchresult-fix-x

(defthm matchresult->captured-substr!-of-matchresult-fix-x
  (equal (matchresult->captured-substr! index (matchresult-fix x))
         (matchresult->captured-substr! index x)))

Theorem: matchresult->captured-substr!-matchresult-equiv-congruence-on-x

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