check-mbt-call

(in-package "ACL2")

(define check-mbt-call
  ((term pseudo-termp))
  :returns (mv (yes/no booleanp) (arg pseudo-termp :hyp :guard))
  :parents (std/system/term-queries)
  :short "Check if a term is a call of @(tsee mbt)."
  :long (topstring (p "If it is, return its argument.
     If it is not, all results are @('nil').")
    (p "In translated terms, @('(mbt x)') is
     @('(return-last 'mbe1-raw 't x)')."))
  (case-match term
    (('return-last ''mbe1-raw ''t x) (mv t x))
    (& (mv nil nil)))
  ///
  (defret acl2-count-of-check-mbt-call.arg
    (implies yes/no (< (acl2-count arg) (acl2-count term)))
    :rule-classes :linear))