Check a list of input sections.
(check-input-section-list insecs params env) → new-params
Function:
(defun check-input-section-list (insecs params env) (declare (xargs :guard (and (input-section-listp insecs) (funparam-listp params) (senvp env)))) (let ((__function__ 'check-input-section-list)) (declare (ignorable __function__)) (b* (((when (endp insecs)) (funparam-list-fix params)) ((okf params) (check-input-section (car insecs) params env))) (check-input-section-list (cdr insecs) params env))))
Theorem:
(defthm funparam-list-resultp-of-check-input-section-list (b* ((new-params (check-input-section-list insecs params env))) (funparam-list-resultp new-params)) :rule-classes :rewrite)
Theorem:
(defthm check-input-section-list-of-input-section-list-fix-insecs (equal (check-input-section-list (input-section-list-fix insecs) params env) (check-input-section-list insecs params env)))
Theorem:
(defthm check-input-section-list-input-section-list-equiv-congruence-on-insecs (implies (input-section-list-equiv insecs insecs-equiv) (equal (check-input-section-list insecs params env) (check-input-section-list insecs-equiv params env))) :rule-classes :congruence)
Theorem:
(defthm check-input-section-list-of-funparam-list-fix-params (equal (check-input-section-list insecs (funparam-list-fix params) env) (check-input-section-list insecs params env)))
Theorem:
(defthm check-input-section-list-funparam-list-equiv-congruence-on-params (implies (funparam-list-equiv params params-equiv) (equal (check-input-section-list insecs params env) (check-input-section-list insecs params-equiv env))) :rule-classes :congruence)
Theorem:
(defthm check-input-section-list-of-senv-fix-env (equal (check-input-section-list insecs params (senv-fix env)) (check-input-section-list insecs params env)))
Theorem:
(defthm check-input-section-list-senv-equiv-congruence-on-env (implies (senv-equiv env env-equiv) (equal (check-input-section-list insecs params env) (check-input-section-list insecs params env-equiv))) :rule-classes :congruence)