• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
      • Bv
      • Imp-language
      • C
        • Syntax-for-tools
        • Atc
          • Atc-implementation
            • Atc-abstract-syntax
            • Atc-pretty-printer
            • Atc-event-and-code-generation
            • Fty-pseudo-term-utilities
              • Fty-check-mv-let-call
              • Fty-check-lambda-call
              • Fty-check-if-call
              • Fty-remove-equal-formals-actuals
              • Fty-check-and-call
              • Fty-check-or-call
              • Fty-check-fn-call
              • Fty-check-not-call
              • Fty-check-list-call
              • Fty-fsublis-var-lst
              • Fty-if-to-if*
              • Fty-fsublis-var
            • Atc-term-recognizers
            • Atc-input-processing
            • Atc-shallow-embedding
            • Atc-process-inputs-and-gen-everything
            • Atc-table
            • Atc-fn
            • Atc-pretty-printing-options
            • Atc-types
            • Atc-macro-definition
          • Atc-tutorial
        • Language
        • Representation
        • Transformation-tools
        • Pack
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Number-theory
      • Cryptography
      • Lists-light
      • Builtins
      • Axe
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Fty-pseudo-term-utilities

Fty-check-lambda-call

FTY version of check-lambda-call.

Signature

(fty-check-lambda-call term) → (mv yes/no formals body args)

Arguments

term — Guard (pseudo-termp term).

Returns

yes/no — Type (booleanp yes/no).

formals — Type (symbol-listp formals).

body — Type (pseudo-termp body).

args — Type (pseudo-term-listp args).

Definitions and Theorems

Function: fty-check-lambda-call

(defun fty-check-lambda-call (term)
  (declare (xargs :guard (pseudo-termp term)))
  (let ((__function__ 'fty-check-lambda-call))
    (declare (ignorable __function__))
    (check-lambda-call (pseudo-term-fix term))))

Theorem: booleanp-of-fty-check-lambda-call.yes/no

(defthm booleanp-of-fty-check-lambda-call.yes/no
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: symbol-listp-of-fty-check-lambda-call.formals

(defthm symbol-listp-of-fty-check-lambda-call.formals
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (symbol-listp formals))
  :rule-classes :rewrite)

Theorem: pseudo-termp-of-fty-check-lambda-call.body

(defthm pseudo-termp-of-fty-check-lambda-call.body
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (pseudo-termp body))
  :rule-classes :rewrite)

Theorem: pseudo-term-listp-of-fty-check-lambda-call.args

(defthm pseudo-term-listp-of-fty-check-lambda-call.args
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (pseudo-term-listp args))
  :rule-classes :rewrite)

Theorem: len-of-fty-check-lambda-calls.formals-is-args

(defthm len-of-fty-check-lambda-calls.formals-is-args
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (equal (len formals) (len args))))

Theorem: len-of-fty-check-lambda-calls.args-is-formals

(defthm len-of-fty-check-lambda-calls.args-is-formals
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (equal (len args) (len formals))))

Theorem: true-listp-of-fty-check-lambda-call.formals

(defthm true-listp-of-fty-check-lambda-call.formals
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (true-listp formals))
  :rule-classes :type-prescription)

Theorem: true-listp-of-fty-check-lambda-call.args

(defthm true-listp-of-fty-check-lambda-call.args
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (true-listp args))
  :rule-classes :type-prescription)

Theorem: pseudo-term-count-of-check-lambda-call.body

(defthm pseudo-term-count-of-check-lambda-call.body
  (implies (pseudo-termp term)
           (b* (((mv yes/no & body &)
                 (check-lambda-call term)))
             (implies yes/no
                      (< (pseudo-term-count body)
                         (pseudo-term-count term)))))
  :rule-classes :linear)

Theorem: pseudo-term-count-of-fty-check-lambda-call.body

(defthm pseudo-term-count-of-fty-check-lambda-call.body
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (implies yes/no
             (< (pseudo-term-count body)
                (pseudo-term-count term))))
  :rule-classes :linear)

Theorem: pseudo-term-list-count-of-check-lambda-call.args

(defthm pseudo-term-list-count-of-check-lambda-call.args
  (implies (pseudo-termp term)
           (b* (((mv yes/no & & args)
                 (check-lambda-call term)))
             (implies yes/no
                      (< (pseudo-term-list-count args)
                         (pseudo-term-count term)))))
  :rule-classes :linear)

Theorem: pseudo-term-list-count-of-fty-check-lambda-call.args

(defthm pseudo-term-list-count-of-fty-check-lambda-call.args
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (implies yes/no
             (< (pseudo-term-list-count args)
                (pseudo-term-count term))))
  :rule-classes :linear)

Theorem: pseudo-term-count-of-check-lambda-call

(defthm pseudo-term-count-of-check-lambda-call
  (implies (pseudo-termp term)
           (b* (((mv yes/no & body args)
                 (check-lambda-call term)))
             (implies yes/no
                      (< (+ (pseudo-term-count body)
                            (pseudo-term-list-count args))
                         (pseudo-term-count term)))))
  :rule-classes :linear)

Theorem: pseudo-term-count-of-fty-check-lambda-call

(defthm pseudo-term-count-of-fty-check-lambda-call
  (b* (((mv ?yes/no ?formals ?body acl2::?args)
        (fty-check-lambda-call term)))
    (implies yes/no
             (< (+ (pseudo-term-count body)
                   (pseudo-term-list-count args))
                (pseudo-term-count term))))
  :rule-classes :linear)