Get the name field from a classname/params.
(classname/params->name x) → name
This is an ordinary field accessor created by defprod.
Function:
(defun classname/params->name$inline (x) (declare (xargs :guard (classname/params-p x))) (declare (xargs :guard t)) (let ((__function__ 'classname/params->name)) (declare (ignorable __function__)) (mbe :logic (b* ((x (and t x))) (str-fix (car x))) :exec (car x))))
Theorem:
(defthm stringp-of-classname/params->name (b* ((name (classname/params->name$inline x))) (stringp name)) :rule-classes :rewrite)
Theorem:
(defthm classname/params->name$inline-of-classname/params-fix-x (equal (classname/params->name$inline (classname/params-fix x)) (classname/params->name$inline x)))
Theorem:
(defthm classname/params->name$inline-classname/params-equiv-congruence-on-x (implies (classname/params-equiv x x-equiv) (equal (classname/params->name$inline x) (classname/params->name$inline x-equiv))) :rule-classes :congruence)