		Search-engine friendly clone of the ACL2 documentation.

Undef-read

Undef-read-logic

Signature
(undef-read-logic x86) → (mv unknown x86)
Returns: unknown — Type (natp unknown).; x86 — Type (x86p x86), given (x86p x86).

Definitions and Theorems

Function: undef-read-logic

(defun undef-read-logic (x86)
  (declare (xargs :stobjs (x86)))
  (declare (xargs :guard t))
  (let ((__function__ 'undef-read-logic))
    (declare (ignorable __function__))
    (b* ((undef-seed (nfix (undef x86)))
         (new-unknown (create-undef undef-seed))
         (x86 (!undef (1+ undef-seed) x86)))
      (mv new-unknown x86))))

Theorem: natp-of-undef-read-logic.unknown

(defthm natp-of-undef-read-logic.unknown
  (b* (((mv ?unknown ?x86)
        (undef-read-logic x86)))
    (natp unknown))
  :rule-classes :type-prescription)

Theorem: x86p-of-undef-read-logic.x86

(defthm x86p-of-undef-read-logic.x86
  (implies (x86p x86)
           (b* (((mv ?unknown ?x86)
                 (undef-read-logic x86)))
             (x86p x86)))
  :rule-classes :rewrite)