(lhprobe-constraint-overridemux-eval x envs outs) → *
Function:
(defun lhprobe-constraint-overridemux-eval (x envs outs) (declare (xargs :guard (and (lhprobe-constraint-p x) (svex-envlist-p envs) (svex-envlist-p outs)))) (let ((__function__ 'lhprobe-constraint-overridemux-eval)) (declare (ignorable __function__)) (b* (((lhprobe-constraint x))) (equal (lhprobe-overridemux-eval x.lhprobe envs outs) (lhprobe/4vec-overridemux-eval x.val envs outs)))))
Theorem:
(defthm lhprobe-constraint-overridemux-eval-of-lhprobe-constraint-fix-x (equal (lhprobe-constraint-overridemux-eval (lhprobe-constraint-fix x) envs outs) (lhprobe-constraint-overridemux-eval x envs outs)))
Theorem:
(defthm lhprobe-constraint-overridemux-eval-lhprobe-constraint-equiv-congruence-on-x (implies (lhprobe-constraint-equiv x x-equiv) (equal (lhprobe-constraint-overridemux-eval x envs outs) (lhprobe-constraint-overridemux-eval x-equiv envs outs))) :rule-classes :congruence)
Theorem:
(defthm lhprobe-constraint-overridemux-eval-of-svex-envlist-fix-envs (equal (lhprobe-constraint-overridemux-eval x (svex-envlist-fix envs) outs) (lhprobe-constraint-overridemux-eval x envs outs)))
Theorem:
(defthm lhprobe-constraint-overridemux-eval-svex-envlist-equiv-congruence-on-envs (implies (svex-envlist-equiv envs envs-equiv) (equal (lhprobe-constraint-overridemux-eval x envs outs) (lhprobe-constraint-overridemux-eval x envs-equiv outs))) :rule-classes :congruence)
Theorem:
(defthm lhprobe-constraint-overridemux-eval-of-svex-envlist-fix-outs (equal (lhprobe-constraint-overridemux-eval x envs (svex-envlist-fix outs)) (lhprobe-constraint-overridemux-eval x envs outs)))
Theorem:
(defthm lhprobe-constraint-overridemux-eval-svex-envlist-equiv-congruence-on-outs (implies (svex-envlist-equiv outs outs-equiv) (equal (lhprobe-constraint-overridemux-eval x envs outs) (lhprobe-constraint-overridemux-eval x envs outs-equiv))) :rule-classes :congruence)