Recognizer for vl-port/vardecl.
(vl-port/vardecl-p x) → *
Function:
(defun vl-port/vardecl-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-port/vardecl-p)) (declare (ignorable __function__)) (common-lisp::case (tag x) ((:vl-portdecl) (vl-portdecl-p x)) (otherwise (vl-vardecl-p x)))))
Theorem:
(defthm consp-when-vl-port/vardecl-p (implies (vl-port/vardecl-p x) (consp x)) :rule-classes :compound-recognizer)
Theorem:
(defthm vl-port/vardecl-p-when-vl-portdecl-p (implies (vl-portdecl-p x) (vl-port/vardecl-p x)) :rule-classes ((:rewrite :backchain-limit-lst 1)))
Theorem:
(defthm vl-port/vardecl-p-when-vl-vardecl-p (implies (vl-vardecl-p x) (vl-port/vardecl-p x)) :rule-classes ((:rewrite :backchain-limit-lst 1)))
Theorem:
(defthm vl-portdecl-p-by-tag-when-vl-port/vardecl-p (implies (and (or (equal (tag x) :vl-portdecl)) (vl-port/vardecl-p x)) (vl-portdecl-p x)) :rule-classes ((:rewrite :backchain-limit-lst 1)))
Theorem:
(defthm vl-vardecl-p-by-tag-when-vl-port/vardecl-p (implies (and (or (equal (tag x) :vl-vardecl)) (vl-port/vardecl-p x)) (vl-vardecl-p x)) :rule-classes ((:rewrite :backchain-limit-lst 1)))
Theorem:
(defthm vl-port/vardecl-p-when-invalid-tag (implies (and (not (equal (tag x) :vl-portdecl)) (not (equal (tag x) :vl-vardecl))) (not (vl-port/vardecl-p x))) :rule-classes ((:rewrite :backchain-limit-lst 0)))
Theorem:
(defthm tag-when-vl-port/vardecl-p-forward (implies (vl-port/vardecl-p x) (or (equal (tag x) :vl-portdecl) (equal (tag x) :vl-vardecl))) :rule-classes ((:forward-chaining)))