Validate the model until we have done
(validate-insts n x86) → (mv * * x86)
Function:
(defun validate-insts (n x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard t)) (let ((__function__ 'validate-insts)) (declare (ignorable __function__)) (b* (((when (equal n 0)) (mv t n x86)) ((mv success? x86) (validate-inst x86)) ((when (not success?)) (mv nil n x86))) (validate-insts (1- n) x86))))