Look up the help message for a VL kit program.
This is attachable so advanced users can add additional commands.
Definition:
(defconst *vl-help-messages* (list (cons "help" *vl-generic-help*) (cons "lint" *vl-lint-help*) (cons "gather" *vl-gather-help*) (cons "server" *vl-server-help*) (cons "shell" *vl-shell-help*) (cons "zip" *vl-zip-help*) (cons "json" *vl-json-help*)))
Definition:
(encapsulate (((vl-toolkit-help-message *) => * :formals (command) :guard (stringp command))) (local (value-triple :elided)) (defthm vl-toolkit-help-message-constraint (or (not (vl-toolkit-help-message command)) (stringp (vl-toolkit-help-message command))) :rule-classes :type-prescription))
Theorem:
(defthm vl-toolkit-help-message-constraint (or (not (vl-toolkit-help-message command)) (stringp (vl-toolkit-help-message command))) :rule-classes :type-prescription)