(vl-initial-patternkey-from-expr expr) → key
Function:
(defun vl-initial-patternkey-from-expr (expr) (declare (xargs :guard (vl-expr-p expr))) (let ((__function__ 'vl-initial-patternkey-from-expr)) (declare (ignorable __function__)) (if (vl-idexpr-p expr) (make-vl-patternkey-structmem :name (vl-idexpr->name expr)) (make-vl-patternkey-expr :key expr))))
Theorem:
(defthm vl-patternkey-p-of-vl-initial-patternkey-from-expr (b* ((key (vl-initial-patternkey-from-expr expr))) (vl-patternkey-p key)) :rule-classes :rewrite)