Access the bfr-mode field of a bfrstate object.
(bfrstate->mode x) → mode
Function:
(defun bfrstate->mode$inline (x) (declare (xargs :guard (bfrstate-p x))) (let ((__function__ 'bfrstate->mode)) (declare (ignorable __function__)) (logand 3 (bfrstate-fix x))))
Theorem:
(defthm bfr-mode-p-of-bfrstate->mode (b* ((mode (bfrstate->mode$inline x))) (bfr-mode-p mode)) :rule-classes :rewrite)
Theorem:
(defthm bfrstate->mode-of-bfrstate (equal (bfrstate->mode (bfrstate mode bound)) (bfr-mode-fix mode)))
Theorem:
(defthm bfrstate->mode$inline-of-bfrstate-fix-x (equal (bfrstate->mode$inline (bfrstate-fix x)) (bfrstate->mode$inline x)))
Theorem:
(defthm bfrstate->mode$inline-bfrstate-equiv-congruence-on-x (implies (bfrstate-equiv x x-equiv) (equal (bfrstate->mode$inline x) (bfrstate->mode$inline x-equiv))) :rule-classes :congruence)