Induction scheme for exec-expr-list applied to a list of pure expressions.
(induct-exec-expr-list-of-pure exprs limit) → *
This concerns both the list structure and the limit.
Function:
(defun induct-exec-expr-list-of-pure (exprs limit) (declare (xargs :guard (and (expr-listp exprs) (natp limit)))) (cond ((endp exprs) nil) (t (induct-exec-expr-list-of-pure (cdr exprs) (1- limit)))))