fapply-term

(in-package "ACL2")

(define fapply-term
  ((fn pseudo-termfnp) (terms pseudo-term-listp))
  :guard (or (symbolp fn) (= (len terms) (len (lambda-formals fn))))
  :returns (term "A @(tsee pseudo-termp).")
  :parents (std/system/term-transformations)
  :short "Variant of @(tsee apply-term) that performs no simplification."
  :long (topstring-p "The meaning of the starting @('f') in the name of this utility
    is analogous to @(tsee fcons-term) compared to @(tsee cons-term).")
  (cond ((symbolp fn) (fcons-term fn terms))
    (t (fsubcor-var (lambda-formals fn) terms (lambda-body fn))))
  :guard-hints (("Goal" :in-theory (enable pseudo-termfnp pseudo-lambdap))))

(defsection fapply-term*
  :parents (std/system/term-transformations)
  :short "Variant of @(tsee apply-term*) that performs no simplification."
  :long (topstring (p "The meaning of the starting @('f') in the name of this utility
     is analogous to @(tsee fcons-term) compared to @(tsee cons-term).")
    (@def "fapply-term*"))
  (defmacro fapply-term*
    (fn &rest terms)
    `(fapply-term ,FN (list ,@TERMS))))