(svex-varmasks/env->aig-env-stats vars masks boolmasks) → *
Function:
(defun svex-varmasks/env->aig-env-stats (vars masks boolmasks) (declare (xargs :guard (and (svarlist-p vars) (svex-mask-alist-p masks) (svar-boolmasks-p boolmasks)))) (let ((__function__ 'svex-varmasks/env->aig-env-stats)) (declare (ignorable __function__)) (b* ((- (cw "svex-varmasks/env->aig-env-stats:~%") (cw "svex vars: ~x0~%" (len vars))) ((mv err nextvar) (svex-varmasks/env->aig-env-stats-rec vars masks boolmasks 0)) (- (cw "bits to generate: ~x0~%" nextvar) (and err (cw "error: ~@0~%" err)))) nil)))
Theorem:
(defthm svex-varmasks/env->aig-env-stats-of-svarlist-fix-vars (equal (svex-varmasks/env->aig-env-stats (svarlist-fix vars) masks boolmasks) (svex-varmasks/env->aig-env-stats vars masks boolmasks)))
Theorem:
(defthm svex-varmasks/env->aig-env-stats-svarlist-equiv-congruence-on-vars (implies (svarlist-equiv vars vars-equiv) (equal (svex-varmasks/env->aig-env-stats vars masks boolmasks) (svex-varmasks/env->aig-env-stats vars-equiv masks boolmasks))) :rule-classes :congruence)
Theorem:
(defthm svex-varmasks/env->aig-env-stats-of-svex-mask-alist-fix-masks (equal (svex-varmasks/env->aig-env-stats vars (svex-mask-alist-fix masks) boolmasks) (svex-varmasks/env->aig-env-stats vars masks boolmasks)))
Theorem:
(defthm svex-varmasks/env->aig-env-stats-svex-mask-alist-equiv-congruence-on-masks (implies (svex-mask-alist-equiv masks masks-equiv) (equal (svex-varmasks/env->aig-env-stats vars masks boolmasks) (svex-varmasks/env->aig-env-stats vars masks-equiv boolmasks))) :rule-classes :congruence)
Theorem:
(defthm svex-varmasks/env->aig-env-stats-of-svar-boolmasks-fix-boolmasks (equal (svex-varmasks/env->aig-env-stats vars masks (svar-boolmasks-fix boolmasks)) (svex-varmasks/env->aig-env-stats vars masks boolmasks)))
Theorem:
(defthm svex-varmasks/env->aig-env-stats-svar-boolmasks-equiv-congruence-on-boolmasks (implies (svar-boolmasks-equiv boolmasks boolmasks-equiv) (equal (svex-varmasks/env->aig-env-stats vars masks boolmasks) (svex-varmasks/env->aig-env-stats vars masks boolmasks-equiv))) :rule-classes :congruence)