• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
    • X86isa
    • Execloader
      • Elf-reader
      • Mach-o-reader
      • Merge-first-split-bytes
      • Split-bytes
      • Charlist->bytes
      • Take-till-zero
      • Merge-bytes
      • Bytes->charlist
      • Bytes->string
      • String->bytes
    • Axe
  • Testing-utilities
  • Math

• Execloader

Merge-bytes

Concatenates bytes (least-significant byte appears first) to form a single natural number

Signature

(merge-bytes bytes) → merged

Arguments

bytes — Guard (byte-listp bytes).

Returns

merged — Type (natp merged).

Definitions and Theorems

Function: merge-bytes

(defun merge-bytes (bytes)
       (declare (xargs :guard (byte-listp bytes)))
       (let ((__function__ 'merge-bytes))
            (declare (ignorable __function__))
            (bitops::merge-unsigneds 8 (reverse bytes))))

Theorem: natp-of-merge-bytes

(defthm natp-of-merge-bytes
        (b* ((merged (merge-bytes bytes)))
            (natp merged))
        :rule-classes :type-prescription)

Theorem: width-of-merge-bytes

(defthm width-of-merge-bytes
        (b* ((?merged (merge-bytes bytes)))
            (implies (and (<= (* 8 (len bytes)) m) (natp m))
                     (unsigned-byte-p m merged))))