• 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
          • Omaps
          • Directed-untranslate
          • Include-book-paths
          • Ubi
          • Numbered-names
          • Digits-any-base
          • Context-message-pair
          • With-auto-termination
          • Make-termination-theorem
          • Theorems-about-true-list-lists
          • Checkpoint-list
          • Sublis-expr+
          • Integers-from-to
          • Prove$
          • Defthm<w
            • Previous-subsumer-hints
              • Thm<w
              • Defthmd<w
            • System-utilities-non-built-in
            • Integer-range-fix
            • Minimize-ruler-extenders
            • Add-const-to-untranslate-preprocess
            • Unsigned-byte-fix
            • Signed-byte-fix
            • Defthmr
            • Paired-names
            • Unsigned-byte-list-fix
            • Signed-byte-list-fix
            • Show-books
            • Skip-in-book
            • Typed-tuplep
            • List-utilities
            • Checkpoint-list-pretty
            • Defunt
            • Keyword-value-list-to-alist
            • Magic-macroexpand
            • Top-command-number-fn
            • Bits-as-digits-in-base-2
            • Show-checkpoint-list
            • Ubyte11s-as-digits-in-base-2048
            • Named-formulas
            • Bytes-as-digits-in-base-256
            • String-utilities
            • Make-keyword-value-list-from-keys-and-value
            • Defmacroq
            • Integer-range-listp
            • Apply-fn-if-known
            • Trans-eval-error-triple
            • Checkpoint-info-list
            • Previous-subsumer-hints
              • Fms!-lst
              • Zp-listp
              • Trans-eval-state
              • Injections
              • Doublets-to-alist
              • Theorems-about-osets
              • Typed-list-utilities
              • Book-runes-alist
              • User-interface
              • Bits/ubyte11s-digit-grouping
              • Bits/bytes-digit-grouping
              • Message-utilities
              • Subsetp-eq-linear
              • Oset-utilities
              • Strict-merge-sort-<
              • Miscellaneous-enumerations
              • Maybe-unquote
              • Thm<w
              • Defthmd<w
              • Io-utilities
            • Set
            • Soft
            • C
            • Bv
            • Imp-language
            • Event-macros
            • Java
            • Bitcoin
            • Ethereum
            • Yul
            • Zcash
            • ACL2-programming-language
            • Prime-fields
            • Json
            • Syntheto
            • File-io-light
            • Cryptography
            • Number-theory
            • Lists-light
            • Axe
            • Builtins
            • Solidity
            • Helpers
            • Htclient
            • Typed-lists-light
            • Arithmetic-light
          • X86isa
          • Axe
          • Execloader
        • Math
        • Testing-utilities
      • Kestrel-utilities
      • Defthm
      • Defthm<w

      Previous-subsumer-hints

      Hints to prove a theorem directly from previously-proved theorems.

      General Form:
      (previous-subsumer-hints term wrld)

      where term is a translated term (see term) and wrld is a logical world, such as (w state). See defthm<w for an explanation of what this function returns: in short, it either returns nil or suitable hints for proving term. Here is a log that illustrates this function.

      ACL2 !>(previous-subsumer-hints '(equal (car (cons u v)) u) (w state))
      (:BY CAR-CONS
           :DO-NOT *ALL-BUT-SIMPLIFY*)
      ACL2 !>:trans (and (equal (car (cons u v)) u)
                         (equal (cdr (cons a b)) b))
      
      (IF (EQUAL (CAR (CONS U V)) U)
          (EQUAL (CDR (CONS A B)) B)
          'NIL)
      
      => *
      
      ACL2 !>(previous-subsumer-hints '(IF (EQUAL (CAR (CONS U V)) U)
                                           (EQUAL (CDR (CONS A B)) B)
                                           'NIL)
                                       (w state))
      (:USE ((:INSTANCE CAR-CONS (Y V) (X U))
             (:INSTANCE CDR-CONS (Y B) (X A)))
            :IN-THEORY (THEORY 'MINIMAL-THEORY)
            :DO-NOT *ALL-BUT-SIMPLIFY*)
      ACL2 !>