(vl-vardecl-mockmember x) → member
Function:
(defun vl-vardecl-mockmember (x) (declare (xargs :guard (vl-vardecl-p x))) (let ((__function__ 'vl-vardecl-mockmember)) (declare (ignorable __function__)) (b* (((vl-vardecl x))) (make-vl-structmember :name x.name :type x.type :atts x.atts))))
Theorem:
(defthm vl-structmember-p-of-vl-vardecl-mockmember (b* ((member (vl-vardecl-mockmember x))) (vl-structmember-p member)) :rule-classes :rewrite)
Theorem:
(defthm vl-vardecl-mockmember-of-vl-vardecl-fix-x (equal (vl-vardecl-mockmember (vl-vardecl-fix x)) (vl-vardecl-mockmember x)))
Theorem:
(defthm vl-vardecl-mockmember-vl-vardecl-equiv-congruence-on-x (implies (vl-vardecl-equiv x x-equiv) (equal (vl-vardecl-mockmember x) (vl-vardecl-mockmember x-equiv))) :rule-classes :congruence)