Check an input section.
(check-input-section insec params env) → new-params
We check all the items, using the title of the section.
Function:
(defun check-input-section (insec params env) (declare (xargs :guard (and (input-sectionp insec) (funparam-listp params) (senvp env)))) (let ((__function__ 'check-input-section)) (declare (ignorable __function__)) (check-input-items (input-section->items insec) (input-section->title insec) params env)))
Theorem:
(defthm funparam-list-resultp-of-check-input-section (b* ((new-params (check-input-section insec params env))) (funparam-list-resultp new-params)) :rule-classes :rewrite)
Theorem:
(defthm check-input-section-of-input-section-fix-insec (equal (check-input-section (input-section-fix insec) params env) (check-input-section insec params env)))
Theorem:
(defthm check-input-section-input-section-equiv-congruence-on-insec (implies (input-section-equiv insec insec-equiv) (equal (check-input-section insec params env) (check-input-section insec-equiv params env))) :rule-classes :congruence)
Theorem:
(defthm check-input-section-of-funparam-list-fix-params (equal (check-input-section insec (funparam-list-fix params) env) (check-input-section insec params env)))
Theorem:
(defthm check-input-section-funparam-list-equiv-congruence-on-params (implies (funparam-list-equiv params params-equiv) (equal (check-input-section insec params env) (check-input-section insec params-equiv env))) :rule-classes :congruence)
Theorem:
(defthm check-input-section-of-senv-fix-env (equal (check-input-section insec params (senv-fix env)) (check-input-section insec params env)))
Theorem:
(defthm check-input-section-senv-equiv-congruence-on-env (implies (senv-equiv env env-equiv) (equal (check-input-section insec params env) (check-input-section insec params env-equiv))) :rule-classes :congruence)