(svex-envlist-check-boolmasks boolmasks envs) → *
Function:
(defun svex-envlist-check-boolmasks (boolmasks envs) (declare (xargs :guard (and (svar-boolmasks-p boolmasks) (svex-envlist-p envs)))) (let ((__function__ 'svex-envlist-check-boolmasks)) (declare (ignorable __function__)) (if (atom envs) t (and (svex-env-check-boolmasks boolmasks (make-fast-alist (car envs))) (svex-envlist-check-boolmasks boolmasks (cdr envs))))))
Theorem:
(defthm svex-envlist-check-boolmasks-correct (implies (and (svex-envlist-check-boolmasks boolmasks envs) (member env envs) (svar-boolmasks-p boolmasks)) (svex-env-boolmasks-ok env boolmasks)))
Theorem:
(defthm svex-envlist-check-boolmasks-of-svar-boolmasks-fix-boolmasks (equal (svex-envlist-check-boolmasks (svar-boolmasks-fix boolmasks) envs) (svex-envlist-check-boolmasks boolmasks envs)))
Theorem:
(defthm svex-envlist-check-boolmasks-svar-boolmasks-equiv-congruence-on-boolmasks (implies (svar-boolmasks-equiv boolmasks boolmasks-equiv) (equal (svex-envlist-check-boolmasks boolmasks envs) (svex-envlist-check-boolmasks boolmasks-equiv envs))) :rule-classes :congruence)
Theorem:
(defthm svex-envlist-check-boolmasks-of-svex-envlist-fix-envs (equal (svex-envlist-check-boolmasks boolmasks (svex-envlist-fix envs)) (svex-envlist-check-boolmasks boolmasks envs)))
Theorem:
(defthm svex-envlist-check-boolmasks-svex-envlist-equiv-congruence-on-envs (implies (svex-envlist-equiv envs envs-equiv) (equal (svex-envlist-check-boolmasks boolmasks envs) (svex-envlist-check-boolmasks boolmasks envs-equiv))) :rule-classes :congruence)