Representation of charge strengths.
We represent Verilog's charge strengths with the keyword symbols recognized by (vl-cstrength-p x).
BOZO add references to the Verilog-2005 standard, description of what these are.
This is an ordinary defenum.
Function:
(defun vl-cstrength-p (x) (declare (xargs :guard t)) (or (eq x ':vl-large) (eq x ':vl-medium) (eq x ':vl-small)))
Theorem: type-when-vl-cstrength-p
(defthm type-when-vl-cstrength-p (implies (vl-cstrength-p x) (if (symbolp x) (if (not (equal x 't)) (not (equal x 'nil)) 'nil) 'nil)) :rule-classes :compound-recognizer)