Function:
(defun ipasir-bump-activity-vars$c (ipasir$c vars num-bumps) (declare (xargs :stobjs (ipasir$c))) (declare (xargs :guard (and (nat-listp vars) (natp num-bumps)))) (declare (xargs :guard (not (eq (ipasir$a->status (ipasir-get ipasir$c)) :undef)))) (let ((__function__ 'ipasir-bump-activity-vars$c)) (declare (ignorable __function__)) (ipasir-set (ipasir-bump-activity-vars$a (ipasir-get ipasir$c) vars num-bumps) ipasir$c)))
Theorem:
(defthm ipasir-bump-activity-vars$c-of-nfix-num-bumps (equal (ipasir-bump-activity-vars$c ipasir$c vars (nfix num-bumps)) (ipasir-bump-activity-vars$c ipasir$c vars num-bumps)))
Theorem:
(defthm ipasir-bump-activity-vars$c-nat-equiv-congruence-on-num-bumps (implies (nat-equiv num-bumps num-bumps-equiv) (equal (ipasir-bump-activity-vars$c ipasir$c vars num-bumps) (ipasir-bump-activity-vars$c ipasir$c vars num-bumps-equiv))) :rule-classes :congruence)