(bed-op-nor) → op
Function:
(defun bed-op-nor$inline nil (declare (xargs :guard t)) (let ((__function__ 'bed-op-nor)) (declare (ignorable __function__)) 1))
Theorem:
(defthm bed-op-p-of-bed-op-nor (b* ((op (bed-op-nor$inline))) (bed-op-p op)) :rule-classes :rewrite)
Theorem:
(defthm bed-op-eval-of-nor (equal (bed-op-eval (bed-op-nor) x y) (b-nor x y)))