The
(char8+short16+int16+long32+llong64+bool0-tcnt) → *
Function:
(defun char8+short16+int16+long32+llong64+bool0-tcnt nil (declare (xargs :guard t)) (make-char+short+int+long+llong+bool-format :uchar (uchar-format-8) :schar (schar-format-8tcnt) :char (char-format-8u) :short (short-format-16tcnt) :int (int-format-16tcnt) :long (long-format-32tcnt) :llong (llong-format-64tcnt) :bool (bool-format-lsb)))
Theorem:
(defthm wfp-of-char8+short16+int16+long32+llong64+bool0-tcnt (char+short+int+long+llong+bool-format-wfp (char8+short16+int16+long32+llong64+bool0-tcnt)))