Construct a Java
(char-array-new-init comps) → array
Function:
(defun char-array-new-init (comps) (declare (xargs :guard (char-value-listp comps))) (declare (xargs :guard (< (len comps) (expt 2 31)))) (let ((__function__ 'char-array-new-init)) (declare (ignorable __function__)) (char-array comps)))
Theorem:
(defthm char-arrayp-of-char-array-new-init (b* ((array (char-array-new-init comps))) (char-arrayp array)) :rule-classes :rewrite)