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