• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Pfcs
        • Proof-support
        • Semantics
        • Lifting
          • Lift-thm
          • Lift-var-name-list
          • Lift-thm-constr-satp-specialized-lemma
          • Lift-thm-definition-satp-specialized-lemma
          • Lift-thm-constr-to-def-satp-specialized-lemmas
          • Lift-info
            • Lift-info-fix
            • Lift-info-equiv
            • Make-lift-info
              • Change-lift-info
              • Lift-info->pred
              • Lift-info->hyps
              • Lift-info->def
              • Lift-infop
            • Lift-var-name
            • Lift-thm-def-hyps
            • Lift-definition
            • Lift-expression
            • Lift-thm-asgfree-pairs
            • Lift
            • Lift-thm-free-inst
            • Lift-fn
            • Lift-thm-type-prescriptions-for-called-preds
            • Lift-rel-name
            • Lift-constraint
            • Lift-thm-omap-keys-lemma-instances
            • Lift-rules
            • Lift-table-add
            • Lift-gen-fep-terms
            • Lift-expression-list
            • Lift-constraint-list
            • Lift-var-name-set-to-list
            • Lift-thm-asgfree-pairs-aux
            • Current-package+
            • Lift-thm-called-lift-thms
            • Lift-table
          • R1cs-subset
          • Indexed-names
          • Well-formedness
          • Abstract-syntax
          • Concrete-syntax
          • R1cs-bridge
          • Parser-interface
        • Wp-gen
        • Dimacs-reader
        • Legacy-defrstobj
        • Proof-checker-array
        • Soft
        • C
        • Farray
        • Rp-rewriter
        • Riscv
        • Instant-runoff-voting
        • Imp-language
        • Sidekick
        • Leftist-trees
        • Java
        • Taspi
        • Bitcoin
        • 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
        • Aleo
        • Bigmems
        • Builtins
        • Execloader
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Std
      • Community
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Lift-info

    Make-lift-info

    Basic constructor macro for lift-info structures.

    Syntax
    (make-lift-info [:pred <pred>] 
                    [:def <def>] 
                    [:hyps <hyps>]) 
    

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

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

    Definition

    This is an ordinary make- macro introduced by fty::defprod.

    Macro: make-lift-info

    (defmacro make-lift-info (&rest args)
      (std::make-aggregate 'lift-info
                           args '((:pred) (:def) (:hyps))
                           'make-lift-info
                           nil))

    Function: lift-info

    (defun lift-info (pred def hyps)
      (declare (xargs :guard (and (symbolp pred)
                                  (definitionp def)
                                  (true-listp hyps))))
      (declare (xargs :guard t))
      (let ((__function__ 'lift-info))
        (declare (ignorable __function__))
        (b* ((pred (mbe :logic (symbol-fix pred)
                        :exec pred))
             (def (mbe :logic (definition-fix def)
                       :exec def))
             (hyps (mbe :logic (list-fix hyps)
                        :exec hyps)))
          (list (cons 'pred pred)
                (cons 'def def)
                (cons 'hyps hyps)))))