Show all the instructions in
(show-no-modr/m-insts inst-lst) → no-modr/m-insts
Function:
(defun show-no-modr/m-insts (inst-lst) (declare (xargs :guard (inst-list-p inst-lst))) (let ((__function__ 'show-no-modr/m-insts)) (declare (ignorable __function__)) (b* (((when (endp inst-lst)) nil) (inst (car inst-lst)) (rest (show-no-modr/m-insts (cdr inst-lst)))) (if (inst-needs-modr/m-p inst) rest (cons inst rest)))))
Theorem:
(defthm inst-list-p-of-show-no-modr/m-insts (implies (inst-list-p inst-lst) (b* ((no-modr/m-insts (show-no-modr/m-insts inst-lst))) (inst-list-p no-modr/m-insts))) :rule-classes :rewrite)