Check a list of input items.
(check-input-items initems intitle params env) → new-params
We check each one of them, one after the other. These are all under the same input title.
Function:
(defun check-input-items (initems intitle params env) (declare (xargs :guard (and (input-item-listp initems) (input-titlep intitle) (funparam-listp params) (senvp env)))) (let ((__function__ 'check-input-items)) (declare (ignorable __function__)) (b* (((when (endp initems)) (funparam-list-fix params)) ((okf params) (check-input-item (car initems) intitle params env))) (check-input-items (cdr initems) intitle params env))))
Theorem:
(defthm funparam-list-resultp-of-check-input-items (b* ((new-params (check-input-items initems intitle params env))) (funparam-list-resultp new-params)) :rule-classes :rewrite)
Theorem:
(defthm check-input-items-of-input-item-list-fix-initems (equal (check-input-items (input-item-list-fix initems) intitle params env) (check-input-items initems intitle params env)))
Theorem:
(defthm check-input-items-input-item-list-equiv-congruence-on-initems (implies (input-item-list-equiv initems initems-equiv) (equal (check-input-items initems intitle params env) (check-input-items initems-equiv intitle params env))) :rule-classes :congruence)
Theorem:
(defthm check-input-items-of-input-title-fix-intitle (equal (check-input-items initems (input-title-fix intitle) params env) (check-input-items initems intitle params env)))
Theorem:
(defthm check-input-items-input-title-equiv-congruence-on-intitle (implies (input-title-equiv intitle intitle-equiv) (equal (check-input-items initems intitle params env) (check-input-items initems intitle-equiv params env))) :rule-classes :congruence)
Theorem:
(defthm check-input-items-of-funparam-list-fix-params (equal (check-input-items initems intitle (funparam-list-fix params) env) (check-input-items initems intitle params env)))
Theorem:
(defthm check-input-items-funparam-list-equiv-congruence-on-params (implies (funparam-list-equiv params params-equiv) (equal (check-input-items initems intitle params env) (check-input-items initems intitle params-equiv env))) :rule-classes :congruence)
Theorem:
(defthm check-input-items-of-senv-fix-env (equal (check-input-items initems intitle params (senv-fix env)) (check-input-items initems intitle params env)))
Theorem:
(defthm check-input-items-senv-equiv-congruence-on-env (implies (senv-equiv env env-equiv) (equal (check-input-items initems intitle params env) (check-input-items initems intitle params env-equiv))) :rule-classes :congruence)