• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
        • Z3-installation
        • Smt-hint
        • Tutorial
        • Status
        • Developer
          • Verified
            • Uninterpreted-fn-cp
            • Smt-hint-interface
              • Smtlink-hint
                • Smtlink-hint-p
                • Make-smtlink-hint
                • Func
                • Smtlink-hint-fix
                • Maybe-smtlink-hint
                • Hint-pair
                • Decl
                  • Decl-fix
                  • Decl-equiv
                  • Make-decl
                    • Decl->type
                    • Change-decl
                    • Decl->name
                    • Decl-p
                    • Decl-list
                  • Binding
                  • Smtlink-hint-equiv
                  • Let-binding
                  • Change-smtlink-hint
                  • Smtlink-hint->expanded-clause-w/-hint
                  • Smtlink-hint->type-decl-list
                  • Smtlink-hint->fast-functions
                  • Smtlink-hint->expanded-g/type
                  • Smtlink-hint->smt-params
                  • Smtlink-hint->let-binding
                  • Smtlink-hint->hypotheses
                  • Smtlink-hint->fty-info
                  • Smtlink-hint->wrld-fn-len
                  • Smtlink-hint->symbols
                  • Smtlink-hint->smt-fname
                  • Smtlink-hint->smt-dir
                  • Smtlink-hint->smt-cnf
                  • Smtlink-hint->rm-file
                  • Smtlink-hint->main-hint
                  • Smtlink-hint->int-to-rat
                  • Smtlink-hint->functions
                  • Smtlink-hint->fty-types
                  • Smtlink-hint->custom-p
                  • Smtlink-hint->fty
                  • Smtlink-hint->abs
                • Smt-hint
                • Make-alist-fn-lst
                • True-list-fix
              • Function-expansion
              • Smt-config
              • Fty-support
              • Smt-computed-hints
              • Add-hypo-cp
              • Smt-hint-please
              • Type-extract-cp
              • Smt-extract
              • Smtlink-process-user-hint
              • Smt-basics
              • Smt-type-hyp
              • Smt-magic-fix
            • Trusted
        • Abnf
        • Vwsim
        • Isar
        • Wp-gen
        • Dimacs-reader
        • Pfcs
        • Legacy-defrstobj
        • Proof-checker-array
        • Soft
        • C
        • Farray
        • Rp-rewriter
        • Instant-runoff-voting
        • Imp-language
        • Sidekick
        • Leftist-trees
        • Java
        • Taspi
        • Bitcoin
        • Riscv
        • Des
        • Ethereum
        • X86isa
        • Sha-2
        • Yul
        • Zcash
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Poseidon
        • Where-do-i-place-my-book
        • Axe
        • Bigmems
        • Builtins
        • Execloader
        • Aleo
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Decl

    Make-decl

    Basic constructor macro for decl structures.

    Syntax
    (make-decl [:name <name>] 
               [:type <type>]) 
    

    This is the usual way to construct decl structures. It simply conses together a structure with the specified fields.

    This macro generates a new decl structure from scratch. See also change-decl, which can "change" an existing structure, instead.

    Definition

    This is an ordinary make- macro introduced by defprod.

    Macro: make-decl

    (defmacro make-decl (&rest args)
      (std::make-aggregate 'decl
                           args '((:name) (:type make-hint-pair))
                           'make-decl
                           nil))

    Function: decl

    (defun decl (name type)
      (declare (xargs :guard (and (symbolp name)
                                  (hint-pair-p type))))
      (declare (xargs :guard (symbolp (hint-pair->thm type))))
      (let ((acl2::__function__ 'decl))
        (declare (ignorable acl2::__function__))
        (b* ((name (mbe :logic (symbol-fix name)
                        :exec name))
             (type (mbe :logic (hint-pair-fix type)
                        :exec type)))
          (let ((type (mbe :logic (decl->type-reqfix type)
                           :exec type)))
            (list (cons 'name name)
                  (cons 'type type))))))