• 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-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
    • Lifting

    Lift-table-add

    Event to update the table of lifted PFCSes.

    Signature
    (lift-table-add pred def hyps) → even
    Arguments
    pred — Guard (symbolp pred).
    def — Guard (definitionp def).
    hyps — Guard (true-listp hyps).
    Returns
    even — Type (pseudo-event-formp even).

    This adds an entry to the table for the definition passed as argument.

    Definitions and Theorems

    Function: lift-table-add

    (defun lift-table-add (pred def hyps)
      (declare (xargs :guard (and (symbolp pred)
                                  (definitionp def)
                                  (true-listp hyps))))
      (let ((__function__ 'lift-table-add))
        (declare (ignorable __function__))
        (b* ((name (definition->name def))
             (info (make-lift-info :pred pred
                                   :def def
                                   :hyps hyps)))
          (cons 'table
                (cons 'lift-table
                      (cons name
                            (cons (cons 'quote (cons info 'nil))
                                  'nil)))))))

    Theorem: pseudo-event-formp-of-lift-table-add

    (defthm pseudo-event-formp-of-lift-table-add
      (b* ((even (lift-table-add pred def hyps)))
        (pseudo-event-formp even))
      :rule-classes :rewrite)