Convert a Java
(short-array-to-sbyte16-list array) → list
Function:
(defun short-array-to-sbyte16-list-aux (comps) (declare (xargs :guard (short-value-listp comps))) (let ((__function__ 'short-array-to-sbyte16-list-aux)) (declare (ignorable __function__)) (cond ((endp comps) nil) (t (cons (short-value->int (car comps)) (short-array-to-sbyte16-list-aux (cdr comps)))))))
Theorem:
(defthm sbyte16-listp-of-short-array-to-sbyte16-list-aux (b* ((list (short-array-to-sbyte16-list-aux comps))) (sbyte16-listp list)) :rule-classes :rewrite)
Theorem:
(defthm len-of-short-array-to-sbyte16-list-aux (b* ((common-lisp::?list (short-array-to-sbyte16-list-aux comps))) (equal (len list) (len comps))))
Function:
(defun short-array-to-sbyte16-list (array) (declare (xargs :guard (short-arrayp array))) (let ((__function__ 'short-array-to-sbyte16-list)) (declare (ignorable __function__)) (short-array-to-sbyte16-list-aux (short-array->components array))))
Theorem:
(defthm sbyte16-listp-of-short-array-to-sbyte16-list (b* ((list (short-array-to-sbyte16-list array))) (sbyte16-listp list)) :rule-classes :rewrite)
Theorem:
(defthm len-of-short-array-to-sbyte16-list (b* ((common-lisp::?list (short-array-to-sbyte16-list array))) (equal (len list) (len (short-array->components array)))))