(create-extra-info-doc opcode) → doc
Function:
(defun create-extra-info-doc (opcode) (declare (xargs :guard (strict-opcode-p opcode))) (let ((__function__ 'create-extra-info-doc)) (declare (ignorable __function__)) (b* (((opcode opcode)) (feat-doc (create-extra-info-doc-string opcode.feat ":FEAT ")) (vex-doc (create-extra-info-doc-string opcode.vex ":VEX ")) (evex-doc (create-extra-info-doc-string opcode.evex ":EVEX ")) (pfx-doc (create-extra-info-doc-string opcode.pfx ":PFX ")) (mode-doc (create-extra-info-doc-string opcode.mode ":MODE ")) (reg-doc (create-extra-info-doc-string opcode.reg ":REG ")) (mod-doc (create-extra-info-doc-string opcode.mod ":MOD ")) (r/m-doc (create-extra-info-doc-string opcode.r/m ":R/M ")) (rex-doc (create-extra-info-doc-string opcode.rex ":REX ")) (extra-info (str::cat "<table>" mode-doc pfx-doc reg-doc mod-doc r/m-doc rex-doc vex-doc evex-doc feat-doc "</table>"))) extra-info)))
Theorem:
(defthm stringp-of-create-extra-info-doc (implies (and (strict-opcode-p opcode)) (b* ((doc (create-extra-info-doc opcode))) (stringp doc))) :rule-classes :rewrite)