(undef-flg-logic x86) → (mv unknown x86)
Function:
(defun undef-flg-logic (x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard t)) (let ((__function__ 'undef-flg-logic)) (declare (ignorable __function__)) (undef-read x86)))
Theorem:
(defthm natp-of-undef-flg-logic.unknown (b* (((mv ?unknown ?x86) (undef-flg-logic x86))) (natp unknown)) :rule-classes :type-prescription)
Theorem:
(defthm x86p-of-undef-flg-logic.x86 (implies (x86p x86) (b* (((mv ?unknown ?x86) (undef-flg-logic x86))) (x86p x86))) :rule-classes :rewrite)