(syscall-open pathname oflags mode x86) → (mv * x86)
Function:
(defun syscall-open$notinline (pathname oflags mode x86) (declare (xargs :stobjs (x86))) (declare (ignorable pathname oflags mode x86)) (declare (xargs :guard (and (stringp pathname) (natp oflags) (natp mode)))) (let ((__function__ 'syscall-open)) (declare (ignorable __function__)) (syscall-open-logic pathname oflags mode x86)))
Theorem:
(defthm integerp-mv-nth-0-syscall-open (implies (and (x86p x86) (stringp pathname)) (integerp (mv-nth 0 (syscall-open pathname oflags mode x86)))) :rule-classes :type-prescription)
Theorem:
(defthm x86p-mv-nth-1-syscall-open (implies (and (x86p x86) (stringp pathname)) (x86p (mv-nth 1 (syscall-open pathname oflags mode x86)))))