• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
    • 100-theorems
    • Arithmetic
    • Bit-vectors
      • Sparseint
      • Bitops
      • Bv
      • Ihs
        • Logops-definitions
          • Logops-byte-functions
          • Defword
          • Defbytetype
          • Logext
          • Logrev
          • Loghead
            • Ihs/loghead-lemmas
            • Loghead*
            • Loghead-basics
          • Logops-bit-functions
          • Logtail
          • Logapp
          • Logsat
          • Binary--
          • Logcdr
          • Logcar
          • Logbit
          • Logextu
          • Logcons
          • Lshu
          • Logrpl
          • Ashu
          • Logmaskp
          • Lognotu
          • Logmask
          • Imod
          • Ifloor
          • Bfix
          • Bitmaskp
          • Logite
          • Expt2
          • Zbp
          • *logops-functions*
          • Word/bit-macros
          • Logops-definitions-theory
          • Logops-functions
          • Lbfix
          • Logextu-guard
          • Lshu-guard
          • Logtail-guard
          • Logrpl-guard
          • Logrev-guard
          • Lognotu-guard
          • Logmask-guard
          • Loghead-guard
          • Logext-guard
          • Logbit-guard
          • Logapp-guard
          • Ashu-guard
        • Math-lemmas
        • Ihs-theories
        • Ihs-init
        • Logops
      • Rtl
    • Algebra
  • Testing-utilities

• Loghead
• Logops-recursive-definitions-theory

Loghead*

Recursive definition of loghead.

Definitions and Theorems

Theorem: loghead*

(defthm loghead*
  (implies (loghead-guard size i)
           (equal (loghead size i)
                  (if (equal size 0)
                      0
                    (logcons (logcar i)
                             (loghead (1- size) (logcdr i))))))
  :rule-classes
  ((:definition :clique (loghead$inline)
                :controller-alist ((loghead$inline t t)))))