• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
      • Theories
      • Rule-classes
      • Proof-builder
      • Recursion-and-induction
      • Hons-and-memoization
      • Events
      • Parallelism
      • History
      • Programming
      • Operational-semantics
      • Real
      • Start-here
      • Debugging
      • Miscellaneous
        • Term
          • Lambda
          • Pseudo-termp
            • Pseudo-term-fty
              • Pseudo-term-lambda
              • Pseudo-term-call
                • Pseudo-term-call->fn
                • Pseudo-term-call->args
                • Pseudo-term-fncall
                • Pseudo-lambda
                • Pseudo-term-var
                • Pseudo-term-quote
                • Pseudo-term-kind
                • Pseudo-term-null
                • Pseudo-fnsym
                • Pseudo-term-case
                • Pseudo-term-count
                • Def-ev-pseudo-term-fty-support
                • Def-ev-pseudo-term-congruence
                • Pseudo-term-fix
                • Pseudo-var
                • Pseudo-term-list-fix
                • Pseudo-fn
              • Std/typed-lists/pseudo-term-listp
            • Term-order
            • Pseudo-term-listp
            • Guard-holders
            • Termp
            • Termify
            • L<
            • Kwote
            • Kwote-lst
          • Ld
          • Hints
          • Type-set
          • Ordinals
          • Clause
          • ACL2-customization
          • With-prover-step-limit
          • Set-prover-step-limit
          • With-prover-time-limit
          • Local-incompatibility
          • Set-case-split-limitations
          • Subversive-recursions
          • Specious-simplification
          • Defsum
          • Gcl
          • Oracle-timelimit
          • Thm
          • Defopener
          • Case-split-limitations
          • Set-gc-strategy
          • Default-defun-mode
          • Top-level
          • Reader
          • Divp-by-casting
          • Ttags-seen
          • Adviser
          • Ttree
          • Abort-soft
          • Defsums
          • Gc$
          • With-timeout
          • Coi-debug::fail
          • Expander
          • Gc-strategy
          • Coi-debug::assert
          • Sin-cos
          • Majority-vote
          • Def::doc
          • Syntax
          • Subversive-inductions
        • Output-controls
        • Macros
        • Interfacing-tools
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Pseudo-term-call
    • Pseudo-term-fncall
    • Pseudo-term-lambda

    Pseudo-term-call->args

    Accessor for the arguments of a lambda or function call pseudo-term.

    Signature
    (pseudo-term-call->args x) → args
    Arguments
    x — Guard (pseudo-termp x).
    Returns
    args — Type (pseudo-term-listp args).

    Definitions and Theorems

    Function: pseudo-term-call->args

    (defun pseudo-term-call->args (x)
      (declare (xargs :guard (pseudo-termp x)))
      (declare (xargs :guard (member-eq (pseudo-term-kind x)
                                        '(:fncall :lambda))))
      (let ((__function__ 'pseudo-term-call->args))
        (declare (ignorable __function__))
        (mbe :logic (and (or (eq (pseudo-term-kind x) :lambda)
                             (eq (pseudo-term-kind x) :fncall))
                         (cdr (pseudo-term-fix x)))
             :exec (cdr x))))

    Theorem: pseudo-term-listp-of-pseudo-term-call->args

    (defthm pseudo-term-listp-of-pseudo-term-call->args
      (b* ((args (pseudo-term-call->args x)))
        (pseudo-term-listp args))
      :rule-classes :rewrite)

    Theorem: acl2-count-of-pseudo-term-call->args

    (defthm acl2-count-of-pseudo-term-call->args
      (implies (or (equal (pseudo-term-kind x) :lambda)
                   (equal (pseudo-term-kind x) :fncall))
               (< (acl2-count (pseudo-term-call->args x))
                  (acl2-count (pseudo-term-fix x))))
      :rule-classes
      ((:linear
            :trigger-terms ((acl2-count (pseudo-term-call->args x))))))

    Theorem: pseudo-term-call->args-of-pseudo-term-fix-x

    (defthm pseudo-term-call->args-of-pseudo-term-fix-x
      (equal (pseudo-term-call->args (pseudo-term-fix x))
             (pseudo-term-call->args x)))

    Theorem: pseudo-term-call->args-pseudo-term-equiv-congruence-on-x

    (defthm pseudo-term-call->args-pseudo-term-equiv-congruence-on-x
      (implies (pseudo-term-equiv x x-equiv)
               (equal (pseudo-term-call->args x)
                      (pseudo-term-call->args x-equiv)))
      :rule-classes :congruence)